Redes de Micros

Descrição Narrativa

- Receber os tipos de Moedas (Dólar Americano, Dólar Canadense e Euro).

- Escrever a cotação atual da moeda e escolher o valor que queira converter em Real (R$).

- Mostrar o valor convertido.

- Caso precise sair do Programa escolha: Sim ou Não.

- Se escolher Sim, a opção é Sair do Programa.

- Caso a opção seja Não, inicia-se novamente uma conversão.

Fluxograma

[pic 1]

[pic 2]

[pic 3]

[pic 4]

[pic 5]

[pic 6]

[pic 7]

[pic 8]

[pic 9]

[pic 10][pic 11]

[pic 12]

[pic 13]

[pic 14]

[pic 15]

[pic 16]

[pic 17]

[pic 18]

[pic 19]

PseudoCódigo

algoritmo "Conversor de Moedas"

// Função: Converter Moedas de acordo com a opção do usuário

// Autor: Robson Ramalho de Oliveira

// Data: 09/09/2014

// Seção de Declarações

var

Moeda,VLDAT,VLDC,VLE,VLRBL,VCDATRBL,VCDCRBL,VCERBL: real    //

Variáveis de entrada do tipo real.

TitMensagemDAT,TitMensagemDC,TitMensagemE,TitOpcao: caracter    

//Variáveis de saida dos Titulos da opção de escolha tipo caracter.

MensagemEntrada: caracter                  // Variáveis de entrada tipo caracter.

MensagemDAT,MensagemDC,MensagemE: caracter // Variáveis de saida das Mensagens da opção de escolha tipo caracter.

MensagemResultadoDAT: caracter             // Variável de saida (resuldado da conversão do Dolar Americano para Real) tipo caracter

MensagemResultadoDC: caracter              // Variável de saida (resuldado da conversão do Dolar Canadense para Real) tipo caracter

MensagemResultadoE: caracter               // Variável de saida (resuldado da conversão do Euro para Real) tipo caracter

Nome_moeda: caracter                       // Variável de saida (Exibe na tela o tipo de moeda escolhida) tipo caracter

Opcao_saida: caracter                      // Variável de entrada (Exibe na tela a opção de escolher continuar ou não no programa) tipo caracter

inicio

// Secao de Comandos

enquanto (Opcao_saida <> "S") ou (Opcao_saida <> "s") faca // Laço para verificar se quer sair do programa ou não.

// Mensagens de Entrada e Saida tipo caracter.

TitMensagemDAT <- "Conversao para Dolar Americano"

TitMensagemDC <- "Conversao para Dolar Canadense"

TitMensagemE <- "Conversao para Euro"

TitOpcao <- "Você precisa escolher uma das opções disponíveis!"

MensagemDAT <- "Escreva a cotação atual do Dolar Americano: U$ "

MensagemDC <- "Escreva a cotação atual do Dolar Canadense: C$ "

MensagemE <- "Escreva a cotação atual do Euro: € "

MensagemEntrada <- "Entre com o Valor em Reais: R$ "

MensagemResultadoDAT <- "Para viajar com Dolares Americanos, voce vai precisar de: R$ "

MensagemResultadoDC <- "Para viajar com Dolares Canadenses, voce vai precisar de: R$ "

MensagemResultadoE <- "Para viajar com Euros, voce vai precisar de: R$ "

//Inicio do que será exibida na tela

escreval("•••••••••• Conversão de moedas ••••••••••")

escreval

//Menu de escolha das moedas.

escreval("•••••••••• Menu ••••••••••")

escreval(" 1 - Dolar Americano U$")

escreval(" 2 - Dolar Canadense C$")

escreval(" 3 - Euro €")

escreval

//Escolha da moeda a ser convertida em Real.

escreva("Escolha o número da opção para conversão em Reais (R$): ")

leia(Moeda)

escreval

//Entrada dos Dados de Cotação e Valor para conversão.

se Moeda = 1 entao

escreva (TitMensagemDAT)

escreval

escreval

escreva(MensagemDAT)   // Valor da Cotacao do Dolar Americano Turismo