Trabalo de fox pro

Solo disponible en BuenasTareas
  • Páginas : 2 (292 palabras )
  • Descarga(s) : 1
  • Publicado : 12 de enero de 2012
Leer documento completo
Vista previa del texto
Trabajo de programación en fox pro
NOMBRE : JAVIER GUAMAN
SEXTO INFORMATICA
1- realizar un programa fox para ingresar la siguiente información:Nombre, sueldo, sexo (h=hombre=mujer9 multas, descuentos, n de hijos se pide imprimir el nombre, ingresos, egresos y sueldo liquido. Al finalizar elprograma imprimir el total de hombres y mujeres ingresados. Nota por cada hijo se paga $8.
SET TALK OFF
STORE 0 TO S, M, D, CONH, CONM, NH, SL, ST, I,E
NOM=SPACE (20)
SEX=SPACE (3)
OP=SPACE (2)
OP="S"
DO WHILE OP="S"
CLEAR
@5,5 SAY "ING. NOMBRE" GET NOM PICT "@!"
READ
@6,5 SAY "ING. SEXOH/M" GET SEX PICT "@!"
READ
@7,5 SAY "ING. MULTAS" GET M PICT "9999999"
READ
@8,5 SAY "ING. NUMERO DE HIJOS" GET NH PICT "9999999"
READ
@9,5 SAY"ING. DESCUENTOS" GET D PICT "9999999"
READ
@10,5 SAY "ING. SUELDO" GET S PICT "9999999"
READ
IF SEX="H"
CONH=CONH+1
ELSE
CONM=CONM+1
ENDIFBH=NH*8
E=M+D
SL=E-BH
ST=SL+S
I=S+BH
@11,5 SAY "NOMBRE"
@11,20 SAY NOM
@12,5 SAY "EGRESOS" + STR (E)
@13,5 SAY "INGRESOS" + STR (I)
@14,5 SAY"SUELDO LIQUIDO" + STR (ST)
@15,5 SAY "DESEA CONTINUAR S/N" GET OP PICT "@!"
READ
ENDDO
@20,5 SAY "TOTAL DE HOMBRE" + STR (CONH)
@21,5 SAY "TOTAL DEMUJERES" + STR (CONM)
CANCEL
2- realizar un programa fox para ingresar un numero por teclado, comprendido entre 1 y 90, imprimir la decena superiorde dicho numero.
SET TALK OFF
STORE 0 TO NUM, I, DES
CLEAR
@ 5,5 SAY "ING. NUMERO ENTRE 1 Y 90" GET NUM PICT "9999" RANGE 1,90
READ
I=1
DO WHILE 1
tracking img