Файл f заполнить 400 случайными действительными числами. Найти разницу первой и последней компоненты файла f - Turbo Pascal

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

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

Вот такая задачка

Файл f заполнить 400 случайными действительными числами. Найти разницу первой и последней компоненты файла f

Наперед огромное спасибо

Решение задачи: «Файл f заполнить 400 случайными действительными числами. Найти разницу первой и последней компоненты файла f»

textual
Листинг программы
var f: file of double;
    x, x1: double;
    i: integer;
begin
  randomize;
  assign(f, '400.dat');
  rewrite(f);
  for i := 0 to 399 do
    begin
      x := 100 * random - 200;
      write(f, x)
    end;
  writeln('File is generated.');
  seek(f, 0);
  read(f, x1);
  close(f);
  writeln('Difference between first and last component of file is equal to ');
  writeln(x1 - x);
  readln
end.

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

  1. Создается переменная f типа file of double, которая представляет собой файл для записи и чтения чисел с плавающей точкой.
  2. Создаются две переменные x и x1 типа double, которые будут использоваться для хранения случайных чисел.
  3. Создается переменная i типа integer, которая будет использоваться для итерации цикла.
  4. Вызывается функция randomize, чтобы инициализировать генератор случайных чисел.
  5. Вызывается функция assign, чтобы присвоить имя файлу f.
  6. Вызывается функция rewrite, чтобы перезаписать содержимое файла f.
  7. Запускается цикл for, который выполняется 400 раз.
  8. Внутри цикла генерируется случайное число x, умноженное на 100 и затем вычитается из 200, чтобы получить число от 0 до 200.
  9. Вызывается функция write, чтобы записать число x в файл f.
  10. После завершения цикла цикл завершается и вызывается функция writeln, чтобы вывести сообщение File is generated.
  11. Затем вызывается функция seek, чтобы переместиться на начало файла f.
  12. Вызывается функция read, чтобы прочитать первое число из файла f в переменную x1.
  13. Закрывается файл f с помощью функции close.
  14. Вычисляется разница между x1 и x.
  15. Выводится сообщение Difference between first and last component of file is equal to.
  16. Выводится значение разницы x1 - x.
  17. Вызывается функция readln, чтобы перейти на новую строку.

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

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