Bài tập pascal

Bài 39: Viết chương trình nhập vào một ma trận. In ma trận chuyển vị của nó ra
màn hình. Ma trận B là ma trận chuyển vị của ma trận A nếu các phần tử của chúng có quan hệ B[i, j] = A[j, i].
Program MAT_TRAN_CHUYEN_VI; Uses Crt;
Type MT = array[1..20,1..20] of integer; Var a,b:MT;
n,m:integer;
Procedure Input(Var a:MT; n,m:integer); Var i, j:integer;
Begin
For i:=1 to n do
For j:=1 to m do
Begin



End;


End;

Write(`a`,i,j,`=`); Readln(a[i,j]);



Procedure Output(a:MT;n,m:integer); Var i,j:integer;
Begin
For i:=1 to n do
Begin






End;




End;

For j:=1 to m do
write (a[i,j]:3);
writeln;



Procedure Chuyenvi(a:MT;n,m:integer; var b:MT); Var i,j:integer;
Begin
For j:=1 to m do
For i:=1 to n do





Trang 20

End; Begin





Clrscr;
b[j,i]:=a[i,j];




















End.
Writeln(`TIM MA TRAN CHUYEN VI`); Writeln(`----------------------`);
Write(`Nhap vao so dong n = `);readln(n); Write(`Nhap vao so cot m = `);readln(m); Input(a,n,m);
Writeln(`Ma tran a la:`); Output(a,n,m); Chuyenvi(a,n,m,b);
Writeln(`Ma tran chuyen vi b la:`); Output(b,m,n);
Readln;

Bài 40 :Viết chương trình nhập vào một ma trận A vuông cấp n. Chuyển A thành chính mà trận chuyển vị của A (không sử dụng ma trận trung gian).
Program MAT_TRAN_CHUYEN_VI; Uses Crt;
Type MT = array[1..20,1..20] of integer; Var a,b:MT;
n,m:integer;
Procedure Input(Var a:MT;n:integer); Var i, j:integer;
Begin
For i:=1 to n do
For j:=1 to n do
Begin



End;


End;

Write(`a`,i,j,`=`); Readln(a[i,j]);



Procedure Output(a:MT;n:integer); Var i,j:integer;
Begin
For i:=1 to n do
Begin






End;




End;

For j:=1 to n do
Write (a[i,j]:3); Writeln;



Procedure Chuyenvi(var a:MT; n:integer); Var i,j,t:integer;
Begin
For i:=1 to n do
For j:=i+1 to n do
Begin




End;


t:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=t;









Trang 21
End; Begin
















End.



Clrscr;
Writeln(`TIM MA TRAN CHUYEN VI`); Writeln(`-------------------------------------`);
Write(`Nhap vao cap ma tran vuong n = `);readln(n); Input(a,n);
Writeln(`Ma tran a la:`); Output(a,n); Chuyenvi(a,n);
Writeln(`Ma tran chuyen vi b la:`); Output(a,n);
Readln;

Bài 43: Chuyển 1 số từ hệ thập phân sang nhị phân. Program DOI_THAP_PHAN_SANG_NHI_PHAN; Uses Crt;
Var d:array[1..20] of byte;
i,j,n:integer;
Begin