tailieunhanh - Tự học lập trình Pascal tập 4 part 6

Tham khảo tài liệu 'tự học lập trình pascal tập 4 part 6', 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 125 stop fa Ise Repeat y d a1 Repeat If a1 x b1 y c1 then Begin Writef co nghiem X- x Y- y stop true End dec y c1 Until y -d a1 or stop dec x d Until x -d b1 or stop End End rss a s s s ss ss ss . Begin Clrscr WritelnfGiai phương trinh Ax By c trong đó Write A- Readln a Write B- Readln b Write C- Readln c GiaLpt a b c Readln End. 10. Program P4510 Uses Crt 126 Var tg p q1 k longint r is s Procedure input ten char Var STN longint Begin Repeat Write ten -1 Readln STN fSTN Othen Writeln 7 Nhập lại. Đây không phải là số tự nhiên Until STN 0 End rras s z 1 BEGIN Main Program Clrscr Writelnf ------------------------------------------ Writelnf 1 Writelnf a1 -------------------------------------- Write Inf 1 Writelnf a2--------------------------- Writelnf 1 Write ln a 3 . WriteInC an WritelnC inputfp .p Repeat inputfq .q If q p then Writeln Nhập lại. Q phải lớn hơn P1 Until q p k. 0 Phẩn 2. HƯỚNG DAN 127 Writeln Ta có 1 While poũ do Begin inc k Writefaf 4 k q dív p tg p p q mod p q tg End Writein Write Nhấn Enter để kết thúc. Readln END. 11. Program P4511 Uses Crt Var xau1 xau2 xau string Procedure compare s1 s2 string Var kq string Vari byte r s s s ụ s s s j Function kt ch char st string boolean Krem fra xem kí tự ch có trong xâu st hay không. Nếu có thì hàm trả vê giá tn True. Nếu không thì hàm trả về già tn False Begin kt pos ch st 0 End