Tham khảo tài liệu 'giáo trình turbo pascal - lý thuyết, bài tập và lời giải part 9', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | TS. Bùi Thế Tâm 160 Giáo trình Turbo Pascal 7 0 end. Bài 1 chương 4 hàm CSCLN và BSCNN Var a i n u V integer Function Uscln x y integer integer Begin while xOy do if X y then x x-y else y y-x Usein x end Function Bscnn x y integer integer begin Bscnn x y div Uscln x y end Begin write N readln n write Vao so thu nhat readln a u a v a for i 2 to n do begin write 1Vao so thu i readln a u Usein u a v Bscnn v a end writein Usein u Bscnn v readln end. Bài 2 chương 4 hàm sắp xếp và hàm tính trung bình của mâng một chiều Type mang array of real var a mang i n k integer function SapXepfa mang n integer integer var tang giam bang byte i integer begin bang 1 for i 2 to n do if a i Oa l then begin bang 0 break end if bang l then begin SapXep 2 exit end tang 1 for i l to n-1 do if a i a i l then begin tang 0 break end if tang l then begin SapXep 1 exit end giam 1 for i 1 to n-1 do if a i a i l then begin giam 0 break end if giam l then begin SapXep -1 exit end SapXep 0 end Begin write N readin n for i l to n do begin write a i readln a i end k SapXep a n case k of 1 writein Mang da sap xep tang dan -1 writein Mang da sap xep giam dan 0 writein Mang chua sap xep1 2 writeln Cac phan tu bang nhau end readin end. Lập hàm TrungBiuh Type mang array of real var a mang i n nl n2 integer function TrungBinhía mang n nl n2 integer real var tong real i integer begin tong 0 for i nl to n2 do tong tongt a i TrungBinh tong n2-nl l TS. Bùi Thế Tâm 161 Giáo trìbh Turbo Pascal end Begin writef N readln n for i 1 to n do begin write a i 1 readln a i end write nl n2 readln nl n2 writein Trung binh TrungBinh a n nl n2 1 5 readln end. Bài 3 chương 4 tổng cùa các giai thừa Var i n t integer tong longint function gthua n longint longint begin if n 0 then l else gthua n gthuc n-1 end Begin write N readln n tong 0 for i 1 to n do tong tong gthua i writein Tong - 1 tong readln End. Bài 4 chương 4 hàm tính tiền lưtmg Var ht string 25J In real snc integer Function TienLuong snc .