Ciências Computação - ATPS - VisualG - Programação Estruturada I - 2º Desafio - Etapa 1 - Passo 1

---

@CanalQb que Youtube 

---

---

Ciências Computação - ATPS - VisualG - Programação Estruturada I  - 2º Desafio - Etapa 1 - Passo 1

---

Algoritmo "Alg_para_conversao_moedas"
// Função : Algoritmo que faz conversão monetaria.
// Autor : Lucas Vinha Teixeira
// Data : 05/04/2011
// Seção de Declarações
var
Moeda,Valor_converter,Cotacao,Valor_convertido:Real // Variáveis de entrada do tipo real.
Nome_Moeda,Controle_saida:Caracter // Variáveis de entrada e saida do tipo caracter.
inicio
// Seção de Comandos

Enquanto (Controle_saida <> "S") ou (Controle_saida <> "s") FACA // Laço para verificar se quer sair do programa ou não.

Escreval("*****************************************************************")
Escreval("*****************************************************************")
Escreval("***********Programa para conversão de moedas*********************")
Escreval("*********************Versão 1.0**********************************")
Escreval("***********************By LCS************************************")
Escreval("*****************************************************************")
Escreval("*****************************************************************")
Escreval

//PEQUENO MENU DE ESCOLHA DE MOEDAS.
Escreval("*********Menu******************")
Escreval("1 - Dolar *********************")
Escreval("2 - Euro *********************")
Escreval("3 - Iene *********************")
Escreval("4 - Outra *********************")
Escreval("*********Fim menu**************")
Escreval

// ESCOLHA DA MOEDA.
Escreva("Escolha o número da opção para conversão:")
Leia(Moeda)
Escreval

//EMTRADA DOS DADOS DE COTACAO E VALOR PARA CONVERSÃO.
Escreva("Escreva a cotação atual da moeda:")
Leia(Cotacao)
Escreva("Digite o valor em R$ para conversão:")
Leia(Valor_Converter)

Escreval

//____________________________________________________________
//Inicio bloco condicional, aqui será verificado o tipo de moeda escolhida para
//que seja realizado o calculo especificado.
//____________________________________________________________

Se Moeda = 1 Entao
Nome_moeda<- "U$$ Dolar"
Valor_convertido <- Valor_converter * Cotacao
FimSe

Se Moeda = 2 Entao
Nome_moeda<- "€ Euro"
Valor_convertido <- Valor_converter * Cotacao
FimSe

Se Moeda = 3 Entao
Nome_moeda<- "¥ Iene"
Valor_convertido <- Valor_converter * Cotacao
FimSe

Se Moeda = 4 Entao
Escreva("Digite o nome da moeda:")
Leia(Nova_moeda)
Valor_convertido <- Valor_converter * Cotacao
FimSe

//____________________________________________________________
// FIM DO BLOCO CONDICIONAL
//____________________________________________________________


//____________________________________________________________
//INICIO DO BLOCO DE IMPRESSÃO DOS DADOS NA TELA,AQUI VAMOS APRESENTAR A MOEDA
//ESCOLHIDA,O VALOR DA COTAÇÃO E O VALOR CONVERTIDO NA MOEDA ESCOLHIDA.
//____________________________________________________________

Escreval("Você converteu R$ para ",Nome_moeda)
Escreval("Cotação = ",Cotacao)
Escreval(" O valor em ",Nome_moeda," é: ",Valor_convertido)
Escreval
Escreval("Obrigado por usar nosso serviço de conversão monetária")

//____________________________________________________________
// FIM DO BLOCO DE IMPRESSÃO
//____________________________________________________________

Escreva("Deseja sair do programa? s ou n: ") // Entrada do valor para validação do laço de saída.
Leia(Controle_saida)
LimpaTela // Método para limpar a tela para um novo cálculo.

FimEnquanto

LimpaTela //Método para limpar a tela para finalizar o programa.

fimalgoritmo

#VisualG #Programação #Estruturada #Desafio #Etapa #Passo atps #AirdropsQb

O site online HTML cheat sheet deve ser o primeiro marcador de cada desenvolvedor web. É o melhor recurso de uma página para gerar a marcação desejada.