Một số bài tập ma trận Pascal

Một số bài tập Ma trận trong Pascal
1. Dùng bộ sinh số ngẫu nhiên tạo ma trận A,B. Sau đó tính tổng ma trận rùi in ra màn hình ma trận A,B và ma trận Tổng
Trích:
Program TONGMATRAN; Uses WinCrt; Const TD1 = `TRUONG DAI HOC BAN CONG MARKETING`; TD2 = ` »»»»» §¤Lïþ§ÑÆÇK® - ¥§æ «««««`; MAX = 30; Type MATRAN = Array[1..MAX,1..MAX] Of Byte ; Var MA,MB,MC:MATRAN; CAP:Byte; {Thu tuc dinh vi cursor} Procedure WriteXY(X,Y:Byte;CHUOI:String); Begin GotoXY(X,Y); Write(CHUOI); End; {Thu tuc in tieu de} Procedure TIEUDE; Begin WriteXY(25,1,TD1); WriteXY(25,2,TD2); End; {Thu tuc tao ma tran} Procedure TAOMATRAN(Var A,B:MATRAN; Var N:Byte); Var i,j:Byte; Begin WriteXY(15,5,`- Nhap cap cua ma tran: `); Readln(N); For i:=1 To CAP Do For j:=1 To CAP Do Begin A[i,j]:=Random(100); B[i,j]:=Random(50); End; End; {Thu tuc in ma tran} Procedure INMT(X:MATRAN;N:Byte); Var i,j:Byte; Begin For i:=1 To N Do Begin For j:=1 To N Do Write(X[i,j]:5); Writeln; End; Writeln; End; {Thu tuc xuat ma tran} Procedure XUATKQ(A,B:MATRAN; Var C:MATRAN; N:Byte); Var i,j:BYte; Begin Writeln(`MA TRAN A:`); INMT(A,N); Writeln(`MA TRAN B:`); INMT(B,N); For i:=1 To N Do For j:=1 To N Do C[i,j]:=A[i,j]+B[i,j]; Writeln(`MA TRAN TONG:`); INMT(C,N); End; {Chuong trinh chinh} Begin Clrscr; TIEUDE; TAOMATRAN(MA,MB,CAP); XUATKQ(MA,MB,MC,CAP); End.
2. Dùng bộ sinh số ngẫu nhiên tạo ma trận A,B. Sau đó tính tích 2 ma trận rùi in ra màn hình ma trận A,B và ma trận Tích
Trích:
Program NHANMATRAN; Uses WinCrt; Const TD1 = `TRUONG DAI HOC BAN CONG MARKETING`; TD2 = ` »»»»» §¤Lïþ§ÑÆÇK® - ¥§æ «««««`; MAX = 30; Type MATRAN = Array[1..MAX,1..MAX] Of Byte; Var MA,MB,MC:MATRAN; DONGA,COTA,DONGB,COTB,DONGC,COTC:Byte; {Thu tuc dinh vi cursor} Procedure WriteXY(X,Y:Byte; CHUOI:String); Begin GotoXY(X,Y); Write(CHUOI); End; {Thu tuc in tieu de} Procedure TIEUDE; Begin Writexy(25,1,TD1); WritexY(25,2,TD2); End; {thu tuc tao ma tran} Procedure TAOMATRAN(Var A,B:MATRAN; Var DA,CA,DB,CB:Byte); Var i,j:Byte; Begin Repeat WriteXY(15,4,`- Nhap so dong Ma tran A: `); Readln(DA); WriteXY(15,5,`- Nhap so cot Ma tran A: `); Readln(CA); WriteXY(15,6,`- Nhap so dong Ma tran B: `); Readln(DB); WriteXY(15,7,`- Nhap so cot Ma tran B: `); Readln(CB); Until CA=DB; For i:=1 To DA Do For j:=1 To CA Do A[i,j]:=Random(20); For i:=1 To DB Do For j:=1 To CB Do B[i,j]:=Random(10); End; {Thu tuc in ma tran} Procedure INMATRAN(X:MATRAN;DONG,COT:Byte); Var i,j:Byte; Begin For i:=1 To DONG Do Begin For j:=1 To COT Do Write(X[i,j]:5); Writeln; End; End;