PROGRAMA PARA CALCULAR LA VELOCIDAD FINAL

STORE O TO VF,VO,A,TRESP="S"DO
WHILE (RESP="S")
CLEAR@5,5 SAY "
INTRODUCE EL VALOR DE LA VELOCIDAD INICIAL" GET VOREAD@6,5 SAY "INTRODUCE EL VALOR DE LA ACELERACION"
GET AREAD@7,5 SAY "INTRODUCE EL VALOR DE TIEMPO" GET TREADVF=VO+A*T@8,5 SAY "VELOCIDAD FINAL="@8,12 SAY VF@8,30 SAY "M/SEG2"WAIT "DECEA OTROS CALCULOS/N?" TO RESPRESP=UPPER(RESP)ENDDOWAIT WINDOW "FIN DEL PROGRAMA"