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

[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.