Условно разделить файл на 2 части и удалить вторую часть - Turbo Pascal

Формулировка задачи:

Написать программу, используя бестиповые файлы: Условно разделить файл на 2 части и удалить вторую часть.

Код к задаче: «Условно разделить файл на 2 части и удалить вторую часть - Turbo Pascal»

textual
Var
  f: File;
  i,x: Byte;
BEGIN
Randomize;
Assign(f,'f');
Rewrite(f,1);
For i:=1 to 10 do
begin
  x:=Random(100);
  BlockWrite(f,x,1);
end;
Reset(f,1);
Writeln('Файл до:');
While not Eof(f) do
begin
  BlockRead(f,x,1);
  Write(x,' ');
end;
Seek(f,5);
Truncate(f);
Writeln;
Writeln('Файл после: ');
Seek(f,0);
While not Eof(f) do
begin
  BlockRead(f,x,1);
  Write(x,' ');
end;
Close(f);
Readln
END.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 3.636 из 5


СДЕЛАЙТЕ РЕПОСТ