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

253 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 Dizideki Bir Elemanı Döngü İle Arama Örneği

Delphi Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

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

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

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