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

213 Okunma Delphi

"Delphi" Programlama dilinde "Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği" ile ilgili örnek kod aşağıda gösterilmiştir. 

program ReverseNumber;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  number, rev, digit: Integer;
begin
  Write('Bir Tamsayı Girin: ');
  ReadLn(number);
  rev := 0;

  while number <> 0 do
  begin
    digit := number mod 10;
    rev := (rev * 10) + digit;
    number := number div 10;
  end;

  WriteLn(rev);
end.
Tamsayı Örnek Ters Sıra Göster Delphi

İlginizi Çekebilir

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

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

Delphi Dikdörtgenin Alanını Hesaplama Örneği

Delphi Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

Delphi 1'den N'e Kadar Asal Sayıları Bulma Örneği