skip to main |
skip to sidebar
algoritmo "Dias transcorridos"
// Função :
// Autor :
// Data : 21/09/2010
// Seção de Declarações
var
dia,mes,ano,dt:inteiro
inicio
// Seção de Comandos
escreva ("Entre com o dia,mês e ano, apertando enter ao digitar cada um ")
leia(dia,mes,ano)
se(mes=1) entao
dt<-dia
senao
se(mes=2)entao
dt<-dia+30
senao
se(mes=3) entao
dt<-dia+60
senao
se(mes=4)entao
dt<-dia+90
senao
se (mes=5)entao
dt<-dia+120
senao
se(mes=6)entao
dt<-dia+150
senao
se (mes=7)entao
dt<-dia+180
senao
se (mes=8)entao
dt<-dia+210
senao
se (mes=9)entao
dt<-dia+240
senao
se(mes=10)entao
dt<-dia+270
senao
se (mes=11)
dt<-dia+300
senao
se(mes=12) entao
dt<-dia+330
senao
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
escreva("Foram transcorridos ",dt," dias")
fimalgoritmo
algoritmo "Categorias"
// Função :
// Autor :
// Data : 21/9/2010
// Seção de Declarações
var
i:inteiro
nome:literal
inicio
// Seção de Comandos
escreva("Entre com seu nome ")
leia(nome)
escreva("Entre com a sua idade ")
leia(i)
se(i<5)entao
escreva("Idade Inválida")
senao
se((i>=5) e (i<=7))entao
escreva("A categoria de ", nome," é Infantil A")
senao
se((i>=8) e (i<=10))entao
escreva("A categoria de ", nome," é Infantil B")
senao
se((i>=11)e(i<=13))entao
escreva("A categoria de ", nome," é Juvenil A")
senao
se((i>=14)e(i<=17))entao
escreva("A categoria de ", nome," é Juvenil B")
senao
escreva("A categoria de ", nome," é Sênior")
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
algoritmo "Calculadora"
// Função :
// Autor :
// Data : 21/09/2010
// Seção de Declarações
var
n1, n2, total:real
operador:literal
inicio
// Seção de Comandos
escreva("Digite o primeiro número ")
leia(n1)
escreva("Digite o operador (+ , -, * ou /) ")
leia(operador)
escreva("Digite o segundo número ")
leia(n2)
se((operador <> "+") e (operador <> "-") e (operador <> "*") e (operador <> "/"))entao
escreva("Operador Inválido")
senao
se(operador="+") entao
total<-n1+n2
escreva("O total é: ",total)
senao
se(operador="-")entao
total<-n1-n2
escreva("O total é: ",total)
senao
se(operador="*")entao
total<-n1*n2
escreva("O total é: ",total)
senao
se (operador="/")entao
total<-n1/n2
escreva("O total é: ",total)
senao
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
algoritmo “Dec2Bin”
var
b: literal
n, q, r: numérico
início
b <- “ “
escreva(“Entre com um número”)
leia(n) //aqui n=29
q <- n //q=29
r<- q%2 //r=29%2 =1
q <- q\2 //29\2 =14
se r = 0 então //F
b <- “0” + b
senão
b <- “1” + b //b="1" +""
fimse
r <- q%2 //q%2 =0
q <- q\2 //q\2 =7
se r = 0 então //V
b <- “0” + b //"0" + "1"
senão
b <- “1” + b
fimse
r <- q%2 //r=0
q <- q\2 //q=3
se r = 0 então //V
b <- “0” + b //"0" + "1"+“0”
senão
b <- “1” + b
fimse
r <- q%2 //r=1
q <- q\2 //q=1
se r = 0 então //F
b <- “0” + b
senão
b <- “1” + b //"0" + "1"+“0” +"1"
fimse
r <- q%2 //r=0
q <- q\2 //q=0
se r = 0 então //V
b <- “0” + b ////"0" + "1"+“0” +"1"+"0"
senão
b <- “1” + b
fimse
escreva(n, “ em decimal é representado por “, b, “ em binário”) //29, em decimal é
representado por 010110 em binário.
fimalgoritmo