Programación General > Pascal

 problema pascal matrices y suma

<< < (2/2)

Enko:
Te cito tu codigo:

--- Código: Delphi ---for j:=2 to 3 do beginsuma:=0;for i:=2 to 3 do beginsuma:=suma+x[i,j];end;x[1,4]:=suma end; si la matriz es 4x4, en el caso tuyo sumaria los campos que marco aqui con una X

--- Código: C --- ·····XX··XX·····  como ya te habia dicho antes, eso sumaria los campos 2x2, 2x3, 3x2,3x3

Si lo que quieres es sumar la linea diagonal, 1x1,2x2,3x3,4x4 asi:

--- Código: C --- x····X····X····X el codigo es más sencillo, solo alcanza un for

--- Código: Pascal --- for 1:=1 to 4 do     suma:=suma+x[i,i];  

yaelito0:
gracias amigo por ayudarme  :P

ya logre correr el programa con suma y de color rojito los ceros   :beer:

netta me ayudaron aqui gracias  :good:


aqui les dejo mi codigo final para que lo chequen como me quedo:


--- Código: Pascal ---program matrizon;uses crt, windows;type numerosale=array[1..4,1..4] of integer;var lin,col,a,y,suma:integer; posx, posy:integer; x:numerosale;beginclrscr;randomize;for a:=2 to 3 do beginfor y:=2 to 3 do beginx[a,y]:=random(11);end;end; lin:=2;col:=2;for y:=2 to 3 do begin suma:=suma+x[lin,col];x[4,4]:=suma;x[1,1]:=suma;lin:=lin+1;col:=col+1;end;  lin:=3;col:=2;suma:=0;for a:=2 to 3  do beginsuma:=suma+x[lin,col];x[1,4]:=suma;x[4,1]:=suma;lin:=lin-1;col:=col+1;end;  posx:=10;posy:=40;for a:=1 to 4 do beginposy:=37;for y:=1 to 4 do begingotoxy(posy,posx);if x[y,a]<1 then textcolor (12) else textcolor(white);write(x[y,a]);posy:=posy+3;end;posx:=posx+1;end;readkey;end. 
de todo corazon (vuelvo a repetir) gracias  :hola:

Enko:
De nada xD
aunque creo que te las arreglas solo bastante bien tambien   :rolleyes:

cualquier duda, ya sabes  :P

Navegación

[0] Índice de Mensajes

[*] Página Anterior