TAILIEUCHUNG - Bài tập Pascal: Phần Mảng 2 chiều - Th.S Nguyễn Anh Việt
Tài liệu cung cấp các bài tập của Pascal về mảng 2 chiều bao gồm 8 bài tập với các nội dung như số lớn nhất của mảng, số lớn nhất trong mỗi dòng của mảng, đường chéo chính của ma trận vuông, đường chéo phụ của ma trận vuông, số lớn nhất trên đường chéo phụ của ma trận vuông, số nhỏ nhất trên đường chéo chính của ma trận vuông, 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. tài liệu để nắm chi tiết nội dung các bài tập. | Bài tập Pascal: Phần Mảng 2 chiều - Nguyễn Anh Việt Bài tập Pascal – Phần Mảng 2 chiều Bài 01 – Mảng 2 chiều (Mảng 2 chiều A: Array [110, 110] 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 [110] 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 ñó. Biên soạn: Nguyễn Anh Việt Trang 1 Bài tập Pascal – Phần Mảng 2 chiều Var A: Array [110] 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
đang nạp các trang xem trước
