С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
:DeD
1 / 1 / 0
Регистрация: 27.12.2011
Сообщений: 41
1

Опсать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean=(X+Y)/2

18.03.2012, 18:12. Просмотров 948. Ответов 1
Метки нет (Все метки)

Опсать процедуру Mean(X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean=(X+Y)/2 и среднее геометрическое GMean=корень(X*Y) двух положительных чисел X и Y (X и Y - входные,AMean и GMean - выходные параметры вещественного типа). С помощью этой процедуры найти среднее арифметическое и среднее геометрическое для пар (A,B),(A,C),(A,D), если даны A,B,C,D.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2012, 18:12
Ответы с готовыми решениями:

Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива
Cоставить программу, вычисляющую среднее арифметическое всех положительных...

Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива
Cоставить программу, вычисляющую среднее арифметическое всех положительных...

Описать функцию или процедуру, находящую среднее арифметическое элементов списка
Описать функцию или процедуру, которая находит среднее арифметическое элементов...

Найти среднее арифметическое двух чисел, используя процедуру нахождения среднего арифметического
Найти среднее арифметическое двух чисел, используя процедуру нахождения...

Найти среднее арифметическое квадратов и среднее арифметическое модулей двух чисел
Дано 2 числа. Найти среднее арифметическое их квадратов и среднее...

1
Ev[G]eN
iOS/Android Developer
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 1
18.03.2012, 18:18 2
Лучший ответ Сообщение было отмечено :DeD как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  a, b, c, d: Integer;
  AMean, GMean: Real;
 
procedure Mean(a, b: Integer; AMean, GMean: Real);
begin
  AMean:=(a + b) / 2;
  GMean:=sqrt(a * b);
  writeln('Amean(', a, ', ', b, '): ', AMean:0:2);
  writeln('GMean(', a, ', ', b, '): ', GMean:0:2);
  writeln;
end;
 
begin
  write('Введите 4 числа: ');
  readln(a, b, c, d);
  Mean(a, b, AMean, GMean);
  Mean(a, c, AMean, GMean);
  Mean(a, d, AMean, GMean);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.03.2012, 18:18

Найти среднее арифметическое положительных и среднее арифметическое отрицательных элементов массива.
Дан массив вещественных чисел А(А1,А2,…,Аn). Найти среднее арифметическое...

Процедуры: Получить y = 5,3*a+(a2+6,7)/sin(a+b), где a – среднее арифметическое в массиве C, b –среднее арифметическое в массиве D
помогите решить Следующее условие:Даны 2 массива C (i = 1– n), D (k = 1 – m)....

Найти сумму и среднее арифметическое арифметическое положительных четных элементов
Массив целого типа, 5 элементов, вводится с клавиатуры. Выводится в столбец....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru