Nhân hai ma trận bằng việc sử dụng hàm và thủ tục.

[Mai Anh Nguyễn]

Các cậu xem hộ t phần hàm nhân hai ma trận tại sao lại bị tràn! Cảm ơn các c  nhiều nha! <T làm bình thường không sử dụng hàm thì không bị tràn>

{Chuong trinh nhan 2 ma tran bang viec su dung ham hoac thu tuc

Ngay: 11/02/2013

Author: ...}

Uses crt;

Type 

  Mang = Array[1..100,1..100] of integer;  {Khai bao kieu mang moi}

Var

  A,B,C: Mang;  {Bien A, B la 2 ma tran nhap vao, C la tich hai ma tran}

  i,j,d: integer;  {Bien trong phep lap}

  m,n,p,q: integer;  {Bien la so hang va so cot cua 2 ma tran}

{Thu tuc nhap so hang va so cot}

Procedure  Hangcot(Var m,n:integer);

  Begin

    Writeln('So hang va so cot cua ma tran: ');

    Readln(m,n);

  End; 

{Thu tuc dung de nhap cac gia tri cua cac phan tu trong ma tran}

Procedure  Nhap(Var A: mang;m,n:integer);                  

  Begin

    Writeln('Ma tran: ');

    For i:= 1 to m do 

      For j:= 1 to n do

        Readln(A[i,j]);

  End;

  

{Ham nhan hai ma tran ra 1 ma tran moi}

Function  Nhan(A:mang; m,n:integer;B:mang; p,q:integer): mang;

  Var

    C: mang;

    d: integer;

  Begin

    For i:= 1 to m do

      For j:= 1 to q do

        Begin

          C[i,j]:=0;

          For d:= 1 to n do

            C[i,j]:= A[i,d]*B[d,j] + C[i,j];

        End; 

    Nhan := C;  

  End;

{Thu tuc xuat ra man hinh ma tran tich cua 2 ma tran}

Procedure  Xuat(A: mang; m,n:integer);

  Begin

    For i:=1 to m do

      Begin

        Writeln;

          For j:= 1 to n do

            Write(A[i,j]);

      End;

  End; 

{Chuong trinh chinh}

Begin

  Clrscr;

  Hangcot(m,n);

  Nhap(A,m,n);

  Hangcot(p,q);

  Nhap(B,p,q);

  If n = p then 

    Begin

      C:= Nhan(A,m,n,B,p,q); 

      Xuat(C);

    End

  Else 

    Writeln('Khong thuc hien duoc phep nhan nay');

  Readln;

End.  

[Nguyễn Việt Dũng]

xuat sai kia, xuat(c,n) chu. Trong bai ghi xuat(c)?

Vào 18-02-2013 16:42, "Mai Anh Nguyễn" <ntmaianh...@gmail.com> đã viết:

--
[*---------------B2 Tin D44 Học Viện An Ninh Nhân Dân----------------*]
---
Bạn nhận được thư này vì bạn đã được đăng ký vào nhóm Google Groups "Lớp B2 Tin khóa D44 Học viện an ninh nhân dân".
Để hủy đăng ký nhóm này và ngừng nhận email từ nhóm, hãy gửi email tới b2tind44hvann...@googlegroups.com.
Để đăng bài lên nhóm này, hãy gửi email đến b2tind4...@googlegroups.com.
Truy cập nhóm này tại http://groups.google.com/group/b2tind44hvannd?hl=vi.
Để có thêm tùy chọn, hãy truy cập https://groups.google.com/groups/opt_out.
 
 

[Mai Anh Nguyễn]

Ah, đoạn ý t viết thiếu đấy nhưng trong bai t vẫn viết đủ van không được c ah, c tìm tiếp cho t xem còn chỗ sai nào không? 

Vào 17:27 Ngày 18 tháng 2 năm 2013, Nguyễn Việt Dũng <dun...@gmail.com> đã viết:

[Cường Hoàng]

Các bạn rất chăm chỉ.tốt...
Vào 18-02-2013 21:12, "Mai Anh Nguyễn" <ntmaianh...@gmail.com> đã viết:

[Huy Nguyễn]

Tớ sửa lại thành xuat(c,m,n) chạy ok mà...@!

Vào 18-02-2013 21:12, "Mai Anh Nguyễn" <ntmaianh...@gmail.com> đã viết:

[Mai Anh Nguyễn]

Chắc máy của t bị lỗi rồi,hjc,hjc... 

Vào 15:36 Ngày 19 tháng 2 năm 2013, Huy Nguyễn <huy...@gmail.com> đã viết: