tailieunhanh - Lý thuyết và bài tập Pascal nâng cao part 8

Tham khảo tài liệu 'lý thuyết và bài tập pascal nâng cao part 8', 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 8 Object - Làm quen vái kỹ thuật lập trình . 309 while NOT x y do if x y then x x-y else y y-x USCLN x end begin if Tu 0 then begin Mau 1 Dau 0 exit end u USCLN Tu Mau Tu Tu DIV u Mau Mau DIV u end procedure begin if Mau 1 then begin if Dau -1 then writeC- Tu else write Tu exit end if dau -1 then write - Tu 7 Mau else write Tu 7 Mau end END. 310 Lỷ thuyết và Bàỉ tập Pascal Program Bai8_6 Uses Phanso crt var X OBJPS n real Begin clrscr writeCNhap mot so thuc readln n write 3 n read In end. Bằl . Unit PhanSo2 Interface uses Phanso Type 0BJPS2 object OBJPS Constructor khoidong procedure rutgon virtual end Implementation Constructor begin Chương 8 Object - Làm quen với kỹ thuật lập trình . 311 end Procedure var u longint Function USCLN x y longint longint var tmp longint begin tmp 0 repeat if x y then if x MOD y 0 then tmp y else x x- x DIV y y if y x then if y MOD x 0 then tmp x else y y- y DIV x x until tmpoO USCLN tmp end begin if Tu 0 then begin Mau 1 Dau O exit end u USCLN Tu Mau