Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Текстовой фаил
Автор: eldar219 5.05.2010 17:19
Создать текстовой фаил и написать в нем 5 одинаковых фраз
Автор: Client 5.05.2010 17:25
открой блокнот, напиши строку, скопируй 5 раз
Автор: eldar219 5.05.2010 17:29
мне на паскале нужно помогите
Автор: marwell 5.05.2010 17:31
мне на паскале нужно помогите
а у самого-то какие мысли?
Автор: eldar219 5.05.2010 17:35
если бы я знал я бы не спрашивал,если сможешь помоги написать
Автор: marwell 5.05.2010 17:38
если бы я знал я бы не спрашивал,если сможешь помоги написать
фраза вводится пользователем?
Автор: eldar219 5.05.2010 17:42
написать любую фразу и чтоб она автоматически повторялась сама 5 раз в паскале
Автор: marwell 5.05.2010 17:51
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.05.2010 18:06
а почему цикл не повторяеться 5 ряз автоматически?
Автор: marwell 5.05.2010 18:14
а почему цикл не повторяеться 5 ряз автоматически?
как не повторяется???
Добавлено через 7 мин.
у меня появилось смутное сомнение, а знаешь ли ты вообще что такое цикл...
Автор: Гость 5.05.2010 18:21
как не повторяется???
Добавлено через 7 мин.
у меня появилось смутное сомнение, а знаешь ли ты вообще что такое цикл...
Когда я нажимаю в паскале на Run эта фраза раз не выводится(
Автор: marwell 5.05.2010 18:27
Когда я нажимаю в паскале на Run эта фраза раз не выводится(
writeln('vvedite frasu: '); // сделал ввод фразы пользователем
это не выводится?
Автор: Гость 5.05.2010 18:30
writeln('vvedite frasu: '); // сделал ввод фразы пользователем
это не выводится?Выводитсяно лишь 1 раз,а мне нужно чтобы 5 раз вывелось автоматически
Автор: marwell 5.05.2010 18:35
Выводитсяно лишь 1 раз,а мне нужно чтобы 5 раз вывелось автоматически
ясно,значит твои знания в паскале нулевые
вспомни свое задание:"нужно создать текстовый файл и написать в нем 5 одинаковых фраз"
когда при запуске программы она говорит 'vvedite frasu:' тебе нужно ввести любую фразу и нажать Enter.
теперь поищи в папке с паскалем файл "123.txt" и открой его
Автор: Гость 5.05.2010 18:44
программа то пошла и на txt файле она выводит фразу,а как сделать так чтоб она прямо в run-е выводилась это фраза 5 раз а не на txt файле
Автор: marwell 5.05.2010 18:50
программа то пошла и на txt файле она выводит фразу,а как сделать так чтоб она прямо в run-е выводилась это фраза 5 раз а не на txt файле
var
i:integer;
begin
for i:=1 to 5 do
Writeln('блаблабла');
readln;
end.
Автор: TarasBer 5.05.2010 19:12
Программа выводит результат и сразу закрывается. Посмотреть на результат вывода можно по нажатию alt+f5.
Автор: Гость 5.05.2010 19:25
Меня учитель заколебал:))
Нужно чтобы как и в 1 варианте 5 фраз сохранялись в файле txt и чтобы эти 5 фраз так же выводились в паскале когда жму RUN
Автор: Гость 5.05.2010 19:25
Меня учитель заколебал:))
Нужно чтобы как и в 1 варианте 5 фраз сохранялись в файле txt и чтобы эти 5 фраз так же выводились в паскале когда жму RUN
Автор: TarasBer 5.05.2010 19:33
Сначала выводишь в файл 5 раз, потом выводишь на экран 5 раз. В чём вопрос?
Автор: marwell 5.05.2010 19:35
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);
writeln(s);
end;
readln(s);
close(f);
end.
Автор: Romtek 5.05.2010 20:13
Предлагаю дружно помочь человеку завалить предмет. Иначе он его не выучит.
Автор: marwell 5.05.2010 21:12
Предлагаю дружно помочь человеку завалить предмет. Иначе он его не выучит.
согласен, писать курсовую и не иметь даже элементарного представления о паскале - это как минимум неправильно