Программирование на языке высокого уровня TURBO PASCAL. Краснов С.В. - 48 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

48
zap=record {Описание структуры записи}
fio:STRING[10]; {поле фамилия на 10 символов}
gr:integer; {поле год рождения}
end;
Var
f_zap:file of zap; {файловая переменная}
b:zap; {переменная типа записи}
i,n:integer; {переменные для циклов}
Begin {начало операторной части программы}
Assign(f_zap,'sp.doc'); {подключение файловой переменной к файлу 'sp.doc’}
Rewrite(f_zap); {открытие файла с именем 'sp.doc’ на
запись}
Write('Введите кол-во курсантов'); {вывод сообщения}
Readln(n); {
ввод количества строк}
Write('Введите фам и год рожд курсантов'); {вывод сообщения}
For i:=1 to n do {цикл для ввода данных}
begin
write('=>'); {вывод сообщения}
read(b.fio); {ввод фамилии}
readln(b.gr); {ввод года рождения}
write(f_zap,b); {сохранение записи в файле 'sp.doc' на магнитном диске}
end; {конец цикла}
Close(f_zap); {закрытие файла}
{ВЫВОД ИЗ ФАЙЛА}
I:=1; {установка значения счетчика на начало}
WRITELN; {
указатель на начало новой строки}
WRITELN(' СПИСОК КУРСАНТОВ'); {вывод сообщения}
WRITELN('-------------------------------'); {вывод сообщения}
WRITELN(' № | ФАМИЛИЯ | ГОД РОЖДЕНИЯ'); {вывод сообщения}
WRITELN('-------------------------------'); {вывод сообщения}
Reset(f_zap); {открытие файла на чтение записи}
While not eof(f_zap) do {цикл для чтения записей из файла и вывода на
экран}
begin
read(f_zap,b); {чтение записи с магнитного диска в переменную типа
записи}
writeln(I:2,' |', b.fio:10,' | ',b.gr); {вывод полей записи на экран}
I:=I+1; {увеличение значения счетчика для вывода номера строки}
end; {конец цикла}
WRITELN('-------------------------------'); {вывод сообщения}
Writeln('конец '); {вывод сообщения}
End. {конец программы}

Страницы