algoritimo

Páginas: 5 (1225 palavras) Publicado: 26 de maio de 2014
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 INTERVALO_INFERIOR And VALOR = 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 ALTURA de umapessoa, 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 Function10) Crie uma função em EXCEL-VBA quereceba 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 dois números a e b e devolve o MMC (Mínimo Múltiplo Comum) de ae 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.

Functionnumeros_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 funcionário, calcule e retorne o novo salário, sabendo-se queeste sofreu um aumento de 25%.

Function incremento25porcento(a)
incremento25porcento = a + (a * 0.25)
End Function

16) Crie uma função em EXCEL-VBA que receba como parâmetros a base e a altura de um triângulo, calcule e retorne a área do triângulo.

Functionarea_triangulo(base, altura)
area_triangulo = (base * altura) / 2
End Function

17) Crie uma função em EXCEL-VBA que recebacomo parâmetro o raio de um círculo, calcule e retorne a área do círculo.

Function area_circulo(r)
area_circulo = 3.14 * r * r
End Function

18) Crie uma função em EXCEL-VBA que receba como parâmetros os valores da posição inicial (So), da velocidade inicial (Vo) e da aceleração (a) e do tempo após a partida (t) de um automóvel em M.U.V., calcule e retorne a sua posição S.

Function...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • Algoritimo
  • Algoritimos
  • Algoritimo
  • algoritimos
  • algoritimos
  • Algoritimo
  • Algoritimo
  • Algoritimo

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!