jueves, 8 de julio de 2010

Calculo de la Diagonal Inversa En una matriz cuadrada Visual Foxpro 6.0



Con este Codigo pueden determinar la suma de la diagonal inversa en el lenguaje de programación visual fox pro 6.0.

Espero les sirva de mucha ayuda en el desarrollo de software bajo Visual FoxPro 6.0

En el primer bucle se carga la matriz y en el segundo bucle se suma la inversa.

CLEAR
VLOR=0
F=1
C=1
ACUMULADOR=0
DIMENSION CUADRADA(4,4)
DO WHILE F<=4
DO WHILE C<=4
@4,4 GET VLOR
READ
STORE VLOR TO CUADRADA(F,C)
C=C+1
VLOR=0
ENDD
F=F+1
C=1
ENDD
F=1
C=4
ACUMULAD=0
DO WHILE F<=4
ACUMULAD=ACUMULAD+CUADRADA(F,C) TSU JOSE GILBERTO MEDINA
C=C-1
F=F+1
ENDD
? "LA SUMA DE LA DIAGONAL INVERSA:"
? ACUMULAD

Calculo de la Diagonal En una matriz cuadrada Visual Foxpro 6.0



Este es el Codigo para calcular la Diagonal en el lenguaje de Programación Visual foxpro 6.0 es sencillo espero les pueda servir de ayuda en el desarrollo de software.

CLEAR
VLOR=0
F=1
C=1
ACUMULADOR=0
DIMENSION CUADRADA(4,4)
DO WHILE F<=4
DO WHILE C<=4
@4,4 GET VLOR
READ
STORE VLOR TO CUADRADA(F,C)
IF F=C THEN
acumulador=acumulador+cuadrada(f,c) TSU José Gilberto Medina
ENDIF
C=C+1
VLOR=0
ENDD
F=F+1
C=1
ENDD
? "LA SUMA DE LA DIAGONAL:" && mensaje
? Acumulador && resultado