Codificacion Fox De Ejercicios

SET TALK OFF
CLEAR
STORE 0 TO SU
@2,1 SAY"SUMA BINARIA"
DIMENSION A(4,5)
A=0
F=3
FOR I= 1 TO 4
C=1
FOR J= 1 TO 5
@F,C SAY ALLTRIM(+STR(A(I,J)))
C=C+2
ENDFOR
F=F+1
ENDFOR
**INGRESO
F=4
FOR I=2 TO 3
C=30
FOR J= 2 TO 5
@F,C GET A(I,J) PICTURE "9" RANGE 0,1
READ
C=C+3
ENDFOR
F=F+1
ENDFOR
*SUMAR
*FOR I= 1 TO 4
FOR J= 5 TO 1 STEP -1
SU=A(1,J) + A(2,J) + A(3,J)
IF SU>=2THEN
A(4,J)=SU-2
A(1,J-1)=1
ELSE
A(4,J)=SU
ENDIF
*ENDFOR
ENDFOR
@1,80 SAY"SUMA"
F=3
FOR I= 1 TO 4
C=80
FOR J= 1 TO 5
@F,C SAY ALLTRIM(+STR(A(I,J)))
C=C+4
ENDFOR
F=F+1
ENDFOR
**INGRESAR UN NUMERO COMPRENDIDO ENTRE EL 12 Y EL 100, IMPRIMIR SUS FACTORES.
SET TALK OFF
CLEAR
@1,1 SAY" INGRESE UN NUMERO ENTRE EL 12 Y EL 100"
STORE 0 TO N,C,R,CON
@2,3 SAY" INGRESE UN NUMERO" GET NPICTURE"999" RANGE 12,1000
READ
F=10
FOR I= 1 TO N
C=INT(N/I)
R=N-(C*I)
IF R=0 THEN
@10,F SAY ALLTRIM(+STR(C))
F=F+10
ELSE
ENDIF
ENDFOR
@8,2 SAY" FACTORES DEL NUMERO" +STR(N)

*DESPLEGAR LOS 8 PRIMEROS NUMEROS DE LA SERIA DE FIBONACCI.
SET TALK OFF
CLEAR
@1,1 SAY" DESPLEGAR LOS 8 PRIMEROS NUMEROS DE LA SERIE DE FIBONACCI"
STORE 1 TO A,B
C=0
F=5
FOR I=1 TO 8
@I+1,5SAY (A)
C=A+B
B=A
A=C
ENDFOR

** ingresar valores a una mat de 5*5 imprimir diche matriz en forma ascendente.
SET TALK OFF
CLEAR
DIMENSION A(5,5)
A=0
@1,1 SAY " INGRESE VALORES"
F=3
FOR I= 1 TO 5
C= 3
FOR J= 1 TO 5
@F,C GET A(I,J) PICTURE "999"
READ
C=C+5
ENDFOR
F=F+1
ENDFOR
STORE 0 TO AUX
FOR I =1 TO 24
FOR J=I+1 TO 25
IF A(I)>A(J)
AUX = A(I)
A(I) = A(J)
A(J) = AUXENDIF
ENDFOR
ENDFOR
DIMENSION B(5,5)
B=0
FOR I= 1 TO 5
FOR J= 1 TO 5
B(I,J)=A(I,J)
ENDFOR
ENDFOR
FF=3
FOR I= 1 TO 5
CC=60
FOR J= 1 TO 5
@FF,CC SAY ALLTRIM(+STR(B(I,J)))
CC=CC+5
ENDFOR
FF=FF+1
ENDFOR
@2,60 SAY"MATRIZ ORDENADA"

** INGRESAR VALORES A UNA MAT DE 3*4 IMPRIMIR EL TOTAL DE VALORES PARES HE IMPARES
SET TALK OFF
CLEAR
DIMENSION A (3,4)
A =0
@1,1 SAY "INGRESEVALORES A LA MATRIZ"
F=3
FOR I = 1 TO 3
C=3
FOR J= 1 TO 4
@F,C GET A(I,J) PICTURE "999"
READ
C=C+5
ENDFOR
F=F+1
ENDFOR
STORE 0 TO C,R,PA,IM
FOR I= 1 TO 12
C= INT (A(I)/2)
R= A(I)- (C*2)
IF R=0
PA=PA+1
ELSE
IM=IM+1
ENDIF
ENDFOR
@15,1 SAY"TOTAL NUMEROS PARES"+STR(PA)
@17,1 SAY"TOTAL DE NUMEROS IMPARES"+STR(IM)
CANCEL

***INGRESARE VALOR4ES A UNA MATRIZ DE 3*4 PASAR A UNVECTOR LOS NUJERO PRIMNOS Y A OTRO VECTOR LOS NUMEROS QUE NO SON PRIMOS.
SET TALK OFF
CLEAR
K=1
J=1
DIMENSION A(3,4)
DIMENSION B(J)
DIMENSION C(K)
STORE 0 TO A,B,C,COSI,R,CP,CI
@2,1 SAY "INGRESE VALORES A LA MATRIZ"
F=3
FOR I = 1 TO 3
C=3
FOR J= 1 TO 4
@F,C GET A(I,J) PICTURE "999"
READ
C=C+5
ENDFOR
F=F+1
ENDFOR
*** COMPROBACION SI SON NUMEROS PRIMOS.
*K=1
*J=1
FOR I= 1 TO 12COSI=INT(A(I)/2)
R=A(I)-(COSI*2)
IF R=0 THEN
CP=CP+1
ENDIF
IF CP=<2
B(J)=A(I)
J=J+1
ELSE
C(K)=A(I)
K=K+1
ENDIF
ENDFOR
***IMPRESION PRIMOS
F=5
FOR I = 1 TO J
@2,50 SAY "NUMEROS PRIMOS"
@F,50 SAY ALLTRIM(+STR(B(J)))
F=F+1
ENDFOR
**PRSENTACION DE NUMEROS QUE NO SON PRIMOS.
FF=6
FOR I= 1 TO K-1
@2,100 SAY" NUMEROS QUE NO SON PRIMOS"
@FF,100 SAYALLTRIM(+STR(C(K)))
FF=FF+1
ENDFOR
@17,2 SAY"TOTAL DE NUEMROS PRIMOS" +STR(CP)
@17,100 SAY" TOTAL DE NUMEROS QUE NO SON PRIMOS"+STR(CI)

SET TALK OFF
CLEAR
@1,2 SAY"INGRESAR VALORES A UN VECTOR DE 6 POSICIONES"
DIMENSION A(6)
A=0
AUX=0
C=3
FOR I= 1 TO 6
@5,C GET A(I) PICTURE "999"
READ
C=C+5
ENDFOR
**ORDENAR
FOR I= 1 TO 5
FOR J=I+1 TO 6
IF A(I)>A(J)
AUX=A(I)
A(I)= A(J)
A(J)=AUXELSE
ENDIF
ENDFOR
ENDFOR
**ASCENDENTE
F=4
FOR I = 1 TO 6
@3,50 SAY"ASCENDENTE"
@F,50 SAY (A(I))
F=F+1
ENDFOR
**DESCENDENTE
FF=4
FOR I =6 TO 1 STEP -1
@3,100 SAY" DESCENDENTE"
@FF,100 SAY (A(I))
FF=FF+1
ENDFOR

**INGRESAR VALORES PARES AUN VECTOR DE 8 POSECIONES, IMPRIMIR LA SUMATORIA Y EL PROMDIO.
SET TALK OFF
OP="S"
DO WHILE OP="S"
CLEAR
@1,2 SAY"INGRESE VALORES A UN...