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

52 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 Sayının Rakamlarının Toplamını Bulma Örneği

Delphi Bir Stringi Ters Çevirmek

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

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

Delphi Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği