Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ И у меня проблема с работой с файлами

Автор: wolke 10.04.2006 0:50

переписать содержание первого файла во второй, заменив последнее слово первым, а первое удалив.

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

Автор: klem4 10.04.2006 1:13

если на одной строче одно слово :

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.