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

COTIZACION DE UNA COMPUTADORA

PRESUPUESTO:

CUANDO SE NECESITA COMPRAR UNA COMPUTADORA DESDE CERO ES NECESARIO PRIMERO HACER UNA COTIZACION DE LOS DIFERENTES COMPONENTES QUE SE UTILIZAN PARA ARMAR UNA NUEVA.

COTIZACION DE PRECIOS POR PRODUCTO


SEGUN LA COTIZACION QUE REALIZE EL PRECIO DE UNA COMPUTADORA ES APROXIMADAMENTE DE $24,202