PROGRMAS PARA EVALUAR LA EXPRECION DE VF=V0+AT

- 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"

COMO CONVINAR UN CICLO DO Y UNA INSTRUCCION IF/ELSE

-use c\learnfox\emplist
-clear-
?
-wait " do you want the names capitalized (y/n) to yes no
-?
-do while.not.eof()
-if upper (yes/no)="y"
-?upper(trim(fname)+" "iname)
-else
-?proper(trim(fname)+" "iname)
-end if
-skip
-end do
-?
-use
-wait

PROGRAMA PARA HACER UN CICLO EN LA BASE DE DATOS

use:\learnfox\emplist
-clear
-?
-?
-do while.not.eof()
-? proper(trim(frame)+""+iname)
-end do
-?
-use
-wait

PROGRAMA DE VENTAS

1.-modi comm productos
-store space (30) to producto
-store space (10) to peso
-store space (10) to precio
-store space (4) to codigo
-store space (10) to marca
-store 0 to precio
-store 0 to cantidad
-cod=space (4)
-use productos
-clear
-@ 5,5 say "introdusca el codigo" get cod
-read
-locate for cod=codigo
-@ 8,5 say "introdusca la cantidad comprada" get cantidad
T-=cantidad*precio
-@ 9,5 say "producto"
-@ 9,20 say producto
-@ 10,5 say "total"
-@ 10,15 say T
-wait2.
-Ctrl+w3.
-Do productos