COMO COMBINAR 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 CON UNA 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
-wait
2.-Ctrl+w
3.-Do productos

PROGRAMA PARA CALCULAR EL VOLUMEN DE UN CILINDRO

PROGRAMA:

STORE 0(cero) TO R,H
STORE 3.1416 TO PI
CLEAR
@10,10 SAY "INTRODUCE EL RADIO" GET RREAD R
@11,10 SAY "INTRODUCIR LA ALTURA" GET H
READ
V=PI*R*R*H
@14,10 SAY "V="
@14,13 SAY V
@14,30 SAY "U. CUBICAS"
WAIT

DIAGRAMA DE FLUJO PARA UN PROGRAMA QUE CALCULE LAS RAICES DE UNA ECUACION DE 2º GRADO