Nguyễn Xuân Lộc Tuần 29 Ngày dạy: Tit 54. Bài tập (Tiếp) A/ Mục tiêu: - Viết đợc chơng trình Pascal có sử dụng vòng lặp While do - Biết sử dụng câu lệnh ghép. - Rèn kỹ năng đọc hiểu chơng trình có sử dụng vòng lặp while do b/ Chuẩn bị: GV: Phũng mỏy, mỏy tớnh, mỏy chiu, một số thuật toán và chơng trình . HS: SGK, v Ghi C/ Tiến trình dạy học: I/ Tổ chức: 8A 8B II/ Kiểm tra: Viết cú pháp của câu lệnh lặp while do và For do? III/ Bài mới: Bi 1: Vit chng trỡnh tỡm CLN(a,b). Bit a, b c nhp t bn phớm. a,b Z - GV yêu cầu HS sử dụng lệnh lặp While do để viết CT. - Tìm hiểu hoạt động của câu lệnh While do có trong CT. - Dịch, chạy chơng trình và sửa lỗi lập trình (Nếu có). - GV nhận xét, bổ sung CT. - Lu CT với tên USCLN Bi 2: Vit chng trỡnh tỡm BCNN(a,b). Bit a, b c nhp t bn phớm. a,b Z - GV yêu cầu HS sử dụng lệnh lặp While do để viết CT. - Tìm hiểu hoạt động của câu lệnh While do có trong CT. - Dịch, chạy chơng trình và sửa lỗi lập trình (Nếu có). - GV nhận xét, bổ sung CT. - Lu CT với tên BCNN - HS: Program timUCLN; Uses Crt; Var a,b,r,a1,b1: integer; BEGIN ClrScr; Write(Nhap so thu nhat, a= ); Readln(a); a1:= a; Write(Nhap so thu hai, = ); Readln(b); b1:= b; While a mod b <> 0 do Begin r:= a mod b; a: = b; b: = r; End; Write ( Vay UCLN(, a1, ;,b1,)=,b:2); Readln END. - HS: Program timBCNN; Uses Crt; Var a,b,n,min,max,max1: integer; BEGIN ClrScr; Write(Nhap so thu nhat, a= ); Readln(a); a1:= a; Write(Nhap so thu hai, = ); Readln(b); b1:= b; If a>b then Begin max: = a; min:=b; End Else Begin max:=b; min:= a; End; n:= 2; max1:=max; While max mod min <> 0 Do Begin max:= max1*n; Nguyễn Xuân Lộc inc(n); {n:=n+1} End; Write ( Vay BCNN(, a, ;,b,)=,max:2); Readln END. IV. Cng c: - GV hệ thống toàn bộ kiến thức chính đã học trong giờ. - Nhận xét đánh giá giờ học. V. Hng dn v nh: - Chun b bi tp. - Ôn tập chuẩn bị tiết sau kiẻm tra 45 phút Ngày dạy: Tiết 55. Kiểm tra 45 phút A/ Mục tiêu: - Hệ thống và củng cố, kiểm tra lại những kiến thức về CT bảng tính của HS. - Khảo sát lại cách học tập, tiếp thu và vận dụng những KT đã học của HS. - Rèn t duy khái quát hoá, tổng hợp và thực hành của học sinh. b/ Chuẩn bị: - Giáo viên: Đề bài - Học sinh: Ôn lại những kiến thức đã học. C/ Tiến trình dạy học: I/ Tổ chức: 8A 8B II/ Kiểm tra III/ Bài mới: lẻ I. Khoanh trũn vo ch cỏi ng trc phng ỏn ỳng (5 im) Cõu 1: Trong ngụn ng lp trỡnh Pascal cõu lnh no sau õy l ỳng: A. If <iu kin> then <cõu lnh 1> else <cõu lnh 2> B. If <iu kin> then <cõu lnh 1>; else <cõu lnh 2>; C. If <iu kin> then <cõu lnh 1> else <cõu lnh 2>; D. If <iu kin> ; then <cõu lnh 1> else <cõu lnh 2>; Cõu 2: Trong ngụn ng lp trỡnh Pascal, phỏt biu no sau õy l ỳng vi cõu lnh r nhỏnh Ifthen? A. Nu sau then mun thc hin nhiu cõu lnh thỡ cỏc lnh phi t gia hai du ngoc n. B. Nu sau then mun thc hin nhiu cõu lnh thỡ cỏc lnh phi t gia Begin v End C. Nu sau then mun thc hin nhiu cõu lnh thỡ cỏc lnh phi t gia Begin v End; D. Nu sau then mun thc hin nhiu cõu lnh thỡ cỏc lnh phi t gia Begin v End. Cõu 3: Trong ngụn ng lp trỡnh Pascal cõu lnh no sau õy l ỳng: A. If a=5 then a:=d+1; else a:=d+2; B. If a=5 then a:=d+1else a:=d+2; C. If a=5 then a=d+1; else a=d+2; D. If a=5 then a:=d+1else a:=d+2 Cõu 4: Trong ngụn ng lp trỡnh Pascal cõu lnh no sau õy l ỳng: A. If a=5 then a:=d+1; b:=2 else a:=d+2; B. If a=5 then begin a:=d+1; b:=2; end; NguyÔn Xu©n Léc else a:=d+2; C. If a=5 then D. If a:=5 then begin a:=d+1; b:=2; end begin a:=d+1; b:=2; end; else a:=d+2; else a:=d+2; Câu 5: Trong ngôn ngữ Pascal, muốn kiểm tra đồng thời cả ba giá trị của A, B, C có cùng lớn hơn 0 hay không ta viết câu lệnh If thế nào cho đúng nhất? a/ If A, B, C > 0 then… b/ IF (A>0) and (B>0) and (C>0) then… c/ IF A>0 and B>0 and c>0 then… d/ IF (A>0) or (B>0) or (c>0) then… Câu 6: Trong ngôn ngữ Pascal, về mặt cú pháp câu lệnh nào sau đây đúng với cấu trúc lặp For có một lệnh con? A. For i:=1 to 100 do a:=a-1; B. For i:=1 to 100 do; a:=a-1; C. For i:=1 to 100 do a:=a-1 D. For i:=1; to 100 do a:=a-1; Câu 7: Trong lệnh lặp For…to…do của Pascal, trong mỗi vòng lặp biến đếm thay đổi như thế nào? A/ +1; B/ -1; C/ Một giá trị bất kì; D/ Một giá trị khác 0; Câu 8: Sau khi thực hiện đoạn chương trình sau, giá trị của biến a bằng bao nhiêu? a:=2 ; for a:= 1 to 3 do a:= a+1; A. 3 B. 4 C. 5 D. 2 Câu 9: Trong câu lệnh lặp for i:=1 to 10 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?) A. Không lần nào B. 1 lần C. 10 lần D. 2 lần Câu 10: Trong ngôn ngữ Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì? For i:=10 to 1 do write (i,’ ‘); A. 1 2 3 4 5 6 7 8 9 10 B. 10 9 8 7 6 5 4 3 2 1 C. Đưa ra 10 dấu cách D. Không đưa ra kết quả gì II. Các câu lệnh Pascal sau đây có hợp lệ không? Vì sao? (2 điểm) a) if a>b then max:=a; else max:=b; ………………………………………………………………… b) if a>b then max:=a else max:=b; …………………………………………… …………………… c) for i:=1 to 10 for j:=1 to 10 do x:=x+1; …………………………………………………………… d) for i:=1 to 10 do for i:=1 to 10 do x:=x+1; ………………………………………………………… III. Hãy viết chương trình để giải quyết các bài toán sau : (3 điểm) Nhập vào 2 số nguyên a, b. So sánh hai số đó. ĐỀ ch½n I/ TRẮC NGHIỆM (3Đ) (Khoanh tròn vào đáp án đúng) Câu 1: Phát biểu nào sau đây là đúng ? a. Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thoả mãn. b. Chỉ ngôn ngữ lập trình Pascal mới có các câu lệnh lặp để thể hiện cấu trúc lặp. c. Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng câu lệnh while…do Câu 2: Cú pháp của câu lệnh For …. do là: a. for<biến đếm>:=<Giá trị đầu> to<giá trị cuối> do<câu lệnh>; b. for<biến đếm>:=<Giá trị cuối> to<giá trị đầu> do<câu lệnh>; c. for<biến đếm>=<Giá trị đầu> to<giá trị cuối> do<câu lệnh>; d. for<biến đếm>=<Giá trị đầu> to;<giá trị cuối> do<câu lệnh>; NguyÔn Xu©n Léc Câu 3: Cho đoạn chương trình: S:=2; For i:=1 to 5 do S:=S+i; Sau khi thực hiện đoạn chương trình trên S có kết quả là : a. 15 b. 14 c. 12 d. 3 Câu 4: Câu lệnh viết đúng cú pháp trong ngôn ngữ lập trình Pascal là: a. While <điều kiện> to <câu lệnh>; b. While <điều kiện> do <câu lệnh>; c. While <điều kiện> to <câu lệnh1> do <câu lệnh 2>; d. While <điều kiện>; do <câu lệnh>; Câu 5: Trong các câu lệnh sau, câu nào đúng: a. For i: = 100 to 1 do writeln(‘A’); b. For i: = 1 to 10 do writeln(‘A’); c. For i= 1 to 10 do writeln(‘A’); d. For i: = 1.5 to 9.5 do writeln(‘A’); Câu 6: Cú pháp đúng của câu lệnh điều kiện trong ngôn ngữ lập trình Pascal là: a. If <điều kiện>; then <câu lệnh>; b. If <điều kiện> for <câu lệnh>; c. If<điều kiện> then<câu lệnh1>else<câu lệnh2>; d. If<điều kiện> then<câu lệnh1>;else<câu lệnh2>; Câu 7: Cú pháp đúng của câu lệnh lặp trong ngôn ngữ lập trình Pascal là: a. For <biến đếm> = <giá trị đầu> ; to <giá trị cuối> do <câu lệnh>; b. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>; c. For <biến đếm> := <giá trị đầu> : <giá trị cuối> do <câu lệnh>; d. For <biến đếm> := <giá trị đầu> to <giá trị cuối>; do <câu lệnh>; Câu 8: Vòng lặp while do là vòng lặp: A. Biết trước số lần lặp B. Chưa biết trước số lần lặp C. Biết trước số lần lặp nhưng giới hạn là <=100 D.Biết trước số lần lặp nhưng giới hạn là >=100 Câu 9: Chương trình pascal sau sẽ in ra màn hình nội dung gì? Var i: integer; BEGIN For i:=1 to 10 do writeln(‘Day la lan lap thu ‘,i); Readln; END. A. 1 câu “Day la lan lap thu i”; B. 1 câu “Day la lan lap thu ‘, i”; C. 10 câu “Day la lan lap thu ‘, i”; D. 10 câu "Day la lan lap thu i” với i theo thứ tự từ 1->10; Câu 10: Cho S và i biến kiểu nguyên. Khi chạy đoạn chương trình : S:= 0; i:= 1; while i<= 6 do begin S:= S + i; i:= i + 2; end; Giá trị sau cùng của S là : A. 16 B. 9 C. 6 D. 0 II. Hãy viết lại chương tr×nh đúng từ chương trình có lỗi sau: (2 điểm) Program bang cuu chuong; var N,i:integer; begin write('Nhap so N='); readln(N); NguyÔn Xu©n Léc writeln; writeln('Bang nhan ',N); writeln; for i:=10 to 1 do; begin GotoXY(5,WhereY); writeln(N,' x ',i:2,' = ',N*i:3); end; readln end. III. Hãy viết chương trình để giải quyết các bài toán sau : (3 điểm) TÝnh tæng cña n sè tù nhiªn víi n ®îc nhËp tõ bµn phÝm. §¸p ¸n + biÓu ®iÓm ®Ò ch½n I. Khoanh tròn vào chữ cái đứng trước phương án đúng (5 điểm) C©u 1 a 0.5 ®iÓm C©u 3 b 0.5 ®iÓm C©u 5 b 0.5 ®iÓm C©u 7 b 0.5 ®iÓm C©u 9 d 0.5 ®iÓm C©u 2 a 0.5 ®iÓm C©u 4 b 0.5 ®iÓm C©u 6 c 0.5 ®iÓm C©u 8 b 0.5 ®iÓm C©u 10 a 0.5 ®iÓm II. Viết lại chương tr×nh đúng từ chương trình có lỗi sau: (2 điểm) Program bang_cuu_chuong; var N,i:integer; begin write('Nhap so N='); readln(N); writeln; writeln('Bang nhan ',N); writeln; for i:=1 to 10 do begin GotoXY(5,WhereY); writeln(N,' x ',i:2,' = ',N*i:3); end; readln end. III. Chương trình tÝnh tæng cña n sè tù nhiªn víi n ®îc nhËp tõ bµn phÝm. (3 điểm) Program Tinh_Tong; Var i, n: Integer; S: Real; Begin Writeln (‘Nhap gia tri n’); Readln (n); S:= 0; For i:=1 to n do S:= S + i; Writeln (‘Tong cua’,N,’ sè tù nhiªn= ‘, S:5:3); Readln End. §¸p ¸n + biÓu ®iÓm ®Ò lÎ I. Khoanh tròn vào chữ cái đứng trước phương án đúng (5 điểm) C©u 1 c 0.5 ®iÓm C©u 3 b 0.5 ®iÓm C©u 5 b 0.5 ®iÓm C©u 7 a 0.5 ®iÓm C©u 9 c 0.5 ®iÓm C©u 2 c 0.5 ®iÓm C©u 4 a 0.5 ®iÓm C©u 6 a 0.5 ®iÓm C©u 8 c 0.5 ®iÓm C©u 10 d 0.5 ®iÓm II. Các câu lệnh Pascal sau đây có hợp lệ không? Vì sao? (2 điểm) a) if a>b then max:=a; else max:=b; Kh«ng hîp lÖ v× thõa dÊu chÊm phÈy tríc else. b) if a>b then max:=a else max:=b; Hîp lÖ. c) for i:=1 to 10 for j:=1 to 10 do x:=x+1; Kh«ng hîp lÖ v× thõa for j:=1 to 10 d) for i:=1 to 10 do for i:=1 to 10 do x:=x+1; Kh«ng hîp lÖ v× thõa do for i:=1 to 10 III. Chương trình nhập vào 2 số nguyên a, b so sánh hai số đó: (3 điểm) Program So_sanh; NguyÔn Xu©n Léc Var a, b, t: Integer; Begin Writeln (‘Nhap so nguyen a:’); Readln (a); Writeln (‘Nhap so nguyen b:’); Readln (b); If a<=b then write (a,’ ‘,b); If b<a then write (b,’ ‘,a); Readln End. . writeln(‘Day la lan lap thu ‘,i); Readln; END. A. 1 câu “Day la lan lap thu i”; B. 1 câu “Day la lan lap thu ‘, i”; C. 10 câu “Day la lan lap thu ‘, i”; D. 10 câu "Day la lan lap thu i” với. If thế nào cho đúng nhất? a/ If A, B, C > 0 then… b/ IF (A>0) and (B>0) and (C>0) then… c/ IF A>0 and B>0 and c>0 then… d/ IF (A>0) or (B>0) or (c>0) then… Câu 6:. sinh: Ôn lại những kiến thức đã học. C/ Tiến trình dạy học: I/ Tổ chức: 8A 8B II/ Kiểm tra III/ Bài mới: lẻ I. Khoanh trũn vo ch cỏi ng trc phng ỏn ỳng (5 im) Cõu 1: Trong ngụn ng lp trỡnh