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

96 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 1'den N'e Kadar Olan Çift Sayıların Toplamını Bulma Örneği

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

Delphi Bir Dizi Tam Sayının Ortalamasını Bulma

Delphi Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

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