Описать запись Homme, которая используется для описания человека - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

1.В следующей программе описать запись Homme, которая используется для описания человека (поля: Имя, Отчество, Фамилия, дата рождения, пол). Создать файл типа Homme с именем <login>.note и записать в него несколько записей. 2.Написать программу, которая считывает из файла <login>.note все данные и выводит на экран в виде таблицы

Решение задачи: «Описать запись Homme, которая используется для описания человека»

textual
Листинг программы
type
  homme=record
    im,ot,fam:string[64];
    dr:integer;
    pol:string[1];
  end;
var
  x:homme;
  i,n:integer;
  f:file of homme;
begin
  assign(f,'login.note');
  rewrite(f);
  write('Введите количество записей: '); readln(n);
  for i:=1 to n do
  begin
    with x do
      begin
        write('Введите имя: '); readln(im);
        write('Введите отчество: '); readln(ot);
        write('Введите фамилию: '); readln(fam);
        write('Введите год рождения: '); readln(dr);
        write('Введите пол: '); readln(pol);
      end;
    write(f,x);
  end;
  close(f);
 
  reset(f);
  writeln('Фамилия':12,'Имя':12,'Отчество':12,'Пол':8,'Возраст':8);
  while not eof(f) do
    begin
      read(f,x);
      writeln(x.im:12,x.ot:12,x.fam:12,x.pol:8,(2015-x.dr):8);
    end;
  close(f);
  readln;
end.

Объяснение кода листинга программы

  1. Создается тип данных homme с полями im, ot, fam, dr и pol.
  2. Создается переменная x типа homme.
  3. Задается файл f типа file of homme.
  4. Открывается файл f.
  5. Читается количество записей от пользователя.
  6. Для каждой записи от пользователя выполняется:
    • Задается переменная i равная 1.
    • Задается переменная n равная текущему количеству записей.
    • В цикле for записывается информация о человеке в файл f.
    • Закрывается файл f.
    • Сбрасывается файл f.
    • Выводится заголовок для записи в файл f.
    • Читается информация о человеке от пользователя.
    • Записывается информация о человеке в файл f.
    • Закрывается файл f.
  7. Выводится сообщение Фамилия:12,Имя:12,Отчество:12,Пол:8,Возраст:8.
  8. Читается информация о человеке от файла f до конца файла.
  9. Выводится информация о каждом человеке в файле f.
  10. Закрывается файл f.
  11. Выводится сообщение readln.

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы