Para apreciar esta página correctamente, debes instalar Fa-122Doc.ttf en tu computadora

Título: Conversiones
Autor: Jorge Cevallos Manzano 
Modelo: CFX9850 (Hecho en CFX9850Ga+)
Descripción: Este programa, mediante un menú, transforma: monedas, masa, longitud, superficie, volumen, temperatura. Seis unidades distintas en cada magnitud (excepto en temperatura).

Bajar programa

• En el primer menú presentado se debe elegir la magnitud en la que se quiere trabajar. Se usan las flechas y .

• Luego se escoge la unidad en la que se tiene la medida.

• Se entra la cantidad.

• Por último se selecciona la unidad a la que se quiere transformar esta cantidad usando las flechas y .

• La respuesta se imprime en la pantalla.

• Se puede presionar para salir en caso de estar en el menú principal, o para ir a este menú.

• Se debe actualizar constantemente el tipo de cambio en las monedas. 

Lbl 0·
ClrText·
Orange " "·
Locate 5,1,"*MAGNITUD?*"·
Locate 6,2,"MONEDAS"·
Locate 6,3,"MASA"·
Locate 6,4,"LONGITUD"·
Locate 6,5,"SUPERFICIE"·
Locate 6,6,"VOLUMEN"·
Locate 6,7,"TEMPERATURA"·
2‡A·
Do·
Getkey·
Ans=28 Or Ans=37îLocate 4,A," "·
Ans=28îDsz A·
Ans=37îIsz A·
A=1î7‡A·
A=8î2‡A·
Locate 4,A,"î"·
If Ans=47·
Then ClrText·
Locate 1,1,""·
Stop·
IfEnd·
LpWhile Ans¬31·
For 1‡B To 2·
ClrText·
Green " "·
B=1îLocate 7,1,"==DE?=="·
B=2îLocate 7,1,"==A?=="·
If A=2·
Then Locate 6,2,"Dolar (EE.UU.)"·
Locate 6,3,"Euro (Europa)"·
Locate 6,4,"Dolar (Canada)"·
Locate 6,5,"Franco (Francia)"·
Locate 6,6,"Florin (Holanda)"·
Locate 6,7,"Licbra (R.U.)"·
IfEnd·
If A=3·
Then Locate 6,2,"ARROBA"·
Locate 6,3,"KILOGRAMO"·
Locate 6,4,"LIBRA"·
Locate 6,5,"ONZA"·
Locate 6,6,"QUINTAL"·
Locate 6,7,"GRAMO"·
IfEnd·
If A=4·
Then Locate 6,2,"METRO"·
Locate 6,3,"LEGUA"·
Locate 6,4,"MILLA"·
Locate 6,5,"PIES‰PULGADAS¸"·
Locate 6,6,"CUADRAS"·
Locate 6,7,"YARDA"·
IfEnd·
If A=5·
Then Locate 6,2,"ACRE"·
Locate 6,3,"METROâ"·
Locate 6,4,"HECTAREA"·
Locate 6,5,"PULGADAâ"·
Locate 6,6,"PIESâ"·
Locate 6,7,"YARDASâ"·
IfEnd·
If A=6·
Then Locate 6,2,"BAR. PETROLEO"·
Locate 6,3,"GL USA"·
Locate 6,4,"METRO Cubic"·
Locate 6,5,"LITRO"·
Locate 6,6,"PIE Cubic"·
Locate 6,7,"PINTA"·
IfEnd·
If A=7·
Then Green " "·
Locate 7,2,"GRADOS:"·
Locate 6,3,"CELCIUS"·
Locate 6,4,"FARENHEIT"·
Locate 6,5,"KELVIN"·
IfEnd·
2‡D·
A=7î3‡D·
Do·
Getkey·
Ans=28 Or Ans=37îLocate 4,D," "·
Ans=28îDsz D·
Ans=37îIsz D·
Ans=47îGoto 0·
D=1î7‡D·
D=8î2‡D·
A=7îD=2î5‡D·
A=7îD=6î3‡D·
Locate 4,D,"‡"·
LpWhile Ans¬31·
If B=1·
Then ClrText·
Green " "·
Locate 6,1,"==DATO=="·
?‡E·
IfEnd·
If A=2·
Then D=2î1‡C·
D=3î1.1038‡C·
D=4î1.4776·
D=5î7.5693‡C·
D=6î2.5429‡C·
D=7î.7072‡C·
Cü‡C·
IfEnd·
If A=3·
Then D=2î11.33981‡C·
D=3î1‡C·
D=4î.453592‡C·
D=5î.0283495‡C·
D=6î100‡C·
D=7î ‚3‡C·
IfEnd·
If A=4·
Then D=2î1‡C·
D=3î5 3‡C·
D=4î1609.31‡C·
D=6î.80‡C·
D=7î.914583‡C·
IfEnd·
If A=5·
Then D=2î4046.85642‡C·
D=3î1‡C·
D=4î 4‡C·
D=5î.064516254‡C·
D=6î.0929034‡C·
D=7î.836131‡C·
IfEnd·
If A=6·
Then D=2î158.9826‡C·
D=3î3.7853‡C·
D=4î 3‡C·
D=5î1‡C·
D=6î28.317‡C·
D=7î.125‡C·
IfEnd·
If A¬7·
Then If A=4 And D=5·
Then If B=1·
Then .304794ReP E‰.304794ImP E¤.304794·
Frac E‡F:Int E‡E·
E‰(12F)¸‡E·
IfEnd·
Else B=2îCü‡C·
CE‡E·
IfEnd·
Else If B=1·
Then D=5îE‚273‡E·
D=4î5¤9£(E‚32‡E·
Else D=5îE‰273‡E·
D=4î9E¤5‰32‡E·
IfEnd·
IfEnd·
Next·
ClrText·
Green " "·
Locate 4,1,"==RESULTADO=="·
Locate 2,3,E·
Stop