Programalama > PASCAL

uses crt;
var
a,b,i:integer;
begin
clrscr;
writeln('1=tm ascii kodlar 2=istenilen ascii kod');
readln(a);
case a of
1:for i:=30 to 255 do
begin
write(i,chr(i));
delay(50);
end;
2:begin
write('say girin=');
readln(b);
write('ascii kod=',chr(b));
end;
end;
readln;
end.

nazım demir
demirnazim@hotmail.com