c:/gdsf/web/fuentes_pascal/velocidad

PROGRAM EJER27B;

USES CRT;
VAR velocidad0, aceleracion, tiempo, velocidadfinal : REAL;
VAR vinstantanea, vmedia : REAL;
BEGIN
CLRSCR;
WRITE ('ESCRIBA EL VALOR DE LA VELOCIDAD INICIAL, LA ACELERACION');
WRITE (' Y EL TIEMPO, EN UNIDADES DEL SISTEMA INTERNACIONAL,');
WRITE (' PARA CALCULAR LA VELOCIDAD INSTANTANEA');
WRITELN (' ');
WRITELN (' ');
WRITE ('Velocidad inicial: ');
READLN (velocidad0);
WRITE ('Aceleracion: ');
READLN (aceleracion);
WRITE ('Tiempo: ');
READLN (tiempo);
WRITELN ('');
vinstantanea := velocidad0 + (aceleracion * tiempo);
IF vinstantanea > 0 THEN
     WRITE ('LA VELOCIDAD INSTANTANEA ES DE: ', vinstantanea : 5 : 2, ' m/s')
ELSE
     WRITE ('EL COCHE ESTA PARADO.');
WRITELN ('');
IF vinstantanea < 0 THEN
     WRITE ('NO SE PUEDE HALLAR AL ESTAR PARADO');
IF vinstantanea > 0 THEN
     WRITE ('Si desea saber la velocidad media introduzca la velocidad final: ');
READLN (velocidadfinal);
WRITE ('');
WRITELN ('');
vmedia := (velocidad0 + velocidadfinal) / 2;
WRITE ('LA VELOCIDAD MEDIA ES DE: ', vmedia : 5 : 2);
WRITELN (' m/s');
END.