Şimdi Ara

Turbo pascal

Bu Konudaki Kullanıcılar:
1 Misafir - 1 Masaüstü
5 sn
7
Cevap
0
Favori
432
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • integer bir ifadeyi nasıl tersten yazdırabilirim...



  • programla.com'u öneririm...
  • tersten kastın:

    123456 yı 654321 şeklinde yazdırmak değil mi?
    bi araştıralım bakalım
  • program terstenyazma; 
    uses crt; {Windows için Wincrt}varmesaj:string;i,l:byte;
    beginWrite('Bir mesaj yazınız');Readln(mesaj);l:=length(mesaj);
    Writeln(L);for i:=L downto 1 doWrite(Copy(mesaj,i,1));
    End.


    Bu işini görebilir sanırım



    < Bu mesaj bu kişi tarafından değiştirildi system32 -- 9 Mayıs 2005, 17:30:22 >
  • kusura bakma.
    www.programlama.comü
    Özürdilerim.
  • Önce string çevir integeri.
    Sonra bi donguyle tersten yazabilirsin.
    var a,c:integer; b:string; begin a:=123; str(a,b); for c:= length(b) downto 1 do write(b[c]); end.

    str ile a değişkenin b nin içine attık.b nin uzunluğundan 1 e doğru azalan döngü açtık.
    write(b[c]); ile sondan başa doğru yazdık.
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.