Algoritmo de exemplo.

Olá pessoal venho postar esse algoritmo para que o mesmo sirva de referência no que diz respeito a boas práticas de desenvolvimento de um bom código.Ele foi feito com base no principio que os códigos devem ser fáceis de interpretar por qualquer programador. Atentem para os comentários sobre o código, a nomeação de variáveis,etc;

Espero que seja de algum proveito para alguém.

Código:

algoritmo "Alg_para_calculo_de_Potencia"
// Função : Calcular a potência de uma faixa de números dados.
// Autor : Lucas Vinha Teixeira
// Data : 03/04/2011
// Seção de Declarações
var
Numero_inicial,Numero_final,Potencia:Inteiro // Variáveis de entrada.
Resultado:Real // Variável de Saída.
Controle_saida:Caracter // Variável de controle para saída do programa.
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 cálculo de potência*******************")
Escreval("*******************Versão 1.0********************************")
Escreval("*********************By LCS**********************************")
Escreval("*****************************************************************")
Escreval("*****************************************************************")
Escreval

Escreva("Digite a pimeira base:")//***************
Leia(Numero_inicial) // *
// *
Escreva("Digite a segunda base:") // * Entrada dos dados.
Leia(Numero_final) // *
// *
Escreva("Digite a potência:") // *
Leia(Potencia) //*******************

PARA Numero_inicial DE Numero_inicial ATE Numero_final FACA // Controle do laço da potência.
Resultado<- Numero_inicial^Potencia // Calculo da potência.
Escreval(" O produto da potencia de ", Numero_inicial ," elevado a ", Potencia," é: ",Resultado) // Exibição do Resultado.
FimPara

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 calculo.

FimEnquanto

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

fimalgoritmo

Abcx,

LCS