Construção De Algoritmo

Inicio

inteiro op1, op2;

real moeda,v1,v2;

caracter sim←'s';

faça início

escreva("CONVERSOR DE MOEDAS");

escreva(“Site de referência: http://www.calculoexato.com.br/parprima.aspx?codMenu=ConvMoeda”);

escreva("Selecione uma moeda, para converte-la");

escreva(" 1 - Real (Brasil)");

escreva(" 2 - Dolar (EUA)");

escreva(" 3 - Euro (Contiente Europeu)");

escreva(" 4 - Libra (Reino Unido)");

escreva(" 5 - Peso (Argentina)");

escreva(" 6 - Rupia (India)");

escreva(" 7 - Rande (Africa do Sul)");

escreva(" 8 - Coroa (Noruega)");

escreva(" 9 - Rublo (Russia)");

escreva(" 10 - Bath (Tailandia)");

escreva("Escolha a moeda, informando o numero correspondente: ");

leia(op1);

se(op1>=1 e op1<=10)

início

escolha(op1)

início

caso 1 : moeda ← 1.00;

escreva("Informe a quantia em Reais: ");

leia("v1");

pausa;

caso 2 : moeda ← 2.02;

escreva("Informe a quantia em Dolares: ");

leia("v1");

pausa;

caso 3 : moeda ← 2.64;

escreva("Informe a quantia em Euros: ");

leia("v1");

pausa;

caso 4 : moeda ← 3.28;

escreva("Informe a quantia em Libras: ");

leia("v1");

pausa;

caso 5 : moeda ← 0.43;

escreva("Informe a quantia em Pesos: ");

leia("v1");

pausa;

caso 6 : moeda ← 0.04;

escreva("Informe a quantia em Rupias: ");

leia("v1");

pausa;

caso 7 : moeda ← 0.25 ;

escreva("Informe a quantia em Randes: ");

leia("v1");

pausa;

caso 8 : moeda ← 0.35;

escreva("Informe a quantia em Coroas: ");

leia("v1");

pausa;

caso 9 : moeda ← 0.06;

escreva("Informe a quantia em Rublos: ");

leia("v1");

pausa;

caso 10 : moeda ← 0.07;

escreva("Informe a quantia em Baths: ");

leia("v1");

pausa;