-
Lenguaje
Pascal
-
Descripción
Muestra la tabla ASCII con equivalencias en decimal, hexadecimal, octal y binario
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
program ascii;
uses crt;
var i, c : integer;
var tecla : char;
var digits : string;
begin
digits := '0123456789ABCDEF';
for i:=0 to 127 do
begin
if (i mod 23 = 0) then
begin
if (i <> 0) then
begin
write ('Presione una tecla para continuar . . . ');
tecla := readkey;
writeln;
end;
writeln ('ASCII DEC OCTAL HEX BINARIO ASCII DEC OCTAL HEX BINARIO');
end;
c := i;
while c<256 do
begin
case c of
0: write ('NULL ');
7: write ('BEEP ');
8: write ('DEL ');
9: write ('TAB ');
10: write ('CR ');
13: write ('LF ');
26: write ('SUB ');
else
write (chr(c), ' ');
end;
write (' ', c:3, ' ',
(c div 64) mod 8, (c div 8) mod 8, c mod 8, ' ',
digits[c div 16 + 1], digits[c mod 16 + 1], ' ',
(c div 128) mod 2, (c div 64) mod 2, (c div 32) mod 2, (c div 16) mod 2,
(c div 8) mod 2, (c div 4) mod 2, (c div 2) mod 2, c mod 2);
if c<128 then
write (' ')
else
writeln;
c := c + 128;
end;
end;
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.
uses crt;
var i, c : integer;
var tecla : char;
var digits : string;
begin
digits := '0123456789ABCDEF';
for i:=0 to 127 do
begin
if (i mod 23 = 0) then
begin
if (i <> 0) then
begin
write ('Presione una tecla para continuar . . . ');
tecla := readkey;
writeln;
end;
writeln ('ASCII DEC OCTAL HEX BINARIO ASCII DEC OCTAL HEX BINARIO');
end;
c := i;
while c<256 do
begin
case c of
0: write ('NULL ');
7: write ('BEEP ');
8: write ('DEL ');
9: write ('TAB ');
10: write ('CR ');
13: write ('LF ');
26: write ('SUB ');
else
write (chr(c), ' ');
end;
write (' ', c:3, ' ',
(c div 64) mod 8, (c div 8) mod 8, c mod 8, ' ',
digits[c div 16 + 1], digits[c mod 16 + 1], ' ',
(c div 128) mod 2, (c div 64) mod 2, (c div 32) mod 2, (c div 16) mod 2,
(c div 8) mod 2, (c div 4) mod 2, (c div 2) mod 2, c mod 2);
if c<128 then
write (' ')
else
writeln;
c := c + 128;
end;
end;
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.