Описать процедуру mean (x, y, amean, gmean), вычисляющую среднее арифметическое amean = (x+y)/2 и среднее двух положительных чисел x и y (x и y — входные, amean и gmean — выходные параметры вещественного типа). с этой процедуры найти среднее арифметическое и среднее для пар (a, b), (a, c), (a, d), если даны a, b, c, d
281
477
Ответы на вопрос:
Procedure mean(x,y: real; var amean,gmean: real); begin amean: =(x+y)/2; gmean: =sqrt(x*y); end; var a,b,c,d,s: real; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); write('d = '); readln(d); writeln; mean(a,b,s,b); writeln('amean(a,b) = ',s); writeln('gmean(a,b) = ',b); writeln; mean(a,c,s,c); writeln('amean(a,c) = ',s); writeln('gmean(a,c) = ',c); writeln; mean(a,d,s,d); writeln('amean(a,d) = ',s); writeln('gmean(a,d) = ',d); end. a = 1 b = 2 c = 3 d = 4 amean(a,b) = 1.5 gmean(a,b) = 1.4142135623731 amean(a,c) = 2 gmean(a,c) = 1.73205080756888 amean(a,d) = 2.5 gmean(a,d) = 2
истина и ложь
Объяснение:
Тип данных представлен двумя значениями: true - истина и false - ложь. ... Свои значения переменные логического типа получают обычно в результате выполнения операции сравнения (отношения): »<» (меньше), »>» (больше), »<=» (меньше или равно), »>=» (больше или равно), »<>» (не равно), »=» (равно). ... В остальных случаях эти функции принимают значение false.
Популярно: Информатика
-
жанар4227.02.2023 11:01
-
alkofner21.09.2020 20:39
-
влада22060209.06.2021 22:07
-
ivolapseb06.12.2021 21:06
-
Lybava1332213111.11.2021 02:55
-
ustishca11.03.2023 04:16
-
mamatvoeymamy03.02.2022 19:14
-
caramelka0521.02.2023 09:54
-
sover200016.02.2020 07:39
-
Kroo6694414.04.2023 10:33