Добавление символа в конец файла, (переименовано) Опции

[NajjZ]

вот такая задача:

Описать процедуру:
add (t, c), добавляющую литеру с в конец текста t;

сообразил два варианта кода, но не знаю будут ли они правильны

procedure add (var t:tekst; c:char);
var x:char;
begin
 append (t);
 repeat read(t,x);
 until not eof(t);
 x:='c';
 write(t,x);
 close(t);
end

и второй

procedure add(var t:tekst; c:char);
 var d:char; s:tekst;
begin
 reset(t); rewrite(s);
 while not eof(t) do
   begin read(t,d); write(s,d) end;
 write(s,c);
 reset(s); rewrite(t);
 while not eof(s) do
   begin read(s,d); write(t,d) end
end;

из второго кода в частности интересует будет ли в участке

begin read(t,d); write(s,d) end;
 write(s,c);

после прочтения текста из t и записи его в s операцией write(s,c) записываться С именно в конец текста s

помогите, очень надо. пишите и свои варианты


Сообщение отредактировано: NajjZ - 14.01.2009 12:36

[volvo]

А что, обязательно надо открыть файл и прочитать его с начала до конца, вместо вот такого, например:

procedure add(var t: text; c: char);
begin
  append(t); write(t, c); close(t);
end;

?

NajjZ
Тему я переименовал, но в следующий раз будь внимателен при выборе названия...

Сообщение отредактировано: volvo - 14.01.2009 19:18