Lista de Algoritmos questões de 1 a 8 resolvidas.

23Mai08

algoritmo “q1″

var
num:inteiro
inicio
escreval(”entre com um numero”)
leia(num)
escreval(”antecessor  “, num-1)
escreval(”sucessor  “, num+1)
fimalgoritmo

—-

algoritmo “q2″

var
a,b,c:inteiro
inicio
escreval(”entre com um numero”)
leia(a)
escreval(”entre com um numero”)
leia(b)
escreval(”entre com um numero”)
leia(c)
se ( a<=b) e (a<=c) entao
escreval(”o menor é  “, a)
senao
se (b<=a) e ( b<=c) entao
escreval(”o menor é  “, b)
senao
escreval(”o menor é  “, c)
fimse
fimse

fimalgoritmo

————-

algoritmo “q3″

var
nome, telefone,email: literal
inicio
// Seção de Comandos
escreval(”digite um nome”)
leia(nome)
escreval(”digite um telefone”)
leia(telefone)
escreval(”digite um email”)
leia(email)

escreval(”nome:  “, nome, ” telefone:  “, telefone, ” email: “,email)

fimalgoritmo

———-

algoritmo “q4″

var
a,b:real
inicio
// Seção de Comandos
escreval(”digite um numero”)
leia(a)
escreval(”digite um numero”)
leia(b)

escreval(”soma:  “, a+b, ” sub:  “, a-b, ” mult: “,a*b, ” divisao: “,a/b)

fimalgoritmo

——

algoritmo “q4″

var
media, a,b,c,d:real
inicio
// Seção de Comandos
escreval(”digite um numero”)
leia(a)
escreval(”digite um numero”)
leia(b)
escreval(”digite um numero”)
leia(c)
escreval(”digite um numero”)
leia(d)

media<-(a+b+c+d)/4
escreval(”media:  “,media)

fimalgoritmo
——

algoritmo “q2″

var
a,b,c:inteiro
inicio
escreval(”entre com um numero”)
leia(a)
escreval(”entre com um numero”)
leia(b)
escreval(”entre com um numero”)
leia(c)
se ( a<=b) e (a<=c) entao
se (b<=c) entao
escreval(a,”-”,b,”-”,c)
senao
escreval(a,”-”,c,”-”,b)
fimse
fimse

se ( b<=a) e (b<=c) entao
se (a<=c) entao
escreval(b,”-”,a,”-”,c)
senao
escreval(b,”-”,c,”-”,a)
fimse
fimse

se ( c<=b) e (c<=a) entao
se (b<=a) entao
escreval(c,”-”,b,”-”,a)
senao
escreval(c,”-”,a,”-”,b)
fimse
fimse

fimalgoritmo

——–

algoritmo “q7″

var
num:inteiro
inicio
escreval(”leia um numero”)
leia(num)
se (num % 6 =0) entao
escreval(”numero divisivel por 6″)
fimse
se (num % 11=0) entao
escreval(”numero divisivel por 11″)
fimse

fimalgoritmo

algoritmo “q8″

var
salba,sb,desc,abono:real
inicio
escreval(”entre com o salario base”)
leia(salba)
escreval(”entre um um desconto em reais”)
leia(desc)
escreval(”entre com um abono em reais”)
leia(abono)
sb<-salba+abono-desc

se (sb >=1500) entao
sb<-sb – 0.1 * sb
escreval(”salario com 10% de desconto – “,sb)
senao
escreval(”salario sem descontos – “,sb)
fimse
fimalgoritmo

Filed under: Algoritmos   |  Leave a Comment