Programas para aprendices de Visual Fox Pro - Parte 1

Estos son programas que todo aprendiz de Visual Fox Pro debe dominar, simplemente tienen que crear un nuevo PRG e introducir el código correspondiente a cada programa. Bueno, sin más que decir, aqui les van: PROGRAMA 1 - SUMA Este programa solicita 2 números al usuario y los suma, para luego mostrar el resultado en pantalla, este es el código: * SE DECLARAN LAS VARIABLES NUM1 = 0 NUM2 = 0 RESULTADO = 0 * SE LIMPIA LA PANTALLA CLEAR * SE OBTIENEN LAS ENTRADAS @ 5,5 SAY "INGRESE NUMERO 1" GET NUM1 @ 6,5 SAY "INGRESE NUMERO 2" GET NUM2 READ * SE REALIZA EL PROCESO RESULTADO = NUM1+NUM2 * SE MUESTRAN EN PANTALLA LAS SALIDAS @ 8,5 SAY "EL RESULTDO ES:" GET RESULTADO * SE LIMPIA EL BUFFER CLEAR GETS PROGRAMA 2 - CALCULADORA SENCILLA Programa que recibe 2 números, y luego despliega un menú en el que solicita al usuario el número de operación que desea realizar, este es el código: * SE CIERRAN TODAS LAS VENTANAS CLOSE ALL * SE LIMPPIA LA PANTALLA CLEAR * SE DECLARAN LAS VARIABLES opcion1 = 0 STORE 0.00 TO a,b,c * SE ESCRIBE EL MENU EN PANTALLA @ 5,5 say "Calculadora 2" @ 7,5 say "1. Suma" @ 8,5 say "2. Resta" @ 9,5 say "3. Multiplicacion" @ 10,5 say "4. Division" @ 11,5 say "5. Raiz" * SE OBTIENEN LOS NUMEROS A OPERAR Y LA OPERACION @ 13,5 say "Ingrese A:" get a @ 14,5 say "Ingrese B:" get b @ 15,5 say "¿Que desea hacer?" get opcion1 range 1,5 READ * SE EVALUA EL NÚMERO INGRESADO EN LA OPCION DO CASE CASE opcion1 = 1 c = a+b @ 17,5 say "El resultado es" get c CASE opcion1 = 2 c = a-b @ 17,5 say "El resultado es" get c CASE opcion1 = 3 c = a*b @ 17,5 say "El resultado es" get c CASE opcion1 = 4 c = a/b @ 17,5 say "El resultado es" get c CASE opcion1 = 5 c = SQRT(a) @ 17,5 say "El resultado es" get c ENDCASE * SE LIMPIA EL BUFFER CLEAR GETS