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 tập Pascal – Phần Mảng chiều Bài 01 – Mảng chiều (Mảng chiều A: Array [1 10, 10] of Integer mảng chứa tối ña 10 dòng, dòng có tối ña 10 số nguyên từ A[1,1] ñến A[10,10] ) Bạn nhập mảng số nguyên tính Tổng số 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 chiều} For i:=1 to n For j:=1 to n begin WriteLn('Hay nhap phan tu thu ', i, j); ReadLn(A[i, j]); End; {In mảng chiều} For i:=1 to m begin For j:=1 to n Write(A[i, j]:3); WriteLn; End; {Tính tổng phần tử mảng} Tong := 0; For i:=1 to n For j:=1 to m Tong := Tong + A[I, j]; {In Tổng số mảng} WriteLn('Tong cac so cua mang la ', Tong); ReadLn; End Bài 02 – Max : Số lớn mảng (Mảng có Số lớn 9, nằm vị trí dòng cột 3) Bạn nhập mảng số nguyên tìm Số lớn với vị trí mảng ñó Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Phần Mảng chiều 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 chiều} For i:=1 to n For j:=1 to n begin WriteLn('Hay nhap phan tu thu ', i, j); ReadLn(A[i, j]); End; {In mảng chiều} For i:=1 to m begin For j:=1 to n Write(A[i, j]:3); WriteLn; End; {Tìm Số lớn mảng} Max := A[1,1]; For i:=1 to n For j:=1 to m If Max < A[i,j] then begin Max := A[i,j]; VT_dong := i; VT_cot := j; End; {In Số lớn vị trí} WriteLn('So lon nhat = ', Max, ', o dong ', VT_dong, ' cot ', vt_cot); ReadLn; End Bài 03 – Max : Số lớn dòng mảng (Mảng có Số lớn dòng 7, 8) Bạn nhập mảng số nguyên tìm Số lớn với vị trí mảng ñó Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Phần Mảng chiều 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 chiều} For i:=1 to n For j:=1 to n begin WriteLn('Hay nhap phan tu thu ', i, j); ReadLn(A[i, j]); End; {In mảng chiều} For i:=1 to m begin For j:=1 to n Write(A[i, j]:3); WriteLn; End; {Tìm Số lớn dòng mảng} For i:=1 to n begin Max := A[i,1]; For j:=1 to m 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 Ma trận vuông (Mảng có số ñường chéo 1, 3) Bạn nhập ma trận vuông tìm số ñường chéo Var A: Array [1 10] of Integer; Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Phần Mảng chiều 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 For j:=1 to n begin WriteLn('Hay nhap phan tu thu ', i, j); ReadLn(A[i, j]); End; {In ma trận vuông} For i:=1 to n begin For j:=1 to n Write(A[i, j]:3); WriteLn; End; {Tìm số ñường chéo chính} WriteLn('Cac so tren duong cheo chinh la:'); For i:=1 to n For j:=1 to n If i = j then Write(A[i,j]:3); WriteLn; ReadLn; End Bài 05 – Đường chéo phụ Ma trận vuông (Mảng có số ñường chéo phụ 7, 8) Bạn nhập ma trận vuông tìm số ñườ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 Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Phần Mảng chiều For j:=1 to n begin WriteLn('Hay nhap phan tu thu ', i, j); ReadLn(A[i, j]); End; {In ma trận vuông} For i:=1 to n begin For j:=1 to n Write(A[i, j]:3); WriteLn; End; {Tìm số ñường chéo phụ} WriteLn('Cac so tren duong cheo phu la:'); For i:=1 to n For j:=1 to n If i+j = n+1 then Write(A[i,j]:3); WriteLn; ReadLn; End Bài 06 – Số lớn ñường chéo phụ ma trận vuông (Mảng có số lớn ñường chéo phụ 8) Bạn nhập ma trận vuông tìm số lớn ñường chéo phụ Bài 07 – Số nhỏ ñường chéo ma trận vuông (Mảng có số nhỏ ñường chéo 1) Bạn nhập ma trận vuông tìm số nhỏ ñường chéo Bài 08 – Tìm Số lớn dòng ma trận vuông ñổi vị trí ñầu dòng (Mảng 7 => 8 ) Bạn nhập ma trận vuông ñổi số lớn ñầu dòng Biên soạn: Th.s Nguyễn Anh Việt Trang ... tập Pascal – Phần Mảng chiều 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' );... tập Pascal – Phần Mảng chiều 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' );... tìm số ñường chéo Var A: Array [1 10] of Integer; Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Phần Mảng chiều i, j, m, n: Integer; Begin WriteLn('Hay nhap so dong, cot cua ma tran vuong');