Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: Ascii kod tablosunu görüntüleyen Program Cuma Haz. 06 2008, 12:33
Uses wincrt;. var a,b:integer; begin clrscr; write('kodların bütünü için (1), istediğiniz karekter için (2),çıkış(3)= '); while a<> 3 do begin readln(a); if a=1 then begin for b:= 30 to 256 do begin write(b,'=',chr(b),','); if b mod 10=0 then begin writeln; writeln; end; end; end; if a=2 then begin write('istenilen rakam= '); readln(b); writeln(b,'=',chr(b)); end; end; end.
Salı Haz. 30 2009, 12:06 tarafından yasakmc
Konu: Ascii kod tablosunu görüntüleyen Program