-
Lenguaje
Pascal
-
Descripción
Dos vehículos viajan a diferentes velocidades (v1 y v2) y están distanciados por una distancia d. El que está detrás viaja a una velocidad mayor. Se pide ingresar la distancia entre los dos vehículos (km) y sus respectivas velocidades (km/h) y con esto determinar y mostrar en que tiempo (minutos) alcanzará el vehículo más rápido al otro.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program TiempoEnAlcanzarUnVehiculo;
uses crt;
var d, tiempo, v1, v2 : real;
begin
write ('Ingresa el valor de d: ');
readln (d);
write ('Ingresa el valor de v1: ');
readln (v1);
write ('Ingresa el valor de v2: ');
readln (v2);
if v1>v2 then
begin
tiempo := d*60/(v1-v2);
end
else
begin
tiempo := d*60/(v2-v1);
end;
writeln ('Valor de tiempo: ', tiempo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var d, tiempo, v1, v2 : real;
begin
write ('Ingresa el valor de d: ');
readln (d);
write ('Ingresa el valor de v1: ');
readln (v1);
write ('Ingresa el valor de v2: ');
readln (v2);
if v1>v2 then
begin
tiempo := d*60/(v1-v2);
end
else
begin
tiempo := d*60/(v2-v1);
end;
writeln ('Valor de tiempo: ', tiempo:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.