Atps construção de algoritimos

ATPS

Desafio 1 – Etapa 2

Passo 1

inicio

inteiro: convert, base, teste1, teste2;

real: moedac, moedab, result;

teste1 ( 1;

teste2 ( 1;

enquanto teste1 = 1 faça

escreva(“Digite 1 para converter Real, 2 para Dólar ou 3 para Euro:”);

ler(convert);

se convert > 3 entao

escreva(“Digite uma conversão valida.”);

teste1 ( 1;

senao

teste1 ( 2;

fimse

enquanto teste2 = 1 faça

escreva(“Digite 1 para converter Real, 2 para Dólar ou 3 para Euro:”);

ler(base);

se base > 3 entao

escreva(“Digite uma base valida.”);

teste2 ( 1;

senao

teste2 ( 2;

fimse

se convert =base entao

escreva(“Conversão desnecessária, mesma moeda!”);

fimse

se convert = 1 entao

result ( moedac / moedab;

senao

se convert = 2 entao

se base = 1 entao

result ( moedac * moedab;

senao

result ( moedac / moedab;

fimse

senão

result ( moedac / moedab;

fimse

fimse

escreva(“Resultado da Conversão: ”, result);

fim

Passo 2

Inicio

Inteiro: convert, base, teste1, teste2;

real: moedac, moedab, moedabp, moedabc, moedabt, result, resultp, resultc, resultt;

teste1 ( 1;

teste2 ( 1;

enquanto teste1 = 1 faça

escreva(“Digite 1 para converter Real, 2 para Dólar ou 3 para Euro:”);

ler(convert);

se convert > 3 entao

escreva(“Digite uma conversão valida.”);

teste1 ( 1;

senao

teste1 ( 2;

fimse

enquanto teste2 = 1 faça

escreva(“Digite 1 para converter Real, 2 para Dólar ou 3 para Euro:”);

ler(base);

se base > 3 entao

escreva(“Digite uma base valida.”);

teste2 ( 1;

senao

teste2 ( 2;

fimse

se convert =base entao

escreva(“Conversão desnecessária, mesma moeda!”);

fimse

escreva(“Digite o valor a ser convertido:”);

ler(moedac);

se base