Algoritmos da aula

algoritmo "mutliplicação"
// Função :
// Autor :
// Data : 8/4/2011
// Seção de Declarações
var
n1,n2,res:inteiro
inicio
Escreval ("Digite dois números")
leia (n1,n2)
res <- (n1*n2)
Escreval ("O resultado é: ", res)
// Seção de Comandos
fimalgoritmo


algoritmo "soma_dos_quadrados"
// Função :
// Autor :
// Data : 8/4/2011
// Seção de Declarações
var
n1,n2,n3,n4,res:inteiro
inicio
Escreval ("Digite quatro números")
leia (n1,n2,n3,n4)
res <- (n1^2)+(n2^2)+(n3^2)+(n4^2)
Escreval ("O resultado é: ", res)
// Seção de Comandos
fimalgoritmo




algoritmo "turno_de_trabalho"
// Função :
// Autor :
// Data : 3/4/2011
// Seção de Declarações
var
hora: real
inicio
// Seção de Comandos
Escreval ("Digite a hora de entrada no trabalho")
Leia (hora)
Se (hora >= 24) entao
Escreval ("hora inválida")
Fimse
Se (hora >= 5) e (hora < 13) entao
Escreval ("o seu turno de trabalho é o da manhã")
Fimse
Se (hora >= 13) e (hora < 21) entao
Escreval ("o seu turno de trabalho é o da tarde")
Fimse
Se ((hora >= 21) e (hora < 24)) ou ((hora >= 0) e (hora < 5)) entao
Escreval ("o seu turno de trabalho é o da noite")
Fimse

fimalgoritmo

algoritmo "Peixaria"
// Elabore um algoritmo que calcule a multa paga por um pescador que ultrapasse
// a quantidade de quilos estabelecido por lei:A saber:
// . A quantidade de peixe por pessoa é 50kg
// . A multa por quilo excedente é R$4,00
var
multa,quilo:real
inicio
escreva("Por favor,coloque o peixe na balança e depois digite o peso aqui >>>>:")
leia(quilo)
se(quilo<=50)entao
escreval("Peso permitido,obrigado por respeitar a natureza!")
fimse
se(quilo>=51)entao
multa<-(quilo-50)*4)
escreval("O DOIDÃO,na piracema é crime,retire sua multa no guiche:",multa)
fimse
fimalgoritmo