Cờu 16: Trong ngỡn ngƠ lẹp trÈnh Pascal, vồ mật có phĨp cờu lơnh nÌo sau ợờy lÌ ợóng vắi cÊu tróc lập WHILE cã nhiồu lơnh con?
A. WHILE a>5 DO B. WHILE a>5 DOa := a - 1; a := a - 1 a := a - 1; a := a - 1 b := a - c; b := a - c;
ENDWHILEC. WHILE a>5 DO D. WHILE a>5 DO C. WHILE a>5 DO D. WHILE a>5 DO
Begin Begin
a := a - 1; a := a - 1 b := a - c; b := a - c;
End; End;
Cờu 17: Cho A, B, X lÌ cĨc sè thùc. Trong sè cĨc lơnh sau, cờu lơnh nÌo lÌ ợóng (ớ), lÌ sai (S)? 1. IF A<B; THEN X:=X+1;
2. IF A<B THEN X:=A+B;
3. IF A<B THEN X:=A ELSE X:=B;4. IF A<B THEN X:=A; ELSE X:=B; 4. IF A<B THEN X:=A; ELSE X:=B; Cờu 18: Cho ợoÓn chŨng trÈnh sau:
Begin
X:=a;
IF a<b THEN X:=b; End.
a. Cho a=10; b=15. Kỏt quộ X bững bao nhiởu? (ớĨnh dÊu X vÌo ợĨp Ĩn ợóng)
20 15 5 25
10 15 20 25Cờu 19: Cho ợoÓn chŨng trÈnh sau: Cờu 19: Cho ợoÓn chŨng trÈnh sau:
I:=1; S:=0;WHILE I<10 DO WHILE I<10 DO Begin S:= S + 2; I:= I + 1; End;
Kỏt quộ S bững bao nhiởu? (ớĨnh dÊu vÌo ợĨp Ĩn ợóng);
10 14 20 18
Cờu 20: HỈy chừ ra cÊu tróc cĐa cờu lơnh ghƯp (lơnh hîp thÌnh) A. IF....THEN....ELSE C. BEGIN....END;
B. BEGIN....END. D. CASE....OF....END:Cờu 21: Cờu lơnh sau ợờy cho kỏt quộ nÌo? Cờu 21: Cờu lơnh sau ợờy cho kỏt quộ nÌo?
IF b>a THEN c:=b ELSE c:=a;
A. HoĨn ợăi hai biỏn giĨ trẺ a vÌ b. C. TÈm giĨ trẺ c=Min(a,b). B. TÈm giĨ trẺ c=Max(a, b). D. Cờu lơnh sai ngƠ phĨp. Cờu: Viỏt chŨng trÈnh Pascal giội cĨc bÌi toĨn sau
a. TÝnh vÌ ợa kỏt quộ ra mÌn hÈnh 100 100 1 ... 2 1 1 1 + + + + + + = a a a S
b. Mét ngêi cã sè tiồn ban ợđu A ợạng. Hả göi vÌo ngờn hÌng ợỏn khi cã ợîc sè tiồn khỡng Ýt hŨn B ợạng. Hái hả phội göi vÌo ngờn hÌng tèi thiốu bao nhiởu thĨng. Biỏt rững lỈi xuÊt ngờn hÌng lÌ 2% thĨng (sau mçi Hái hả phội göi vÌo ngờn hÌng tèi thiốu bao nhiởu thĨng. Biỏt rững lỈi xuÊt ngờn hÌng lÌ 2% thĨng (sau mçi thĨng, sã tiồn lêi ợîc céng vÌo vèn ợố tiỏp tôc sinh lỈi).
Cờu: Lẹp trÈnh giội vÌ biơn luẹn phŨng trÈnh ax + b = 0 vắi a, b lÌ cĨc sè thùc nhẹp tõ bÌn phÝm. Cờu: Viỏt chŨng trÈnh In ra mÌn hÈnh cĨc ắc cĐa mét sè nguyởn dŨng N nhẹp tõ bÌn phÝm.
Sè tiỏt: 2
Tiỏt sè: 41, 42 theo PPCT.
Ph
Ũng phĨp: Thùc hÌnh.
I. Môc ợÝch, yởu cđu:
- CĐng cè cho HS nhƠng kiỏn thục vÌ kư nÙng ợỈ cã khi lẹp trÈnh vắi kiốu dƠ liơu mộng. - CĐng cè cho HS mét thuẹt toĨn s¾p xỏp cĨc phđn tö cĐa mét dỈy (bững trĨo ợăi) vÌ kư nÙng diÔn ợÓt thuẹt toĨn nÌy bững chŨng trÈnh sö dông dƠ liơu kiốu mộng.
- Rỉn luyơn HS mét ý thục cđn cã cĐa ngêi lẹp trÈnh lÌ viỏt chŨng trÈnh vắi khèi lîng tÝnh toĨn Ýt nhÊt cã thố ợîc.
- Gãp phđn hÈnh thÌnh vÌ rỉn luyơn t duy lẹp trÈnh, tĨc phong cĐa ngêi lẹp trÈnh. II. Ph Ũng tiơn dÓy hảc:
MĨy chiỏu projector, phßng mĨy, SGK, giĨo Ĩn. III. Tiỏn trÈnh bÌi dÓy:
1. Tă chục lắp:
- Kiốm tra sư sè.
- Chia lắp thÌnh 2 nhãm nỏu khỡng ợĐ mĨy, 2HS/1mĨy. 2. Néi dung bÌi thùc hÌnh:
HoÓt ợéng cuộ GV HoÓt ợéng cĐa HS
1. ớa ra néi dung bÌi thùc hÌnh:
BÌi 1: TÈm hiốu vÌ chÓy thö chŨng trÈnh thùc hiơn thuẹt toĨn s¾p xỏp dỈy sè nguyởn bững thuẹt toĨn trĨo ợăi vắi cac giĨ trẺ khĨc nhau cĐa n dắi ợờy. Qua ợã nhẹn xƯt vồ thêi gian chÓy cĐa chŨng trÈnh.
a. {ChŨng trÈnh SGK trang 65, 66}
b. Khai bĨo thởm biỏn nguyởn Dem vÌ bă sung vÌo chŨng trÈnh nhƠng cờu lơnh cđn thiỏt ợố biỏn Dem tÝnh sè lđn thùc hiơn trĨo ợăi trong thuẹt toĨn.ớa kỏt quộ tÈm ợîc ra mÌn hÈnh.
- ớoÓn nÌo thố hiơn mét lđn trĨo ợăi giĨ trẺ cĐa hai phđn tö liồn kồ cĐa mộng?
1. Chó ý theo dâi SGK néi dung bÌi thùc hÌnh .
- For j:=n dowto 2 do For i:=1 to n j-1 do If a[i]>a[i+1] then
- Qua bÌi thùc hÌnh sè 3, chóng ta thÊy cã thố tÙng biỏn Dem ợố ợỏm sè lđn trĨo ợăi hay khỡng? ớố lÌm ợiồu ợã phội ợÙtẺ cờu lơnh tÙng biỏn Dem ẽ ợờu?
2. Hắng dÉn hảc sinh thùchÌnh.
3. BÌi 2: HỈy ợảc vÌ tÈm hiốu nhƠng phờn tÝch ợố viỏt chŨng trÈnh giội bÌi toĨn: ợố viỏt chŨng trÈnh giội bÌi toĨn:
Cho mộng a gạm n phđn tö. HỈy viỏt chŨng trÈnh tÓo mộng b[1..n], trong ợã b[i] lÌ tăng cĐa i phđn tö ợđu tiởn cĐa a.
Program subsum1;
uses crt;
const nmax=100;
type myarray= array[1..max] of integer;
Var a, b:myarray; n, i, j: integer; T:=a[i]; A[i]:=a[i+1]; A[i+1]:=a[i]; End;
- Suy nghư vÌ trộ lêi:
Cã thố lÌm ợîc. VÌ ta ợật nã nh sau: Dem:integer; Dem:=0; For j:=n dowto 2 do For i:=1 to n j-1 do If a[i]>a[i+1] then Begin T:=a[i]; A[i]:=a[i+1]; A[i+1]:=a[i]; Dem:=dem+1; End; - Thùc hÌnh theo hắng dÉn cĐa GV. 3- Theo dâi vÌ ghi bÌi.
for i:=1 to n do a[i]:=random(300)- random(300); for i:=1 to n do write(a[i]:5);
writeln; {B¾t ợđu tÓo b} for i:=1 to n do begin b[i]:=0; for j:=1 to i do b[i]:=b[i]+a[j]; end; {Kỏt thóc tÓo b}
for i:=1 to n do write(b[i]:5); readln;
end.
- ớố ý ta thÊy cã hơ thục sau: B[1]=a[1];
B[i]=b[i-1]+a[i];
Do ợã, ta cã thố ợăi ợoÓn {bÙt ợđu tÓo b} ợỏn{kỏt thóc tÓo b} bẽi hai lơnh: b[1]:=a[1];
for i:=2 to n do B[i]:=b[i-1]+a[i]; IV. CĐng cè:
Cho HS dõng thùc hÌnh ợố kiốm tra trong 5phót. ớĨnh giĨ nhƠng kỏt quộ lÌm ợîc vÌ cha lÌm ợîc cĐa HS.
V. BTVN:
Söa chŨng trÈnh bÌi 2 thÌnh chŨng trÈnh hoÌn chừnh khi thay ợăi ợoÓn {bÙt ợđu tÓo b} ợỏn{kỏt thóc tÓo b} bẽi hai lơnh:
b[1]:=a[1];
for i:=2 to n do B[i]:=b[i-1]+a[i];