Определите минимальное и максимальное значение, среднее арифметическое - Free Pascal
Формулировка задачи:
Добрый вечер(день). Очень нужна помощь с процедурой (её и функцию просто не понимаю )
Есть готовый код решенной задачи и нужно её переделать под процедуру. Зарание спасибо.
Вот условие задачи: Напишите программу анализа значений температуры больного за сутки: определите минимальное и максимальное значение, среднее арифметическое. Замеры температуры производятся шесть раз в сутки и результаты вводятся с клавиатуры в массив T.
Uses crt; Var t: array [1..6] of real; i:integer; min,max,sred:real; begin clrscr; for i:=1 to 6 do begin write ('Введите температуру'); readln(t[i]); end; max:=t[1]; min:=t[1]; for i:=1 to 6 do begin if t[i]>max then max:=t[i]; if t[i]<max then min:=t[i]; sred:=sred+t[i]; end; sred:=sred/6; writeln(min:2:1, ' ',max:2:1, ' ', sred:2:1); readkey; end.
Решение задачи: «Определите минимальное и максимальное значение, среднее арифметическое»
textual
Листинг программы
const n = 6; var t: array [1..n] of real; i: integer; min, max, sred: real; begin for i := 1 to n do begin write ('Enter temperature #', i, ': '); readln(t[i]) end; max := t[1]; min := t[1]; for i := 2 to n do begin if t[i] > max then max := t[i] else if t[i] < min then min := t[i]; sred := sred + t[i] end; sred := sred / n; write('min = ', min:2:1, ', max = ',max:2:1, ', average = ', sred:2:1); readln end.
Объяснение кода листинга программы
- Объявлены константа
n
равная 6 и переменнаяt
типа массив из 6 элементов типа real. - Объявлены переменные
i
,min
,max
иsred
типа integer и real соответственно. - Заполнение массива
t
значениями температуры происходит с помощью циклаfor
с переменнойi
от 1 до n. - Значение переменной
max
инициализируется значением первого элемента массиваt
. - Значение переменной
min
инициализируется значением первого элемента массиваt
. - Происходит проверка каждого элемента массива
t
с помощью циклаfor
с переменнойi
от 2 до n. - Если элемент массива
t
больше значения переменнойmax
, то значение переменнойmax
обновляется значением этого элемента массива. - Если элемент массива
t
меньше значения переменнойmin
, то значение переменнойmin
обновляется значением этого элемента массива. - К значению переменной
sred
прибавляется значение каждого элемента массиваt
. - Значение переменной
sred
делится на значение константыn
, чтобы получить среднее арифметическое. - Выводится сообщение с минимальным, максимальным и средним значениями температуры.
- Программа ожидает ввода с помощью функции
readln
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д