Записи

program lab_rabota_7;
uses crt;
 
Type
  vladelez = Record
  fam:String[20];
  mark:string[20];
   zv:string[15];
  k1:array[1..100] of integer;
   End;
 
 
Var
n:integer;
i:integer;
j:integer;
d,a,b,c:integer;
sum: array [1..50] of integer;
g:Array [1..10] of vladelez;
                                         {Описание переменных}
 f:String[2];
begin
TextBold;                 {Жирный шрифт}
TextAttr:=16*LightBlue;   {Цвет фона светло-голубой}
clrscr;                   {очистка экрана}
textcolor(11);            {цвет текста голубой}
gotoxy (10,5);            {координаты надписи}
write('Лабораторная работа №7');
gotoxy (10,7);
write('Тема:структурированные типы:записи');
gotoxy (10,9);
write('Выполнил: студент');
gotoxy (10,11);
write('Д');
gotoxy (20,22);
write('Нажмите любую клавишу');
readln;                   {пауза}
clrscr;
{Условие 1}
gotoxy (10,5);
write('Условие:');
gotoxy (10,7);
write('Даны сведения о владельцах автомобилей: ');
gotoxy (10,9);
write('фамилия, инициалы владельца, марка машины, номер, цвет. ');
gotoxy (10,11);
write('Выдать все сведения о машинах,');
gotoxy (10,13);
write('сумма цифр номера равна d');
gotoxy (10,22);
write('Нажмите любую клавишу');
readln;
clrscr;
{Решение 1}
Begin
Writeln ('Введите сведения о группе владельцев:');
writeln ('введите количество владельцев автомобилей:');
readln(n);
writeln('Введите число d  ');
readln(d);
For i:=1 to n do
Begin
Writeln ('Введи данные о ',i,' владельце и машине:');
With g[i] do
Begin
Write ('Фамилия и инициалы:');
Readln(fam);
Write ('марка машины :');
Readln(mark);
write ('цвет машины :');
readln(zv);
write('введите номер машины');
write('введите 1-ую цифру');
read(a);
write('введите 2-ую цифру');
read(b);
write('введите 3-ую цифру');
read(c);
sum[j]:=a+b+c;
End;
end;
 
readln;
clrscr;
For i:=1 to n do
Begin
With g[i] do
Begin
For j:=1 to 3 do
If sum[j]=d Then
writeln('Фамилия и инициалы:  ',fam,' марка машины :  ',mark,' цвет машины :  ',zv,'                      ');
 
end;
end;
end;
end.