Algoritimo cotacao moedas parte 2
inicio real :cont, opcao, mês, inteiro; // contadores valorconversao, real[1..30], euro[1..30]reais; // vetores real e euro
escreva ("conversão de moedas");
escreva ("Cotação do Real:");
para cont de 1 até 30 faça // pegar a cotação de 30 dias escreva ("Digite a cotação do real no dia : ", cont );// digitar a cotacao do real dos 30 dias leia (real[cont]);
escreva ("Cotação Euro:"); para cont de 1 até 30 faça// pegar a cotação dos 30 dias escreva ("Digite a cotação do euro : ", cont );// digitar a cotação do euro dos 30 dias leia (euro[cont]); escreva ("Selecione a opção"); escreva ("0 - Sair;"); escreva ("1 - Converter Real para Euro"); // menu de opcoes escreva ("2 - Converter Euro para real"); leia (opcao);
escolha ( opcao ) caso 0: fim. caso 1: escreva("Digite o dia do mes para pegar a cotacao ( de 1 a 30 ) ");// digitar o dia que vai pegar a cotacao leia ( mes ); escreva ("Digite o valor a ser convertido);// valor a ser convertido leia(valorconversao); escreva("O valor ", valorconversao, " em reais equivale a ", valorconversao / euro[me], " em euros");
caso 2: escreva("Digite o dia do mes para pegar a cotacao ( de 1 a 30 ) "); leia ( mes ); escreva ("Digite o valor a ser convertido); leia(valorconversao); escreva("O valor ", valorconversao, " em euro equivale a ", valorconversao * real[me], " en euros"); casocontrario: escreva("não existe essa opcao"); fimescolha;
Fim.
Relatório
Passo 1 estamos fazendo a conversão das moedas real para euro e euro para real. Colocamos o vetor para pegar as cotações de 30 dias . No inicio escreve na tela conversão de moedas e escreve a cotação do real.Em seguida pede para digitar a cotação do dia ,sendo 30