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

70 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 İçinde Başka Bir Stringin Adetini Bulma Örneği

Delphi Bir Stringi Ters Çevirmek

Delphi Bir Stringten İlk N Karakteri Kaldırma Örneği

Delphi Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Ö ...

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