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

227 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 Stringin Ortadaki Üç Karakterini Bulma Örneği

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği

Delphi Bir Stringi Ters Çevirmek

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