Входной/Выходной файл

@eamir · Регистрация: 23.03.2013

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

выдает ошибку "ошибка ввода вывода 103 файл не открыт"

вот код

Pascal

program pr;
var a,c:text;
b:array[1..5] of integer;
i,s,j:integer;
begin
s:=0;
assign(a,'c:\in.in');
assign(c,'c:\out.out');
reset(a);
for i:=1 to 5 do
begin
readln(a,b[i]);
end;
close(a);
rewrite(c);
for i:=1 to 5 do begin
s:=s+i;
write(c,s);
close(c);
end;
end.

сами файлы создал на с:\
В чем проблема?

@palva · 03.04.2013, 20:33

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

Pascal

1	rewrite(c);

Их можно либо читать, либо дописывать (append)

@eamir · 03.04.2013, 20:43 **[ТС]**

как именно использовать append для этого примера?

@palva · 03.04.2013, 20:45

Слово append вместо слова rewrite, а затем писать в этот файл. Но для этого файл обязан существовать.

@eamir · 03.04.2013, 20:50 **[ТС]**

выдает ту же ошибку, можешь сразу в моем коде дописать?

Kodzaev · 03.04.2013, 20:51

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

но существующие файлы нельзя открывать таким способом

Дело совсем не в этом. Существующие файлы можно открывать таким способом, просто содержимое файла стирается. А в коде такая ошибка: В последнем цикле процедуру закрытия файла нужно вынести за пределы цикла, и, раз уж файлы текстовые, сменить расширение на .txt.

Pascal

var a,c:text;
b:array[1..5] of integer;
i,s,j:integer;
begin
s:=0;
assign(a,'c:\in.txt');
assign(c,'c:\out.txt');
reset(a);
for i:=1 to 5 do
begin
readln(a,b[i]);
end;
close(a);
rewrite(c);
for i:=1 to 5 do begin
s:=s+i;
write(c,s);
end;
close(c);
end.

@palva · 03.04.2013, 23:15

Да, был неправ. Перепутал с ситуацией, когда выдается append на несуществующий файл. Тогда в отличие от некоторых других языков файл не создается.

@eamir 0 / 0 / 0 Регистрация: 23.03.2013 Сообщений: 20
	03.04.2013, 20:43 [ТС]	3
	как именно использовать append для этого примера? 0

@palva 3945 / 2859 / 665 Регистрация: 08.06.2007 Сообщений: 9,670 Записей в блоге: 4
	03.04.2013, 20:45	4
	Слово append вместо слова rewrite, а затем писать в этот файл. Но для этого файл обязан существовать. 0

@eamir 0 / 0 / 0 Регистрация: 23.03.2013 Сообщений: 20
	03.04.2013, 20:50 [ТС]	5
	выдает ту же ошибку, можешь сразу в моем коде дописать? 0

@palva 3945 / 2859 / 665 Регистрация: 08.06.2007 Сообщений: 9,670 Записей в блоге: 4
	03.04.2013, 23:15	7
	Да, был неправ. Перепутал с ситуацией, когда выдается append на несуществующий файл. Тогда в отличие от некоторых других языков файл не создается. 0

Опции темы