Pascal/Turbo Pascal - Duda Matrices

   
Vista:

Duda Matrices

Publicado por Allen (8 intervenciones) el 22/04/2014 01:19:45
Buenas noches, tardes o días, verán, mi duda es: como puedo sumar (con números aleatorios) las filas y las columnas de una matriz de 10x10, ademas de mostrar el promedio por columna, aun estoy medio verde.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Duda Matrices

Publicado por ramon (2072 intervenciones) el 22/04/2014 14:39:46
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{Mira}
 
var
  alea, h,u : integer;
  matriz : array[1..10,1..10] of integer;
 begin
    for h := 1 to 10 do
     for u := 1 to 10 do
     begin
         matriz[h,u] := random(99) + 1;
     end;
    writeln('  Lamatriz Num. 2=3 = ',matriz[2,3]);
    alea := 8;
    writeln(matriz[2,3] * alea);
     readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Duda Matrices

Publicado por Allen (8 intervenciones) el 23/04/2014 00:49:04
Gracias por contestar, al parecer no me resuelve mi duda tu código, ya que no esta sumando las filas y las columnas. Bueno aquí tengo ya parte del código, solo necesito la suma de cada fila y cada columna, así como el promedio de las columnas.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program matriz;
uses crt;
var
  m : array[1..10,1..10] of integer;
  i,j,f,c:integer;
begin
  clrscr;
  randomize;
  f := 2;
  for i := 1 to 10 do
    begin
      c := 3;
      f := f + 2;
      for j := 1 to 10 do
        begin
          m[i,j] := random(500);
          gotoxy(c,f);
          writeln(m[i,j]);
          c := c + 5;
        end;
    end;
  readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Duda Matrices

Publicado por ramon (2072 intervenciones) el 23/04/2014 11:51:17
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{A ver entiendo que quieres esto sino es esto déjame un ejemplo de lo que quieres y como lo quieres sumar}
var
    filas, columna, promedio : integer;
     i, k : integer;
filas := 0;
columna := 0;
promedio :=
begin
for i := 1 to 10 do
   for k := 1 to 10 do
    filas := filas + m[k,i];
   for i := 1 to 10 do
     for k := 1 to 10 do
     columna := columna + m[i,k];
   promedio := columnas div 10;
  writeln('   Suma de filas = ',filas);
  writeln('   Suma de columnas = ',columna);
   writeln('   Promedio de columnas = ',promedio);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Duda Matrices

Publicado por Allen (8 intervenciones) el 23/04/2014 22:53:02
Efectivamente eso es lo que deseo, muchas gracias, ya corre perfecto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar