Правила форума
Прочтите прежде чем задавать вопрос!
У меня задача (Создать текстовой файл и написать в него 5 одинаковых фраз.)
После долгих стараний у меня получилась вот такая программа.
var f:text;
s:string;
i:integer;
begin
Assign(f,'new.txt');
Rewrite(f);
writeln('frazka: ');
readln(s);
for i:=1 to 5 do
begin
Writeln(f,s);
end;
readln(s);
close(f);
end
Показал учителю. Учитель сказал что все верно,за исключением того что, ему нужно чтобы помимо того что программа писалась,она бы и читалась.. он мне наглядко показал как это выглядет..но я ничерта не понял..
единственное что помню в отрывках.. он использовал в конце проги что-то вроде if not EOF тыры - пыры..
Огромная просьба помочь мне разобраться с этой проблемой.
Заранее спасибо.
Сообщение отредактировано: Lapp -
