ATPS - Algorítimo 1° e 2° Etapa

1° Etapa
Algoritmo PrimeiraConversao Var Real: qtdMoeda, cotDolar, valorTotal;
Inicio
Escreva “Informe a quantidade da moeda (dólar – US$)”; Leia qtdMoeda; Escreva “Informe a cotação do dólar”; Leia cotDolar; valorTotal=cotDolar*qtdMoeda; Escreva “R$” + valorTotal;
Fim.

Algoritmo SegundaConversao Var Real: qtdMoeda, cotDolar, cotDolarc, cotEuro, valorTotal, valorTotal1, valorTotal2;
Inicio
Escreva “Informe a quantidade da moeda (real – R$)”; Leia qtdMoeda; Escreva “Informe a cotação do dólar”; Leia cotDolar;
Escreva “Informe a cotação do dólar canadense”; Leia cotDolarc;
Escreva “Informe a cotação do euro”; Leia cotEuro; valorTotal=cotDolar/qtdMoeda; valorTotal1=cotDolarc/qtdMoeda; valorTotal2=cotEuro/qtdMoeda; Escreva “US$” + valorTotal;
Escreva “CDN$” + valorTotal1;
Escreva “€” + valorTotal2;
Fim.

Algoritmo TerceiraConversao Var Real: qtdMoeda, cotMoeda, valorTotal; Char: moeda;
Inicio
Escreva “Informe uma moeda (US$, CDN$, €)”; Leia moeda; Escreva “Informe a cotação da moeda escolhida (US$, CDN$, €)”; Leia cotMoeda; Escreva “Informe a quantidade da moeda (real – R$)”; Leia qtdMoeda; Se moeda== “US$” então valorTotal=cotMoeda/qtdMoeda; Escreva “US$” + valorTotal;
Fimse;
Se moeda== “CDN$” então valorTotal=cotMoeda/qtdMoeda; Escreva “CDN$” + valorTotal; Fimse; Se moeda== “€” então valorTotal=cotMoeda/qtdMoeda; Escreva “€” + valorTotal; Fimse;
Fim.
2° Etapa
Etapa 2
Algoritmo PrimeiraConversão Var real: qtdMoeda, cotMoeda, valorTotal; Char: moeda, moeda1;
Inicio
Escreva ”Informe uma moeda (R$, US$, CDN$, €)”; Leia moeda;
Escreva “Informe moeda para qual sera convertida (R$, US$, CDN$, €)”; Leia moeda1;
Escreva “Informe cotação da moeda base* (R$, US$, CDN$, €) - *primeira moeda informada”; Leia cotMoeda;
Escreva “Informe quantidade da moeda final* (R$, US$, CDN$, €) - *segunda moeda informada”; Leia qtdMoeda; Se moeda==’R$’ e moeda1==’US$’ então