forked from josedom24/curso_programacion
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathejercicio16.psc
35 lines (34 loc) · 1.76 KB
/
ejercicio16.psc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
//################################################################################
//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 hacer un algoritmo
//para 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.
//################################################################################
//Análisis
//Hay que saber la velocidad de cada vehículo, y la distancia entre ambos
//Hay que calcular el tiempo que tardará el que está detrás (y va más rápido)
//alcanzar al primero.
//Datos de entrada: velocidad1, velocidad2 km/h (real) y distancia (real).
//Información de salida: Tiempo en minutos (real)
//Variables: velocidad1, velocidad2, distancia (real), tiempo (real).
//################################################################################
//Diseño
//1. Leer las dos velocidades y la distancia (no puedo controlar que v1 > v2.
//2. Calcular tiempo: (v=s/t), por lo tanto t=s/v. Tiempo = distancia / (v1-v2)
//3. El tiempo hay que pasarlo a minútos
//4. Mostrar tiempo
//################################################################################
Proceso CalcularAdelantamiento
Definir velocidad1,velocidad2,distancia,tiempo como Real;
Escribir Sin Saltar "Dime la velocidad del coche 1 (km/h):";
Leer velocidad1;
Escribir Sin Saltar "Dime la velocidad del coche 2 (más pequeña)(km/h):";
Leer velocidad2;
Escribir Sin Saltar "Dime la distancia entre los coches (km):";
Leer distancia;
tiempo <- distancia / (velocidad1 - velocidad2);
tiempo<- tiempo * 60;
Escribir "Lo alcanza en ",tiempo, " minutos.";
FinProceso