Đang chuẩn bị liên kết để tải về tài liệu:
Lập trình bằng Turbo Pascal part 7

Hình 11.7: Chi tiết mức 3 các công việc 2.1 vμ 2.2 Đến đây ta thấy hầu nh− mọi công việc đã đủ đơn giản. Phần duy nhất cần lμm chi tiết thêm lμ mô đun 2.2.1 - xử lí khi gõ các phím mũi tên Up, Down. 7.2.4 Chi tiết mức 4. | Lập trình bằng Turbo Pascal 2.2.2 Xử lí khi gõ các phím khác. Hình 11.7 Chi tiết mức 3 các công việc 2.1 và 2.2 Đến đây ta thấy hầu như mọi công việc đã đủ đơn giản. Phần duy nhất cần làm chi tiết thêm là mô đun 2.2.1 - xử lí khi gõ các phím mũi tên Up Down. 7.2.4 Chi tiết mức 4. Nếu kí hiệu i là số thứ tự của mục chọn hiện hành thì công việc 2.2.1 xử lí khi gõ phím mũi tên Up Down cần thực hiện là như sau. 2.2.1.1 Làm chìm mục chọn i cũ tức là hiển thị mục chọn i bằng màu nền bình thường 2.2.1.2 Cập nhật lại mục chọn i mới. - Gán i i 1 i i -1 tuỳ theo gõ Up Down. - Chú ý xoay vòng tròn khi gõ phím mữi tên Up khi đang ở mục chọn đỉnh bảng i 0 hay gõ mũi tên Down khi đang ở mục chọn đáy bảng i số mục chọn -1 . Nguyễn Đình Hoá Viện CNTT - ĐHQG Hà nội 161 Lập trình bằng Turbo Pascal 2.2.1.3 Làm nổi bật mục chọn i mới. Hiển thị mục chọn i bằng màu chọn. Hình 11.7 chi tiết mức 4 công việc 2.2.1 Tóm lại sau bốn bước chi tiết dần các công việc đã trở thành đơn giản. Việc triển khai viết chương trình sử dụng Turbo Pascal hay một ngôn ngữ lập trình nào đó chỉ đơn thuần là chuyển từng công việc thành các câu lệnh tương ứng một cách máy móc. 7.3 Chương trình chi tiết. Dưới đây là chương trình tạo bảng chọn nhận được sau khi triển khai sơ đổ trên thành các câu lệnh Turbo Pascal. uses crt const max_SoMucChon 8 số mục chọn tối đa type mang_string array 0.max_SoMucChon-1 of string var Ten_Muc_Chon mang_string mảng các tên muc chọn So_Muc_Chon word số mục chọn Mau_nen Mau_Chon byte Chon integer danh so tu 0. SoMucChon - 1 ESC -1 Procedure NhapThamSoBangChon phan nhập dữ liệu begin So_Muc_Chon 3 Ten_Muc_Chon 0 muc chon 1 Ten_Muc_Chon 1 muc chon 2 Ten_Muc_Chon 2 thoat End Procedure KiemTraHoatDong kiếm tra các thao tác sử dụng bảng chọn begin case Chon of Nguyễn Đình Hoá Viện CNTT - ĐHQG Hà nội 162 Lập trình bằng Turbo Pascal 0 begin clrscr gotoXY 1 1 writeln ban da chon Chon end 1 begin clrscr gotoXY 5 5 writeln ban da chon Chon end 2 begin clrscr gotoXY 10 10 writeln ban da chon .