Atps programação estruturada 1

ATPS - Programação Estruturada I - 2º Desafio - Etapa 1 - Passo 1
Contido: Ajuda de Atps , VisualG 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