Составить программу для вычисления значения выражения - Free Pascal
Формулировка задачи:
Составить программу для вычисления значения выражения z=max(a,2b)×max(2a-b,b). Для вычисления максимального из двух чисел составить процедуру.
Решение задачи: «Составить программу для вычисления значения выражения»
textual
Листинг программы
procedure max(a,b:real;var m:real);
begin
if a>b then m:=a else m:=b
end;
var a,b,m1,m2,z:real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
max(a,2*b,m1);
max(2*a-b,b,m2);
z:=m1*m2;
writeln ('z=',z:0:2);
readln
end.
Объяснение кода листинга программы
- Объявлены пять переменных: a, b, m1, m2, z (строки 6-10)
- Введен ввод данных с помощью функции readln (строки 11-14)
- Вызван процедурный блок max с аргументами a, b и m1 (строка 16)
- Вызван процедурный блок max с аргументами 2*a-b, b и m2 (строка 17)
- Вычислено значение z как произведение m1 и m2 (строка 18)
- Выведено значение z с помощью функции writeln (строка 19)
- Ожидается ввод данных с помощью функции readln (строка 20)