Описать запись 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.
Объяснение кода листинга программы
- Создается тип данных
homme
с полямиim
,ot
,fam
,dr
иpol
. - Создается переменная
x
типаhomme
. - Задается файл
f
типаfile of homme
. - Открывается файл
f
. - Читается количество записей от пользователя.
- Для каждой записи от пользователя выполняется:
- Задается переменная
i
равная 1. - Задается переменная
n
равная текущему количеству записей. - В цикле
for
записывается информация о человеке в файлf
. - Закрывается файл
f
. - Сбрасывается файл
f
. - Выводится заголовок для записи в файл
f
. - Читается информация о человеке от пользователя.
- Записывается информация о человеке в файл
f
. - Закрывается файл
f
.
- Задается переменная
- Выводится сообщение
Фамилия:12,Имя:12,Отчество:12,Пол:8,Возраст:8
. - Читается информация о человеке от файла
f
до конца файла. - Выводится информация о каждом человеке в файле
f
. - Закрывается файл
f
. - Выводится сообщение
readln
.