Türkiye'nin ilk Cross-Platform OldSchool MOBİL & PC 1-99 Sunucusu Lamira2 6 Kasım'da Açılıyor! Büyük Açılışı Kaçırma 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.