- Katılım
- 12 Ağu 2011
- Konular
- 1,810
- Mesajlar
- 15,950
- Çözüm
- 11
- Online süresi
- 1mo 25d
- Reaksiyon Skoru
- 5,438
- Altın Konu
- 1
- Başarım Puanı
- 421
- MmoLira
- 28,949
- DevLira
- 34
ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!
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
Kod:
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.
larının Tümüne yakını Bu Programda yer Alıyoruses crt;
var
Kod:
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.
- Katılım
- 22 Tem 2009
- Konular
- 525
- Mesajlar
- 3,195
- Online süresi
- 2m 58s
- Reaksiyon Skoru
- 254
- Altın Konu
- 0
- TM Yaşı
- 16 Yıl 10 Ay 20 Gün
- Başarım Puanı
- 207
- MmoLira
- 14
- DevLira
- 0
Teşekkürler.
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
