Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Записать результат в файл

Автор: BND 27.04.2007 21:40

Привет. Я решил одну задачку на паскале, как мне записать получившиеся ответы в файл ?
То есть у меня вот выводится ответ на экран, а как потом еще эти данные в файл записать ?

if s1=s2 then Writeln('s1=',s1,' s2=',s2)



Автор: klem4 27.04.2007 21:51

var
f: Text;

// ...
assign(f, 'text.txt');
rewrite(f);
writeln(f, 's1 = ', s1, ' s2 = ', s2);
close(f);


http://forum.pascal.net.ru/index.php?showtopic=3584

Автор: BND 27.04.2007 22:00

Ага спасибо, но как после 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);

Автор: Tan 27.04.2007 22:02

Всё верно. Главное не закрыть файл перед записью. И не забудь объявить переменную f в var.

Автор: Bard 27.04.2007 22:40

Цитата

var
f: Text;

// ...
assign(f, 'text.txt');
rewrite(f);
writeln(f, 's1 = ', s1, ' s2 = ', s2);
close(f);


а помоему есть более удобный вариант без объявлния переменной f(text file)... good.gif
вот он:

var

// ...
assign(output, 'text.txt'); {...если входной файл то input}
rewrite(output);
writeln('s1 = ', s1, ' s2 = ', s2);
close(output);

lol.gif

Автор: volvo 27.04.2007 22:44

Bard, как я погляжу, ты надо всеми смеешься? mad.gif mad.gif mad.gif А прочесть задание у тебя что, времени не хватает? Сразу надо бежать и шлепать ответ? Сказано:

Цитата
То есть у меня вот выводится ответ на экран, а как потом еще эти данные в файл записать ?
Ну, и попробуй теперь вывести результаты И на экран, И в файл. dry.gif

Много экономии?

Автор: Bard 27.04.2007 23:06

ой извиняюсь unsure.gif за ошибку но если честно я даже этого не
проверял(что-то в голову не приходило mega_chok.gif )...
я это только что проверил после твоего поста, volvo
P.S просто я не до конца прочитал или не заметил кое что в сообщении BND.

SORRY

Автор: Perfez 27.04.2007 23:32

Добавлю, маленький нюанс, взятый отсюда:
http://forum.pascal.net.ru/index.php?showtopic=1741
Так вот о чём я:

Цитата(trminator @ 27.05.2004 20:37) *

А про использование AssignCRT вместо Assign для записи в текстовый файл уже говорили? smile.gif по Фаронову, наного быстрее

smile.gif