Работа с структурированным файлом
|
|
Страница 1 из 2
Исходный файл представляет собой набор записей следующего вида:
фамилия ученика
его возраст
пол
оценки по 4-ём испытаниям
1.Описать программу, которая формирует исходный файл
2.Описать процедуру, которая выводит в файл фамилии учеников, которые имеют средний балл выше заданного.
1. Программа, которая формирует исходный файл Текст программыprogram newfile;
type ekz = record
matan,dmat,prog,linalg:1..5;
end;
st = record
name:string[20];
age:byte;
st:char;
e:ekz;
end;
tf=file of st;
var i:byte;
f:tf;
stud:st;
fname:string[20];
q:char;
begin
writeln('Введите имя файла:');
readln(fname);
assign(f,fname);
rewrite(f);
i:=0;
repeat
inc(i);
with stud do begin
write('фамилия ',i,' ученика:');readln(name);
write('век:');readln(age);
write('пол:');readln(st);
writeln('оценки:');
with e do begin
write('математика ');readln(matan);
write('физика ');readln(dmat);
write('химия ');readln(prog);
write('литература ');readln(linalg)
end
end;
write(f,stud);
writeln('Продолжать ?');
readln(q);
until (q<>'Y' )and(q<>'y');
close(f);
end.
Результат работы программы1)Введите имя файла:
file1.txt
фамилия 1 ученика:Иванов
век:18
пол:м
оценки:
математика 3
физика 3
химия 3
литература 3
Продолжать ?
y
фамилия 2 ученика:Петров
век:17
пол:ж
оценки:
математика 4
физика 4
химия 4
литература 4
Продолжать ?
y
фамилия 3 ученика:Сидоров
век:18
пол:м
оценки:
математика 4
физика 4
химия 3
литература 4
Продолжать ?
y
фамилия 4 ученика:Васильев
век:17
пол:м
оценки:
математика 5
физика 4
химия 5
литература 4
Продолжать ?
n
2)
Введите имя файла:
file2.txt
фамилия 1 ученика:Сергеев
век:18
пол:ж
оценки:
математика 3
физика 3
химия 3
литература 3
Продолжать ?
y
фамилия 2 ученика:Николаев
век:18
пол:ж
оценки:
математика 5
физика 5
химия 5
литература 4
Продолжать ?
фамилия 3 ученика:Пугачев
век:18
пол:м
оценки:
математика 5
физика 4
химия 5
литература 5
Продолжать ?
y
фамилия 4 ученика:Белов
век:17
пол:м
оценки:
математика 4
физика 4
химия 4
литература 5
Продолжать ?
y
фамилия 5 ученика:Смирнов
век:3
пол:м
оценки:
математика 3
физика 4
химия 4
литература 3
Продолжать ?
n |