Pascal/Turbo Pascal - Ayuda ejercicio sencillo de pascal.

   
Vista:

Ayuda ejercicio sencillo de pascal.

Publicado por Pedro (2 intervenciones) el 14/01/2013 18:37:14
Hola.. Necesito ayuda con este ejercicio en Pascal.. Espero que puedan ayudarme porfavor. Gracias

Realizar un programa en Pascal que determine el producto de dos matrices.
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

Ayuda ejercicio sencillo de pascal.

Publicado por ramon (2072 intervenciones) el 14/01/2013 21:26:47
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
{Algo como esto te ayudara}
 
program matriz_prod;
 uses
    crt;
  type
     tmatriz = array[1..2,1..2] of integer;
   var
    maz1, maz2, mazr : tmatriz;
    u, u1, u2 : integer;
    resultado : integer;
 
   procedure cargamatrizes;
   begin
      for u := 1 to 2 do
        for u1 := 1 to 2 do
        begin
           clrscr;
           writeln('Matriz 1');
           write('Matriz = ',u,'-',u1,' : ');
           readln(maz1[u,u1]);
        end;
      for u := 1 to 2 do
        for u1 := 1 to 2 do
        begin
           clrscr;
           writeln('Matriz 2');
           writeln;
           write('Matriz = ',u,'-',u1,' : ');
           readln(maz2[u,u1]);
        end;
   end;
 
   procedure toma_producto(p1, p2 : tmatriz);
   var
      i : integer;
   begin
       for i := 1 to 2 do
        for u := 1 to 2 do
          for u1 := 1 to 2 do
          mazr[i,u] := mazr[i,u] + maz1[i,u1] * maz2[u1,u];
    end;
 
    procedure muestra_producto;
    begin
       writeln;
       for u := 1 to 2 do
       begin
          for u1 := 1 to 2 do
          begin
          write('   ',mazr[u,u1]);
          end;
          writeln;
        end;
    end;
 
   begin
       clrscr;
       cargamatrizes;
       toma_producto(maz1, maz2);
       muestra_producto;
       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