Найти ошибку в программе

@uvarovandrej · Регистрация: 26.11.2009

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

А шо тут не так, че ано мне выдает всякую гадость, но не то что надо?

Pascal

Program Naselenie;
uses crt;
type
perepis=record
surname:string[20];
year:integer;
end;
var
f:file of perepis;
p:perepis;
i,s:byte;
 
begin
clrscr;
assign(f,'Naselenie.txt');
rewrite(f);
for i:=1 to 5 do
begin
writeln(i);
writeln('Familia:'); readln(p.surname);
writeln('God:');readln(p.year);
end;
close(f);
 
clrscr;
reset(f);
for i:=1 to 5 do
writeln(i,p.surname:10,p.year:10);
writeln;writeln;
writeln('Jyteli kotorye rodilis do 1973 goda:');
s:=0;
for i:=1 to 5 do
begin
read(f);
if p.year<1973 then
s:=s+1;
end;
writeln(s,' chelovek');
readln;
end.

@Андрей Борисови · 06.01.2010, 02:06

Спорим вы по элетросхеме не догадаеесь об устройстве!
Напишите задание, блин.

Добавлено через 4 минуты

Сообщение от uvarovandrej

for i:=1 to 5 do
begin
writeln(i);
writeln('Familia:'); readln(p.surname);
writeln('God:');readln(p.year);
end;
close(f);

Вы закрыли файл и далее

Сообщение от uvarovandrej

clrscr;
reset(f);
for i:=1 to 5

снова пытаетесь получить к нем доступ.

уберите отсюда close(f)

Сообщение от uvarovandrej

writeln('God:');readln(p.year);
end;
close(f);

и поставте его вот сюда

Сообщение от uvarovandrej

readln;
close (F);
end.

@Страдалецъ · 06.01.2010, 02:12

Вплоть до 23 строки все нормально, а вот дальше идут ошибки.
1. Вы открываете файл, но ничего из него не читаете.
2. Вы выводите на экран:

Код

writeln(i,p.surname:10,p.year:10);

Но поскольку ничего в p не считано из файла, у вас должно все время выводится последнее введенное значение в 20,21 строках.
3. В 34 строке вы что-то пытаетесь читать из файла, но никуда не помещаете результат чтения.
4. Ну и дальше соответственно вся логика не работает.

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	06.01.2010, 02:06	2
	Спорим вы по элетросхеме не догадаеесь об устройстве! Напишите задание, блин. Добавлено через 4 минуты Сообщение от uvarovandrej for i:=1 to 5 do begin writeln(i); writeln('Familia:'); readln(p.surname); writeln('God:');readln(p.year); end; close(f); Вы закрыли файл и далее Сообщение от uvarovandrej clrscr; reset(f); for i:=1 to 5 снова пытаетесь получить к нем доступ. уберите отсюда close(f) Сообщение от uvarovandrej writeln('God:');readln(p.year); end; close(f); и поставте его вот сюда Сообщение от uvarovandrej readln; close (F); end. 1

@Страдалецъ Тимуровец 445 / 285 / 50 Регистрация: 10.09.2009 Сообщений: 963
	06.01.2010, 02:12	3
	Вплоть до 23 строки все нормально, а вот дальше идут ошибки. 1. Вы открываете файл, но ничего из него не читаете. 2. Вы выводите на экран: Код writeln(i,p.surname:10,p.year:10); Но поскольку ничего в p не считано из файла, у вас должно все время выводится последнее введенное значение в 20,21 строках. 3. В 34 строке вы что-то пытаетесь читать из файла, но никуда не помещаете результат чтения. 4. Ну и дальше соответственно вся логика не работает. 1