"GRUPO DE 2a3 pm"

CLASE DEL DIA JUEVES - 5 DE MAYO DE 2011--Programacion no visual en Foxpro

CONVERSION DE MONEDAS:

ENTRADAS: Cambio dolar, cambio Euro, cantidad

PROCESO: Dolares a Quetzales= cantidad *cambio de dolar
                    Quetzales a Dolares=cantidad/cambio de dolar
                    Euros a Quetzales=cantidad*cambio de euro
                    Quetzales a Euros=cantidad/cambio de euros

SALIDAS:
                   Dolar a Q
                   Q a Dolar
                   Euros a Q
                   Q a Euros

lo anterior es en el cuaderno a continuacion esta el codio del programa

STORE 0.00 TO cd,ce,cantidad,opcion,dq,qd,eq,qe
CLEAR
@ 5,5 say "INGRESE CAMBIO DE DOLAR:" get cd
@ 6,5 say "INGRESE CAMBIO DE EURO:" get ce
@ 7,5 say "INGRESE CANTIDAD:" get cantidad
READ
dq=cantidad*cd
qd=cantidad/cd
eq=cantidad*ce
qe=cantidad/ce
@ 9,5 say "DE DOLARES A QUETZALES:"get dq
@ 10,5 say "DE QUETZALES A DOLARES:"get qd
@ 11,5 say "DE EUROS A QUETZALES:"get eq
@ 12,5 say "DE QUETZALES A EUROS:"get qe
CLEAR gets