1:
Programa Básico en Visual FoxPro
Ejemplo:
Clear Limpiar pantalla
use caja activa la base de datos a utilizar
ni=0
nom=space(30)
pro=space(15)
can=0 Variables a utilizar y tipo
pre=0
tot=0
ef=0
cam=0
@4,5 say "ingrese n.i.t" get ni
@6,5 say "ingrese nombre" get nom
@8,5 say "producto" get pro Mensajes en Pantalla seguido de sus variables
@10,5 say "cantidad" get can
@12,5 say "precio" get pre
@16,5 say "efectivo" get ef
read
tot=pre*can Pausa
cam=ef-tot Variables de las operaciones y sus formulas
1
2:
clear
@2,5 say “nit”
@2,20 say ni
@4,5 say “nombre”
@4,20 say nom
@6,5 say “producto”
@6,20 say pro
@8,5 say “precio”
@8,20 say pre Forma de imprimir mensajes y resutados
@10,5 say “cantidad”
@10,20 say can
@12,5 say “total”
@12,20 say tot
@14,5 say “efectivo”
@14,20 say ef
@16,5 say “cambio”
@16,20 say cam
append blank
replace nit with
ni
replace nombre with nom
replace producto with pro
replace cantidad with can Aquí se guardaran los registros ingresados
replace precio with pre
replace total with tot
replace efectivo with ef
replace cambio with
cam
3:
2
4:
Ejercicios
Ejercicio 1
Escribir un programa que calcule el área de un rectángulo:
lado1 = 3 lado2 = 4
área del rectángulo=lado1 * lado2
Ejercicio 2
Realice un programa que permita el ingreso de 2 números,
realice las operaciones aritméticas basica y muestre los resultados en
pantalla. ( + - * / ^ ).
Ejercicio 3
Escribir un programa que calcule el área de un triángulo:
base = 7 altura = 4 área del triángulo = (base * altura)/2
Ejercicio 4
Escribir un programa que calcule la longitud y el área de una circunferencia:
radio = 4
longitud de la circunferencia = 2 * PI * radio
área de la circunferencia = PI * radio2
longitud:=2*3.1416*radio;
Ejercicio 5
Resolver:
1. Código
2. Nombre del producto
3. Precio unitario
4. Cantidad compra
5. Subtotal = precio * cantidad
6. IVA = subtotal * 0.12
7. Descuento =subtotal * 0.05
8. Total = subtotal + IVA – descuento