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

223 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 Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

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

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

Delphi Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

Delphi 1'den 100'e Kadar Asal Sayı Toplamı Örneği