• Lenguaje

    Pascal

  • Descripción

    Se requiere determinar el tiempo que tarda una persona en llegaren llegar de una ciudad a otra en bicicleta, considerando que lleva una velocidad constante.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program TiempoEnLlegarEnBicicleta;
uses crt;

var distancia_en_km, tiempo_en_h, velocidad_en_km_por_h : real;
begin
    write ('Ingresa el valor de distancia en km: ');
    readln (distancia_en_km);
    write ('Ingresa el valor de velocidad en km por h: ');
    readln (velocidad_en_km_por_h);
    tiempo_en_h := distancia_en_km/velocidad_en_km_por_h;
    writeln ('Valor de tiempo en h: ', tiempo_en_h:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.