Bài tập Pascal 04 Mảng 1 chiều

Bài 01 – Mảng 1 chiều Bài 02 – Max : Số lớn nhất của dãy số Bài 03 – Min : Số nhỏ nhất của dãy số Bài 04 – Max chẵn: Số chẵn lớn nhất của dãy số. TD: (Dãy 1, 4, 7, 5, 2 có Số chẵn lớn nhất là 4, nằm ở vị trí 2) Bài 05 – Max lẻ: Số lẻ lớn nhất của dãy số. TD: (Dãy 1, 4, 7, 5, 2 có Số lẻ lớn nhất là 7, nằm ở vị trí 3) Bài 06 – Tổng các số chẵn. TD: (Dãy 1, 4, 7, 5, 2 có tổng các số chẵn là 6) Bài 07 – Tìm các số chính phương (là bình phương của một số). TD: (Dãy 1, 4, 7, 5, 9 có các số chính phương là 1, 4, 9) Bài 08 – Tìm các số chính phương chẵn. TD: (Dãy 1, 4, 7, 16, 9 có các số chính phương chẵn là 4, 16)

Bài tập Pascal – Phần Mảng (Array) Bài 01 – Mảng chiều (Mảng A: Array [1 10] of Integer dãy chứa 10 Số nguyên từ A[1] ñến A[10] ) Bạn nhập dãy số nguyên tính Tổng số dãy ñó Var A: Array [1 10] of Integer; I, n, Tong: Integer; Begin WriteLn('Hay nhap so phan tu cua day so'); ReadLn(n); {Nhập dãy số} For i:=1 to n begin WriteLn('Hay nhap phan tu thu ', i); ReadLn(A[i]); End; {Tính tổng dãy số} Tong := 0; For i:=1 to n Tong := Tong + A[i]; {In Tổng dãy số} WriteLn('Tong cua day so la ', Tong); ReadLn; End Bài 02 – Max : Số lớn dãy số (Dãy 1, 4, 7, 5, có Số lớn 7, nằm vị trí 3) Bạn nhập dãy số nguyên tìm Số lớn với vị trí dãy ñó Var A: Array [1 10] of Integer; i, n, ViTri, Max: Integer; Begin WriteLn('Hay nhap so phan tu cua day so'); ReadLn(n); {Nhập dãy số} For i:=1 to n begin WriteLn('Hay nhap phan tu thu ', i); ReadLn(A[i]); End; {Tìm số lớn vị trí} Max := A[1]; Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Phần Mảng (Array) ViTri := 1; For i:=2 to n If Max < A[i] then begin Max := A[i]; ViTri := i; End; {In Số lớn vị trí} WriteLn('So lon nhat cua day so la ', Max, ', tai vi tri ', ViTri); ReadLn; End Bài 03 – Min : Số nhỏ dãy số (Dãy 1, 4, 7, 5, có Số nhỏ 1, nằm vị trí 1) Bạn nhập dãy số nguyên tìm Số nhỏ với vị trí dãy ñó Bài 04 – Max chẵn: Số chẵn lớn dãy số (Dãy 1, 4, 7, 5, có Số chẵn lớn 4, nằm vị trí 2) Bạn nhập dãy số nguyên tìm Số chẵn lớn với vị trí dãy ñó Bài 05 – Max lẻ: Số lẻ lớn dãy số (Dãy 1, 4, 7, 5, có Số lẻ lớn 7, nằm vị trí 3) Bạn nhập dãy số nguyên tìm Số lẻ lớn với vị trí dãy ñó Bài 06 – Tổng số chẵn (Dãy 1, 4, 7, 5, có tổng số chẵn 6) Bạn nhập dãy số nguyên tìm Tổng số chẵn dãy ñó Bài 07 – Tìm số phương (là bình phương số) (Dãy 1, 4, 7, 5, có số phương 1, 4, 9) Bạn nhập dãy số nguyên in số phương dãy ñó Chú ý: Số k số phương TRUNC(SQRT(k)) = SQRT(k) Trunc hàm dùng ñể cắt bỏ số lẻ, TD: Trunc(3.1) = Sqrt hàm lấy bậc 2, TD: Sqrt(4) = Var A: Array [1 10] of Integer; i, n, Dem: Integer; Begin WriteLn('Hay nhap so phan tu cua day so'); ReadLn(n); Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Phần Mảng (Array) {Nhập dãy số} For i:=1 to n begin WriteLn('Hay nhap phan tu thu ', i); ReadLn(A[i]); End; {Tìm số phương} For i:=1 to n If TRUNC(SQRT(A[i])) = SQRT(A[i]) then begin WriteLn(A[i], ' la so chinh phuong'); Dem := Dem+1; End; ReadLn; If Dem = then WriteLn('Khong co so chinh phuong nao day'); End Bài 08 – Tìm số phương chẵn (Dãy 1, 4, 7, 16, có số phương chẵn 4, 16) Bạn nhập dãy số nguyên in số phương chẵn dãy ñó Biên soạn: Th.s Nguyễn Anh Việt Trang ...Bài tập Pascal – Phần Mảng (Array) ViTri := 1; For i:=2 to n If Max < A[i] then begin Max := A[i]; ViTri... 1, 4, 7, 5, có Số nhỏ 1, nằm vị trí 1) Bạn nhập dãy số nguyên tìm Số nhỏ với vị trí dãy ñó Bài 04 – Max chẵn: Số chẵn lớn dãy số (Dãy 1, 4, 7, 5, có Số chẵn lớn 4, nằm vị trí 2) Bạn nhập dãy... WriteLn('Hay nhap so phan tu cua day so'); ReadLn(n); Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Phần Mảng (Array) {Nhập dãy số} For i:=1 to n begin WriteLn('Hay nhap phan tu thu ', i);