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

[sugutor]

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

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



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

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

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

помогите plz

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

[volvo]

через запись я сделал

То есть, ты предлагаешь нам ТОЖЕ сделать сначала через запись, потом включить телепатические способности, проверить так ли мы сделали, как ты, и если так - то дополнить программу работой с файлом?

Нужна помощь - присоединяй код...

[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.

[мисс_граффити]

FAQ по файлам читал?

[sugutor]

читал но вроде как нужного не нашел ..мб я ошибся... подскажите плиз) .. заранее извиняюсь если там все таки есть пример на эту тему мб я просто не понял

[мисс_граффити]

FAQ - файлы
вперед - раздел "Чтение и запись".

[sugutor]

ну помогите с кодом в конце концов зачем свой выкладывал .. в теории это одно(мда прочитал я что делают операторы read, write, и функция eof и сразу все понял) .. а соответствующего примера там нет

[мисс_граффити]

тебе осталось вставить строчки записи записи в файл (что такое write ты прочитал) и чтения записи из файла (read).
в чем тут помогать-то?