Đang chuẩn bị liên kết để tải về tài liệu:
Lý thuyết và bài tập Pascal nâng cao part 5

Tham khảo tài liệu 'lý thuyết và bài tập pascal nâng cao part 5', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Chương 4 Danh sách liên kết 177 for i 1 to 21 do begin new p2 case i of 1. 7 p2A.buoi S CHR i mod 71 1 48 8. 14 p2A.buoì C CHR Ì mod 71 1 48 15. 21 p2A.buoi T CHRUi mod 71 1 48 end p2A.mon p2A.next nil if p niI then begin p p2 first p end else begin pA.next p2 p p2 end end end Thử tục in danh sách các buổi học dâ phân môn hoặc chưa phân môn procedure inds begin 178 Lý thuyết và Bài tập Pascal writelnCChuong trinh phan thoi khoa bieu p first n 0 while ponil do begin n n 1 writeln n . pA.buoi pA.mon p pA.next end end I Thủ tục in danh sách các buổi học chưa phân môn I procedure inds2 begin writelnCChuong trinh phan thoi khoa bieu p first n 0 while ponil do begin n n 1 if pA.mon then writeln n . pA-buoi pA.mon p pA.next end end begin clrscr Chương 4 Danh sách liên kết 1 9 khoitao repeat clrscr writelnCChuong trinh phan thoi khoa bieu I Nhập vào môn học cần phân thời khóa biểul writeCNhap mon readln monhoc Vòng lặp in các buổi chưa có môn học và chờ chọn ì repeat clrscr Ĩnds2 writeCChon buoi O Exit readln n p -first i 0 while ponil do begin i i 1 if i n then if pA.mon then pA.mon monhoc else begin writelnCBuoi duoc chon da co mon day. readln end p pA.next end