Нахождения суммы среднего арифметического и среднего геометрического 3 чисел

@ivaszheka · Регистрация: 22.09.2011

Написать программу нахождения суммы среднего арифметического и среднего геометрического 3 чисел.

@o-user · 22.09.2011, 13:30

А что не получается конкретно?

@ivaszheka · 22.09.2011, 14:21 **[ТС]**

Pascal

program pr;
var k,s:real;
    i:integer;
begin
for i:=1 to 3 do
   begin
    writeln('Введите ',i,' число');
    readln(k);
    s:=s+k;
   end;
  writeln('Среднее арифметическое=',s/3:5:2);
 read;
 
end.

я написала как рассчитывать среднее арифметическое, а вот со средним геометрическим возникла проблема..

@I2um1 · 22.09.2011, 15:10

Pascal

uses crt;
var i : integer; number, result : real;
begin
    result := 1;
    for i := 1 to 3 do begin
        write('Введите ', i, ' число: ');
        readln(number);
        result := result * number;
    end;
    result := exp(ln(result) / 3); {result в степени 1/3}
    writeln('Среднее геометрическое = ', result:0:2);
    readkey
end.

@Puporev · 22.09.2011, 15:27

Числа должны быть больше ноля.

@ivaszheka 0 / 0 / 0 Регистрация: 22.09.2011 Сообщений: 8
		1
	Нахождения суммы среднего арифметического и среднего геометрического 3 чисел 22.09.2011, 13:16. Показов 2627. Ответов 4 Метки нет (Все метки) Написать программу нахождения суммы среднего арифметического и среднего геометрического 3 чисел. 0

@o-user 247 / 205 / 26 Регистрация: 03.02.2009 Сообщений: 785
	22.09.2011, 13:30	2
	А что не получается конкретно? 1

@Puporev Почетный модератор 64275 / 47574 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	22.09.2011, 15:27	5
	Числа должны быть больше ноля. 1

Опции темы

Нахождения суммы среднего арифметического и среднего геометрического 3 чисел

Решение