Записи в ТР

[savva]

пошёл учить паскаль.

[Grag]

Ну что, Андрюха74, и на другом форуме халява не пролезла...
А я думал, Puporev тебе наваяет код программы...

[savva]

program Project9;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type Birthday=record
             Day:integer;
             Month:integer;
             Year:integer;
end;
type User= record
        name:string[15];
        secname:string[15];
        thirdname:string[15];
        Birth:Birthday;
        Education:string[15];
        Homeaddr:string[15];
        Proff:string[15];
end;
const n=5;
var
i:integer;
a:array[0..n] of User;
begin
   for i:= 0 to n do
   begin
   writeln ('Vvedite info of 4eloveke');
   writeln ('Enter name');
   readln (a[i].name);
   writeln ('Enter secname');
   readln (a[i].secname);
   writeln ('Enter Thirdname');
   readln(a[i].thirdname);
   writeln ('Enter birthday)4erez probel)');
   readln(a[i].Birth.Day);
   readln(a[i].Birth.Month);
   readln(a[i].Birth.Year);
   writeln ('Education');
   readln (a[i].Education);
   writeln ('Town of birth');
   readln(a[i].Homeaddr);
   writeln('Proffesion');
   readln(a[i].Proff);
   writeln ;
   end;
end.

[XeruH]

Держи код. Правда сразу скажу что не проверял его. Хотя и так видно что туда нужно еще включать проверки, но это я думаю ты уж сам сделаешь =)

program Project1;

type
  // запись для даты рождения
  BirthDayRec = record
    Day: Byte;
    Month: Byte;
    Year: Word;
  end;

  // запись данных о служащем
  PersonRec = packed record
    Surname: String[50];
    Name: String[50];
    Patronymic: String[50];
    BirthDay: BirthDayRec;
    Education: String[1];
    Address: String[250];
    Profession: String[100];
  end;

var
  PersonArr: array of PersonRec;  // массив служащих
  PersonCnt, I: Cardinal;         // кол-во служащих, счетчик
  FindProf: String;               // искомая профессия

begin
  // Получим кол-во служащих
  Write('Input persons count: ');
  ReadLn(PersonCnt);

  // Устанавливаем размер массива
  SetLength(PersonArr, PersonCnt);

  // Проходим по каждому служащему в массиве
  for I := 0 to PersonCnt - 1  do
  begin
    // И заносим вводимые данные в запись
    WriteLn('Input information about person');
    Write('Surname: ');
    ReadLn(PersonArr[I].Surname);
    Write('Name: ');
    ReadLn(PersonArr[I].Name);
    Write('Patronymic: ');
    ReadLn(PersonArr[I].Patronymic);
    Write('BirthDay(day month year): ');
    ReadLn(PersonArr[I].BirthDay.Day, PersonArr[I].BirthDay.Month, PersonArr[I].BirthDay.Year);
    Write('Education(H - Higher education; S - Secondary education): ');
    ReadLn(PersonArr[I].Education);
    Write('Address: ');
    ReadLn(PersonArr[I].Address);
    Write('Profession: ');
    ReadLn(PersonArr[I].Profession);
  end;

  // Ищем служащих с высшим образованием
  WriteLn;
  WriteLn('Persons with higher education:');
  // Проходим по каждому служащему в массиве
  for I := 0 to PersonCnt - 1  do
  begin
    // Если образование высшее
    if PersonArr[I].Education = 'H' then
    begin
      // выводим данные об этом служащем
      Write('- ');
      Write(PersonArr[I].Surname + ' ' + PersonArr[I].Name + ' ' + PersonArr[I].Patronymic + ' ');
      Write(PersonArr[I].BirthDay.Day, '.', PersonArr[I].BirthDay.Month, '.', PersonArr[I].BirthDay.Year);
      WriteLn;
    end;
  end;

  WriteLn;
  // Получаем искомую профессию
  Write('Input profession: ');
  ReadLn(FindProf);
  // Ищем служащих с искомой профессией
  WriteLn('Persons with '+FindProf+':');
  // Проходим по каждому служащему в массиве
  for I := 0 to PersonCnt - 1  do
  begin
    // Если профессия совпадает с искомой
    if PersonArr[I].Profession = FindProf then
    begin
      // выводим данные об этом служащем
      Write('- ');
      Write(PersonArr[I].Surname + ' ' + PersonArr[I].Name + ' ' + PersonArr[I].Patronymic + ' ');
      Write(PersonArr[I].BirthDay.Day, '.', PersonArr[I].BirthDay.Month, '.', PersonArr[I].BirthDay.Year, ' ');
      Write(PersonArr[I].Profession);
      WriteLn;
    end;
  end;

  readln;
end.