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

Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği

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

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

Delphi Dictionary Key Value Değerlerini Ters Çevirmek