Организуйте вывод информации из файла по вводимому с клавиатуры номеру записи

@MORGAN100 · Регистрация: 01.05.2013

Напишите программу, организующую хранение в файле нескольких (до 5) записей о ваших друзьях. Организуйте вывод информации по вводимому с клавиатуры номеру записи. Например:
Номер записи: 3
Фамилия: Иванов
Имя: Иван
Отчество: Иванович
Год рождения: 1977
Месяц рождения: 12
Число рождения: 18

@Reveng · 02.05.2013, 13:09

Pascal

uses crt;
 
type
  TFriends = record
    Count : integer;
    Surname : string;
    Name : string;
    Patronymic : string;
    Year : integer;
    Month : integer;
    Number : integer;
  end;
  
var
  f : text;
  Friend : array [1..5] of TFriends;
  i, n, num: integer;
 
begin
  Assign(f, 'f.txt');
  Reset(f);
  Readln(f, n);
  i := 1;
  if n <= 5 then
    begin
      while not (EoF(f)) do
        begin
          Readln(f, Friend[i].Count);
          Readln(f, Friend[i].Surname);
          Readln(f, Friend[i].Name);
          Readln(f, Friend[i].Patronymic);
          Readln(f, Friend[i].Year);
          Readln(f, Friend[i].Month);
          Readln(f, Friend[i].Number);
          inc(i);
        end;
      Close(f);
    end;
  Repeat
    Write('Номер записи для вывода: '); 
    Readln(num);
  until num in [1..n];
  Writeln(Friend[num].Surname, ' ', Friend[num].Name, ' ', Friend[num].Patronymic, ' ', Friend[num].Number, '.', Friend[num].Month, '.', Friend[num].Year);
  Readln;
end.

Пример файла:f.txt

@MORGAN100 0 / 0 / 0 Регистрация: 01.05.2013 Сообщений: 19
		1
	Организуйте вывод информации из файла по вводимому с клавиатуры номеру записи 01.05.2013, 22:03. Просмотров 1845. Ответов 1 Метки нет (Все метки) Напишите программу, организующую хранение в файле нескольких (до 5) записей о ваших друзьях. Организуйте вывод информации по вводимому с клавиатуры номеру записи. Например: Номер записи: 3 Фамилия: Иванов Имя: Иван Отчество: Иванович Год рождения: 1977 Месяц рождения: 12 Число рождения: 18 0

Опции темы

Организуйте вывод информации из файла по вводимому с клавиатуры номеру записи

Решение