Bài tp Pascal – Phn Mng 2 chiu
Biên son: Th.s Nguyn Anh Vit Trang 1
Bài 01 – Mng 2 chiu
(Mng 2 chiu A: Array [1..10, 1..10] of Integer là mng cha ti ña 10 dòng, mi dòng có ti ña 10
s nguyên t A[1,1] ñn A[10,10] )
Bn hãy nhp mt mng s nguyên và tính Tng các s trong mng ñó.
Var
A: Array [1..10] of Integer;
i, j, m, n, Tong: Integer;
Begin
WriteLn('Hay nhap so dong cua mang');
ReadLn(m);
WriteLn('Hay nhap so cot cua mang');
ReadLn(n);
{Nhp mng 2 chiu}
For i:=1 to n do
For j:=1 to n do begin
WriteLn('Hay nhap phan tu thu ', i, j);
ReadLn(A[i, j]);
End;
{In ra mng 2 chiu}
For i:=1 to m do begin
For j:=1 to n do
Write(A[i, j]:3);
WriteLn;
End;
{Tính tng các phn t ca mng}
Tong := 0;
For i:=1 to n do
For j:=1 to m do
Tong := Tong + A[I, j];
{In ra Tng các s trong mng}
WriteLn('Tong cac so cua mang la ', Tong);
ReadLn;
End.
Bài 02 – Max : S ln nht ca mng
(Mng 1 4 7
5 2 9
8 1 3
có S ln nht là 9, nm v trí dòng 2
ct
3)
Bn hãy nhp mt mng s nguyên và tìm S ln nht cùng vi v trí ca nó trong mng ñó.
Bài tp Pascal – Phn Mng 2 chiu
Biên son: Th.s Nguyn Anh Vit Trang 2
Var
A: Array [1..10] of Integer;
i, j, m, n, Max, VT_dong, VT_cot: Integer;
Begin
WriteLn('Hay nhap so dong cua mang');
ReadLn(m);
WriteLn('Hay nhap so cot cua mang');
ReadLn(n);
{Nhp mng 2 chiu}
For i:=1 to n do
For j:=1 to n do begin
WriteLn('Hay nhap phan tu thu ', i, j);
ReadLn(A[i, j]);
End;
{In ra mng 2 chiu}
For i:=1 to m do begin
For j:=1 to n do
Write(A[i, j]:3);
WriteLn;
End;
{Tìm S ln nht ca mng}
Max := A[1,1];
For i:=1 to n do
For j:=1 to m do
If Max < A[i,j] then begin
Max := A[i,j];
VT_dong := i;
VT_cot := j;
End;
{In ra S ln nht và v trí}
WriteLn('So lon nhat = ', Max, ', o dong ', VT_dong, ' cot ', vt_cot);
ReadLn;
End.
Bài 03 – Max : S ln nht trong mi dòng ca mng
(Mng 1 4 7
5 2 9
8 1 3
có các S ln nht dòng 7, 9 và 8)
Bn hãy nhp mt mng s nguyên và tìm S ln nht cùng vi v trí ca nó trong mng ñó.
Bài tp Pascal – Phn Mng 2 chiu
Biên son: Th.s Nguyn Anh Vit Trang 3
Var
A: Array [1..10] of Integer;
i, j, m, n, Max, VT_dong, VT_cot: Integer;
Begin
WriteLn('Hay nhap so dong cua mang');
ReadLn(m);
WriteLn('Hay nhap so cot cua mang');
ReadLn(n);
{Nhp mng 2 chiu}
For i:=1 to n do
For j:=1 to n do begin
WriteLn('Hay nhap phan tu thu ', i, j);
ReadLn(A[i, j]);
End;
{In ra mng 2 chiu}
For i:=1 to m do begin
For j:=1 to n do
Write(A[i, j]:3);
WriteLn;
End;
{Tìm S ln nht tng dòng ca mng}
For i:=1 to n do begin
Max := A[i,1];
For j:=1 to m do
If Max < A[i,j] then begin
Max := A[i,j];
VT_dong := i;
VT_cot := j;
End;
WriteLn('So lon nhat = ', Max, ', o dong ', VT_dong, ' cot ', vt_cot);
End;
ReadLn;
End.
Bài 04 – Đưng chéo chính ca Ma trn vuông
(Mng 1 4 7
5 2 9
8 1 3
có các s trên ñưng chéo chính là 1, 2 và 3)
Bn hãy nhp mt ma trn vuông và tìm các s trên ñưng chéo chính.
Var
A: Array [1..10] of Integer;
Bài tp Pascal – Phn Mng 2 chiu
Biên son: Th.s Nguyn Anh Vit Trang 4
i, j, m, n: Integer;
Begin
WriteLn('Hay nhap so dong, cot cua ma tran vuong');
ReadLn(n);
{Nhp ma trn vuông}
For i:=1 to n do
For j:=1 to n do begin
WriteLn('Hay nhap phan tu thu ', i, j);
ReadLn(A[i, j]);
End;
{In ra ma trn vuông}
For i:=1 to n do begin
For j:=1 to n do
Write(A[i, j]:3);
WriteLn;
End;
{Tìm các s trên ñưng chéo chính}
WriteLn('Cac so tren duong cheo chinh la:');
For i:=1 to n do
For j:=1 to n do
If i = j then
Write(A[i,j]:3);
WriteLn;
ReadLn;
End.
Bài 05 – Đưng chéo ph ca Ma trn vuông
(Mng 1 4 7
5 2 9
8 1 3
có các s trên ñưng chéo ph là 7, 2 và 8)
Bn hãy nhp mt ma trn vuông và tìm các s trên ñưng chéo ph.
Var
A: Array [1..10] of Integer;
i, j, m, n: Integer;
Begin
WriteLn('Hay nhap so dong, cot cua ma tran vuong');
ReadLn(n);
{Nhp ma trn vuông}
For i:=1 to n do
Bài tp Pascal – Phn Mng 2 chiu
Biên son: Th.s Nguyn Anh Vit Trang 5
For j:=1 to n do begin
WriteLn('Hay nhap phan tu thu ', i, j);
ReadLn(A[i, j]);
End;
{In ra ma trn vuông}
For i:=1 to n do begin
For j:=1 to n do
Write(A[i, j]:3);
WriteLn;
End;
{Tìm các s trên ñưng chéo ph}
WriteLn('Cac so tren duong cheo phu la:');
For i:=1 to n do
For j:=1 to n do
If i+j = n+1 then
Write(A[i,j]:3);
WriteLn;
ReadLn;
End.
Bài 06 – S ln nht trên ñưng chéo ph ca ma trn vuông
(Mng 1 4 7
5 2 9
8 1 3
có s ln nht trên ñưng chéo ph là 8)
Bn hãy nhp mt ma trn vuông và tìm s ln nht trên ñưng chéo ph.
Bài 07 – S nh nht trên ñưng chéo chính ca ma trn vuông
(Mng 2 4 7
5 1 9
8 1 3
có s nh nht trên ñưng chéo chính là 1)
Bn hãy nhp mt ma trn vuông và tìm s nh nht trên ñưng chéo chính.
Bài 08 – Tìm S ln nht trên mi dòng ca ma trn vuông và ñi v trí ra ñu dòng
(Mng 2 4 7 7 4 2
5 1 9 => 9 1 5
8 1 3 8 1 3
)
Bn hãy nhp mt ma trn vuông và ñi các s ln nht ra ñu dòng.