Trabajo De Fox Pro

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 el programa 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. SEXO H/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

ENDIF

BH=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 DE MUJERES" + STR (CONM)

CANCEL

2- realizar un programa fox para ingresar un numero por teclado, comprendido entre 1 y 90, imprimir la decena superior de 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<=9

D=I*10

IF N<D

IF N=D

I=I+1

D=I*10

@ 7,7 SAY "DECIMAL" + STR (DES)

I=10

ELSE

@ 7,7 SAY "DECIMAL" + STR (DES)

ENDIF

ELSE

I=I+1

ENDIF

ENDDO

CANCEL

3- realizar un programa fox, para ingresar por teclado un nombre, imprimir los 3 ultimos caracteres de dicho numero.

SET TALK OFF

STORE 0 TO CONTA,I,CON1

NOMBRE=SPACE (20)

CLEAR

@5,5 SAY"ING. NOMBRE" GET NOMBRE PICT "@!"

READ

FOR I=1 TO 20 STEP 1

IF NOM [I]=" "

ELSE

CONTA =CONTA+1

ENDFOR

CON1=CON+3

A=SUB STR (NOMBRE, CON1, CONTA)

? A

CANCEL

4 -realizar un programa fox, para ingresar por teclado un numero, imprimir si el numero ingresado es positivo, negativo o cero.

SET TALK OFF

STORE 0 TO NUM

@ 5,5 SAY "ING NUMERO" GET NUM PICT "999999"

READ

IF NUM=0

@ 6,6 SAY "EL NUMERO INGRESADO ES CERO"

ELSE

IF NUM>0

@ 6,6 SAY "EL NUMERO INGRESADO ES POSITIVO"

ELSE

IF NUM<0

@ 6,6 SAY "EL NUMERO INGRESADO ES NEGAVITO"

ENDIF

ENDIF

ENDIF

...