Một số 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
End.

Clrscr;
Writeln('DOI SO THAP PHAN SANG NHI PHAN:'); Writeln('--------------------------------------------------'); Write('Nhap so thap phan la n='); Readln(n);
i:=1; Repeat
d[i]:=n mod 2; n:=n div 2; i:=i+1;
Until(n=0);
Write('So nhi phan la:'); For j:=i-1 downto 1 do Write (d[j]);
Readln;
Bài 44: Chuyển 1 số từ hệ thập phân sang bát phân. Program DOI_THAP_PHAN_SANG_BAT_PHAN; Uses Crt;
Var	d:array[1..20] of byte;
i,j,n:integer;
Begin

Clrscr;

Trang 24
End.
Writeln('DOI SO THAP PHAN SANG BAT PHAN:'); Writeln('-------------------------------');
Write('Nhap so can doi n = ');Readln(n);
i:=1; Repeat
d[i]:=n mod 8; n:=n div 8; i:=i+1;
Until n=0;
Write('So bat phan la:'); For j:=i-1 downto 1 do Write(d[j]);
Readln;
b. In ra màn hình trong các phần tử trên đường chéo phụ. Program MATRAN_TONGDUONGCHEO;
Uses Crt;
Var	i,j,n,sum1,sum2:integer;
a:array[1..10,1..10]of integer;
Begin

Clrscr;
Writeln('TINH TONG DUONG CHEO CHINH & PHU:'); Writeln('---------------------------------');
Write('Nhap cap ma tran vuong n = '); Readln(n); For i:=1 to n do
For j:= 1 to n do
Begin
Write('a[',i,j,']= '); Readln(a[i,j]);

Trang 30
End;
Writeln(' Ma tran vua nhap la:'); For i:=1 to n do
Begin
End;
sum1:=0;
For j:= 1 to n do
Write(a[i,j]:4); Writeln;
End.
For i:=1 to n do sum1:=sum1+a[i,i];
Writeln('Tong cac phan tu tren duong cheo chinh la: ', sum1);
sum2:=0;
For i:=1 to n do sum2:=sum2+a[i,n-i+1];
Writeln('Tong cac phan tu tren duong cheo phu la: ', sum2); Readln;