in pascal afiseaza codul din tabelul ASCII a caracterului introdus de la tastatura cu ajutorul functiei ORD
program xxx;
var a:char;
procedure dothis();
begin
write('introduceti de la tastatura ');
readln(a);
writeln(ord(a));
end;
begin
writeln('introduceti litera x pentru a iesi din program');
while (a <>'x')
do dothis();
writeln('gata out');
end.
rezultat afisat:
introduceti litera x pentru a iesi din program introduceti de la tastatura a
97
introduceti de la tastatura b
98
introduceti de la tastatura 1
49
introduceti de la tastatura 9
57
introduceti de la tastatura ;
59
introduceti de la tastatura x
120
gata out
