TAILIEUCHUNG - Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 9

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 .

Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.