Question

Даны два файла: input.txt и output.txt. В input.txt дана последовательность чисел: 1,6,11,16,21. В Output.txt отобразить размах ряда (т.е разность между наибольшим и наименьшим числом). Pascal

Answer 1

Конечно, давай разбираться. Вот пример программы на Pascal, которая читает последовательность чисел из файла input.txt, вычисляет размах ряда и записывает результат в файл output.txt:

program CalculateRange;

var
  inputFile, outputFile: text;
  numberArray: array of Integer;
  i, minValue, maxValue, range: Integer;

begin
  // Открываем файл для чтения
  Assign(inputFile, 'input.txt');
  Reset(inputFile);

// Считываем числа из файла в массив
  SetLength(numberArray, 5);
  for i := 0 to 4 do
    Read(inputFile, numberArray[i]);

// Закрываем файл после считывания
  Close(inputFile);

// Находим минимальное и максимальное значения в массиве
  minValue := numberArray[0];
  maxValue := numberArray[0];
  for i := 1 to 4 do
  begin
    if numberArray[i] < minValue then
      minValue := numberArray[i];
    if numberArray[i] > maxValue then
      maxValue := numberArray[i];
  end;

// Вычисляем размах ряда
  range := maxValue - minValue;

// Открываем файл для записи
  Assign(outputFile, 'output.txt');
  Rewrite(outputFile);

// Записываем результат в файл
  Write(outputFile, 'Размах ряда: ', range);

// Закрываем файл после записи
  Close(outputFile);
end.

Этот код открывает файл input.txt, считывает последовательность чисел, находит минимальное и максимальное значения, вычисляет размах ряда и записывает результат в файл output.txt. Пожалуйста, убедись, что файл input.txt содержит правильную последовательность чисел до запуска программы.