Outro exemplo de algoritmo.

[LCS 0]

Então galera, vou postar mais um exemplo de algoritmo feito em Visualg, para que a galera tenha uma idéia de como iniciar o seu algoritmo e boas práticas para o desenvolvimento do mesmo.

 

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

 

 

Espero que sirva e seja util para alguém.

 

 

Abcx,

 

LCS

[Mário Monteiro 179]

Boa iniciativa LCS :joia:

[johnnyNT 0]

LCS gostei do seu algoritmo, porem vou postar de forma que a moeda ja esteja com uma cotação pre-definida, caso alguem prefira....

 

 

algoritmo "conversor de moedas"
// Função :
// Autor :  Johnny Willer
// Data : 01/05/2011
// Seção de Declarações 
var
moeda: real
opc, num: inteiro
pause: caracter
inicio
// Seção de Comandos 
repita
limpatela
escrevaL ("---------------------MENU---------------------")
escrevaL ("")
escrevaL ("   1) Dólar")
escrevaL ("   2) Euro")
escrevaL ("   3) Rublo")
escrevaL ("   4) Libra (esterlina)")
escrevaL ("   0) Sair")
escreval ("")
escrevaL ("   OBS: Todos os valores serão automaticamente convertidos para REAL")
escrevaL ("")
escrevaL (" Cotação da moeda em 01/05/2011")
escrevaL ("")
escrevaL ("   ESCOLHA UMA OPÇÃO, DIGITE O NUMERO CORRESPONDENTE.")
        leia (opc)
escolha opc
        caso 1
     escrevaL (" Você escolheu conversão para Dólar.")
     escrevaL (" Digite quantos dolar você quer converter")
     leia (num)
     moeda <- num * 1.63
     escrevaL ("", num," dólar(es) transformando em reais dará R$",moeda)
      escrevaL ("")
     escrevaL (" Aperte ENTER para continuar....")
      leia (pause)

     caso 2
        escrevaL (" Você escolheu conversão para Euro.")
           escrevaL (" Digite quantos euros você quer converter")
             leia (num)
             moeda <- num * 2.33
               escrevaL ("", num," euro(s) transformando em reais dará R$",moeda)
         escrevaL ("")
        escrevaL (" Aperte ENTER para continuar....")
      leia (pause)

     caso 3
           escrevaL (" Você escolheu conversão para Rublo.")
               escrevaL (" Digite quantos rublos você quer converter")
                   leia (num)
             moeda <- num * 0.57
               escrevaL ("", num," rublo(s) transformando em reais dará R$",moeda)
                escrevaL ("")
         escrevaL (" Aperte ENTER para continuar....")
      leia (pause)

     caso 4
           escrevaL (" Você escolheu conversão para Libra.")
               escrevaL (" Digite quantas libras você quer converter")
                   leia (num)
             moeda <- num * 2.62
               escrevaL ("", num," libra(s) transformando em reais dará R$",moeda)
            escrevaL ("")
            escrevaL (" Aperte ENTER para continuar....")
      leia (pause)

               fimescolha
         ate opc = 0



fimalgoritmo

 

TA AI NAO SE SE VOCÊS VAO GOSTAR :D

[LCS 0]

Sempre é interessante novas formas de fazer a mesma coisa.

 

Abcx,

 

LCS

[johnnyNT 0]

Valeu ae!! :D

[WilliansS 73]

Muito interessante, to começando meu curso de sistemas pra internet e uma das disciplinas é algoritimo, valew pelo post! vai me ajudar.