Exitcode = 104

@97mik · Регистрация: 08.04.2009

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

Скажите почему выдаёт ошибку exitcode = 104, при выполнении программы

Pascal

var s:string;g,f:text;i,c:integer;
begin
assign(f,'c:\1.txt');
rewrite(f);
writeln(f,'12345');
read(f,s);
val(s,i);
read(c);
i:=i+c;
writeln(f,i);
close(f);
end.

@volvo · 27.11.2011, 14:34

Потому что файл открыт на запись, прежде чем из него читать, надо его переоткрыть на чтение. А потом, когда захочешь опять записать - на добавление:

Pascal

var s:string;
    f:text;
    i,c:integer;
begin
   assign(f,'c:\1.txt');
   rewrite(f);  //  Открыли на запись
   writeln(f,'12345');
   reset(f);  // Переоткрыли на чтение (close не обязателен, он будет вызван автоматически)
   read(f,s);
   val(s,i);
   read(c);
   i:=i+c;
   append(f); // хотим добавить что-то? Дозапись ...
   writeln(f,i);
   close(f); // Все, окончательно закрываем файл.
end.

@97mik · 27.11.2011, 14:52 **[ТС]**

Спасибо

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	27.11.2011, 14:52 [ТС]	3
	Спасибо 0