Italo Alves Dos Santos Exercicio 4
Italo Alves Dos Santos Exercicio 4
Italo Alves Dos Santos Exercicio 4
R:
Programa preço do carro
var
carroNovo : real
custo fabricacao : real
distribuidor : real
imposto : real
distribuidor e imposto 1 : real
distribuidor e imposto 2 : real
distribuidor e impostoFinal : real
Inicio
escreva("Custo de fábrica: ")
leia(custodeabricacao)
escreva(“valor do imposto”)
leia(imposto <- 0.45)
escreva(“valor do distribuidor”)
leia(distribuidor <- 0.28)
escreva(“custo de fabrica é:”)
leia
distribuidorEimposto1 <- custoFabricacao * imposto
distribuidorEimposto2 <- custoFabricacao * distribuidor
distribuidorEimpostoFinal <- distribuidorEimposto1 + distribuidorEimposto2
carroNovo <- distribuidorEimpostoFinal + custoFabricacao
escreva("Esse é o custo do consumidor: ", carroNovo)
fim
2) . Um sistema de equações lineares do tipo:
R:
algoritmo: "calcule a,b,c,d,t,f,x e y
var
a,b,c,d,t,f,x,y:real
início
escreva("digite a")
leia(a)
escreva("digite b")
leia(B)
escreva("digite c")
leia(c)
escreva("digite d")
leia(d)
escreva("digite t")
leia(t)
escreva("digite f")
leia(f)
escreva("digite x")
leia(x)
Escreva("digite y")
leia(y)
x<-(((c*e)-(b*f))/(a*e)-(b*d)))
y<-(((a*f)-(c*d))/((a*e)-(b*d)))
escreva(“resultado”, x,y)
fimalgoritmo
3) Escreva um algoritmo que leia 3 números inteiros e mostre o maior
deles.
R:
Algoritmo Maior
Var
A, B, C, Menor: Inteiro
Inicio
Leia ( A,B,C)
Se (A > B) E (A >C)
Entao Maior -> A
Senao
Se (B > C) e (B>A)
Entao Maior -> B
Senao
Maior -> C
Fim se
Fim se
Escreva (Maior)
Fim
4) Escreva um algoritmo que leia o código de um aluno e suas três notas.
Calcule a média ponderada do aluno, considerando que o peso para a
maior nota seja 4 e para as duas restantes, 3. Mostre o código do aluno,
suas três notas, a média calculada e uma mensagem "APROVADO" se a
média for maior ou igual a 5 e “REPROVADO" se a média for menor que 5.
R:
var
n1,n2,n3 : real
maior,menor,x,mp : real
codigo : inteiro
inicio
Seção de Comandos
menor <- -1
maior <- 0
leia(codigo)
leia (n1,n2,n3)
menor <- n1
fimse
menor <- n2
fimse
se (n3 < menor) entao
menor <- n2
fimse
maior <- n1
fimse
maior <- n2
fimse
maior <- n3
fimse
mp <- x / 10
escreva
se (mp>=5) entao
escreva("Aluno aprovado")
senao
escreva("Aluno reprovado")
fimse
fimenquanto
fimalgoritmo
5). O cardápio de uma lancheria é o seguinte:
Especificação Código Preço
var
x: inteiro
Q, total: real
codigo: vetor [1..6] de inteiro
preço: vetor [1..6] de real
inicio
Q <- 0
escreva ("quant", Q)
leia (Q)
Q <- 0
fimpara
fimalgoritmo
R:
var
altura :inteiro
sexo : caractere
feminino :real
masculino:real
peso :real
inicio
escreva("Informe a altura:")
leia(altura)
escreva("Informe o sexo:")
leia(sexo)
se sexo="M" então
peso:=(72.7*altura)-58
escreva("peso ideal é",peso)
senao
peso:=(62.1*altura)-44.7
escreva("peso ideal é",peso)
fimse
fimalgoritmo
R:
Algoritmo "Crédito"
Var
Saldo, valor: Real
Início
Escreva ("Bem vindo ao banco")
Escreva ("Digite o saldo desejado")
Leia (saldo);
Se (saldo > = 0) e (saldo < = 200) Então
Escreva ("Você não tem crédito para a operação")
Fim se
Se (saldo > = 201) e (saldo < = 400) Então
valor ← (saldo*0,2)
Escreva ("O seu limite de crédito é:"valor)
Fim se
Se (saldo > = 401) e (saldo < = 600) Então
valor ← (saldo*0,3)
Escreva ("O seu limite de crédito é:"valor)
Se (saldo > = 601) Então
Escreva ("O seu limite de crédito é:"valor)
Fim se
Fim se
Fim