Среднее геометрическое и среднее арифметическое в Паскале

Среднее арифметическое в pascal

Среднее арифметическое равняется сумме чисел деленное на их количество. Рассчитывается по формуле: S=(x₁+x₂+x₃+...+x_n)/n, где n - количество элементов. В Turbo Pascal среднее арифметическое найти можно как с массивом, так и без него. Во втором случае необходимо предусмотреть ввод количества элементов n (как в примере ниже), либо при каждой новой записи в цикле производить ее инкремент.

writeln('Введите количество чисел');

readln(n);

for i:=1 to n do

begin

writeln('Введите ',i,' число');

readln(k);

s:=s+k;

end;

writeln('Среднее арифметическое =',s/n:5:2);

Среднее геометрическое в pascal

Среднее геометрическое положительных чисел - число, которым можно заменить, каждое из заданных элементов, при этом произведение остается неизменным. Рассчитывается по формуле: (x₁*x₂*x₃*...*x_n)^1/n, где n - количество элементов. В Turbo Pascal среднее геометрическое находится аналогично среднему арифметическому за исключением знака операции и того, что результат необходимо не делить на общее количество элементов n, а возвести в степень обратного числа (1/n). Возвести в дробную степень можно, используя универсальную функцию возведения в степень.

Скачать:

Среднее арифметическое - Вычисление среднего арифметического в Паскале

Среднее арифметическое без наибольшего и наименьшего - Программа аналогичная предыдущей, не учитывая максимальный и минимальный элементы

Среднее геометрическое положительных элементов - Вычисление среднего геометрического в Паскале