Bài tập Pascal 05 Mảng 2 chiều

Bài 01 – Mảng 2 chiều Bài 02 – Max : Số lớn nhất của mảng Bài 03 – Max : Số lớn nhất trong mỗi dòng của mảng Bài 04 – Đường chéo chính của Ma trận vuông Bài 05 – Đường chéo phụ của Ma trận vuông Bài 06 – Số lớn nhất trên đường chéo phụ của ma trận vuông Bài 07 – Số nhỏ nhất trên đường chéo chính của ma trận vuông Bài 08 – Tìm Số lớn nhất trên mỗi dòng của ma trận vuông và đổi vị trí ra đầu dòng

Bài 01 – Mảng 2 chiều

(Mảng 2 chiều A: Array [1 10, 1 10] of Integer là mảng chứa tối ña 10 dòng, mỗi dòng có tối ña 10

số nguyên từ A[1,1] ñến A[10,10] )

Bạn hãy nhập một mảng số nguyên và tính Tổng các số trong mảng ñó

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);

{Nhập mảng 2 chiều}

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 mảng 2 chiều}

For i:=1 to m do begin

For j:=1 to n do

Write(A[i, j]:3);

WriteLn;

End;

{Tính tổng các phần tử của mảng}

Tong := 0;

For i:=1 to n do

For j:=1 to m do

Tong := Tong + A[I, j];

{In ra Tổng các số trong mảng}

WriteLn('Tong cac so cua mang la ', Tong);

ReadLn;

End

Bài 02 – Max : Số lớn nhất của mảng

(Mảng 1 4 7

5 2 9

8 1 3

có Số lớn nhất là 9, nằm ở vị trí dòng 2 cột 3)

Bạn hãy nhập một mảng số nguyên và tìm Số lớn nhất cùng với vị trí của nó trong mảng ñó

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);

{Nhập mảng 2 chiều}

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 mảng 2 chiều}

For i:=1 to m do begin

For j:=1 to n do

Write(A[i, j]:3);

WriteLn;

End;

{Tìm Số lớn nhất của mảng}

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ố lớn nhất và vị trí}

WriteLn('So lon nhat = ', Max, ', o dong ', VT_dong, ' cot ', vt_cot); ReadLn;

End

Bài 03 – Max : Số lớn nhất trong mỗi dòng của mảng

(Mảng 1 4 7

5 2 9

8 1 3

có các Số lớn nhất dòng 7, 9 và 8)

Bạn hãy nhập một mảng số nguyên và tìm Số lớn nhất cùng với vị trí của nó trong mảng ñó

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);

{Nhập mảng 2 chiều}

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 mảng 2 chiều}

For i:=1 to m do begin

For j:=1 to n do

Write(A[i, j]:3);

WriteLn;

End;

{Tìm Số lớn nhất từng dòng của mảng}

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 của Ma trận vuông

(Mảng 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)

Bạn hãy nhập một ma trận vuông và tìm các số trên ñường chéo chính

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);

{Nhập ma trận 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 trận 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ụ của Ma trận vuông

(Mảng 1 4 7

5 2 9

8 1 3

có các số trên ñường chéo phụ là 7, 2 và 8)

Bạn hãy nhập một ma trận 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);

{Nhập ma trận 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 trận 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ố lớn nhất trên ñường chéo phụ của ma trận vuông

(Mảng 1 4 7

5 2 9

8 1 3

có số lớn nhất trên ñường chéo phụ là 8)

Bạn hãy nhập một ma trận vuông và tìm số lớn nhất trên ñường chéo phụ

Bài 07 – Số nhỏ nhất trên ñường chéo chính của ma trận vuông

(Mảng 2 4 7

5 1 9

8 1 3

có số nhỏ nhất trên ñường chéo chính là 1)

Bạn hãy nhập một ma trận vuông và tìm số nhỏ nhất trên ñường chéo chính

Bài 08 – Tìm Số lớn nhất trên mỗi dòng của ma trận vuông và ñổi vị trí ra ñầu dòng

(Mảng 2 4 7 7 4 2

5 1 9 => 9 1 5

8 1 3 8 1 3

)

Bạn hãy nhập một ma trận vuông và ñổi các số lớn nhất ra ñầu dòng