c:/gdsf/web/fuentes_pascal/tiro

PROGRAM EJER28B;

USES CRT;
CONST gravedad = 9.81;
VAR velocidad0, tiempo, velocidadfinal : REAL;
BEGIN
{Este programa sirve para calcular la velocidad instantanea
de un cohete}
CLRSCR;
WRITE ('PARA CALCULAR LA VELOCIDAD DE UN COHETE EN UN INSTANTE, ');
WRITELN ('INTRODUZCA LOS DATOS:');
WRITELN (' ');
WRITE ('INTRODUZCA LA VELOCIDAD INICIAL: ');
READLN (velocidad0);
WRITE ('INTRODUZCA EL TIEMPO:');
READLN (tiempo);
WRITELN (' ');
velocidadfinal := velocidad0 - (gravedad * tiempo);
IF velocidadfinal <= 0 THEN
     WRITE ('El cohete ya se ha parado.');
IF velocidadfinal > 0 THEN
     WRITE ('La velocidad final es de: ');
IF velocidadfinal > 0 THEN
     WRITE (velocidadfinal : 4 : 2);
IF velocidadfinal > 0 THEN
     WRITE (' m/s.');
END.