Цитата:
Сообщение от Pyx
а вы не могли бы посмотреть еще эту задачу
нужно создать файл целых чисел (количество элементов файла и сами элементы вводятся с клавиатуры). Добавить элемент в конец файла. Выводить на экран содержимое нового файла.
|
Пожалуйста:
Код:
Var
f:Text;
n:Integer;
C:Char;
BEGIN
Assign(f,'D:\fff');
Rewrite(f);
Close(f);
Repeat
Write('Next n (Y/N)? ');
Readln(C);
If (C='Y') or (C='y') then
begin
Append(f);
Write('n= ');
Readln(n);
Writeln(f,n);
Close(f);
end
else
begin
Write('Show file (Y/N)? ');
Readln(C);
If (C='Y') or (C='y') then
begin
Reset(f);
Repeat
Readln(f,n);
Write(n,' ');
Until EoF(f);
Close(f);
Writeln;
end;
end;
Until (C='N') or (C='n');
END.