-
Lenguaje
Pascal
-
Descripción
Construya un algoritmo que calcule el tiempo de encuentro de dos automóviles que van en sentido contrario, si se conoce la distancia y la velocidad de los dos móviles.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program TiempoDeEncuentroDeDosAutomoviles;
uses crt;
var distancia, tiempo, velocidad_1, velocidad_2 : real;
begin
write ('Ingresa el valor de distancia: ');
readln (distancia);
write ('Ingresa el valor de velocidad 1: ');
readln (velocidad_1);
write ('Ingresa el valor de velocidad 2: ');
readln (velocidad_2);
tiempo := distancia/(velocidad_2/velocidad_1+1)/velocidad_1;
writeln ('Valor de tiempo: ', tiempo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var distancia, tiempo, velocidad_1, velocidad_2 : real;
begin
write ('Ingresa el valor de distancia: ');
readln (distancia);
write ('Ingresa el valor de velocidad 1: ');
readln (velocidad_1);
write ('Ingresa el valor de velocidad 2: ');
readln (velocidad_2);
tiempo := distancia/(velocidad_2/velocidad_1+1)/velocidad_1;
writeln ('Valor de tiempo: ', tiempo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.