Привет. Я решил одну задачку на паскале, как мне записать получившиеся ответы в файл ?
То есть у меня вот выводится ответ на экран, а как потом еще эти данные в файл записать ?
if s1=s2 then Writeln('s1=',s1,' s2=',s2)
var
f: Text;
// ...
assign(f, 'text.txt');
rewrite(f);
writeln(f, 's1 = ', s1, ' s2 = ', s2);
close(f);
Ага спасибо, но как после if s1=s2 then Writeln('s1=',s1,' s2=',s2)
этой строчки писать мне ?
Так:
if s1=s2 then Writeln('s1=',s1,' s2=',s2);
assign(f, 'text.txt');
rewrite(f);
writeln(f, 's1 = ', s1, ' s2 = ', s2);
close(f);
Всё верно. Главное не закрыть файл перед записью. И не забудь объявить переменную f в var.
var
// ...
assign(output, 'text.txt'); {...если входной файл то input}
rewrite(output);
writeln('s1 = ', s1, ' s2 = ', s2);
close(output);
Bard, как я погляжу, ты надо всеми смеешься? А прочесть задание у тебя что, времени не хватает? Сразу надо бежать и шлепать ответ? Сказано:
ой извиняюсь за ошибку но если честно я даже этого не
проверял(что-то в голову не приходило )...
я это только что проверил после твоего поста, volvo
P.S просто я не до конца прочитал или не заметил кое что в сообщении BND.
SORRY