Algoritimo

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