HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. 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.
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
