Algoritmo

PSEUDO-CÓDIGO : Conversão das 4 moedas para as 4 moedas.

inicio real: moeda_real, valor_dolar, dolar, valor_dolarcnd, dolar_cnd, valor_euro, euro, real_euro, real_dolar, real_dolarcnd; inteiro: escolha1, escolha2;

valor_dolar = 1.94; valor_dolarcnd = 1.80; valor_euro = 2.16;

real_euro = 2.16; real_dolar = 1.94; real_dolarcnd = 1.80;

escreva ("Programa que converte moedas..."); escreva ("Deseja Converter qual moeda ?"); escreva ("Pressione: 1 - Real, 2 - Dolar, 3 - Dolar Canadense, 4 - Euro"); leia(escolha1); se (escolha1==1) então; inicio; escreva ("Voce escolheu converter Real !!!"); escreva ("Deseja Converter a moeda Real para qual moeda ?"); escreva ("1 - Dolar, 2 - Dolar Canadense, 3 - Euro: "); leia (escolha2); fim; se (escolha2==1) então; inicio; escreva("Voce decidiu converter da moeda Real para Dolar !"); escreva("Insira o valor em Reais: "); leia(moeda_real); dolar = moeda_real * valor_dolar; escreva ("Esse valor em Reais equivalem a Dolares.",dolar); fim; fim se; se (escolha2==2) então; inicio escreva("Voce decidiu converter da moeda Real para Dolar Canadense"); escreva("Insira o valor em Reais: "); leia(moeda_real); dolar_cnd = moeda_real * valor_dolarcnd; escreva ("Esse valor em Reais equivalem a Dolares Canadense.",dolar_cnd); fim; fim se;

se (escolha2==3) então; inicio; escreva("Voce decidiu converter da moeda Real para Euro !"); escreva("Insira o valor em Reais: "); leia(moeda_real); euro = moeda_real * valor_euro; escreva ("Esse valor em Reais equivalem a Euros",euro); fim; fim se; fim se;

senão se(escolha1==2) então; inicio; escreva("Você escolheu converter em Dolar !!!"); escreva("Deseja converter a moeda Dolar para qual moeda ?"); escreva("Pressione: 2 - Dolar Canadense, 3 - Euro, 4 - Real: "); leia(escolha2); fim; se (escolha2==2) então; inicio; escreva("Voce decidiu converter da moeda Dolar para Dolar Canadense