Tham khảo tài liệu 'tự học lập trình pascal tập 4 part 10', 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ả | Phần 2. HƯỚNG DAN 225 bk 1 x bk -. O dem ũ Đếm số nghiệm idl M1-1 d 0 Repeat T 0 kt true For i 1 to bkdo T T x i While i M1 and kt do Tìm một nghiệm thoả mãn x1 x2 ị. xn N Begin inc i If i m-1 then x i x i-1 1 Else x i N1-T inc T x i kt x i x i-1 End . inc d If kt then Đă tim được 1 nghiệm Begin ghi_vaojep fout inc dem While x M1 -x M1-1J 2 and xpdq x idl 1 do Begin inc dem inc x i-1 dec x l 226 Ti ỌỈ. ÍẬý. ghLvaoJep fout End End Else dec idl bk idl inc x idl Until idl 0 or d 1 and not kt Writeln fout Phuơng trình X1 X2 . X M N If dem o then Writeffout Không có nghiệm nào Else Write fout códem nghiệm ở trên End Else If M1 1 then WriteInffout Phương trình X1 X2 . Xm N có 1 nghiệm x1- N1 Else Writelnffout đây không phải là phương trình Write In End Begin Main Program Clrscr Motep fin 0 Motepịíout 1 Readln fin Nhảy qua dòng tiêu đề Readlnffin N m close fin Writeln Giải phương trình X1 X2 . Xm N Phần 2. HƯỚNG DAN 227 Write In Đợi và xem kết quả trong tệp . GiaLph_tr N m close tout Write Nhẩn Enter để thoát. Readln End. 16. Program P4816 Uses Crt Const Max 500 Var fout text x array of word Procedure Write Jo_file mm integer Varff text Var tbyte Begin For i1 1 to mm do Write ff x i1 5 Writeln ff Xuống 1 dòng End r s s s ss s s ss Procedure Giai_ph_tr N1 word Var ml T count i idl word mk kt boolean Begin T 0 m1 1 x m1 0
