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 S CHR i mod 71 1 48 8. 14 C CHR Ì mod 71 1 48 15. 21 T CHRUi mod 71 1 48 end nil if p niI then begin p p2 first p end else begin 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 . p 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 then writeln n . pA-buoi p 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 then monhoc else begin writelnCBuoi duoc chon da co mon day. readln end p end