Delphi 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

193 Okunma Delphi

"Delphi" Programlama dilinde "1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği" ile ilgili kod örneği aşağıda gösterilmiştir. 

program sum_numbers;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s, n, i: Integer;

begin
  s := 0;
  Write('Sayi Girin: ');
  Readln(n);

  for i := 1 to n do
    s := s + i;

  Writeln;
  Writeln('Toplam: ', s);
end.
Sayı Toplam Döngü Sum Input Delphi

İlginizi Çekebilir

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

Delphi İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

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

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

Delphi Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği