Bài tập Pascal 02 Procedure và Function

Bài 01 – In ra giá trị giai thừa của mảng 1 chiều Bài 02 – In ra giá trị luỹ thừa 2 của các phần tử trong mảng 1 chiều Bài 03 – In ra giá trị nhân đôi của các phần tử trong mảng 1 chiều Bài 04 – In ra giá trị nhân 4 của các phần tử trong mảng 1 chiều Bài 05 – In ra số nguyên tố trong mảng 1 chiều

Bài tập Pascal – Procedure Function Function hàm người lập trình tự tạo để thực chức đó, TD: Function GiaiThua(k: Integer): LongInt; hàm dùng để tính giai thừa số k trả giá trị giai thừa K Function GiaiThua(k: Integer): LongInt; Var GTGT: LongInt; Begin GTGT := 1; For i := to k GTGT := GTGT * i; GiaiThua := GTGT; End; Bài 01 – In giá trị giai thừa mảng chiều Bạn nhập dãy số nguyên tính giai thừa số dãy (Dãy 1, 4, 7, 5, => In 1, 24, 5040, 120, 2) Var A: Array [1 10] of Integer; i, n: Integer; Function GiaiThua(k: Integer): LongInt; Var GTGT: LongInt; Begin GTGT := 1; For i := to k GTGT := GTGT * i; GiaiThua := GTGT; End; Begin WriteLn('Hay nhap so phan tu cua day so'); ReadLn(n); {Nhập dãy số} For i := to n begin WriteLn('Hay nhap phan tu thu ', i); ReadLn(A[i]); End; Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Procedure Function {In giá trị giai thừa} For i := to n Write(GiaiThua(A[i]):6); ReadLn; End Bài 02 – In giá trị luỹ thừa phần tử mảng chiều Bạn nhập dãy số nguyên tính luỹ thừa số dãy (Dãy 1, 4, 7, 5, => In 1, 16, 49, 25, 4) Var A: Array [1 10] of Integer; i, n: Integer; Function LuyThua(a, k: Integer): LongInt; Var GTLT: LongInt; Begin GTLT := 1; For i := to k GTLT := GTLT * a; LuyThua := GTLT; End; Begin WriteLn('Hay nhap so phan tu cua day so'); ReadLn(n); {Nhập dãy số} For i := to n begin WriteLn('Hay nhap phan tu thu ', i); ReadLn(A[i]); End; {In giá trị luỹ thừa 2} For i := to n Write(LuyThua(A[i], 2):6); ReadLn; End Procedure tương tự Function, có đối số, không giá trị trả TD: Procedure NhanDoiMang; Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Procedure Function Procedure NhanDoiMang; Begin For i := to n A[i] := A[i] * 2; End; Bài 03 – In giá trị nhân đôi phần tử mảng chiều Bạn nhập dãy số nguyên nhân đôi số dãy (Dãy 1, 4, 7, 5, => In 2, 8, 14, 10, 4) Var A: Array [1 10] of Integer; i, n: Integer; Procedure NhanDoiMang; Begin For i := to n A[i] := A[i] * 2; End; Begin WriteLn('Hay nhap so phan tu cua day so'); ReadLn(n); {Nhập dãy số} For i := to n begin WriteLn('Hay nhap phan tu thu ', i); ReadLn(A[i]); End; {Nhân đôi phần tử mảng} NhanDoiMang; {In dãy số} For i := to n Write(A[i]:4); End; WriteLn; ReadLn; End Biên soạn: Th.s Nguyễn Anh Việt Trang Bài tập Pascal – Procedure Function Bài 04 – In giá trị nhân phần tử mảng chiều Bạn nhập dãy số nguyên nhân số dãy Chỉ sử dụng Procedure NhanDoiMang Bài 03 (Dãy 1, 4, 7, 5, => In 4, 16, 28, 20, 8) Bài 05 – In số nguyên tố mảng chiều Bạn nhập dãy số nguyên in số nguyên tố dãy Số nguyên tố số chia hết cho 2, 3, 5, 7, 11, 13, … (Dãy 1, 4, 7, 5, 23 => In 7, 5, 23) Var A: Array [1 10] of Integer; i, n, Dem: Integer; Function NguyenTo(k: Integer): Boolean; {Boolean: Chỉ có True False} Var j: Integer; Begin If (k