• 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
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.