PROGRAMA PARA EVALUAR LA EXPRESION: vf=vo+T

- STORE 0 TO VF,VO,A,T,
- DO WHILE (RESP="S")
- CLEAR
-@ 5,7 SAY "INTRODUCE EL VALOR DE LA VELOCIDAD INICIAL" GET VO
- READ
-@ 6,8 SAY "INTRODUCE EL VALOR DE LA ACELERACION" GET A
- READ
-@ 7,8 SAY "INTRODUCE EL VALOR DE TIEMPO" GET TREAD
- vf=vo+a*T
-@ 9,7 SAY "VELOCIDAD FINAL="
-@ 9,17 SAY VF
-@ 9,35 SAY "M/SEG2
-WAIT "DECEA OTROS CALCULOS/N?" TO RESP
-RESP=UPPER(RESP)
-ENDDO
-WAIT WINDOW "FIN DEL PROGRAMA"