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
1 comentario:
Olap oie ando haciendo un
programa en visual fox pro
de que calcule el determinante de n*n maso con la idea de las diagonales que tu pusiste , se pude de otras maneras como seria gracias.
Publicar un comentario