Не работает правильно программа.(Файлы)

@Кейт Либби · Регистрация: 16.10.2011

Author24 — интернет-сервис помощи студентам

И так.. Задача такова: Сформировать файл, содержащий информацию про N студентов (факультет, курс, группа, результаты сессии (4 предмета)). Используя данный файл, определить и напечатать фамилии студентов, сдавших сессию на отлично (указать курс и группу).

Необходимо также преобразовать файл из текстового в типизированный.

Вот такой бред у меня вышел:

Pascal

uses crt;
type stud=record
     familiya:string;
     facultet:string;
     kurs,group:byte;
     rez_ses1,rez_ses2,rez_ses3,rez_ses4:integer;
     end;
var i,j:byte;
f:file of stud;
zm:stud;
s:string; m,k:real;
n:word;
 
begin
    assign(f,'dat.txt');
    rewrite(f);
    writeln('Kolichestvo studentov:');
    readln(n);
    for i:=1 to n do
        begin
            writeln('familiya');
            readln (zm.familiya);
            writeln('Facultet');
            readln (zm.facultet);
            writeln('kurs:');
            readln (zm.kurs);
                writeln('group:');
            readln (zm.group);
          writeln('rez_ses1');
            readln (zm.rez_ses1);
             writeln('rez_ses2');
            readln (zm.rez_ses2);
             writeln('rez_ses3');
            readln (zm.rez_ses3);
             writeln('rez_ses4');
            readln (zm.rez_ses4);
         end;
       close(f);
        reset(f);
        while  not eof(f) do
              begin
                   read (f,zm);
             if (zm.rez_ses1+zm.rez_ses2+zm.rez_ses3+zm.rez_ses4) mod 4 =5 then
                writeln(zm.familiya,'  ',zm.kurs,'  ',zm.group);
           end;
           close(f);
 
END.

@Кейт Либби · 04.02.2012, 14:11 **[ТС]**

Пожалуйста, подскажите, у меня не у кого спрашивать больше, только у вас))

@SuPeR XaKer · 04.02.2012, 16:02

readln (zm.rez_ses4);

после этой строки надо в файл запись записать

Pascal

1	write(f,zm);

да и условие можно вот так записать

Pascal

1	if (zm.rez_ses1+zm.rez_ses2+zm.rez_ses3+zm.rez_ses4)=20 then

А зачем преобразовывать из текстового в типизированный? Кстати сейчас вы с типизированным работаете.

@Кейт Либби · 04.02.2012, 16:12 **[ТС]**

Сообщение от SuPeR XaKer

А зачем преобразовывать из текстового в типизированный? Кстати сейчас вы с типизированным работаете.

Так требует условие задания.
Но каким образом можно сделать это преобразование??

@SuPeR XaKer · 04.02.2012, 16:14

я знаю только один: считать записи, записать в типизированный файл, удалить текстовый и переименовать тот в который записали.

@Кейт Либби · 04.02.2012, 17:42 **[ТС]**

SuPeR XaKer, А как на деле это сделать, уж простите может за такую бесцеремонность, жажду знать ответ..

@Кейт Либби 4 / 3 / 1 Регистрация: 16.10.2011 Сообщений: 69
	04.02.2012, 14:11 [ТС]	2
	Пожалуйста, подскажите, у меня не у кого спрашивать больше, только у вас)) 0

@Кейт Либби 4 / 3 / 1 Регистрация: 16.10.2011 Сообщений: 69
	04.02.2012, 16:12 [ТС]	4
	Сообщение от SuPeR XaKer А зачем преобразовывать из текстового в типизированный? Кстати сейчас вы с типизированным работаете. Так требует условие задания. Но каким образом можно сделать это преобразование?? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	04.02.2012, 16:14	5
	я знаю только один: считать записи, записать в типизированный файл, удалить текстовый и переименовать тот в который записали. 1

@Кейт Либби 4 / 3 / 1 Регистрация: 16.10.2011 Сообщений: 69
	04.02.2012, 17:42 [ТС]	6
	SuPeR XaKer, А как на деле это сделать, уж простите может за такую бесцеремонность, жажду знать ответ.. 0

Опции темы