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

[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

[Archon]

type tekst=file of text

У тебя файл получается для хранения переменных типа text. А ты в них пишешь символы. Если хочешь использовать текстовый файл напиши так:

type tekst=text

(без "file of". А лучше вообще не вводи собственный тип и просто используй тип text.

Добавлено через 2 мин.

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;

Я думаю, что тебе надо не символ 'c' записать в конец, а символ из переменной с;

Добавлено через 4 мин.

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;

Жутко надуманный вариант. Еще и работать не будет, потому что файловую переменную s нужно сперва связать с реальным файлом при помощи assign().