Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE

Нажмите для полного просмотра!

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №2

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №3

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №4

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №5

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №6

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №7

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №8

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №9

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №10

Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE, слайд №11

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE. Доклад-сообщение содержит 11 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Записи Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE = RECORD {Запись} :; :; {Список полей} ... : end; Пример: TYPE DATA = RECORD {дата рождения =записи} {имеем 4 поля:} name: string; {фамилия или имя } den,mes: byte; {день, месяц} god: word {год} end; Пример: VAR a,b: DATA; {Объявление переменных }

Слайд 2

Описание слайда:

Begin a.name:='MARINA'; a.god:=1990; a.den:=23; a.mes:=3; Операция присваивания: B := A; Действия, разрешенные для базового типа: b.name:=‘NIK'; b.god:=a.god-1; (на год старше) Для доступа к полям записи используется оператор присоединения: WITH DO ; c выполнять Например: WITH a DO begin name:='MARINA'; god:=1990; den:=23; mes:=3 end;

Слайд 3

Описание слайда:

Доступ к вложенным элементам выполняется записью ряда полей через точку или оператор(ы) присоединения. Пример: определим сложную запись (вложенные записи) TYPE STUDENT=RECORD name:string; DENROGD: RECORD den,mes:byte; god:word end; end; VAR s: STUDENT; begin s.name:=‘LIZA’; s.DENROGD.god:=1991; Или WITH s DO name:=‘LIZA’; WITH s DO with DENROGD DO god:=1991; Или WITH s.DENROGD DO god:=1991; DENROGD является вложенной записью для записи STUDENT

Слайд 4

Описание слайда:

ПРИМЕР Напечатать сведения о студентах заданного года рождения program zap12; USES CRT; Type student=record name:string[15]; denRogd: RECORD den, mes:byte; god:word end; end; var Z: ARRAY [1..20] OF student; i, n: byte; BEGIN CLRSCR; writeln('ВВЕДИТЕ КОЛИЧЕСТВО СТУДЕНТОВ'); READln(n); {ввод данных} FOR i:=1 TO n DO WITH z[i] DO NAME:=‘ ';

Слайд 5

Описание слайда:

for i:=1 to n do begin writeLN('ВВЕДИТЕ ИМЯ ',i,' СТУДЕНТА'); readln(z[i].name); WRITELN('ВВЕДИТЕ день рождения'); readLN(z[i].denRogd.den); WRITELN('ВВЕДИТЕ месяц рождения'); readLN(z[i].denRogd.mes); WRITELN('ВВЕДИТЕ год рождения'); readLN(z[i].denRogd.god); end; writeln('СПИСОК ');

Слайд 6

Описание слайда:

Записи с вариантами CASE .. OF вариантное поле при определении записи TYPE =RECORD :тип поля1; :тип поля2; CASE OF : (:; :;...); : (:; :;...); . . . : (:; :;...) END; Тип полей с11, с12 - компоненты варианта. : ( )

Слайд 7

Описание слайда:

Пример: Пусть необходимо собрать сведения о студентах группы: фамилия, дата рождения, номер комнаты (если живет в общежитии) или почтовый индекс и адрес (если нет). TYPE MESTO=(ob,dom); STUDENT=RECORD name:=string; DENROGD: RECORD data:read; god:word END; CASE N OF dom: (indeks:word;adres:string); ob: (komn:word); END; Var z: student; Переменную-переключатель называют также тагом (тэг, тег) - ярлыком, признаком, дискриминантом. Пример: Cоздать запись - данные об одном из студентов - Петрове, родившемся 15.03.90, адрес; Маркса 6-2.

Слайд 8

Описание слайда:

Const N=Dom; … Begin With z do begin Name:=‘Petrov’; {z.name=‘Petrov’} with denRogd do begin God:=1980; {z.denRog.god:=1990} data:=15.03; {z.denRog.data:=15.03} If N=OB then read(komn); {z.komn:= } else begin indeks:=24; ADRES:=‘Marksa 6-2’; End; … With z do write(‘i’, name); {печать из z.name} With z.denRogd do write(‘ ’, god, ‘.’, date:5:2); {1990.15.03} If N=OB then With z do write (‘комната’, komn); еlse With z do write(‘индекс’ , indeks, ‘адрес’, adress); End.

Слайд 9

Описание слайда:

Пример предыдущий, но если студент живет в общежитии, добавить поля: если он из Омска - ничего, если из другого города - название. . TYPE GOR=(OBL, NO); STUDENT=RECORD name:=string; DENROGD: RECORD … … … Case N: Mesto OF DOM: (indeks: Byte, Adres:string); OB: (Komn:word; Case YN: Gor OF {адрес:string} OBL: (); NO: (Gorod:string); End; Var st: array [1..20] of student;

Слайд 10

Описание слайда:

{Пример Разработать программу Формирования списка студентов с указанием дат рождения, номера комнаты, если живет в общежитии, индекса и адреса, если в Омске, а так же вывода сведений о студенте по его ИМЕНИ} Program zap2case; USES CRT; {подключение модуля СRT} type {определение нового типа} MESTO=(ob,dom); student=record {запись} name:string[15]; denRogd: RECORD {вложенная запись} data:real; god:word end; CASE N:mesto of dom: (index:word; adres:string) ; ob: (komn:word) end;

Слайд 11

Описание слайда:

readLN(data); WRITELN(‘введите год рождения’); readLN(god); end; writeln(‘введите 0-общежития и 1-дом'); read(j); n:=mesto(j); IF n=ob then begin writeln(‘введите комн.'); readln(komn); end; else begin writeln(‘введите индекс и адрес'); readln(index, adres); end; end;