Kinh doanh - Marketing
Kinh tế quản lý
Biểu mẫu - Văn bản
Tài chính - Ngân hàng
Công nghệ thông tin
Tiếng anh ngoại ngữ
Kĩ thuật công nghệ
Khoa học tự nhiên
Khoa học xã hội
Văn hóa nghệ thuật
Sức khỏe - Y tế
Văn bản luật
Nông Lâm Ngư
Kỹ năng mềm
Luận văn - Báo cáo
Giải trí - Thư giãn
Tài liệu phổ thông
Văn mẫu
Giới thiệu
Đăng ký
Đăng nhập
Tìm
Danh mục
Kinh doanh - Marketing
Kinh tế quản lý
Biểu mẫu - Văn bản
Tài chính - Ngân hàng
Công nghệ thông tin
Tiếng anh ngoại ngữ
Kĩ thuật công nghệ
Khoa học tự nhiên
Khoa học xã hội
Văn hóa nghệ thuật
Y tế sức khỏe
Văn bản luật
Nông lâm ngư
Kĩ năng mềm
Luận văn - Báo cáo
Giải trí - Thư giãn
Tài liệu phổ thông
Văn mẫu
Thông tin
Điều khoản sử dụng
Quy định bảo mật
Quy chế hoạt động
Chính sách bản quyền
Giới thiệu
Đăng ký
Đăng nhập
0
Trang chủ
Công Nghệ Thông Tin
Kỹ thuật lập trình
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 9
Đang chuẩn bị liên kết để tải về tài liệu:
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 9
Hoàng Ngôn
119
20
pdf
Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tham khảo tài liệu 'giáo trình turbo pascal 7.0 - 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 1.100 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 1.100 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 7.0 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 gthua.- 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 .
TÀI LIỆU LIÊN QUAN
Giáo trình Turbo pascal 7.0
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 1
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 2
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 3
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 4
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 5
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 6
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 7
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 8
Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 9
crossorigin="anonymous">
Đã 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.