ASCII KOD TABLOSU Bu kodlar tüm programcıların ortak kunlandığı kodlardır.
buradaki kodları pascal ortamında çıkarmak istiyorsanız yanındaki sayı ile ALT GR+ASCII kodu girin böylece oradaki gördüğünüz 255 tane karakteden istediğinizi kunlanabilirsinizuses crt;
var
r,a,i:byte;
begin
clrscr;
a:=1;
for i:=1 to 255 do
begin
r:=r+1;
gotoxy(a,r);
writeln(i,'=',chr(i));
if (i=25) or (i=50) or (i=75) or (i=100)or (i=125)or (i=150)or (i=175)or (i=200)
or (i=225)or (i=250) then
a:=a+7;
if r=25 then
r:=0;
end;
readln;
end.
buradaki kodları pascal ortamında çıkarmak istiyorsanız yanındaki sayı ile ALT GR+ASCII kodu girin böylece oradaki gördüğünüz 255 tane karakteden istediğinizi kunlanabilirsinizuses crt;
var
r,a,i:byte;
begin
clrscr;
a:=1;
for i:=1 to 255 do
begin
r:=r+1;
gotoxy(a,r);
writeln(i,'=',chr(i));
if (i=25) or (i=50) or (i=75) or (i=100)or (i=125)or (i=150)or (i=175)or (i=200)
or (i=225)or (i=250) then
a:=a+7;
if r=25 then
r:=0;
end;
readln;
end.