Programación Calcular el área de 1 triangulo conociendo la altura y la base
Enviado por nahn • 23 de Enero de 2016 • Trabajos • 689 Palabras (3 Páginas) • 98 Visitas
Programación II (27/07/2015)
Ejercicio 1: Calcular el área de 1 triangulo conociendo la altura y la base.
Option Explicit
Sub Area()
Dim Area As Single, Altura As Single, Base As Single
Base = InputBox("Cual es la Base")
Altura = InputBox("Altura del Triangulo")
Area = Base * Altura / 2
MsgBox "Area=" & Area
End Sub
Ejercicio 2: Leer un número:
Multiplicarlo por 2
Sumarle 5
Dividirlo 5 (entero y real)
Elevarlo al cubo
Obtener el módulo de 7
Option Explicit
Sub Area()
Dim Area As Single, Altura As Single, Base As Single
Base = InputBox("Cual es la Base")
Altura = InputBox("Altura del Triangulo")
Area = Base * Altura / 2
MsgBox "Area=" & Area
End Sub
Sub dos()
Dim Num As Integer, res As Integer, r As Double
Num = InputBox(" Ingrese un Numero entero")
res = Num * 2
Debug.Print Num; "* 2 = "; res
res = Num + 5
Debug.Print Num; "+5 = "; res
r = Num / 5
Debug.Print Num; "/ 5= "; r
res = Num / 5
Debug.Print Num; "\5= "; res
r = Num ^ 3
Debug.Print Num; "* ^ 3 ="; r
res = Num Mod 7
Debug.Print Num; "* mod 7 = "; res
End Sub
Ejercicio 3: Leer un número y determinar si es par o impar
Sub par()
Dim N As Integer
N = InputBox ("Ingrese un numero ")
If N Mod 2 = 0 Then
Debug.Print N, "Es par"
Else
Debug.Print N, " Es impar"
End If
End Sub
Ejercicio 4: Leer la edad de una persona y determinar si es niño, joven o adulto
Niño <=16
Joven 17-30
Adulto > 30
Sub Edad()
Dim Edad As Integer, Clasif As String
Edad = InputBox("Ingrese la Edad")
If Edad <= 16 Then
Clasif = "Ni´o"
Else
If Edad >= 17 And Edad <= 30 Then
Clasif = "Joven"
Else
Clasif = "Adulto"
End If
End If
Debug.Print " con la edad"; Edad; "se clasfica como"; Clasif
End Sub
...