Pascal/Turbo Pascal - Producto de matrices

   
Vista:

Producto de matrices

Publicado por Manuel glaceon@live.com.mx (1 intervención) el 01/05/2014 20:44:56
Hola, soy nuevo en esto, lo que pasa es que mi profesor me dejo programar un producto de matrices en pascal, pero primero tuve que hacer una suma de matrices y todo eso salió bien, pero ahora no sé cómo multiplicar matrices, espero me puedan ayudar.
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

Producto de matrices

Publicado por ramon (2072 intervenciones) el 03/05/2014 00:27:00
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
{Esto servirá}
 
program mulmatriz;
uses
  crt;
 
const
  max = 2;
 
type
  lamatriz = array[1..max,1..max] of real;
 
var
  matriz1, matriz2 : lamatriz;
  t, i : integer;
  nume : real;
 
 
  procedure cargamatriz(var dd, nn : lamatriz);
  begin
      randomize;
      for t := 1 to max do
      begin
       for i := 1 to max do
       begin
         nume := random(max * max) + 1;
         matriz1[t,i] := nume;
       end;
     end;
      for t := 1 to max do
      begin
       for i := 1 to max do
       begin
         nume := random(max * max) + 1;
         matriz2[t,i] := nume;
       end;
    end;
  end;
 
  procedure multiplicamatriz(maz1, maz2 : lamatriz);
  var
    va : real;
  begin
     va := 0.0;
     for t := 1 to max do
     begin
       for i := 1 to max do
       begin
          va := matriz1[t,i] * matriz2[t,i];
          write('  ',va:0:2);
          va := 0.0;
       end;
     end;
  end;
 
  begin
      clrscr;
      cargamatriz(matriz1, matriz2);
      writeln('  Contenido Matrizes ');
      writeln;
      for t := 1 to max do
      begin
        for i := 1 to max do
        begin
        write('  ',matriz1[t,i]:0:2);
        end;
      end;
      writeln;
      for t := 1 to max do
      begin
        for i := 1 to max do
        begin
        write('  ',matriz2[t,i]:0:2);
        end;
      end;
      writeln;
      writeln('  Multiplicadas ');
      writeln;
      multiplicamatriz(matriz1, matriz2);
      writeln;
      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