Определите минимальное и максимальное значение, среднее арифметическое - 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.

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

  1. Объявлены константа n равная 6 и переменная t типа массив из 6 элементов типа real.
  2. Объявлены переменные i, min, max и sred типа integer и real соответственно.
  3. Заполнение массива t значениями температуры происходит с помощью цикла for с переменной i от 1 до n.
  4. Значение переменной max инициализируется значением первого элемента массива t.
  5. Значение переменной min инициализируется значением первого элемента массива t.
  6. Происходит проверка каждого элемента массива t с помощью цикла for с переменной i от 2 до n.
  7. Если элемент массива t больше значения переменной max, то значение переменной max обновляется значением этого элемента массива.
  8. Если элемент массива t меньше значения переменной min, то значение переменной min обновляется значением этого элемента массива.
  9. К значению переменной sred прибавляется значение каждого элемента массива t.
  10. Значение переменной sred делится на значение константы n, чтобы получить среднее арифметическое.
  11. Выводится сообщение с минимальным, максимальным и средним значениями температуры.
  12. Программа ожидает ввода с помощью функции readln.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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