Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача по текстовому файлу.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Menelay
Добрый день ребята.
У меня задача (Создать текстовой файл и написать в него 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 тыры - пыры..

Огромная просьба помочь мне разобраться с этой проблемой.
Заранее спасибо.
Client
Цитата
что программа писалась,она бы и читалась
Что это значит?
Гость
Цитата(Client @ 13.05.2010 21:50) *

Что это значит?


Ну тоесть она работает. тоесть автоматически пишется.. но нужно чтобы помимо этого еще и читалась на автомате..
как-то так.
Гость
While not EOF нужно впихнуть под конец..незнаю как(
Client
while not eof(f) do begin
readln(f,s);
writeln(s);
end;
Это?
Гость
да скорее всего..спс
marwell
весьма похоже Текстовой фаил
Гость
хех) да похоже) лол) надо было форум порыскать..хотя там ничего нового нету(
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.