Engenharia

Disponível somente no TrabalhosFeitos
  • Páginas : 6 (1449 palavras )
  • Download(s) : 0
  • Publicado : 21 de novembro de 2012
Ler documento completo
Amostra do texto
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 emEXCEL-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_SUPERIORThen
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 emEXCEL-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 ALTURAde uma pessoa, calcule e retorne o IMC (Índice de Massa Corporal), que é calculado segundo a fórmula:
IMC = peso / (altura * altura)

Function imc(peso, altura)

imc = peso / (altura * altura)

End Function

8) Crie uma função em EXCEL-VBA que receba como parâmetro um número e retorne uma das seguintes mensagens: "O NÚMERO É PAR" ou "O NÚMERO ÉÍMPAR"

Function teste_numeros(numero)
If (numero And 1) = 0 Then
teste_numeros = "O NÚMERO É PAR"
Else
teste_numeros = "O NÚMERO É IMPAR"
End If
End Function

9) Crie uma função em EXCEL-VBA que receba como parâmetro o RAIO de uma esfera e calcule o VOLUME da esfera. Utilize a seguinte fórmula para determinar o volume: VOLUME = (4/3) * PI * RAIO^3

Function volumesfera(a)
volumesfera =(4 / 3) * 3.141592654 * a ^ 3
End Function

10) Crie uma função em EXCEL-VBA que receba como parâmetro dois números a e b e devolve o MDC (Máximo Divisor Comum) de a e b.
Function mdc(a As Integer, b As Integer)
If a > b Then mdc = mdc(a - b, b)
If b > a Then mdc = mdc(a, b - a)
If a = b Then mdc = a
End Function

11) Crie uma função em EXCEL-VBA que receba como parâmetro doisnúmeros a e b e devolve o MMC (Mínimo Múltiplo Comum) de a e b.

12) Crie uma função em EXCEL-VBA que receba como parâmetro as coordenadas X e Y de dois pontos e calcule a distância entre estes dois pontos.

Function coordenadas(a, b, c, d)
coordenadas = ((c - a) ^ 2 + (d - b) ^ 2) ^ 0.5
End Function

13) Crie uma função em EXCEL-VBA que receba como parâmetros quatro números inteiros,calcule e retorne a soma desses números.

Function numeros_int(a, b, c, d)
Números_int = (a + b + c + d)
End Function

14) Crie uma função em EXCEL-VBA que receba como parâmetros três notas, calcule e retorne a média aritmética entre elas.
Function mediarit3(a, b, c)
mediarit3 = (a + b + c) / 3
End Function

15) Crie uma função em EXCEL-VBA que receba como parâmetro o salário de um...
tracking img