• 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
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.