Delphi Sayıların Geometrik Ortalamasını Bulma Örneği

38 Okunma Delphi

"Delphi" Programlama dilinde "Sayıların Geometrik Ortalamasını Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir. 

program GeometricMean;

{$APPTYPE CONSOLE}

uses
  Math;

var
  c, count: Integer;
  p, x, gm: Double;
begin
  c := 0;
  p := 1.0;
  Write('Sayı Adeti Girin: ');
  Readln(count);

  while (c < count) do
  begin
    Write('Gerçek Sayı Girin: ');
    Readln(x);
    c := c + 1;
    p := p * x;
  end;

  gm := Power(p, 1.0 / count);
  Writeln('Ortalama: ', gm);
end.
Sayı Ortalama Geometri Örnek Bulma Delphi

İlginizi Çekebilir

Delphi Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

Delphi Dikdörtgenin Alanını Hesaplama Örneği

Delphi Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği

Delphi 1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği

Delphi Bir String İçindeki Sayıların Toplamını Bulma Örneği