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

190 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 Dizideki Herhangi Bir Konuma Eleman Ekleme Örneği

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

Delphi Dictionary Key Value Değerlerini Ters Çevirmek

Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği