![]() |
|
|||||||
| Üye Ol | SSS | Sxe indir | Sosyal Gruplar | Takvim | Resim Galerisi | Etiketler | Bütün Forumları okunmuş kabul et |
Programlama bölümünde Pascal Ascii Kodları konusu , Ascii Kodları Programlama Dillerinde Çok Büyük Önem Taşıyan Ascii Kod larının Tümüne yakını Bu Programda yer Alıyor uses crt; var i,sa,su:integer; begin clrscr; sa := 0; su := 1; for i := 33 to 254 do begin inc(sa); if sa ...
![]() |
|
|
LinkBack | Konu Seçenekleri |
|
|
#1 (permalink) |
|
Onursal Üye
![]() Giriş: 02-08-2007
Yaş: 27
Mesajlar: 10.389
Rep Puanı: 7866
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() E-Güven: (7/100)
|
Pascal Ascii Kodları
Ascii Kodları Programlama Dillerinde Çok Büyük Önem Taşıyan Ascii Kod larının Tümüne yakını Bu Programda yer Alıyoruses crt; var i,sa,su:integer; begin clrscr; sa := 0; su := 1; for i := 33 to 254 do begin inc(sa); if sa >=25 then begin su := su + 7; sa := 1; end; gotoxy(su, sa);writeln(i:4,chr(i):2); end; readkey; end. |
|
|
|