COMO CAMBIAR 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(f name)+""I name)
ELSE
?PROPER(TRIM(f name)+""I name)
EWD IF
SKIP
END DO ()
?
USE
WAIT

PROGRAMA PARA HACER UN CICLO DE DATOS

USE C:\BENJA\PRODUCTO
CLEAR
?
?
DO WHILE. NOT. EOF()
? PROPER (TRIM(F NAME)+""+I NAME)
SKIP
END DO
?
USE
WAIT

PROGRAMA PARA ACCESAR A LA INFORMACION DE UNA BASE DE DATOS

PARA LA TABLA PRODUCTOS

Store space (30) to producto
Store space (4) to codigo
Store 0 to precio
Store 0 to cantidad, t
Cod=space (4)
Use=producto

Clear
@5, 5 say "Introduzca el codigo" get cod
Read
Locate for cod=codigo
@7, 5 say "¿Que cantidad compro?" get cantidad
read

t=cantidad*precio
@9, 5 say "Producto:"
@9, 20 say producto
@10,5 say "Total:"
@10,15 say t
Wait

PROGRAMA PARA CALCULAR
EL VOLUMEN DE UN CILINDRO

PROGRAMA PARA CALCULAR EL VOLUMEN
DE UN CILINDRO EN FOX PRO


store 0 to r,h
store 3.1416 to pi
clear
@10,10 say "Introduzca el radio" get r
read
@11,10 say "Introduzca la altura" get h
read
V=pi*r*r*h
@14,10 say"V="
@14,13 say V
@14,30 say"unidades cubicas"
WAIT

DIAGRAMA DE FLUJO

PARA SUMAR 2

NUMEROS ENTEROS

ax+bx+c=0

D=b2+4ac

DIAGRAMA DE FLUJO

PARA SUMAR 2

NUMEROS ENTEROS

SMARTDRAW