lista de algoritmos: questões de 9 até 15

23Mai08

algoritmo “q9″

var
salba,sb,aumento:real
codigo:inteiro
inicio
escreval(”entre com o salario base”)
leia(salba)
escreval(”digite o codigo da funcao”)
leia(codigo)

se (codigo=1) entao
sb<-salba * (1 – 0.50)
senao
se (codigo=2) entao
sb<-salba * (1 – 0.35)
senao
se (codigo=3) entao
sb<-salba * (1 – 0.20)
senao
se (codigo=4) entao
sb<-salba * (1 – 0.10)
senao
se (codigo=5) entao
sb<-salba
fimse
fimse
fimse
fimse
escreval(”salario novo – “,sb)

fimse
fimalgoritmo

——————-

algoritmo “q10″

var
total,nota,maior,menor,media:real
i:inteiro
inicio
// Seção de Comandos
maior<-0
menor<-10
total<-0
para i de 1 ate 5 faca
escreval(”entre com a nota “, i)
leia(nota)
se nota>maior entao
maior<-nota
fimse
se nota<menor entao
menor<-nota
fimse
total<-total + nota
media<-total/i
fimpara

escreval(”o maior é “, maior,”-o menor é “,menor)

fimalgoritmo

—————

algoritmo “q11″
var
qtd:inteiro

inicio
// Seção de Comandos
escreval(”digite a quantidade de filhos”)
leia(qtd)

se (qtd <=2 ) entao
escreval(”abono de 100 reais”)
senao
se (qtd >2 e qtd<=4) entao
escreval(”abono de 200 reais”)
senao
se (qtd >4) entao
escreval(”abono de 300 reais”)
fimse
fimse
fimse

fimalgoritmo

——

algoritmo “q12″

var
num,i:inteiro
inicio
escreval(”digite um numero”)
leia(num)

para i de 1 ate num faca
escreval(”numero ” , i, ” quadrado  “, i*i )
fimpara

fimalgoritmo

———–

algoritmo “q12″

var
i:inteiro
inicio
escreval(”numeros impares de 1 ate 50″)
para i de 1 ate 50 faca
se (i%2=1) entao
escreval(”numero ” , i )
fimse
fimpara

fimalgoritmo

——-

algoritmo “q14″

var
total,num,maior,menor,media:real
i:inteiro
inicio
// Seção de Comandos
maior<-0
menor<-10
total<-0
para i de 1 ate 10 faca
escreval(”entre com um numero”, i)
leia(num)
se num>maior entao
maior<-num
fimse
se num<menor entao
menor<-num
fimse
total<-total + num
media<-total/i
fimpara

escreval(”o maior é “, maior,”-o menor é “,menor,”-media é “,media)

fimalgoritmo

————–

algoritmo “q15″

var
total,num,media:real
i:inteiro
inicio
// Seção de Comandos
total<-0
media<-0
i<-0
escreval(”entre com um numero”)
leia(num)
enquanto (num>0) faca
i<-i+1
total<-total + num
media<-total/i
escreval(”entre com um numero”)
leia(num)
fimenquanto

escreval(”media é “,media)

fimalgoritmo

Filed under: Algoritmos   |  Leave a Comment