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

210 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 1'den N'e Kadar Asal Sayıları Bulma Örneği

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

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

Delphi Fibonacci Serisinde N'inci Terimi Bulma Örneği