Khoa CNTTTVT aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt óử thi CNG NGH PHệN MệM Thồỡi gian 60 phuùt SE-102 Ngaỡy thi : Khoa CNTTTVT aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt óử thi CNG NGH PHệN MệM Thồỡi gian 60 phuùt SE-103 Ngaỡy thi : Lỏỷp trỗnh cỏỳu truùc (Structured programming) Lỏỷp trỗnh cỏỳu truùc (Structured programming) Bũng caùch chố sổớ duỷng tọỳi õa ba cỏỳu truùc tuỏửn tổỷ, õióửu kióỷn (if then) vaỡ lỷp (whilerepeat), haợy vióỳt õoaỷn lóỷnh bũng giaớ ngổợ (phoớng Pascal) thổỷc hióỷn chổồng trỗnh cho sồ õọử khọỳi bón õỏy : Bũng caùch chố sổớ duỷng tọỳi õa ba cỏỳu truùc tuỏửn tổỷ, õióửu kióỷn (if then) vaỡ lỷp (whilerepeat), haợy vióỳt õoaỷn lóỷnh bũng giaớ ngổợ (phoớng Pascal) thổỷc hióỷn chổồng trỗnh cho sồ õọử khọỳi bón õỏy : uùng C1 Sai S1 uùng C2 Sai S2 S1 C1 uùng Sai S2 Sai uùng C2 Thổớ nghióỷm chổồng trỗnh (Testing) Thổớ nghióỷm chổồng trỗnh (Testing) Haợy lỏỷp baớng dổợ lióỷu thổớ nghióỷm õóứ cho bióỳt chổồng trỗnh dổồùi õỏy in kóỳt quaớ nhổ thóỳ naỡo ? Haợy lỏỷp baớng dổợ lióỷu thổớ nghióỷm õóứ cho bióỳt chổồng trỗnh dổồùi õỏy in kóỳt quaớ nhổ thóỳ naỡo ? program Testing1; var x: integer; procedure Recursive (M: integer); begin if M =1 then writeln ('A: x = ', x:3) else begin x:=x+2; writeln ('B: x = ', x:3); Recursive (M-1) end; end; { Recursive } begin { Testing1 } x := 0; Recursive (5); end { Testing1 } Khọng sổớ duỷng taỡi lióỷu Ghi sọỳ õóử thi vaỡo baỡi laỡm Nọỹp laỷi õóử thi TS Phan Huy Khaùnh program Testing2; var y: integer; procedure Recursive (N: integer); begin if N =0 then writeln ('1) y = ', y:3) else begin y:=y+1; writeln ('2) y = ', y:3); Recursive (N-1) end; end; { Recursive } begin { Testing2 } y := 0; Recursive (4); end { Testing2 } Khọng sổớ duỷng taỡi lióỷu Ghi sọỳ õóử thi vaỡo baỡi laỡm Nọỹp laỷi õóử thi TS Phan Huy Khaùnh aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt Khoa CNTTTVT aùp aùn óử thi SE-100 While C1 begin S1 if C2 then S2 else S3 end aùp aùn óử thi SE-101 q:= false repeat if not C1 then q:= true else begin S1 if C2 then S2 else S3 end until q aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt B: x = B: x = B: x = B: x = A: x = 8 2) y = 2) y = 2) y = 2) y = 1) y = 4 q:= false repeat S1 if not C1 then q:= true else begin S2 if not C2 then S3 end until q TS Phan Huy Khaùnh TS Phan Huy Khaùnh Khoa CNTTTVT ... Nàông, træåìng Âaûi hoüc Kyî thuáût Khoa CNTT−ÂTVT Âaïp aïn Âãö thi SE-100 While C1 begin S1 if C2 then S2 else S3 end Âaïp aïn Âãö thi SE-101 q:= false repeat if not C1 then q:= true else begin