際際滷

際際滷Share a Scribd company logo
 bai giang
Ch旦担ng 6: CHNG TRNH CON 
ON TAP KIEM 
TRA 1 TIET
N T畉P
Nha辿c la誰i kha湛i nie辰m ch旦担ng tr狸nh con? 
Ct con la淡 mo辰t da探y le辰nh th旦誰c hie辰n mo辰t so叩 thao ta湛c na淡o 単o湛. Co湛 
the奪 単旦担誰c go誰i th旦誰c hie辰n t旦淡 nhieu v嘆 tr鱈 trong ct 
Pha但n loa誰i ch旦担ng tr狸nh con? 
Co湛 hai loa誰i: Ha淡m(function) va淡 thu短 tu誰c (Procedure) 
Pha但n bie辰t kha湛c nhau gi旦探a ha淡m va淡 thu短 tu誰c? 
Ha淡m la淡 ch旦担ng tr狸nh con tra短 ve gia湛 tr嘆 tho但ng qua te但n ha淡m 
co淡n thu短 tu誰c th狸 kho但ng tra短 ve gia湛 tr嘆 tho但ng qua te但n
V嘆 tr鱈 cu短a ch旦担ng tr狸nh con? 
Sau phan khai ba湛o bie叩n cu短a ch旦担ng tr狸nh ch鱈nh 
Pha但n bie辰t tham so叩 tr嘆 va淡 tham so叩 bie叩n? 
Tham so叩 tr嘆 kho但ng co湛 t旦淡 kho湛a var 担短 ph鱈a 
tr旦担湛c, gia湛 tr嘆 cu短a tham so叩 tr嘆 kho但ng 単o奪i sau khi 
th旦誰c hie辰n thu短 tu誰c 
Tham so叩 bie叩n: co湛 t旦淡 kho湛a var 担短 ph鱈a tr旦担湛c, 
gia湛 tr嘆 単旦担誰c thay 単o奪i sau khi th旦誰c hie辰n thu短 tu誰c
CAU TRUC THU TUC 
PROCEDURE TENTHUTUC (DS THAM SO); 
phan khai ba湛o; 
Begin 
Ca湛c ca但u le辰nh; 
End;
CAU TRUC HAM 
FUNCTION TEN HAM(DS THAM SO): KIEU CUA HAM; 
phan khai ba湛o; 
Begin 
Ca湛c ca但u le辰nh; 
TEN HAM:= gia湛 tr嘆; 
End;
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
1 T畛kho湛a 単e奪 khai ba湛o thu短 tu誰c: 
Function 
Procedure 
Var 
Program
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
S旦誰 kha湛c nhau c担 ba短n gi旦探a ha淡m va淡 thu短 
tu誰c: 
2 
Ha淡m kho但ng kha湛c thu短 tu誰c 
Ha淡m kha湛c thu短 tu誰c 担短 phan khai ba湛o 
Ha淡m tra短 ve gia湛 tr嘆 co淡n thu短 tu誰c th狸 kho但ng 
Ha淡m ba辿t 単au ba竪ng t旦淡 kho湛a function co淡n thu短 
tu誰c th狸 procedure
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
3 Bie叩n toa淡n cu誰c la淡: 
Bie叩n 単旦担誰c khai ba湛o sau t旦淡 kho湛a var cu短a 
ch旦担ng tr狸nh ch鱈nh 
Bie叩n 単旦担誰c khai ba湛o trong ch旦担ng tr狸nh con 
ha淡m 
Bie叩n 単旦担誰c khai ba湛o trong ch旦担ng tr狸nh con 
thu短 tu誰c 
Bie叩n khai ba湛o 担短 ba叩t ky淡 単a但u trong ch旦担ng 
tr狸nh
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
4 Bie叩n 単嘆a ph旦担ng la淡: 
Bie叩n 単旦担誰c khai ba湛o trong ch旦担ng tr狸nh con ha淡m va淡 
thu短 tu誰c 
Bie叩n 単旦担誰c khai ba湛o sau t旦淡 kho湛a var cu短a ch旦担ng 
tr狸nh ch鱈nh 
Bie叩n 単旦担誰c khai ba湛o 担短 ba叩t c旦湛 単a但u trong ch旦担ng 
tr狸nh 
Bie叩n 単旦担誰c khai ba湛o t旦誰 do
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
5 Cho誰n kha炭ng 単嘆nh 単u湛ng: 
Bie叩n cu誰c bo辰 単旦担誰c du淡ng trong ch旦担ng tr狸nh con ch旦湛a 
no湛 va淡 ch旦担ng tr狸nh ch鱈nh 
Bie叩n cu誰c bo辰 ch脱 単旦担誰c du淡ng trong ch旦担ng tr狸nh ch鱈nh 
Bie叩n cu誰c bo辰 ch脱 単旦担誰c du淡ng trong ch旦担ng tr狸nh con 
ch旦湛a no湛 
Bie叩n toa淡n cu誰c ch脱 単旦担誰c s旦短 du誰ng trong ct ch鱈nh va淡 
kho但ng 単旦担誰c s旦短 du誰ng trong ct con
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
6 
Muo叩n khai ba湛o thu短 tu誰c x la淡 tham so叩 tr嘆; y, z 
la淡 2 tham so叩 bie叩n, cho誰n khai ba湛o 単u湛ng: 
Procedure vidu(x:byte; var y,z:byte); 
Procedure vidu(var x:byte; y,z:byte); 
Procedure vidu(var x,y,z:byte); 
Procedure vidu(x, y,z:byte);
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
oa誰n ch旦担ng tr狸nh sau la淡m g狸: 
7 
Function GT(n:word;): word; 
Var i,K: word; 
Begin 
K:=1; 
For i:=1 to n do K:=K*i; 
GT:=K; 
End; 
T鱈nh gia湛 tr嘆 cu短a nk 
T鱈nh k*n 
T鱈nh n! 
T鱈nh k * n * (n-1)
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
8 V嘆 tr鱈 cu短a ct con trong ct ch鱈nh: 
Tr旦担湛c phan khai ba湛o bie叩n 
Sau phan te但n 
Sau phan tha但n 
Sau phan khai ba湛o bie叩n
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
9 T旦淡 kho湛a 単e奪 khai ba湛o ha淡m: 
Fuction Function 
Procedure Program
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
Khi th旦誰c hie辰n le辰nh 
te但n ha淡m:=bie奪u th旦湛c th狸: 
10 
Kie奪u cu短a bie奪u th旦湛c co湛 the奪 ba叩t ky淡 
Kie奪u cu短a bie奪u th旦湛c pha短i cu淡ng v担湛i kie奪u tra短 ve 
cu短a ha淡m 
Kie奪u cu短a bie奪u th旦湛c pha短i la淡 so叩 nguye但n 
Kie奪u cu短a bie奪u th旦湛c la淡 kie奪u ma短ng
1 
2 
7 
6 
3 5 
4 
10 
9 
15 
11 
14 12 
13 
8
Gia短 s旦短 ta co湛 ha淡m luythua 単e奪 t鱈nh an nh旦 
sau: 
11 
Function luythua (a,n: integer): integer; 
Var t,j: integer; 
Begin 
T :=1; for i:=1 to n do t:=t*a; 
.................... 
Luythua:=t; 
End; 
ien ca但u le辰nh th鱈ch h担誰p va淡o.......
HOAT ONG NHOM (10) 
1. Vie叩t ha淡m doixung(s:tring): boolean; 単e奪 kie奪m tra xa但u 
s co湛 pha短i la淡 xa但u 単o叩i x旦湛ng hay kho但ng? 
2. Vie叩t thu短 tu誰c thay toa淡n bo辰 t旦淡 bo但ng trong xa但u s 
tha淡nh t旦淡 hoa 
3. Vie叩t ch旦担ng tr狸nh ch鱈nh go誰i 2 ctcon tre但n th旦誰c hie辰n
Function doixung (s:string): boolean; 
Var s1: string; i:byte; 
Begin 
s1:=; 
for i:=length(s) downto 1 do s1:=s1+s[i]; 
If s1:=s then doixung:=true else doixung:=false; 
End;
Procedure thaythe(var s:string); 
Var i,t: byte; 
Begin 
While (pos(bong,s)>0) do 
Begin 
T:=pos(bong,s); 
Delete(s,t,4); 
Insert(hoa,s,t); 
End; 
End;
Program bt1; 
Var s: string; 
Function doixung(s:string):boolean; 
Procedure thaythe (var s:string); 
Begin (* chuong trinh chinh*) 
Write(nhap xau s=); readln(s); 
If doixung(s) then writeln(s, la xau DX); 
Thaythe(s); 
Writeln(xau da thay:,s); 
Readln; 
End.
 bai giang

More Related Content

bai giang

  • 2. Ch旦担ng 6: CHNG TRNH CON ON TAP KIEM TRA 1 TIET
  • 4. Nha辿c la誰i kha湛i nie辰m ch旦担ng tr狸nh con? Ct con la淡 mo辰t da探y le辰nh th旦誰c hie辰n mo辰t so叩 thao ta湛c na淡o 単o湛. Co湛 the奪 単旦担誰c go誰i th旦誰c hie辰n t旦淡 nhieu v嘆 tr鱈 trong ct Pha但n loa誰i ch旦担ng tr狸nh con? Co湛 hai loa誰i: Ha淡m(function) va淡 thu短 tu誰c (Procedure) Pha但n bie辰t kha湛c nhau gi旦探a ha淡m va淡 thu短 tu誰c? Ha淡m la淡 ch旦担ng tr狸nh con tra短 ve gia湛 tr嘆 tho但ng qua te但n ha淡m co淡n thu短 tu誰c th狸 kho但ng tra短 ve gia湛 tr嘆 tho但ng qua te但n
  • 5. V嘆 tr鱈 cu短a ch旦担ng tr狸nh con? Sau phan khai ba湛o bie叩n cu短a ch旦担ng tr狸nh ch鱈nh Pha但n bie辰t tham so叩 tr嘆 va淡 tham so叩 bie叩n? Tham so叩 tr嘆 kho但ng co湛 t旦淡 kho湛a var 担短 ph鱈a tr旦担湛c, gia湛 tr嘆 cu短a tham so叩 tr嘆 kho但ng 単o奪i sau khi th旦誰c hie辰n thu短 tu誰c Tham so叩 bie叩n: co湛 t旦淡 kho湛a var 担短 ph鱈a tr旦担湛c, gia湛 tr嘆 単旦担誰c thay 単o奪i sau khi th旦誰c hie辰n thu短 tu誰c
  • 6. CAU TRUC THU TUC PROCEDURE TENTHUTUC (DS THAM SO); phan khai ba湛o; Begin Ca湛c ca但u le辰nh; End;
  • 7. CAU TRUC HAM FUNCTION TEN HAM(DS THAM SO): KIEU CUA HAM; phan khai ba湛o; Begin Ca湛c ca但u le辰nh; TEN HAM:= gia湛 tr嘆; End;
  • 8. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 9. 1 T畛kho湛a 単e奪 khai ba湛o thu短 tu誰c: Function Procedure Var Program
  • 10. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 11. S旦誰 kha湛c nhau c担 ba短n gi旦探a ha淡m va淡 thu短 tu誰c: 2 Ha淡m kho但ng kha湛c thu短 tu誰c Ha淡m kha湛c thu短 tu誰c 担短 phan khai ba湛o Ha淡m tra短 ve gia湛 tr嘆 co淡n thu短 tu誰c th狸 kho但ng Ha淡m ba辿t 単au ba竪ng t旦淡 kho湛a function co淡n thu短 tu誰c th狸 procedure
  • 12. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 13. 3 Bie叩n toa淡n cu誰c la淡: Bie叩n 単旦担誰c khai ba湛o sau t旦淡 kho湛a var cu短a ch旦担ng tr狸nh ch鱈nh Bie叩n 単旦担誰c khai ba湛o trong ch旦担ng tr狸nh con ha淡m Bie叩n 単旦担誰c khai ba湛o trong ch旦担ng tr狸nh con thu短 tu誰c Bie叩n khai ba湛o 担短 ba叩t ky淡 単a但u trong ch旦担ng tr狸nh
  • 14. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 15. 4 Bie叩n 単嘆a ph旦担ng la淡: Bie叩n 単旦担誰c khai ba湛o trong ch旦担ng tr狸nh con ha淡m va淡 thu短 tu誰c Bie叩n 単旦担誰c khai ba湛o sau t旦淡 kho湛a var cu短a ch旦担ng tr狸nh ch鱈nh Bie叩n 単旦担誰c khai ba湛o 担短 ba叩t c旦湛 単a但u trong ch旦担ng tr狸nh Bie叩n 単旦担誰c khai ba湛o t旦誰 do
  • 16. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 17. 5 Cho誰n kha炭ng 単嘆nh 単u湛ng: Bie叩n cu誰c bo辰 単旦担誰c du淡ng trong ch旦担ng tr狸nh con ch旦湛a no湛 va淡 ch旦担ng tr狸nh ch鱈nh Bie叩n cu誰c bo辰 ch脱 単旦担誰c du淡ng trong ch旦担ng tr狸nh ch鱈nh Bie叩n cu誰c bo辰 ch脱 単旦担誰c du淡ng trong ch旦担ng tr狸nh con ch旦湛a no湛 Bie叩n toa淡n cu誰c ch脱 単旦担誰c s旦短 du誰ng trong ct ch鱈nh va淡 kho但ng 単旦担誰c s旦短 du誰ng trong ct con
  • 18. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 19. 6 Muo叩n khai ba湛o thu短 tu誰c x la淡 tham so叩 tr嘆; y, z la淡 2 tham so叩 bie叩n, cho誰n khai ba湛o 単u湛ng: Procedure vidu(x:byte; var y,z:byte); Procedure vidu(var x:byte; y,z:byte); Procedure vidu(var x,y,z:byte); Procedure vidu(x, y,z:byte);
  • 20. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 21. oa誰n ch旦担ng tr狸nh sau la淡m g狸: 7 Function GT(n:word;): word; Var i,K: word; Begin K:=1; For i:=1 to n do K:=K*i; GT:=K; End; T鱈nh gia湛 tr嘆 cu短a nk T鱈nh k*n T鱈nh n! T鱈nh k * n * (n-1)
  • 22. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 23. 8 V嘆 tr鱈 cu短a ct con trong ct ch鱈nh: Tr旦担湛c phan khai ba湛o bie叩n Sau phan te但n Sau phan tha但n Sau phan khai ba湛o bie叩n
  • 24. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 25. 9 T旦淡 kho湛a 単e奪 khai ba湛o ha淡m: Fuction Function Procedure Program
  • 26. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 27. Khi th旦誰c hie辰n le辰nh te但n ha淡m:=bie奪u th旦湛c th狸: 10 Kie奪u cu短a bie奪u th旦湛c co湛 the奪 ba叩t ky淡 Kie奪u cu短a bie奪u th旦湛c pha短i cu淡ng v担湛i kie奪u tra短 ve cu短a ha淡m Kie奪u cu短a bie奪u th旦湛c pha短i la淡 so叩 nguye但n Kie奪u cu短a bie奪u th旦湛c la淡 kie奪u ma短ng
  • 28. 1 2 7 6 3 5 4 10 9 15 11 14 12 13 8
  • 29. Gia短 s旦短 ta co湛 ha淡m luythua 単e奪 t鱈nh an nh旦 sau: 11 Function luythua (a,n: integer): integer; Var t,j: integer; Begin T :=1; for i:=1 to n do t:=t*a; .................... Luythua:=t; End; ien ca但u le辰nh th鱈ch h担誰p va淡o.......
  • 30. HOAT ONG NHOM (10) 1. Vie叩t ha淡m doixung(s:tring): boolean; 単e奪 kie奪m tra xa但u s co湛 pha短i la淡 xa但u 単o叩i x旦湛ng hay kho但ng? 2. Vie叩t thu短 tu誰c thay toa淡n bo辰 t旦淡 bo但ng trong xa但u s tha淡nh t旦淡 hoa 3. Vie叩t ch旦担ng tr狸nh ch鱈nh go誰i 2 ctcon tre但n th旦誰c hie辰n
  • 31. Function doixung (s:string): boolean; Var s1: string; i:byte; Begin s1:=; for i:=length(s) downto 1 do s1:=s1+s[i]; If s1:=s then doixung:=true else doixung:=false; End;
  • 32. Procedure thaythe(var s:string); Var i,t: byte; Begin While (pos(bong,s)>0) do Begin T:=pos(bong,s); Delete(s,t,4); Insert(hoa,s,t); End; End;
  • 33. Program bt1; Var s: string; Function doixung(s:string):boolean; Procedure thaythe (var s:string); Begin (* chuong trinh chinh*) Write(nhap xau s=); readln(s); If doixung(s) then writeln(s, la xau DX); Thaythe(s); Writeln(xau da thay:,s); Readln; End.