Mais exemplos de algorítmos

Exemplo 01:
Esse algorítmo utiliza a estrutura de repetição "para"

algoritmo "semnome"
// Função :
// Autor :
// Data : 23/1/2003
// Seção de Declarações 
var
aux, aux2: inteiro
inicio
// Seção de Comandos
repita
para aux de 0 ate 25 faca
     para aux2 de 0 ate aux faca
          escreva(" ")
     fimpara
     escreval(":)     :|     :(     :)     :|     :(")
fimpara
para aux de 25 ate 0 passo(-1) faca
     para aux2 de 0 ate aux faca
          escreva(" ")
     fimpara
     escreval(":)     :|     :(     :)     :|     :(")
fimpara
fimrepita
fimalgoritmo

Exemplo 02:
Esse algorítmo escreve todos os números primos de o 0 até 1000:

algoritmo "semnome"
// Função :
// Autor :
// Data : 23/1/2003
// Seção de Declarações 
var
n1: inteiro
inicio
para n1 de 0 ate 1000 faca
se n1=2 entao
   escreval(" 2")
   senao
        se n1=3 entao
           escreval(" 3")
        senao
             se n1=5 entao
                escreval(" 5")
             senao
                  se n1=7 entao
                     escreval(" 7")
                  senao
                       se n1>7 entao
                          se n1%2 <> 0 entao
                             se n1%3 <> 0 entao
                                se n1%5 <> 0 entao
                                   se n1%7 <>0 entao
                                      escreval(n1)
                                   fimse
                                fimse
                             fimse
                          fimse
                       fimse
                  fimse
             fimse
        fimse
   fimse
fimpara

Posted in: Algoritmo e Programação,Linguagem (Pseudo) Portugol