aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt
Khoa CNTTTVT
óử thi CNG NGH PHệN MệM
Thồỡi gian 60 phuùt
Ngaỡy thi :
SE-112
1. 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 trong sồ õọử
khọỳi bón õỏy :
S1
C1
uùng
C2
S2
Sai
Sai
S2
C2
óử thi CNG NGH PHệN MệM
Thồỡi gian 60 phuùt
Ngaỡy thi :
SE-113
1. Lỏỷp trỗnh cỏỳu truùc (Structured programming)
Sai
uùng Sai
C1
S1
aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt Khoa CNTTTVT
uùng
uùng
S3
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 trong sồ õọử
khọỳi bón õỏy :
S3
2. 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
ra kóỳt quaớ lỏửn lổồỹt nhổ thóỳ naỡo ? Giaới thờch cồ chóỳ goỹi õóỷ quy ?
program Testing1;
var x: integer;
procedure Recursive1 (M: integer);
begin
if M =1 then writeln ('A: x = ', x:3) else
begin
x:=x+2;
writeln ('B: x = ', x:3);
Recursive1 (M-1) end;
end; { Recursive1 }
Begin { Testing1 }
x := 0; Recursive1 (5);
End. { Testing1 }
3. ỷc taớ (Specification)
Vióỳt õỷc taớ pheùp cọỹng vaỡ trổỡ hai õa thổùc bỏỷc n>0.
Khọng sổớ duỷn g taỡi lióỷu . Ghi sọỳ õóử thi vaỡ nọỹp laỷi õóử thi cuỡn g baỡi
laỡm .
TS. Phan Huy Khaùnh
2. 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
ra kóỳt quaớ lỏửn lổồỹt nhổ thóỳ naỡo ? Giaới thờch cồ chóỳ goỹi õóỷ quy ?
program Testing2;
var y: integer;
procedure Recursive2 (N: integer);
begin
if N =0 then writeln ('1) y = ', y:3) else
begin y:=y+1; writeln ('2) y = ', y:3); Recursive2 (N-1) end;
end; { Recursive2 }
TS. Phan Huy Khaùnh
aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt
Khoa CNTTTVT
aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt Khoa CNTTTVT
begin { Testing2 }
y := 0; Recursive2 (4);
end. { Testing2 }
3. ỷc taớ (Specification)
Vióỳt õỷc taớ pheùp nhỏn õa thổùc bỏỷc n>0 vồùi mọỹt nhở thuùc bỏỷc n=1.
Khọng sổớ duỷn g taỡi lióỷu . Ghi sọỳ õóử thi vaỡ nọỹp laỷi õóử thi cuỡn g baỡi
laỡm .
TS. Phan Huy Khaùnh
TS. Phan Huy Khaùnh
aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt
óử thi Mọn CNG NGH PHệN MệM
Thồỡi gian 90 phuùt
Khoa CNTTTVT
Ngaỡy thi :
SE-100
aỷi hoỹc aỡ Nụng, trổồỡng aỷi hoỹc Kyợ thuỏỷt Khoa CNTTTVT
óử thi Mọn CNG NGH PHệN MệM
Thồỡi gian 90 phuùt
Ngaỡy thi :
SE-101
I. ỷc taớ (Specification)
Caùc phỏn sọỳ (hay sọỳ hổợu tyớ) õổồỹc bióứu dióựn bồới danh saùch ( n, d), vồùi n laỡ tổớ
I. ỷc taớ (Specification)
Caùc phỏn sọỳ (hay sọỳ hổợu tyớ) õổồỹc bióứu dióựn bồới danh saùch ( n, d), vồùi n laỡ tổớ
II. Lỏỷp trỗnh cỏỳu truùc
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 trong sồ õọử khọỳi dổồùi õỏy :
II. Lỏỷp trỗnh cỏỳu truùc
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 trong sồ õọử khọỳi dổồùi õỏy :
sọỳ vaỡ d laỡ mỏựu sọỳ, laỡ nhổợng sọỳ nguyón (d 0). Vióỳt õỷc taớ xỏy dổỷng caùc haỡm xổớ
lyù phỏn sọỳ : ruùt goỹn, trổỡ, chia vaỡ so saùnh hai phỏn sọỳ.
C1
sọỳ vaỡ d laỡ mỏựu sọỳ, laỡ nhổợng sọỳ nguyón (d 0). Vióỳt õỷc taớ xỏy dổỷng caùc haỡm xổớ
lyù phỏn sọỳ : cọỹng, nhỏn hai phỏn sọỳ vaỡ chuyóứn õọứi phỏn sọỳ thaỡnh sọỳ thổỷc.
Sai
S1
uùng
S1
Sai
uùng
C2
uùng
S3
C1
S2
S2
uùng
C2
Sai
Sai
S3
III. Thổớ nghióỷm chổồng trỗnh (Testing)
Chổồng trỗnh trong cỏu II laỡ õồn thóứ M goỹi õóỳn caùc õồn thóứ C1, C2,
S1, S2 vaỡ S3. Trỗnh baỡy phổồng phaùp thổớ nghióỷm tổỡ dổồùi lón õóứ thổớ
nghióỷm õồn thóứ M. So saùnh vồùi phổồng phaùp thổớ nghióỷm tổỡ trón xuọỳng.
III. Thổớ nghióỷm chổồng trỗnh (Testing)
Chổồng trỗnh cho trong cỏu II laỡ õồn thóứ M goỹi õóỳn caùc õồn thóứ C1,
C2, S1, S2 vaỡ S3. Trỗnh baỡy phổồng phaùp thổớ nghióỷm tổỡ trón xuọỳng õóứ
thổớ nghióỷm õồn thóứ M. So saùnh vồùi phổồng phaùp thổớ nghióỷm tổỡ dổồùi lón.
Khọng sổớ duỷn g taỡi lióỷu . Ghi sọỳ õóử thi vaỡo baỡi laỡm . Nọỹp laỷi õóử thi
Khọng sổớ duỷn g taỡi lióỷu . Ghi sọỳ õóử thi vaỡo baỡi laỡm . Nọỹp laỷi õóử thi
TS. Phan Huy Khaùnh
TS. Phan Huy Khaùnh
Âaûi hoüc Âaì Nàông, træåìng Âaûi hoüc Kyî thuáût
Khoa CNTT−ÂTVT
Âaûi hoüc Âaì Nàông, træåìng Âaûi hoüc Kyî thuáût Khoa CNTT−ÂTVT
program Testing1; { SE-112 }
var x: integer;
procedure Recursive1 (M: integer);
begin
if M =1 then writeln ('A: x = ', x:3) else
begin x:=x+2; writeln ('B: x = ', x:3); Recursive1 (M-1) end;
end; { Recursive1 }
begin { Testing1 }
x := 0; Recursive1 (5);
end. { Testing1 }
program Testing2; { SE-113 }
var y: integer;
procedure Recursive2 (N: integer);
begin
if N =0 then writeln ('1) y = ', y:3) else
begin y:=y+1; writeln ('2) y = ', y:3); Recursive2 (N-1) end;
end; { Recursive2 }
begin { Testing2 }
y := 0; Recursive2 (4);
end. { Testing2 }
Result:
B: x =
B: x =
B: x =
B: x =
A: x =
Result:
2) y =
2) y =
2) y =
2) y =
1) y =
2
4
6
8
8
TS. Phan Huy Khaïnh
1
2
3
4
4
TS. Phan Huy Khaïnh