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

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;

{Thu tuc xuat ket qua}
Procedure XUATKQ(A,B:MATRAN;Var C:MATRAN; DA,CA,DB,CB:Byte;Var DC,CC:Byte);
Var
i,j,k:Byte;
Begin
Writeln('MA TRAN A: ');
INMATRAN(A,DA,CA);
Writeln('MA TRAN B: ');
INMATRAN(B,DB,CB);
DC:=DA;
CC:=CB;
For i:=1 To DA Do
For j:=1 To CB Do
Begin
C[i,j]:=0;
For k:=1 To CA Do C[i,j]:=C[i,j]+(A[i,k]*B[k,j]);
End;
Writeln('MA TRAN TICH: ');
INMATRAN(C,DC,CC);
End;

{chuong trinh chinh}
Begin
Clrscr;
TIEUDE;
TAOMATRAN(MA,MB,DONGA,COTA,DONGB,COTB);
XUATKQ(MA,MB,MC,DONGA,COTA,DONGB,COTB,DONGC,COTC);
End.

Program TIMKIEMTUANTU;
Uses    Wincrt;
Const
     MAX = 30;
Type
    MANG = Array[1..MAX] Of Byte;
Var
   DAYSO:MANG;
   SOPT,SOTIM:Byte;

   {Thu tuc doc tap tin}
Procedure DOCTT(Var A:MANG; Var N,X:Byte);
          Var
             i:Byte;
             F:Text;
          Begin
               Assign(F,'D:\TIMKIEM.INP');
               Reset(F);
               Readln(F,N);
               For i:=1 To N Do Read(F,A[i]);
               Close(F);
               Write('Nhap con so muon tim: '); Readln(X);
          End;

   {Thu tuc tim kiem tuan tu}
Function TIMKIEM(A:MANG;N,X:Byte):Boolean;
          Var
             FOUND:Boolean;
             i:Byte;
          Begin
               {Truoc khi tim thi gan gia tri ban dau cho bien found}
               FOUND:=False;
               For i:=1 To N Do
                   If A[i]=X Then
                      Begin
                           Found:= True;
                           Writeln('Phan tu ',X,' o vi tri thu ',i);
                      End;
               TIMKIEM:=FOUND;
          End;

    {Thu tuc xuat ket qua}
Procedure XUATKQ(A:MANG;N,X:Byte);
          Var
             KETQUA:Boolean;
          Begin
               KETQUA:=TIMKIEM(A,N,X);
               If KETQUA = True Then Write('Tim thay phan tu')
               Else Write('Khong tim thay phan tu');
          End;

   {Chuong trinh chinh}
Begin
     DOCTT(DAYSO,SOPT,SOTIM);
     XUATKQ(DAYSO,SOPT,SOTIM);
End.