2 программы написал - для записи в типизированный файл и чтения из него же. Первая программа, не знаю правильно ли написал её, что-то записывает однозначно, т.е. строки в блокноте не пустые и файл имеет размер отличный от нуля.
Вторая программа не считывает. Голову ломаю. То ли первая программа корявая, то ли вторая, то ли обе программы корявые.
----
program stipendiya_writer;
type forma=record
fio:string[50];
gruppa:string[7];
ocenka_ekz1:byte;
ocenka_ekz2:byte;
ocenka_ekz3:byte;
ocenka_sred:real;
stipendiya:string[15]
end;
var f:file of forma; sessiya:array [1..100] of forma;
n,m:integer;
procedure input_data(n:integer);
begin
writeln('Vvedite familiyu studenta:'); readln(sessiya[n].fio[50]);
writeln('Vvedite gruppu:'); readln(sessiya[n].gruppa[7]);
writeln('Vvedite ocenky za ekzamen1:'); readln(sessiya[n].ocenka_ekz1);
while ((sessiya[n].ocenka_ekz1<3) or (sessiya[n].ocenka_ekz1>5)) do begin
writeln('Vvedena nevernaya ocenka. Povtorite vvod:'); readln(sessiya[n].ocenka_ekz1);
end;
writeln('Vvedite ocenky za ekzamen2:'); readln(sessiya[n].ocenka_ekz2);
while ((sessiya[n].ocenka_ekz2<3) or (sessiya[n].ocenka_ekz2>5)) do begin
writeln('Vvedena nevernaya ocenka. Povtorite vvod:'); readln(sessiya[n].ocenka_ekz2);
end;
writeln('Vvedite ocenky za ekzamen3:'); readln(sessiya[n].ocenka_ekz3);
while ((sessiya[n].ocenka_ekz3<3) or (sessiya[n].ocenka_ekz3>5)) do begin
writeln('Vvedena nevernaya ocenka. Povtorite vvod:'); readln(sessiya[n].ocenka_ekz3);
end;
write(f,sessiya[n]);
end;
begin
assign(f,'INFO.DAT');
rewrite(f);
writeln('Vvedite kol-vo studentov:');
readln(m);
while m<=0 do begin
writeln('Kol-vo studentov ne mozhet bit otricatelnim ili ravnyatsya nulyu. Povtorite vvod:');
readln(m);
end;
for n:=1 to m do input_data(n);
writeln('GOTOVO');
close(f);
end.
---------
program stipendiya;
type forma=record
fio:string[50];
gruppa:string[7];
ocenka_ekz1:byte;
ocenka_ekz2:byte;
ocenka_ekz3:byte;
ocenka_sred:real;
stipendiya:string[15]
end;
var f:file of forma; sessiya:array [1..100] of forma; s:forma;
begin
assign(f,'INFO.DAT');
reset(f); seek(f,0);
read(f,s); write(s.fio);
close(f);
writeln('GOTOVO');
end.
---
Завтра сдавать 3 программы с типизированными файлами, а я бодаюсь уже неделю вторую =/
Прошу объяснить доходчиво на пальцах
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.