SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
замените кусок кода в начале основной программы на приведённый ниже
Код:
var
f : file of Student;
i : integer;
begin
Assign(f,'st_rec.dat');
{$I-}
Reset(f);
{$I+}
if IOResult<>0 then
begin
WriteLn('Файл не найден. Создаём...');
flag:=false;
number:=0;
while not flag do begin
write ('Вы хотите добавить данные о студенте? (Y/N): ');
readln (answer);
case answer of
'Y', 'y','Н','н' : createListOfStudent(number, flag);
'N', 'n','Т','т' : exit
else
writeln ('Ваш ответ некорректен. Пожалуйста выберите "Y" or "N"');
end;
end;
Rewrite(f);
for i:=1 to number do
Write(f,list[i]);
Close(f);
WriteLn('Файл успешно записан.');
end
else begin
{читаем данные из файла}
number := 0;
while Not Eof(f) do begin
inc(number);
Read(f,list[number]);
end;
Close(f);
WriteLn('Данные считаны из файла. Всего ',number:1,' записей считано');
end;
flag := false;
while not flag do begin
writeln ('Пожалуйста выберите одно из следующих:');
....
|
|
