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

41 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 Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

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

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

Delphi Dizideki Bir Elemanı Döngü İle Arama Örneği

Delphi 1'den 100'e Kadar Sayı Toplam Örneği