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.