aprenderaprogramar.com

Ángulos: Mínimo 0º, Máximo 20º

Alturas: Mínima 0 m, Máxima 3 m

Velocidades: 40, 50, 60, 70 y 80 Km/h

α = ···

h = ···

V (Km/h)

Avance (m)

40

···

50

···

60

···

70

···

80

···

PROGRAMA PARABOLICO

Variables

Enteras: E, Vo, Vf, Inc

Reales: Pi, g, alfa, h

1. Inicio

2. Pi = 3,1415926 : g = 9,81 [g en m/s²]

3. Vo = 40 : Vf = 80 : Inc = 10

4. Mientras E <> 3 Hacer

Mostrar “1. Introducir datos

2. Ver resultados

3. Salir

Elija opción”

Pedir E

Si E = 1 Entonces

Llamar EntrarDatos

FinSi

Si E = 2 y alfa > 0 ó E = 2 y h > 0 Entonces

Llamar Calcular(alfa,h) PorValor

FinSi

Si E = 2 y alfa = 0 y h = 0 Entonces

Mostrar “Debe introducir datos”

FinSi

Repetir

5. Fin

Módulo EntrarDatos

1. alfa = 0 : h = 0

2. Mientras alfa <= 0 y h <= 0 Hacer

Mostrar “Introduzca un ángulo entre 0 y 20º”

Pedir alfa

Mostrar “Introduzca una altura entre 0 y 3 m”

Pedir h

Si alfa < 0 ó alfa > 20 ó h < 0 ó h > 3 ó alfa = 0 y h = 0 Entonces

alfa = 0

h = 0

Mostrar “Datos no válidos. Introduzca datos válidos”

SiNo

Mostrar “Sus datos son a =”, alfa, “h =”, h,”m”

FinSi

Repetir

FinMódulo

Módulo Cuadratica

Variables

Reales: d, e

1. [Ecuación cuadrática ax² + bx + c = 0]

2. [a < 0 siempre; b ³ 0 siempre; c ³ 0 siempre]

3. d = b ^ 2 – 4 * a * c [d > 0 siempre]

4. e = 2 * a [e > 0 siempre]

5. x = (– b – SQR(d)) / e

FinMódulo

Módulo Calcular(angulo, altura: Reales)

Variables

Enteras: i

Reales: a, b, c, x, tb, dist

1. angulo = angulo * Pi / 180 [Paso del ángulo a radianes]

2. [Parámetros a, b, c, de ax² + bx + c = 0]

3. [Ecuación (- ½) · g · (t_B)² + V_o·sen a · t_B + h = 0]

4. a = (- 1 / 2) * g

5. c = altura [valor de h]

6. Desde i = Vo hasta Vf Paso = Inc Hacer

b = (i / 3,6) * SIN(angulo) [3,6 pasa Km/h a m/s]

Llamar Cuadratica

tb = x

dist = (i / 3,6) * COS(angulo) * tb [3,6 pasa Km/h a m/s]

Mostrar “alfa=”, alfa, “º”

Mostrar “V (Km/h) =”, i

Mostrar “h (m) =”, h

Mostrar “t (s) =”, tb

Mostrar “d (m) =”, dist

Siguiente

FinMódulo