Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 62 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

Созданную структуру опишем как тип записи Student.
Type Student = Record {Описываем тип записи Student}
FIO : String[20]; {Описываем{соответствующие поля}
DenR : 1 . .31;
MecR : 1 .. 12;
GodR : Integer;
Pol : (M, F);
Adrec: String [50];
Nelefon: String [10];
End;
Каждое поле в записи, как уже говорилось, может иметь
любой тип (кроме файлового), в частности может быть запи-
сью. Это дает возможность объединять информацию по
смыслу. Структура записи Student приведена на рис. 2.
Студент
Рис. 2. Структура записи Student
Type Student = Record
FIO : String[20];
DataR : Record
DenR : 1..31;
MecR : 1..12;
GodR : Integer
End;
Pol : (M, F);
Dom : Record
Adrec : String [50];
Telefon : String [10]
End;
End;
Фам, Имя, Отч
Дата рожд
Пол
Дом
Мес
День
Год
Адр
Тел
62
    Созданную структуру опишем как тип записи Student.
    Type Student = Record {Описываем тип записи Student}
    FIO : String[20]; {Описываем{соответствующие поля}
    DenR : 1 . .31;
    MecR : 1 .. 12;
    GodR : Integer;
    Pol : (M, F);
    Adrec: String [50];
    Nelefon: String [10];
    End;
    Каждое поле в записи, как уже говорилось, может иметь
любой тип (кроме файлового), в частности может быть запи-
сью. Это дает возможность объединять информацию по
смыслу. Структура записи Student приведена на рис. 2.

                               Студент



   Фам, Имя, Отч            Дата рожд          Пол      Дом


                        День    Мес      Год          Адр   Тел
                   Рис. 2. Структура записи Student

   Type Student = Record
   FIO : String[20];
   DataR : Record
   DenR : 1..31;
   MecR : 1..12;
    GodR : Integer
             End;
      Pol : (M, F);
     Dom : Record
    Adrec : String [50];
   Telefon : String [10]
             End;
             End;
                                 62

Страницы