лабораторная работа / zapisi / zd27
.doc
МИНИСТЕРСТВО ОБЩЕГО И ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ РФ
САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ
факультет: ИС
Отчет
по индивидуальному заданию
на вычислительную практику
Вариант 27.
Выполнил:
студент 2-ого курса
гр. УИТ-22
принял:
г. Балаково 2005 г.
Задание:
Составить программу, которая создает на диске файл данных списка студентов с указанием сдачи экзаменов и зачетов летней сессии и обеспечивает поиск сведений о студенте по его фамилии.
program zd27;
uses crt;
type
person=record
fam:string[25];
ekz:string[40];
zach:string[40];
end;
var
i:integer;
kol:integer;
work:person;
familia:string[25];
est:boolean;
name:string[12];
f:file of person;
begin
clrscr;
write('Введите имя файла о студентах:'); readln(name);
assign(f,name);
rewrite(f);
writeln('Создание файла записей ',name);
write('введите число записей:'); readln(kol);
for i:=1 to kol do
begin
writeln('Ввод записи N',i);
with work do
begin
write('Введите фамилию студента:'); readln(fam);
write('Введите перечень сданных экзаменов летней сессии через запятую:'); readln(ekz);
write('Введите зачеты летней сессии через запятую:'); readln(zach);
end;
write(f,work);
writeln;
end;
close(f);
assign(f,name);
{$i-}
reset(f);
{$i+}
if ioresult=0 then
begin
writeln('Поиск сведений о студенте по фамилии:');
write('Введите фамилию студента: '); readln(familia);
seek(f,0);
est:=false;
while(not eof(f)) do
begin
read(f,work);
with work do
if fam=familia then
begin
writeln('Найдена запись студента ',familia);
writeln('сданные экзамены: ',ekz);
writeln('зачеты летней сессии: ',zach);
writeln;
est:=true;
end;
end;
if not est then writeln('Записей с такой фамилией нет.');
end;
close(f);
writeln;
writeln('Конец. Для выхода нажмите ENTER...');
readln;
end.