sexta-feira, 13 de abril de 2012

Numeros Primos de 1 a 100 por Marcos Renêe Alves Sales


algoritmo "Numeros Primos de 1 a 100"
// Função :
// Autor : Marcos Renêe Alves Sales
// Data : 09/04/2012
// Seção de Declarações
var
numero, contador, incremento: inteiro
inicio
// Seção de Comandos
numero <- 2
incremento <- 1
enquanto (numero <= 100) faca
         enquanto (incremento <= numero) faca
                  se ((numero mod incremento) = 0) entao
                     contador <- contador + 1

                  fimse
                     incremento <- incremento + 1
         fimenquanto
         se (contador <= 2) entao
            escreval (numero)
         fimse
         contador <- 0
         incremento <- 1
         numero <- numero + 1
fimenquanto
fimalgoritmo

quarta-feira, 11 de abril de 2012

SOLUÇÃO FATORIAL por GRASIELE CIRILO


algoritmo "Fatorial"

var
n,i,fatorial:inteiro
inicio
escreval("Digite o numero que deseja saber o fatorial:")
leia(n)
i<-1
fatorial<-1
para i de 1 ate n faca
fatorial<-fatorial*i
fimpara
escreva("O fatorial de",n," é:",fatorial)
fimalgoritmo
 
Visitas