sábado, 28 de abril de 2012
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
terça-feira, 10 de abril de 2012
Assinar:
Postagens (Atom)