Автор: sugutor 17.10.2006 20:30
Составить программу обработки информации о некоторых студентах
ФИО | Год Рождения| Пол | Оценка По Физике| По математике | По информатике| Стипендия |
Вывести фамилии студентов женского пола имеющих 5 по информатике
Нужно сделать через запись и чтобы данные читались из файла .
через запись я сделал но как сделать чтобы данные читались из фала и выполнялось условие(вывести фамилии студенток у которых 5 по информатике)?
помогите plz
Автор: volvo 17.10.2006 20:38
Цитата
через запись я сделал
То есть, ты предлагаешь нам ТОЖЕ сделать сначала через запись, потом включить телепатические способности, проверить так ли мы сделали, как ты, и если так - то дополнить программу работой с файлом?
Нужна помощь - присоединяй код...
Автор: sugutor 17.10.2006 20:48
ок .. заранее спасибо
Код
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.
Автор: sugutor 18.10.2006 1:56
читал но вроде как нужного не нашел ..мб я ошибся... подскажите плиз) .. заранее извиняюсь если там все таки есть пример на эту тему мб я просто не понял
Автор: мисс_граффити 18.10.2006 2:02
http://forum.pascal.net.ru/index.php?showtopic=3584
вперед - раздел "Чтение и запись".
Автор: sugutor 18.10.2006 2:19
ну помогите с кодом в конце концов зачем свой выкладывал .. в теории это одно(мда прочитал я что делают операторы read, write, и функция eof и сразу все понял) .. а соответствующего примера там нет
Автор: мисс_граффити 18.10.2006 2:30
тебе осталось вставить строчки записи записи в файл (что такое write ты прочитал) и чтения записи из файла (read).
в чем тут помогать-то?