Дано три целых числа, вычислить среднее арифметическое чисел используя функцию - Pascal
Формулировка задачи:
Добрый день.
Помогите пожалуйста написать программу!
Дано три целых числа, вычислить среднее арифметическое двух чисел (первого и второго, первого и третьего, второго и третьего) и среднее арифметическое трех чисел:
a)Функция Srzach2 находит среднее арифметическое двух чисел);
b)Функция Srzach3 (находит среднее арифметическое трех чисел);
Решение задачи: «Дано три целых числа, вычислить среднее арифметическое чисел используя функцию»
textual
Листинг программы
function Srzach2(a, b: Integer): Real; begin Srzach2:=(a+b)/2 end;
function Srzach3(a, b, c: Integer): Real; begin Srzach3:=(a+b+c)/3 end;
var a, b, c: Integer;
begin
Write('Введите 3 числа: '); ReadLn(a,b,c);
WriteLn('Средние: ',Srzach2(a,b):0:2,' ',Srzach2(b,c):0:2,' ',Srzach2(a,c):0:2,' ',Srzach3(a,b,c):0:2);
end.
Объяснение кода листинга программы
- Объявляются две функции:
- Название первой функции:
Srzach2 - Параметры первой функции:
a, b: Integer - Тип возвращаемого значения первой функции:
Real - Тело первой функции:
Srzach2:=(a+b)/2
- Название первой функции:
- Происходит объявление второй функции:
- Название второй функции:
Srzach3 - Параметры второй функции:
a, b, c: Integer - Тип возвращаемого значения второй функции:
Real - Тело второй функции:
Srzach3:=(a+b+c)/3
- Название второй функции:
- Объявляются переменные:
- Название первой переменной:
a - Название второй переменной:
b - Название третьей переменной:
c - Тип всех переменных:
Integer
- Название первой переменной:
- Вводятся значения переменных с помощью функции
ReadLn(a, b, c) - Выводится результат:
- Вывод текста:
Средние: - Вызов функций для каждой пары чисел и троек чисел, вывод с округлением до 2 десятичных знаков:
Srzach2(a, b)Srzach2(b, c)Srzach2(a, c)Srzach3(a, b, c)
- Вывод текста: