Atps algoritimo
INICIO REAL r,da,dc,e; CARCTER x , y; ESCREVA(" QUAL MOEDA DESEJA CONVERTER; REAL TECLE: b; DOLAR AMERICANA TECLE: d ; DOLAR CANADENSE TECLE: o ;EURO TECLE: u ;"); LEIA(x);
SE (x == 'b') INICIO; ESCREVA(" Deseja converter Real para qual MOEDA;Dolar Americano dig: a ; Dolar Canadense dig: c ;Euro dig: e "); LEIA(y);
SE(y == 'a') INICIO; ESCREVA("Digite a quantidade de Reais para converter em Dolares Americanos = "); LEIA(r); da=r/1.90; ESCREVA(" Valor em Dolar Americano =",da); FIM: SE(y == 'd') INICIO; ESCREVA("Digite a quantidade de Reais para converter em Dolares Canadenses = "); LEIA(r); dc=r/1.83; ESCREVA( " Valor em Dolar Canadense =,dc); FIM;
SE(y== 'e') INICIO; ESCREVA("Digite a quantidade de Reais para converter em EURO = "); LEIA(r); e=r/2.4; ESCREVA(" Valor em Euro =,e); FIM; SENÃO SE INICIO; ESCREVA("Escolheu a opção errada"); FIM;
SE(x == 'd') INICIO: ESCREVA(" Deseja converter DOLAR AMERICANO para qual valor REAL dig: r ; Dolar Canadense dig: c ; Euro dig: e \n");