Нахождение значения максимального и минимального элементов файла s (процедура) - Pascal

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

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

Для файла s, состоящего из целых чисел, определите процедуру,которая находит значения максимального и минимального элементов файла s. Указание: введите файл s (последний элемент равен 0) и напечатай те значения максимального и минимального элементов файла s. Помогите пожалуйста составить программу.

Решение задачи: «Нахождение значения максимального и минимального элементов файла s (процедура)»

textual
Листинг программы
type foi = file of integer;
 
procedure minmax(var s: foi; n: string);
var min, max, t: integer;
begin
  assign(s, n);
  reset(s);
  if filesize(s) = 0
    then writeln('Файл пуст.')
    else begin
      read(s, min);
      max := min;
      while not eof(s) do
        begin
          read(s, t);
          if t < min
            then min := t
            else if t > max
              then max := t
        end;
      writeln('Min = ', min, ',  Max = ', max)
    end;
  close(s)
end;

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

Данный код на языке Pascal представляет собой процедуру minmax, которая предназначена для нахождения минимального и максимального элементов в файле s. В начале кода определен тип данных foi, который представляет файл целых чисел. Далее объявлены три переменные: min, max и t, которые будут использоваться для хранения минимального, максимального и текущего элемента соответственно. Затем происходит присвоение переменной s значения n (предполагается, что это имя файла), и вызывается процедура reset(s), которая сбрасывает файл на начальное состояние. Если файл пуст (то есть его размер равен 0), то выводится сообщение Файл пуст.. В противном случае, происходит чтение первого элемента файла в переменную min, а переменная max устанавливается равной min. Затем, в цикле while не происходит EOF (конец файла), происходит чтение следующего элемента файла в переменную t, и если он меньше min, то min устанавливается равным t, а если больше max, то max устанавливается равным t. После завершения цикла, выводятся значения min и max с помощью команды writeln. В конце процедуры происходит закрытие файла с помощью команды close(s).

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

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