Logica De Programação (Algoritmo)
Artigo: Logica De Programação (Algoritmo). Pesquise 862.000+ trabalhos acadêmicosPor: clidao • 19/3/2014 • 1.332 Palavras (6 Páginas) • 563 Visualizações
...............................................................................................................................
ENSINO PRESENCIAL COM SUPORTE EAD
SISTEMAS DE INFORMAÇÃO – 2º SEMESTRE
LÓGICA DE PROGRAMAÇÃO E ALGORITMO
...............................................................................................................................
Guarulhos
2010
LÓGICA DE PROGRAMAÇÃO E ALGORITMO
Trabalho apresentado ao Curso Sistemas de Informação da Faculdade ENIAC para a disciplina Lógica de Programação e Algoritmo.
Prof. Cao Ji Kan
Guarulhos
2010
1)
algoritmo "semnome"
// Função :
// Autor :
// Data : 13/10/2010
// Seção de Declarações
var
carlos, joao, pc, fj: real
dia, mes : inteiro
inicio
escreval ("digite o salario de carlos:")
leia (Carlos)
joao <- Carlos/3
pc <- 1.02
fj <- 1.05
enquanto (joao <= carlos) faca
joao<- joao*fj
carlos<- carlos*pc
dia <- dia + 1
// escreval ("João dia", dia," = ",joao)
// escreval ("Carlos dia",dia," = ",carlos)
fimenquanto
mes <- dia div 30
dia <- dia mod 30
escreval ("São necessários", mes," mes(s) e ",dia," dia(s)." )
fimalgoritmo
2)
algoritmo "semnome"
// Função :
// Autor :
// Data : 13/10/2010
// Seção de Declarações
var
n1, n2, n3, n4, pst, ngt : inteiro
inicio
escreval("digite 4 numeros")
leia(n1,n2,n3,n4)
se (n1 >= 0) e (n2 >= 0) e (n3 >= 0) e (n4 >= 0) entao
pst<- n1+n2+n3+n4
ngt<- 0
escreval("positivos = ", pst )
escreva("negativos =", ngt)
senao
se (n1 >= 0) e (n2 >= 0) e (n3 >= 0) e (n4 <= 0) entao
pst<- n1+n2+n3
ngt<- n4
escreval("positivos = ", pst )
escreva("negativos =", ngt)
senao
se (n1 >= 0) e (n2 >= 0) e (n3 <= 0) e (n4 >= 0) entao
pst<- n1+n2+n4
ngt<- n3
escreval("positivos = ", pst )
escreva("negativos =", ngt)
senao
se (n1 >= 0) e (n2 >= 0) e (n3 <= 0) e (n4 <= 0) entao
pst<- n1+n2
ngt<- n3+n4
escreval("positivos = ", pst )
escreva("negativos =", ngt)
senao
se (n1 >= 0) e (n2 <= 0) e (n3 >= 0) e (n4 >= 0) entao
pst<- n1+n3+n4
ngt<- n2
escreval("positivos = ", pst )
escreva("negativos =", ngt)
senao
se (n1 >= 0) e (n2 <= 0) e (n3 >= 0) e (n4 <= 0) entao
pst<- n1+n2+n3+n4
ngt<- n2+n4
escreval("positivos = ", pst )
escreva("negativos =", ngt)
senao
se (n1 >= 0) e (n2 <= 0) e (n3 <= 0) e (n4 >= 0) entao
pst<- n1+n4
ngt<-
...