-
Lenguaje
Pascal
-
Descripción
La distancia alcanzada por un proyectil lanzado con una velocidad inicial v0 y un ángulo θ, está dada por:
x = 2 v0 2 sen θ cos θ/g
donde g = 9.81 m/s2 , es la constante de la gravedad.
Escribir el pseudocódigo para un programa que tabule la distancia alcanzada por un proyectil para los ángulos de 0 a 90 grados con incrementos de 5 grados.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program DistanciaAlcanzadaPorUnProyectil;
uses crt, math;
var i : integer;
var angulo_en_grados, angulo_en_radianes, distancia, velocidad_inicial : real;
begin
for i:=1 to 18 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de velocidad inicial: ');
readln (velocidad_inicial);
angulo_en_grados := (i-1)*5;
angulo_en_radianes := angulo_en_grados*PI/180;
distancia := 2*velocidad_inicial*sin(angulo_en_radianes)*cos(angulo_en_radianes)/9.81;
writeln ('Valor de angulo en grados: ', angulo_en_grados:0:6);
writeln ('Valor de angulo en radianes: ', angulo_en_radianes:0:6);
writeln ('Valor de distancia: ', distancia:0:6);
writeln;
end;
end.
uses crt, math;
var i : integer;
var angulo_en_grados, angulo_en_radianes, distancia, velocidad_inicial : real;
begin
for i:=1 to 18 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de velocidad inicial: ');
readln (velocidad_inicial);
angulo_en_grados := (i-1)*5;
angulo_en_radianes := angulo_en_grados*PI/180;
distancia := 2*velocidad_inicial*sin(angulo_en_radianes)*cos(angulo_en_radianes)/9.81;
writeln ('Valor de angulo en grados: ', angulo_en_grados:0:6);
writeln ('Valor de angulo en radianes: ', angulo_en_radianes:0:6);
writeln ('Valor de distancia: ', distancia:0:6);
writeln;
end;
end.