TAILIEUCHUNG - Lập trình bằng Turbo Pascal part 7

Hình : Chi tiết mức 3 các công việc vμ Đế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 - xử lí khi gõ các phím mũi tên Up, Down. Chi tiết mức 4. | Lập trình bằng Turbo Pascal Xử lí khi gõ các phím khác. Hình Chi tiết mức 3 các công việc và Đế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 - xử lí khi gõ các phím mũi tên Up Down. 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 xử lí khi gõ phím mũi tên Up Down cần thực hiện là như sau. 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 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 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 chi tiết mức 4 công việc 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. 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 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 .

• Tin học văn phòng
• Lập trình bằng Turbo Pascal
• giáo trình Turbo Pascal
• bài giảng Turbo Pascal
• tài liệu Turbo Pascal
• đề cương Turbo Pascal
• Chương trình Pascal
• Thiết kế đường ô tô
• Đặc điểm ngôn ngữ Pascal
• Kiểu số nguyên Integer
• Lập trình kiến trúc
• Lập trình turbo Pascal
• thủ thuật lập trình
• lập trình căn bản
• kỹ thuật phần mềm
• chương trình lập trình
• kỹ thuật máy tính
• Turbo Pascal