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

36 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 Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Ör ...

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

Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

Delphi Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

Delphi Bir Dizi Tam Sayının Ortalamasını Bulma