fy">     Инициализация записей осуществляется с помощью  типизированных констант:

     type

     RecType= Record х,у: Word; ch: Char;

     dim: Array[1..3] of Byte end; const

     Rec: RecType= ( x: 127; y: 255; ch: 'A1';

     dim: (2, 4, 8) ); 

7. Как описать массив  записей?

Например, так:

1. описывается запись одним из способов, приведенных в ответе 6.
2. описывается массив, в качестве типа данных указывается запись. Этот способ применен при решении задания 3.

     3. еще вариант описания и инициализации  приведен ниже:

     type

     RecType= Record х,у: Word; ch: Char;

     dim: Array[1..3] of Byte end; const

     Rec: RecType= ( x: 127; y: 255; ch: 'A1';

     dim: (2, 4, 8) ); 
 

 

     

Листинг задания 2.

 

     program Julaya1;

     Label 1;

     const n=10;   {Задание размерности последовательности.}   

     var mass:Array[1..n] of Integer;

         i     :Integer;

         numb_min  :Integer; {Переменная для поиска максимума}

         numb_max  :Integer; {Переменная для поиска минимума }

         summ      :Integer; {Переменная для суммы максимума и минимума}

     Begin

         For i:=1 To n Do      { ЗАПОЛНЕНИЕ последовательности C КЛАВИАТУРЫ }

             Begin

               Begin

                  WriteLn('Введите ',i,' элемент последовательности ');

                  ReadLn(mass[i]);

               End;

             End;

         numb_max:=mass[1];

         numb_min:=mass[1];

         For i:=1 To n Do      { Поиск max и min в последовательности}

             Begin

                 if mass[i]>numb_max Then numb_max:=mass[i];

                 if mass[i]<numb_min Then numb_min:=mass[i];

             End;

         summ:=numb_max + numb_min;

         WriteLn;

         WriteLn('Сумма max и min равна ', summ);

         ReadLn;

     End. 
 
 
 
 
 

Листинг задания 3.

 

Program Sveta2; 

Type

    docum=Record   {Описание типа }

         tip    :String;

         number :Integer;

         adres  :String;

         autor  :String;

         soder  :String;

    End;

   

Var

   dok:Array[10] of docum;

   i:Integer;

   adr_doc:String;

  

Begin

    for i:=1 to 10 Do {Ввод данных о документа}

        Begin

             WriteLn('Введите тип документа №', i);

             ReadLn(dok[i].tip);

             WriteLn('Введите рег. номер документа №', i);

             ReadLn(dok[i].number);

             WriteLn('Введите адресат документа №', i);

             ReadLn(dok[i].adres);

             WriteLn('Введите автора документа  №', i);

             ReadLn(dok[i].autor);

             WriteLn('Введите содержание документа №', i);

             ReadLn(dok[i].tip);

        End; 

    WriteLn('Введите реквизиты искомого адресата ');

    ReadLn(adr_doc);

    WriteLn('Список найденных документов: ');

    For i:=1 To 10 Do

        Begin

             if a[i]=adr_doc then

             begin

             WriteLn('Тип документа № ', dok[i].tip);

             WriteLn('Номер документа № ', dok[i].number);

             WriteLn('Адресат документа № ', dok[i].adres);

             WriteLn('Автор документа № ', dok[i].autor);

             WriteLn('Содержание документа № ', dok[i].tip);

            End;

        End;

    readln;

End.