Вычислить среднее геометрическое неотрицательных чисел

@KaPaTTy3 · Регистрация: 04.01.2020

Author24 — интернет-сервис помощи студентам

Переписать с Pascal на С++

Pascal

Program ad;
var a,b,c,d:real;
    k:integer;
begin
writeln('Введите 3 действительных числа');
readln(a,b,c);
k:=0;
d:=1;
if a>=0 then
 begin
  k:=k+1;
  d:=d*a;
 end;
if b>=0 then
 begin
  k:=k+1;
  d:=d*b;
 end;
if c>=0 then
 begin
  k:=k+1;
  d:=d*c;
 end;
 case k of
  0: writeln('Среди введенных чисел нет положительных.');
  1: writeln('Найдено только одно положительное число.');
  2,3: writeln('Среднее геометрическое: ', (Exp(Ln(d)/k)):0:2);
  end;
 
  Readln;
end.

@SoBadDay · 04.02.2020, 10:56

C++

#include <iostream>
#include <cmath>
using namespace std;
int main() {
    setlocale(LC_CTYPE, "RUS");//Включение русского языка
    double a, b, c, d;
    int k;
    cout << "Введите 3 действительных числа\n";
    cin >> a >> b >> c;
    k = 0;
    d = 1.0; //числа без действительной части автоматически считаются int;
    if (a >= 0)
    {
        k++;
        d *= a;
    }
    if (b >= 0)
    {
        k++;
        d *= b;
    }
    if (c >= 0)
    {
        k++;
        d *= c;
    }
    switch (k)
    {
    case 0:
        cout << "Среди введенных чисел нет положительных.\n";
        break;
    case 1:
        cout << "Найдено только одно положительное число.\n";
        break;
    case 2:
    case 3:
        cout << "Среднее геометрическое: " << exp(log(d) / k);
        break;
    }
    return 0;
}

	04.02.2020, 10:56

Вычислить среднее геометрическое неотрицательных чисел

Решение