SHOW:
|
|
- or go back to the newest paste.
1 | - | uses pilhas; |
1 | + | começo |
2 | - | Valor, aux, i,rest : Integer; |
2 | + | Valor, aux, i,rest : Integer; |
3 | - | p:pilha; |
3 | + | p:pilha; |
4 | - | Begin |
4 | + | escreve('Informe o numero decimal: '); |
5 | - | init(p); |
5 | + | le(Valor); |
6 | - | Write('Informe o numero decimal: '); |
6 | + | enquanto valor>16 faça |
7 | - | ReadLn(Valor); |
7 | + | começo |
8 | - | while valor>16 do |
8 | + | |
9 | - | Begin |
9 | + | |
10 | push(p,rest); | |
11 | fim | |
12 | push(p,valor); | |
13 | - | end; |
13 | + | escreve('conversao: '); |
14 | enquanto escreve(p)==0 faça | |
15 | - | write('conversao: '); |
15 | + | começo |
16 | - | while not isempty(p) do |
16 | + | caso topo(p) |
17 | - | begin |
17 | + | 10:escreve('A'); |
18 | - | case top(p) of |
18 | + | 11:escreve('B'); |
19 | - | 10:write('A'); |
19 | + | 12:escreve('C'); |
20 | - | 11:write('B'); |
20 | + | 13:escreve('D'); |
21 | - | 12:write('C'); |
21 | + | 14:escreve('E'); |
22 | - | 13:write('D'); |
22 | + | 15:escreve('F'); |
23 | - | 14:write('E'); |
23 | + | senão |
24 | - | 15:write('F'); |
24 | + | escreve(topo(p)); |
25 | - | else |
25 | + | fim |
26 | - | write(top(p)); |
26 | + | |
27 | - | end; |
27 | + | fim |
28 | fim |