Помощь - Поиск - Пользователи - Календарь
Полная версия: И у меня проблема с работой с файлами
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
wolke
переписать содержание первого файла во второй, заменив последнее слово первым, а первое удалив.

может задачка детская, но что-то у меня не получается sad.gif
помогите, плз
klem4
если на одной строче одно слово :

f1, f2 : text;
arr : array[1..100] of string;
s : string;

....
while(not(eof(f1))) do begin
read(f1, s);
inc(i);
arr[i] := s;
end;

arr[i] := arr[1];

...
n := i;
for i := 2 to n do writln(f2, arr[i]);


как работать с файлами, если не знаешь, сходи в наш замечательный FAQ.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.