Файлы + Запись Опции

[sugutor]

Составить программу обработки информации о некоторых студентах

ФИО | Год Рождения| Пол | Оценка По Физике| По математике | По информатике| Стипендия |



Вывести фамилии студентов женского пола имеющих 5 по информатике

Нужно сделать через запись и чтобы данные читались из файла .

через запись я сделал но как сделать чтобы данные читались из фала и выполнялось условие(вывести фамилии студенток у которых 5 по информатике)?

помогите plz

Сообщение отредактировано: sugutor - 17.10.2006 20:34

[sugutor]

ок .. заранее спасибо

Код

program spisok;
uses crt;
type zap=record
     fio,pol: string[15];
     gr,ocf,ocm,oci,stip: integer;
     end;
var sp:array[1..15] of zap;
    z:array[1..15] of zap;
k,q,n,m,i,Sum: integer;

begin
k:=1;
clrscr;
writeln ('vvesti kol-vo studentov');
readln (n);
repeat m:=m+1;
write ('vvedite FIO '); readln (sp[m].fio);
write ('vvedite God Rozhdeniya '); readln (sp[m].gr);
write ('vvedite Pol '); readln (sp[m].pol);
write ('vvedite Ocenka Fizika '); readln (sp[m].ocf);
write ('vvedite Ocenka Matematika '); readln (sp[m].ocm);
write ('vvedite Ocenka Informatika '); readln (sp[m].oci);
write ('Stipendia '); readln (sp[m].stip);
until (n=m);

for i:=1 to n do
begin
writeln ('FIO: ',sp[i].fio);
writeln ('God Rozhdenia: ',sp[i].gr);
writeln ('Pol: ',sp[i].pol);
writeln ('Ocenka Fizika: ',sp[i].ocf);
writeln ('Ocenka Matematika: ',sp[i].ocm);
writeln ('Ocenka Informatika: ',sp[i].oci);
writeln ('Stipendia: ',sp[i].stip);
writeln;
end;
for i:=1 to n do
if (sp[i].pol='f') and (sp[i].oci=5) then
writeln('Stydentka kotoraya imeet po informatike 5: ',sp[i].fio);
end.