Tham khảo tài liệu 'tự học lập trình pascal tập 1 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ả | 112 Pascal dành cho học sinh Write chọn Readln chon Case chon of 1 TD TD 3 2 TD TD 2 . 3 TD TD 1 End Write c. Bạn có luôn làm hết các bài tập thầy cô giao về nhà không Write 1. Luôn luôn Write 2. Thỉnh thoảng Write 3. Hiếm khi Write chon Readln chon Case chon of 1 TD -TD 3 2 TD TD 2 3 TD TD 1 End If TD 10 then Wrítein Bạn là một học sinh giỏi rất thích học Else if TD 8 and TD 10 then Writeln Bạn là một học sinh khá nhưng bạn cần cố gắng học hơn Else if TD 6 and TD 8 then Writeln Bạn là học sinh trung binh cẩn cố gắng về mọi mặt Else Phần 2. HƯỞNG DAN 113 Writeln Bạn là học sinh yếu phải cố gắng thật nhiều Readln End. 4. Program CT4 Uses Crt Var a b Ĩ integer Begin Cirscr Write a b Readln a b Write 1 Readln i Case i of 1 Write a b a b 4 Write a b a b End Readln End. 5. Program CT5 Uses Crt Var n i integer Begin Clrscr Write h i-1 Readlnfn i Case i of 1 Write n 2 Write sqr n n 3 Write 3 n 114 Pascal dành cho học sình 4 Write sqr sqr n 5 Write n 1 End Readln End. 6. Program CT6 Uses Crt Var i byte Begin Clrscr Write Tham số nguyên i read In i Case ĩ of 0 Write Th ương trình vô nghiệm 1 Write Phương trình có 2 nghiệm x1 1 x2 3 2 Write Phương trình có vô số nghiệm End Readln End. 7. Program CT7 Uses Crt Type Phepjinh cong tru nhan chia Var a b integer tinh Phepjinh Begin Clrscr
