Описать процедуру 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
266
423
Ответы на вопрос:
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
1) Личные неимущественные (Право авторства, Право на имя, Право на неприкосновенность, Право на обнародование произведения, Право на отзыв произведения)
2) Исключительное право (Право использовать произведение в любой форме и любыми )
3) Иные права (Право следования, Право доступа)
2) Исключительное право (Право использовать произведение в любой форме и любыми )
3) Иные права (Право следования, Право доступа)
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Karinago28.10.2020 01:03
-
hjhthy18.04.2022 08:40
-
kilala0023.03.2020 17:24
-
renatamur20051801.06.2022 15:38
-
Osminozhka0915.11.2021 12:21
-
mrusinova17.05.2023 00:43
-
Ksuhan1301.10.2022 01:54
-
ekaterina220612.10.2022 00:57
-
Danila25100810.05.2021 02:46
-
Ella00309.09.2021 15:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.