Exercícios VisualG

Prévia do material em texto

Construa um algoritmo que calcule a média aritmética entre quatro notas bimestrais quaisquer fornecidas pelo usuário
algoritmo
var
real: N1, N2, N3, N4, MA // notas bimestrais e média
inicio
leia (N1)
leia (N2)
leia (N3)
leia (N4)
MA <- (N1 + N2 + N3 + N4) / 4
escreva (MA)
fimalgoritmo
Construa um algoritmo que calcule a quantidade de latas de tinta necessárias e o custo para pintar tanques cilíndricos de combustível, em que são fornecidos a altura e o raio desse cilindro.
Sabendo-se que:
A lata de tinta custa R$ 50,00
Cada lata contém 5 litros
Cada litro de tinta pinta 3 metros quadrados
Dados de entrada: altura (H) e raio (R)
Dados de saída: custo (C) e quantidade (Qtde)
algoritmo
var
h, r: real
c, qtde, area, litro: real
inicio
leia (h)
leia (r)
area <- (3,14 * pot(r,2)) + (2 * 3,14 * r * h)
litro <- area/3
qtde <- litro/5
c <- qtde * 50
escreva (c)
escreva (qtde)
fimalgoritmo
Construa um algoritmo para calcular as raízes de uma equação do 2º grau (ax2 + bx + c), sendo que os valores de “a”, “b” e “c” são fornecidos pelo usuário.
algoritmo
var
a, b, c :real //coeficientes da equação
d :real 		//delta
x1, x2: real //raízes
inicio
leia(a)
leia(b)
leia(c)
d <- pot(b,2) – 4 * a * c
x1 <- (-b + rad(d)) / (2 * a)
x2 <- (-B – rad(d)) / (2 * a)
escreva(“Primeira raiz = “, x1)
escreva(“Segunda raiz = “, x2)
fimalgoritmo
Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer do plano, P(x1, y1) e Q(x2, y2), imprima a distancia entre eles.
A fórmula que efetua tal cálculo é: 
d = rad( pot(x2 – x1, 2) + pot(y2 - y1, 2) )
algoritmo
var
d :real //distância
x1, x2, y1, y2 :inteiro //pontos
inicio
leia(x1)
leia(y1)
leia(x2)
leia(y2)
d <- rad(pot(x2 – x1, 2) + pot(y2 – y1, 2))
escreva(“Distância = “, d)
fimalgoritmo
Faça um algoritmo para calcular o volume de uma esfera de raio R, em que R é um dado fornecido pelo usuário. O volume de uma esfera é dado por V = 4/3 ( R3
algoritmo
var
r, v :real
inicio
leia(r);
v <- 4/3 x 3,14 x pot(r, 3);
escreva (“Volume = ”, v);
fimalgoritmo
 
�
Sabendo-se que 100 quilowatts de energia custa um sétimo do salário mínimo, desenvolver um algoritmo que receba o valor do salário mínimo e a quantidade de quilowatts gasta por uma residência e calcule e imprima:
O valor em reais de cada quilowatt.
O Valor em reais a ser pago.
O valor a ser pago por essa residência caso seja concedido um desconto de 10%.
algoritmo
var
salmin, qtdkwatt, preco, valpago, valdesc: real
inicio
escreval("Entre com o salário mínimo: ")
leia(salmin)
escreva("Entre com a quantidade de quilowatts: ")
leia(qtdkwatt)
//divide por 7 para achar o preço de 100Kwatts e por 100 //para achar de 1Kw
preco <- salmin/700
valpago <- preco * qtdkwatt
valdesc <- valpago * 0.9
escreval("Preço do Quilowatt: ", preco)
escreval("Valor a ser pago: ", valpago)
escreval("Valor com desconto: ", valdesc)
fimalgoritmo