RESOLUÇÂO Lista 1 - computação

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

LISTA 1 - COMPUTAÇÃO
1)
var
nome, sexo : caracter
altura, peso : inteiro
inicio
// Seção de Comandos
escreva ("Entre como nome ")
leia (nome)
escreva ("Entre com o sexo ")
leia (sexo)
escreva ("Entre com a altura, em centimetros ")
leia (altura)
escreva ("Entre com o peso, em quilogramas ")
leia (peso)
se (sexo="feminino") e (altura>=175) e (peso>70) entao
escreva (nome)
fimse
2)
var
nome : caractere
h : inteiro
salario : real
inicio
// Seção de Comandos 
escreva ("Entre com o nome: ")
leia (nome)
escreva ("Entre com o numero de horas trabalhadas: ")
leia (h)
salario <- h*8.36
escreva ("O salario bruto de ", nome, " é de ", salario, " reais")
fimalgoritmo
3)
var
nome : caractere
h : inteiro
salario, salarioliq : real
inicio
// Seção de Comandos 
escreva ("Entre com o nome: ")
leia (nome)
escreva ("Entre com o numero de horas trabalhadas: ")
leia (h)
salario <- h*8.36
salarioliq <- salario*0.92
escreva ("O salario líquido de ", nome, " é de ", salario, " reais")
fimalgoritmo
4)
var
x1, x2, d, c, v : inteiro
t : real
inicio
// Seção de Comandos 
repita
escreval ("Entre com o marco 1 em km: ")
leia (x1)
escreval ("Entre com o marco 2 em km: ")
leia (x2)
escreval ("Entre com a velocidade em km/h: ")
leia (v)
 se (x1>x2) entao
 c <- x2
 x2 <- x1
 x1 <- c
 fimse
d <- (x2-x1)
t <- d/v
escreval ("O tempo gasto foi de ", t, " horas")
se (x1=x2) entao
interrompa
fimse
fimrepita
6)
var
idade, c, x : inteiro
inicio
// Seção de Comandos 
c <- 1
x <- 0
para c de 1 ate 500 faca
escreva ("Entre com a idade ")
leia (idade)
se idade>=18 entao
x <- x+1
fimse
fimpara
escreva ("O numero de pessoas maiores de idade é ", x)
fimalgoritmo
7)
var
idade, c, x, y : inteiro
sexo : caractere
inicio
// Seção de Comandos
c <- 1
x <- 0
y <- 0
para c de 1 ate 750 faca
escreva ("Entre com a idade ")
leia (idade)
escreva ("Entre com o sexo ")
leia (sexo)
se sexo="masculino" entao
se idade<18 entao
x <- x+1
fimse
fimse
se sexo="feminino" entao
se idade<=18 entao
y <- y+1
fimse
fimse
fimpara
escreval ("O numero de homens menores de idade é ", x)
escreval ("O numero de mulheres maiores de idade é ", y)
fimalgoritmo
8)
var
peso, x, y, c, p, peso1, pesototal : inteiro
media : real
sexo: caractere
inicio
// Seção de Comandos
c <- 1
x <- 0
y <- 0
peso1 <- 0
para c de 1 ate 350 faca
escreval ("Entre com o peso: ")
leia (peso)
escreval ("Entre com o sexo: ")
leia (sexo)
se sexo="masculino" entao
x <- x+1
pesototal <- peso1+peso
peso1 <- pesototal
media <- pesototal/x
fimse
se sexo="feminino" entao
se peso>65 entao
y <- y+1
fimse
fimse
fimpara
escreval ("O numero de mulheres com mais de 65kg é de ", y)
escreval ("A media dos pesos dos homens é ", media)
fimalgoritmo
9)
var
preco, precototal, preco1, media : real
x : inteiro
inicio
// Seção de Comandos
x <- 0
preco1 <-0
repita
 escreval ("Entre com o preço do produto ")
 leia (preco)
 x <- x+1
 precototal <- preco1+preco
 media <- precototal/x
 escreval ("O preço total da compra é de ", precototal)
 escreval ("A media dos preços é ", media)
 preco1 <- precototal
 fimrepita
fimalgoritmo
ou 
var
preco, precototal, media : real
x : inteiro
inicio
// Seção de Comandos
x <- 0
precototal <-0
repita
 escreval ("Entre com o preço do produto ")
 leia (preco)
 x <- x+1
 precototal <- precototal+preco
 media <- precototal/x
 escreval ("O preço total da compra é de ", precototal)
 escreval ("A media dos preços é ", media)
 fimrepita
fimalgoritmo
10)
var
somatotal, c, nota, maiormedia, menormedia : inteiro
mediaturma : real
inicio
// Seção de Comandos
somatotal <- 0
c <- 0
menormedia <- 30
maiormedia <- 0
repita
escreval ("Entre com a média: ")
leia (nota)
se nota<0 entao
interrompa
fimse
c <- c+1
somatotal <- somatotal+nota
mediaturma <- somatotal/c
se (nota>maiormedia) entao
maiormedia <- nota
fimse
se (nota<menormedia) entao
menormedia <- nota
fimse
escreval ("A media da turma é de ", mediaturma)
escreval ("A maior media da turma é de ", maiormedia)
escreval ("A menor media da turma é de ", menormedia)
fimrepita
fimalgoritmo
11)
var
sexo : caractere
idade, peso, c, w, x, y, z : inteiro
altura, media, porcentagem, totalaltura : real
inicio
// Seção de Comandos
x <- 0
y <- 0
w <- 0
z <- 0
para c de 1 ate 500 faca
escreval ("Entre com o sexo: ")
leia (sexo)
escreval ("Entre com a idade: ")
leia (idade)
escreval ("Entre com o peso (kg): ")
leia (peso)
escreval ("Entre com a altura (m): ")
leia (altura)
c <- 1
totalaltura <- 0
se (sexo="masculino") e (idade>=18) entao
x <- x+1
fimse
se (sexo="feminino") e (idade>25) e (peso>=50) e (peso<=65) entao
y <- y+1
fimse
se (sexo="masculino") entao
w <- w+1
totalaltura <- totalaltura+altura
media <- totalaltura/w
fimse
se (sexo="feminino") entao
z <- z+1
porcentagem <- (z/500)*100
fimse
c <- c+1
fimpara
escreval ("O numero de homens maiores de idade é ", x)
escreval ("O numero de mulheres com mais de 25 anos e peso entre 50 e 65kg é ", y)
escreval ("A media das alturas dos homens é ", media)
escreval ("A porcentagem de mulheres é ", porcentagem)
fimalgoritmo
12)
var
sexo : caractere
idade, peso, x, y, totalpeso, totalidade : inteiro
altura, mediap, mediai : real
inicio
// Seção de Comandos
x <- 0
y <- 0
totalpeso <- 0
totalidade <- 0
repita
escreval ("Entre com o sexo: ")
leia (sexo)
escreval ("Entre com a idade: ")
leia (idade)
escreval ("Entre com o peso (kg): ")
leia (peso)
escreval ("Entre com a altura (m): ")
leia (altura)
se (sexo="masculino") entao
x <- x+1
totalpeso <- totalpeso+peso
mediap <- totalpeso/x
fimse
se (sexo="feminino") entao
y <- y+1
totalidade <- totalidade+idade
mediai <- totalidade/y
fimse
se idade<=0 entao
interrompa
fimse
escreval ("O numero de homens é ", x)
escreval ("O numero de mulheres é ", y)
escreval ("A media dos pesos dos homens é ", mediap)
escreval ("A media das idades das mulheres é ", mediai)
fimrepita
fimalgoritmo
13)
var
idadetotal, idade, x, y, c : inteiro
media, porcentagem : real
curso, sexo : caracter
inicio
// Seção de Comandos
idadetotal <- 0
c <- 1
para c de 1 ate 4500 faca
 escreval ("Entre com o sexo: ")
 leia (sexo)
 escreval ("Entre com a idade: ")
 leia (idade)
 escreval ("Entre com o curso: ")
 leia (curso)
 se (curso="tecnologia em processamento de dados") entao
 x <- x+1
 porcentagem <- (x/4500)*100
 fimse
 se (curso="tecnologia em processamento de dados") e (sexo="feminino") entao
 y <- y+1
 fimse
 idadetotal <- idadetotal+idade
 media <-idadetotal/4
 c <- c+1
fimpara
escreval ("A porcentagem de candidatos inscritos para tpd é ", porcentagem)
escreval ("O total de mulheres inscritas para tpd é ", y)
escreval ("A media de idade dos candidatos inscritos é ", media)
fimalgoritmo
14)
var
c, s, n, x, y, m, f : inteiro
sexo, resp : caracter
pc1, pc2 : real
inicio
// Seção de Comandos
x <- 0
y <- 0
c <- 1
s <- 0
n <- 0
m <- 0
f <- 0
para c de 1 ate 10 faca
escreval ("Entre com o sexo: ")
leia (sexo)
escreval ("Você usa o produto? ")
leia (resp)
se (resp="sim") entao
x <- x+1
senao
y <- y+1
fimse
se (sexo="feminino") entao
f <- f+1
fimse
se (sexo="feminino") e (resp="sim") entao
s <- s+1
pc1 <- (s/f)*100
fimse
se (sexo="masculino") entao
m <- m+1
fimse
se (sexo="masculino") e (resp="nao") entao
n <- n+1
pc2 <- (n/m)*100
fimse
c <- c+1
fimpara
escreval ("O total de pessoas que usa o produto é ", x)
escreval ("O total de pessoas que não usa o produto é ", y)
escreval ("A porcentagem de mulheres que usam o produto é ", pc1)
escreval ("A porcentagem de homens que não usam o produto é ", pc2)
fimalgoritmo
15)
var
pesototal, c, peso, maiorpeso, menorpeso : inteiro
media : real
inicio
// Seção de Comandos
pesototal <- 0
c <- 0
menorpeso <- 3000
maiorpeso <- 0
repita
escreval ("Entre com o peso: ")
leia (peso)
se (peso=0) entao
interrompa
fimse
c <- c+1
pesototal <- pesototal+peso
media <- pesototal/c
se (peso>maiorpeso) entao
maiorpeso <- peso
fimse
se (peso<menorpeso) entao
menorpeso <- peso
fimse
escreval ("A media dos pesos é de ", media)
escreval ("O maior peso é de ", maiorpeso)
escreval ("O menor peso é de ", menorpeso)
fimrepita
fimalgoritmo
16)
var
c, mediatotal, media, x, y, z, horas, reprovados, ra : inteiro
nome : caracter
mediasala, pc : real
inicio
// Seção de Comandos
c <- 0
mediatotal <- 0
repita
escreval ("Entre com o nome: ")
leia (nome)
escreval ("Entre com o R.A: ")
leia (ra)
escreval ("Entre com o numero de horas-aula assistidas: ")
leia (horas)
escreval ("Entre com a media: ")
leia (media)
c <- c+1
se (ra=0) entao
interrompa
fimse
pc <- (horas/60)*100
se (pc<75) ou (media<6.5) entao
x <- x+1
fimse
se (pc>=75) e (media>=6.5) entao
z <- z+1
fimse
mediatotal <- mediatotal+media
mediasala <- mediatotal/c
reprovados <- x
escreval ("O numero de alunos reprovados foi ", reprovados)
escreval ("A media geral da sala foi ", mediasala)
fimrepita
fimalgoritmo
17)
var
c, x, y, preco : inteiro
inicio
// Seção de Comandos 
c <- 1
para c de 1 ate 500 faca
escreval ("Entre com o preço do produto: ")
leia (preco)
c <- c+1
se preco>10 entao
x <- x+1
fimse
se (preco>=15) e (preco<=30) entao
y <- y+1
fimse
fimpara
escreval ("O numero de produtos com preço acima de R$10 é: ", x)
escreval ("O numero de produtos com preço entre R$15 e R$30 é: ", y)
fimalgoritmo
18)
var
h, media, somah : real
c, x : inteiro
inicio
// Seção de Comandos
c <- 1
x <- 0
somah <- 0
para c de 1 ate 450 faca
escreval ("Entre com a altura (m): ")
leia (h)
c <- c+1
se h>1.65 entao
x <- x+1
fimse
somah <- somah+h
media <- somah/450
fimpara
escreval ("O numero de pessoas com mais de 1.65m é: ", x)
escreval ("A media das alturas é: ", media)
fimalgoritmo
19)
var
c, x, y, z, peso, somapeso : inteiro
sexo : caractere
media : real
inicio
// Seção de Comandos
c <- 1
x <- 0
y <- 0
z <- 0
somapeso <- 0
para c de 1 ate 350 faca
escreval ("Entre com o sexo: ")
leia (sexo)
escreval ("Entre com o peso: ")
leia (peso)
c <- c+1
se peso>70 entao
x <- x+1
fimse
se (sexo="feminino") entao
y <- y+1
somapeso <- somapeso+peso
media <- somapeso/y
fimse
se (sexo="masculino") e (peso>80) entao
z <- z+1
fimse
fimpara
escreval ("O numero de pessoas com mais de 70kg é: ", x)
escreval ("A media dos pesos das mulheres é de: ", media)
escreval ("O numero de homens com mais de 80kg é: ", z)
fimalgoritmo
20)
var
x, escala1, escala2 : inteiro
valorf, y, z : real
inicio
// Seção de Comandos
escreval ("1)Kelvin 2)Celcius 3)Farenheit")
escreval ("Entre com o valor de temperatura: ")
leia (x)
escreval ("Entre com a escala origem: ")
leia (escala1)
escreval ("Entre com a escala de conversão: ")
leia (escala2)
y <- x-32
z <- x-273
se (escala1=1) e (escala2=2) entao
 valorf <- z
fimse
se (escala1=1) e (escala2=3) entao
 valorf <- 1.8*z+32
fimse
se (escala1=2) e (escala2=1) entao
 valorf <- x+273
fimse
se (escala1=2) e (escala2=3) entao
 valorf <- 1.8*x+32
fimse
se (escala1=3) e (escala2=1) entao
 valorf <- 0.56*y+273
fimse
se (escala1=3) e (escala2=2) entao
 valorf <- 0.56*y
fimse
escreval ("O valor ", x, " na escala ", escala2, " é de ", valorf)
fimalgoritmo
21)
var
nome : caracter
x, y, h, d, salariobruto : inteiro
inss, ir, impostos, salarioliq : real
inicio
// Seção de Comandos
escreval ("Entre com o nome: ")
leia (nome)
escreval ("Entre com o numero de horas trabalhadas: ")
leia (h)
escreval ("Entre com o numero de dependentes: ")
leia (d)
x <- h*12
y <- d*40
salariobruto <- x+y
inss <- 0.085*salariobruto
ir <- 0.05*salariobruto
impostos <-inss+ir
salarioliq <- salariobruto-impostos
escreval ("O salario bruto de ", nome, " é ", salariobruto)
escreva ("O valor descontado de inss é ", inss)
escreval (" e o valor descontado de ir é ", ir)
escreval ("O salario liquido de ", nome, " é ", salarioliq)
fimalgoritmo
22)
var
x, valor, maiorvalor : inteiro
inicio
// Seção de Comandos
maiorvalor <- 0
x <- 0
escreval ("Valores:")
repita
leia (valor)
se (valor>maiorvalor) entao
maiorvalor <- valor
x <- x+1
fimse
se (valor=-1) entao
interrompa
fimse
fimrepita
escreva ("O maior numero de impulsos foi: ", maiorvalor, " e ", x)
escreval (" clientes atingiram esse valor")
fimalgoritmo