Algoritmo

algoritmo "Tipos de Triangulo"
// Função :
// Autor :
// Data : 08/04/2014
// Seção de Declarações var A, B, C: inteiro

inicio leia (A, B, C) se (A<B+C) e (B<A+C) e (C<A+B) entao se (A=B) e (B=C) entao escreva ("triagulo equilátero") senao se (A=B) ou (B=C) ou (A=C) entao escreva ("Triangulo Isóceles") senao escreva ("Triagulo Escaleno") fimse fimse senao escreva ("Estes valores não formam um triângulo") fimse fimalgoritmo algoritmo "Times"
// Função :
// Autor :
// Data : 29/4/2014
// Seção de Declarações var times: vetor [1..14,1..2] de caracter mloteria: vetor [1..14,1..3] de caracter
I, J: inteiro inicio // Seção de Comandos para I de 1 ate 4 faca para J de 1 ate 2 faca escreval ("Digite o time ", j) // entrada dos times leia (times[i,j]) fimpara fimpara para I de 1 ate 4 faca para J de 1 ate 3 faca escreval ("resultado do jogo: ",times[i,1]," ",times[i,2]) // entrada dos resultados escreva("coluna ",j, " ") leia (mloteria[i,j]) fimpara fimpara para I de 1 ate 4 faca escreval ("| ",mloteria[i,1],"|",times[i,1]," |",mloteria[i,2],"|",times[i,2]," |",mloteria[i,3],"|") // entrada dos resultados fimpara fimalgoritmo

algoritmo "Repetição com teste no final"
// Função :
// Autor :
// Data : 15/04/2014
// Seção de Declarações var MA, ACM, MAT: Real
V: Inteiro inicio // Seção de Comandos
ACM <- 0 // inicialização do acumulador para V de 1 ate 50 passo 1 faca leia (MA) ACM <- ACM + MA // soma em ACM os valores lidos em MA fimpara MAT <- ACM / 50 // calculo da média anual da turma escreva ("média anual da turma = ", MAT) fimalgoritmo algoritmo "repetição com teste final"
// Função :
// Autor :
// Data : 15/04/2014
// Seção de Declarações var MA, ACM, MAT: Real CON: Inteiro inicio // Seção de Comandos CON <- 0 //inicialização do contador ACM <- 0 // inicialização do acumulador repita leia (MA) ACM <- ACM + MA // soma em ACM os valores