Exercícios resolvidos Programação de Computadores

1. Um comerciante Calcula o valor da venda, tendo em vista a seguinte tabela:
Valor da Compra Valor da venda
Valor < R$ 10,00 Lucro de 70%
R$ 10,00 <= valo<= R$ 300,00 Lucro de 50%
R$ 30<= valor<=50,00 Lucro de 40%
Valor >= R$ 50,00 Lucro de 30
Desenvolver um programa que entre com o valor da compra e calcule e exiba o valor da venda;

2. Desenvolva um algoritmo que calcule o valor de da seguinte função 1, x ≤ 1 2, 1 < x ≤ 2
F(x)=f(x)=
x², 2 < x ≤ 3 …exibir mais conteúdo…

s

Exercício 1
Sub compra_venda()
Dim compra As Single
Dim venda As Single compra = InputBox("digite o valor da compra")
If compra < 10 Then venda = compra * 0.7
Else
If compra >= 10 And compra < 30 Then venda = compra * 0.5
Else
If compra >= 30 And compra < 50 Then venda = compra * 0.4
Else
venda = compra * 0.3
End If
End If
End If
MsgBox ("valor do lucro da venda=") & venda
End Sub

Exercício 2
Sub função_x()
Dim x As Single
Dim função_x As Single x = InputBox("digite o valor de x")
If x <= 1 Then função_x = 1
Else
If x > 1 And x <= 2 Then função_x = 2
Else
If x > 2 And x <= 3 Then função_x = x ^ 2
Else
função_x = x ^ 3
End If
End If
End If
MsgBox ("valor da função_x é=") & função_x
End Sub

Exercício 3
Sub calculo_do_peso()
Dim peso As Single
Dim altura As Single
Dim IMC As Single
Dim mensagem As String peso = InputBox("digite o peso") altura = InputBox("digite a altura")
IMC = (peso / (altura ^ 2))
If IMC < 20 Then mensagem = ("abaixo do peso")
Else
If IMC >= 20 And IMC <= 25 Then mensagem = ("normal")
Else
If IMC > 25 And IMC <= 30 Then mensagem = ("excesso de peso")
Else
If IMC > 30 And IMC <= 35 Then mensagem = ("obesidade")
Else
If IMC > 35 Then mensagem = ("obesidade morbida")
End If
End If
End If
End If
End If
MsgBox ("valor do IMC é") & IMC & ("fator de risco :") & mensagem
End Sub

Exercício 4
Sub