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

192 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 Dizideki Tek Sayıların Adetini Bulma Örneği

Delphi Bir Stringteki Küçük Harfleri Öne Alma Örneği

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

Delphi Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

Delphi Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği