Engenharia

TRABALHO DE ALGORITMOS 2

1) Crie uma função em EXCEL-VBA que receba como parâmetros um valor em Dólares (US$) e a cotação do Dólar em Reais. A função retornará o valor convertido em Reais (R$).

Function convertdolar(dolares, cotaçao)

convertdolar = dolares * cotaçao End Function
2) Crie uma função em EXCEL-VBA que receba como parâmetros dois valores e retorne o maior valor.

Function MaiorValor(Valor1, Valor2)
If Valor1 >= Valor2 Then
MaiorValor = Valor1
Else
MaiorValor = Valor2
End If
End Function

3) Crie uma função em EXCEL-VBA que receba como parâmetros dois valores e retorne o menor valor.

Function MenorValor(Valor1, Valor2)
If Valor1 <= Valor2 Then
MenorValor = Valor1
Else
MenorValor = Valor2
End If
End Function

4) Crie uma função em EXCEL-VBA que receba como parâmetros três números (VALOR, INTERVALO_INFERIOR, INTERVALO_SUPERIOR) e retorne a mensagem "NO INTERVALO" se o VALOR for maior que INTERVALO_INFERIOR e menor que INTERVALO_SUPERIOR, caso contrário retorne a mensagem "FORA DO INTERVALO"

Function Numeros(VALOR, INTERVALO_INFERIOR, INTERVALO_SUPERIOR)
If VALOR > INTERVALO_INFERIOR And VALOR <= INTERVALO_SUPERIOR Then
Numeros = "No Intervalo"
Else
Numeros = "FORA DO INTERVALO"
End If
End Function

5) Crie uma função em EXCEL-VBA que receba como parâmetro um número e retorne uma das seguintes mensagens: "MENOR QUE ZERO" "IGUAL A ZERO" "MAIOR QUE ZERO"

Function numero(a)
If a >= 0 Then numero = "maior que zero"
Else
numero = "menor que zero"
End If
End Function

6) Crie uma função em EXCEL-VBA que receba como parâmetros dois valores e retorne uma das seguintes mensagens: "OS VALORES SÃO IGUAIS" ou "OS VALORES SÃO DIFERENTES"

Function iguais_diferentes(a, b)
If a = b Then
Iguais_diferentes = "os valores sao iguais "
Else
Iguais_diferentes = "os valores sao diferentes"
End If
End Function

7) Crie uma função em EXCEL-VBA que receba como parâmetros o PESO e a ALTURA