-
Lenguaje
Pascal
-
Descripción
Diseñe un programa de caída libre que calcule. Un cuerpo cae libremente desde el reposo durante n segundos hasta llegar al suelo. Calcular la distancia que ha recorrido, o lo que es lo mismo, la altura desde donde se soltó.
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
program DistanciaEnCaidaLibre;
uses crt;
var distancia_en_m, n_segundos : real;
begin
write ('Ingresa el valor de n segundos: ');
readln (n_segundos);
distancia_en_m := 9.8*n_segundos*n_segundos/2;
writeln ('Valor de distancia en m: ', distancia_en_m:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var distancia_en_m, n_segundos : real;
begin
write ('Ingresa el valor de n segundos: ');
readln (n_segundos);
distancia_en_m := 9.8*n_segundos*n_segundos/2;
writeln ('Valor de distancia en m: ', distancia_en_m:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.