Delphi Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

"Delphi" Programlama dilinde "Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir.

program MultiplyRealNumbers;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  count, i: Integer;
  x: Double;
  product: Double;

begin
  Write('Gerçek Sayı Adeti Girin: ');
  ReadLn(count);
  product := 1.0;
  for i := 1 to count do
  begin
    Write('Gerçek Sayı Girin: ');
    ReadLn(x);
    product := product * x;
  end;
  WriteLn('Toplam: ', product);
end.



İlginizi Çekebilir

Delphi While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği

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

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

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

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