Текстовой фаил, Задача по текстовому файлу Опции

[eldar219]

Создать текстовой фаил и написать в нем 5 одинаковых фраз

[Client]

открой блокнот, напиши строку, скопируй 5 раз

[eldar219]

мне на паскале нужно помогите

[marwell]

мне на паскале нужно помогите

а у самого-то какие мысли?

[eldar219]

если бы я знал я бы не спрашивал,если сможешь помоги написать

[marwell]

если бы я знал я бы не спрашивал,если сможешь помоги написать

фраза вводится пользователем?

[eldar219]

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

[marwell]

var f:text;
    s:string;
    i:integer;
begin
Assign(f,'123.txt');
Rewrite(f);
writeln('vvedite frasu: '); // сделал ввод фразы пользователем
readln(s);
for i:=1 to 5 do
 begin
 Writeln(f,s);
 end;
readln(s);
close(f);
end.

[eldar219]

а почему цикл не повторяеться 5 ряз автоматически?

[marwell]

а почему цикл не повторяеться 5 ряз автоматически?

как не повторяется???

Добавлено через 7 мин.
у меня появилось смутное сомнение, а знаешь ли ты вообще что такое цикл...

[Гость]

как не повторяется???

Добавлено через 7 мин.
у меня появилось смутное сомнение, а знаешь ли ты вообще что такое цикл...

Когда я нажимаю в паскале на Run эта фраза раз не выводится(

[marwell]

Когда я нажимаю в паскале на Run эта фраза раз не выводится(

writeln('vvedite frasu: '); // сделал ввод фразы пользователем

это не выводится?

[Гость]

writeln('vvedite frasu: '); // сделал ввод фразы пользователем

это не выводится?

Выводитсяно лишь 1 раз,а мне нужно чтобы 5 раз вывелось автоматически

[marwell]

Выводитсяно лишь 1 раз,а мне нужно чтобы 5 раз вывелось автоматически

ясно,значит твои знания в паскале нулевые
вспомни свое задание:"нужно создать текстовый файл и написать в нем 5 одинаковых фраз"
когда при запуске программы она говорит 'vvedite frasu:' тебе нужно ввести любую фразу и нажать Enter.
теперь поищи в папке с паскалем файл "123.txt" и открой его

[Гость]

программа то пошла и на txt файле она выводит фразу,а как сделать так чтоб она прямо в run-е выводилась это фраза 5 раз а не на txt файле

[marwell]

программа то пошла и на txt файле она выводит фразу,а как сделать так чтоб она прямо в run-е выводилась это фраза 5 раз а не на txt файле

var 
    i:integer;
begin
for i:=1 to 5 do
 Writeln('блаблабла');
readln;
end.

[TarasBer]

Программа выводит результат и сразу закрывается. Посмотреть на результат вывода можно по нажатию alt+f5.

[Гость]

Меня учитель заколебал:))

Нужно чтобы как и в 1 варианте 5 фраз сохранялись в файле txt и чтобы эти 5 фраз так же выводились в паскале когда жму RUN

[Гость]

Меня учитель заколебал:))

Нужно чтобы как и в 1 варианте 5 фраз сохранялись в файле txt и чтобы эти 5 фраз так же выводились в паскале когда жму RUN

[TarasBer]

Сначала выводишь в файл 5 раз, потом выводишь на экран 5 раз. В чём вопрос?