Разработать программу, которая читает c клавиатуры данные о лицах ...прог. record

@Annya · Регистрация: 27.04.2015

Pascal

type data=record
day:1..31;
month: 1..12;
year:integer;
end;
Person=record
namesurname:string;
birthday: data
end;
listpersons=array [1..50] of Person

Разработать программу, которая читает c клавиатуры данные о лицах N (N <= 50) и отображается на экране
а)человекa который родился в дeнь Z месяца
б)старшого
с)младшого

плссс...

@Sarmak · 10.12.2009, 22:15

Delphi

type
Person=record
namesurname:string;
day:1..31;
month: 1..12;
year:integer
end;
listpersons=array [1..50] of Person;
 
var
  a:listpersons;
  i,z:integer;
begin
  for i:= 1 to 50 do
  begin
    with a[i] do
      begin
        write('Имя фамилия: '); readln(namesurname);
        write('День: '); readln(day);
        write('Месяц: '); readln(month);
        write('Год: '); readln(year);
      end;
      end;
      writeln('Введите Z месяц');
readln(z);
for i:=1 to 50 do
 begin
        with a[i] do
      begin
           if month=z then writeln (namesurname:20,' ', day:2,'.', month:2,'.', year:4);
      end;
 end;
readln
end.

доделайте еще б и в ребят.

Опции темы