Скачать: CL | DM;

Дозапись в текстовый (а не в типизированный) файл без append   Найти похожие ветки 

← →
saga-al   (2008-12-28 11:22) [0]

В общем дело так. Есть программа - записывает массив в текстовый файл. Делал изначально с помощью Rewrite(f). Препод спросил, как организовать дозапись в файл. Я заменил rewrite(f) на append(f). Препод спросил как работает Append, я объяснил, что открывает файл, читает до конца, тем самым как бы ищет конец файла и записывает в конец. Препод вроде кивнул, и сказал реализовать это без Append`а, как бы расписать его по действиям. Но основная проблема в том, что f:textfile ключевое условие. То есть необходимо организовать дозапись в текстовый файл, аналогично аппенду, но не используя его. Препод утверждает, что задача элементарна. Ниже код.



program Zadanie;

{$APPTYPE CONSOLE}

const n=5; m=5;
var f: textfile;
   a:array [1..n,1..m] of integer;
   i,j:integer;
begin
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
     a[i,j]:=random(10);
     write(a[i,j]:3);
   end;
     writeln;
   end;
assignfile(f,"num2.txt");
append(f); {Необходимо расписать аппенд как бы, по действиям, варианты типа reset(f);
while not EOF(F) do readln(f,); writeln(f,a[i,j]) не работают. Тип файла должен быть текстовым.}

for i:=1 to n do
 begin
   for j:=1 to m do
     begin
       write(f,a[i,j]:3);
     end;
   writeln(f);
  end;
readln;
closefile(f);
end.

---

← →
Palladin ©   (2008-12-28 11:34) [1]

1. Ни ты ни препод не знаете как работает Append.
2. К текстовому файлу нельзя применять Seek. Последствия непредсказуемы.
3. Какого черта нужна еще одна ветка?

---

← →
sniknik ©   (2008-12-28 11:49) [2]

> 3. Какого черта нужна еще одна ветка?
не нужна. ту удалил, эту закрываю как спам.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c