Algoritmo

Passo1
Inicio
Char de,para; Var. Real: Euro, Real, Dólar, D. Canadense ,Valor ,Cotação,Comer,Turis,Paral;
Comer=R$2,00;
Turis=R$2,06
Paral=R$2,56;
Escreva (“A moeda base a ser convertida é de.. ”);
(“Real”);
(“Euro”);
(“Dólar ”);
(“D.Canadense”);
Leia (“ a moeda de”); Escreva (“A moeda em que deseja a conversão é para...”);
(“Real”);
(“Euro”);
(“Dólar”);
(“D.Canadense”);
Leia (“a moeda para”); switch (de)
Inicio do Case
Caso ‘ de==Euro’:
Escreva (“digite o valor”);
Leia (“valor de”);break;
Caso ‘de==Real’:
Escreva (“digite o valor”);
Leia (“valor de”);break;
Caso ‘de==Dólar’:
Escreva (“digite o valor”);
Leia (“valor de”);break;
Caso ‘de==D.Canadense’:
Escreva (“digite o valor”);
Leia (“valor de”);break; default: Escreva (“não existente”);break;

Fim do case (de)

switch(para)
Inicio do Case
Caso ’para==Euro’:
Escreva (“digite o valor da cotação”);
Leia (“cotação para”);
Euro= valor / cotação;
Escreva (“Resultado convertido em euro é ...”);break;
Caso ’para==Real’:
Escreva (“digite o valor da cotação”);
Leia (“cotação para”);
Real= valor *cotação;
Escreva (“Resultado convertido em Real é ...”);break;
Caso ’para==Dólar’:
Escreva (“digite o valor da cotação”);
Leia (“cotação para”);
Se( de Euro)
Dólar =valor *cotação;
Se não
Dólar= valor / cotação;
Escreva (“Resultado convertido em Dólar é ...”);break;
Caso’para==D.Canadense’:
Escreva (“digite o valor da cotação”);
Leia (“cotação para”);
Se( de Euro ou de Dólar)
D.Canadense =valor *cotação;
Se não
D.Canadense= valor / cotação;
Escreva (“Resultado convertido em D.Canadense é ...”);break; default: Escreva (“não existente”);break;

Fim do case (para)

Fim do algoritmo Passo2
Inicio
Char de,para; Var. Real: Euro, Real, Dólar, D. Canadense ,Valor ,Cotação;
Escreva (“A moeda base a ser convertida é de.. ”);
(“Real”);
(“Euro”);
(“Dólar ”);
(“D.Canadense”);
Leia (“ a moeda de”); Escreva (“A moeda em que deseja a