Найти значение минимального отклонения каждого из трёх чисел от их среднего арифметического - Turbo Pascal

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

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

Задание: Даны три числа a, b, c. Составить программу нахождения значения минимального отклонения каждого из них от их среднего арифметического. Данные выбрать произвольно.

Решение задачи: «Найти значение минимального отклонения каждого из трёх чисел от их среднего арифметического»

textual
Листинг программы
var
  mn, a, b, c, sr: real;
  i, n: integer;
 
function Min(a, b: real): real;
begin
  if a < b then 
    Min := a 
  else
    Min := b;
end;
 
 
 
begin
  write('Введите 3 числа: ');
  readln(a, b, c);
  sr := (a + b + c) / 3;
  writeln('Среднее арифметическое: ', sr);
  mn := min(min(abs(a - sr), abs(b - sr)), abs(c - sr));
  
  
  writeln('Отклонение от среднего арифметического a: ', abs(a - sr));
  writeln('Отклонение от среднего арифметического b: ', abs(b - sr));  
  writeln('Отклонение от среднего арифметического c: ', abs(c - sr));    
  writeln('Минимальное отклонение от среднего арифметического: ', mn);      
  
end.

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

  1. Создается переменная mn типа real, которая будет хранить минимальное отклонение от среднего арифметического.
  2. Создаются переменные a, b и c типа real, которые будут хранить введенные пользователем числа.
  3. Создается переменная sr типа real, которая будет хранить среднее арифметическое чисел a, b и c.
  4. Вычисляется среднее арифметическое чисел a, b и c и сохраняется в переменную sr.
  5. Выводится сообщение с просьбой ввести три числа.
  6. Введенные пользователем числа считываются в переменные a, b и c.
  7. Вычисляется среднее арифметическое чисел a, b и c и сохраняется в переменную sr.
  8. Вычисляется минимальное отклонение от среднего арифметического для каждого из трех чисел. Для этого используется функция Min, которая принимает два аргумента типа real. Если первое число меньше второго, то минимальным отклонением будет первое число, иначе - второе. Результат сохраняется в переменную mn.
  9. Выводятся сообщения с значениями минимального отклонения для каждого из трех чисел и средним арифметическим.
  10. Выводится сообщение с минимальным отклонением от среднего арифметического.

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

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