Algoritimo

algoritmo "media_aluno"
// Função :
// Autor :
// Data : 17/11/2011
// Seção de Declarações var nome: caracter nota1: real nota2: real nota3: real media: real

inicio
// Seção de Comandos escreva("Qual o Seu nome: ") leia (nome) limpatela escreva("Digite primeira nota: ") leia (nota1) limpatela escreva ("Digite segunda nota: ") leia (nota2) limpatela escreva ("Digite terceira nota: ") leia (nota3) limpatela media <- (nota1+nota2+nota3)/3 se (media >= 6) entao escreva (nome," Você esta APROVADO") senao escreva (nome," Você esta REPROVADO") fimse

fimalgoritmo

_____________________________________________________________________

algoritmo "Senha_Banco"
// Função :
// Autor :
// Data : 07/11/2011
// Seção de Declarações var Tecla: caracter
I: inteiro

inicio
// Seção de Comandos
I <- 0 repita escreva ("Para retirar sua senha pressione a tecla! ") leia (Tecla) I <- I + 1 escreval ("SENHA ",I, " LIBERADA!")

__________________________________________________________________________

algoritmo "Tela_Login"
// Função :
// Autor :
// Data : 17/11/2011
// Seção de Declarações var Nome: caracter
Senha: caracter inicio // Seção de Comandos escreva ("Nome do usuario: ") leia (Nome) escreva ("Senha do usuario: ") leia (Senha) limpatela se (Nome = "tecnico") e (Senha = "123*456") entao escreva ("Seja bem Vindo!!!") senao escreva ("Senha INCORRETA!") fimse fimalgoritmo

__________________________________________________________________________

algoritmo "numero_negativo"
// Função :
// Autor :
// Data : 21/11/2011
// Seção de Declarações var numero: inteiro par,impar:real dobro: real inicio // Seção de Comandos escreval ("Qual o numero?") leia (numero) limpatela se (numero < 0) entao escreval ("numero negativo") fimse se (numero%2)=0 entao escreval