Задача на тему Записи, наверное пишется как-то через массив... Опции

[vovka239]

Попросили помочь с задачей:
"Составить список из 10 жильцов, указав фамилию, инициалы, год рождения и адрес(улица, дом, квартира).Выдать справку о месте проживания данного жильца. Если жильцов, имеющих одинаковые фамилию, инициалы и год рождения несколько, то выдать информацию о всех."
Помогите пожалуйста решить...Сам ещё не пробовал делать..глаза не первый день что-то болят..Наведите хоть на путь истинный, с чего начать и чем закончить

[vovka239]

Я вспомнил свой пароль от форума и зашёл из дома)) Так что выкладываю получившийся код сегодня)

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type anketa=record
   fio: string[25];
   ini: string[5];
   dat_r: string[8];
   street: string[25];
   home: string[5];
   kvart: string[5]
end;
var mas: array [1..10] of anketa;
   I: integer;
begin
  for I:=1 to 10 do
    begin
      writeln ('vvedite info o ', I , '-m jilce');
      writeln ('Vvedite Family');
      readln (mas[I].fio);
      writeln ('Vvedite iniciali');
      readln (mas[I].ini);
      writeln ('Vvedite Daty');
      readln (mas[I].dat_r);
      writeln ('Vvedite street');
      readln(mas[I].street);
      writeln ('Vvedite home');
      readln(mas[I].home);
      writeln ('Vvedite kvartiry');
      readln (mas[I].kvart);
  end;
   writeln ('Vvod zakon4en');
   writeln ;
  for I:=1 to 10 do
      if mas[I].fio='pupkin' then
      begin
         writeln(' Family : ', mas[I].fio);
         writeln(' Street : ', mas[I].street);
         writeln(' Home : ', mas[I].home);
         writeln(' Kvart : ', mas[I].kvart);
        readln
        end
end.

И ещё добавилась задача вроде этой, только на запись в файл:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   var
   f1 : text;
type anketa=record
   fio: string[25];
   ini: string[5];
   dat_r: string[8];
   street: string[25];
   home: string[5];
   kvart: string[5]
end;
var mas: array [1..10] of anketa;
   I: integer;
begin
Assign(f1,'C:/Filename.txt');
ReWrite(f1);
  for I:=1 to 2 do
    begin
      writeln ('vvedite info o ', I , '-m jilce');
      writeln (f1,'Введите информацию о ', I , '-м жильце:');
      writeln ('Vvedite Family');
      writeln (f1,'Введите фамилию:');
      readln (mas[I].fio);
      writeln (f1, mas[I].fio);
      writeln ('Vvedite iniciali');
      writeln (f1,'Введите инициалы:');
      readln (mas[I].ini);
      writeln (f1, mas[I].ini);
      writeln ('Vvedite Daty');
      writeln (f1,'Введите дату рождения:');
      readln (mas[I].dat_r);
      writeln (f1, mas[I].dat_r);
      writeln ('Vvedite street');
      writeln (f1,'Введите улицу:');
      readln(mas[I].street);
      writeln (f1, mas[I].street);
       writeln ('Vvedite home');
      writeln (f1,'Введите дом:');
      readln(mas[I].home);
      writeln (f1, mas[I].home);
       writeln ('Vvedite kvartiry');
      writeln (f1,'Введите квартиру:');
      readln (mas[I].kvart);
      writeln (f1, mas[I].kvart);
  end;
   Close(f1);
   writeln ('Vvod zakon4en');
   writeln ;
        readln
end.

Вроде всё понятно, разобрался, вопросов нет, но может у кого-то есть какие-то нарекания) Скажите, если это так) На будущее буду знать