Store 0 to vf,vo,a,t
resp="vf"
do while (resp="vf")
Clear
@5,5 say "Introduce la velocidad inicial" get vo
read
@6,5 say "Introduce la aceleracion" get a
read
@7,5 say "Introduce el tiempo" get t
read
vf=vo+a*T
@8,5 say "Velocidad final="
@8,12 say vf
@8,20 say "m/seg"
wait "desea otro calculo s/n" to resp
resp=upper (resp)
enddo
wait window "fin del programa"
Suscribirse a:
Enviar comentarios (Atom)
No hay comentarios:
Publicar un comentario