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

Узнай цену своей работы

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

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

Решение задачи: «Условно разделить файл на 2 части и удалить вторую часть»

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.

Объяснение кода листинга программы

  1. Объявляются переменные: f (тип File), i (тип Byte), x (тип Byte).
  2. Задается начальное состояние для переменной f, устанавливая ее в состояние 'открыто'.
  3. Выполняется операция случайной генерации чисел от 0 до 99 для каждой из 10 строк кода.
  4. Записывается случайное число в файл f, используя функцию BlockWrite.
  5. Сбрасывается файл f, начиная с позиции 1.
  6. Выводится сообщение «Файл до:» и выполняется цикл чтения данных из файла f до тех пор, пока не будет достигнут конец файла (состояние Eof(f)).
  7. Для каждой прочитанной строки выводится ее содержимое.
  8. Устанавливается позиция чтения файла f на 5 позицию.
  9. Выполняется операция Truncate, которая удаляет все данные после позиции 5 в файле f.
  10. Выводится сообщение «Файл после:».
  11. Выполняется цикл чтения данных из файла f до тех пор, пока не будет достигнут конец файла (состояние Eof(f)).
  12. Для каждой прочитанной строки выводится ее содержимое.
  13. Закрывается файл f с помощью функции Close.
  14. Выводится символ новой строки для завершения программы.

Оцени полезность:

11   голосов , оценка 3.636 из 5
Похожие ответы