Option Explicit

Páginas: 3 (721 palabras) Publicado: 18 de mayo de 2015
Option Explicit
'Ejercicio 10 Taller 3
'IN: peso (real), altura (real), número de personas (entero)
'OUT: IMC (real), mensaje
'P: IMC = peso / altura
Sub EvaluarIMC()
Dim peso As Double
Dimaltura As Double
Dim NumPersonas As Integer
Dim IMC As Double
Dim cont As Integer

NumPersonas = Cells(1, 1)
For cont = 1 To NumPersonas
peso = InputBox("Digite el peso (Kg):")'Validar peso
If peso <= 0 Then
MsgBox "El peso debe ser positivo", vbCritical + vbOKOnly, "ERROR"
Else
altura = InputBox("Digite la altura (m):")
'Validaraltura
If altura <= 0 Then
MsgBox "La altura debe ser positiva", vbCritical + vbOKOnly, "ERROR"
Else
'Evaluar el IMC
IMC = peso / altura ^ 2If IMC >= 18 And IMC <= 25 Then
MsgBox "Es saludable. IMC = " & IMC
Else
MsgBox "No es saludable. IMC = " & IMC
End If
End IfEnd If
Next cont

End Sub

2

'En cierto club de pesca se debe diseñar un algoritmo que lea el peso total (en kilos)
'de las presas pescadas por cada usuario (se debe leer cuántos usuariosentraron al club ese día)
'y que al momento de pagar le imprima un mensaje con el valor de su factura de acuerdo a la
'siguiente tabla:
'Peso (Kilos) Valor por kilo
'5 o menos $1800
'Entre5.1 y 10 $1200
'Más de 10 $ 900
'Así mismo, se debe imprimir:
'1. El total facturado
'2. El peso total del día
'3. Cuántos pescaron más de 10 Kg
'4. Cuántos pescaron entre 3 y 7 Kg
''ANÁLISIS:
'IN: Peso pescado por usuario (real), número de usuarios (entero)
'OUT: total facturado día (real), peso total día (real),
' Contador más de 10 Kg (entero), Contador entre 3 y 7 Kg (entero)
'P:contador (entero)
Option Explicit

Sub pesca()
Dim pesoPesca As Double
Dim facturaUsuario As Double
Dim usuarios As Integer
Dim totalFacturado As Double
Dim pesoTotal As...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Option
  • Option one
  • EXPLICITO E IMPLICITO
  • No option
  • funciones explicitas
  • que es sujeto explicito
  • Conocimiento explicito
  • Tareas explicitas

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS