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

69 Okunma Delphi

"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.
Dizi Çarpım Array Toplam Sayı Delphi

İlginizi Çekebilir

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

Delphi Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği

Delphi İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

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

Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek