NÕu mét phÝm kh¸c ngoµi hai phÝm mòi tªn trªn ® îc nhÊn, chiÕc khay vÉn gi÷ nguyªn vÞ trÝ... vµ ph¶i ®Æt trong phÇn khai b¸o..[r]
(1)Tuần 16
Ngày soạn: 02 /12/08 Ngày dạy:
Tiết 31 : Bài thực hành 4
Sử dụng câu lệnh điều kiện if then (tiếp)
A Mơc tiªu: TiÕp tơc cđng cè cho HS
Viết đợc đợc câu lệnh điều kiện if then chơng trình;
Rèn luyện kĩ ban đầu đọc ch ơng trình đơn giản hiểu đ - ợc ý nghĩa thuật tốn sử dụng ch ơng trình
Thơng qua toán xét ba số a, b, c d ơng có phải độ dài ba cạnh tam giỏc hay khụng
B Chuẩn bị:
- Thầy: Phòng máy + số thuật toán ch ơng trình BT SGK - HS: Thực theo HD ë tiÕt 30
C TiÕn tr×nh:
1 ổn định: KTSS, t cách HS
2 KiÓm tra bµi cị:
HS: Viết lại cú pháp câu lệnh điều kiện dạng thiếu dạng đầy đủ GV kiểm tra chuẩn bị thuật tốn của nhóm TH
HS kh¸c NX, GVNX chung cho điểm
3 Bài mới:
GV tổ chức cho nhóm thực hành theo yêu cầu sau: 1, Hoàn thiện nội dung cđa tiÕt thùc hµnh 30
2, Bµi 3: SGK – 54
T×m hiĨu ý nghÜa câu lệnh ch ơng trình, soạn, dịch và cho chạy ch ơng trình sau:
“ Nhập ba số dơng a, b, c từ bàn phím, kiểm tra in hình kết quả kiểm tra ba số có độ dài ba cạnh tam giác hay không.”
Program Ba_canh_tam_giac;
Uses crt;
Var a, b, c: real;
Begin
Clrscr;
Write (‘ Nhap ba so a, b va c:’ ); readln(a,b,c);
If
(a+b > c) and (b + c > a) and (a + c > b) then
Writeln ( a, b va c la canh cua tam giac!‘ ’ )
Else writeln (‘ a, b va c khong la canh cua tam giac! );’ Readln
End.
Để HS luyện tập thêm câu lệnh điều kiện, phép so sánh, yêu cầu HS viết ch ơng trình cho phép nhập điểm kiểm tra bạn đó, sau ú thc hin:
- Nếu điểm nhỏ 5, in dòng chữ "Ban can co gang hon";
- Nếu điểm lớn nhỏ 6.5, in dòng chữ "Ban dat
diem trung binh";
- Nếu điểm lớn 6.5 nhỏ 8, in dòng chữ "Ban dat
(2)- NÕu ®iĨm lín 8, in dòng chữ "Hoan ho ban dat diem
Gioi"
GV ®i kiĨm tra nhóm TH, có NX HD, uốn nắn GV nhấn mạnh phần L u ý (SGK 54)
4 Củng cố:
? Qua tiết TH này, em nắm đ ợc thao tác, kĩ năng, kiến thức lập trình?
HS trả lêi
GV nhấn mạnh lại ch ơng trình kiểm tra số d ơng cho tr ớc có độ dài cạnh tam giác hay không, ý việc dùng từ “and”
5 H íng dÉn vỊ nhµ:
- Xem lại tồn nội dung kiến thức, kĩ thực hành TH tiết 30, 31
- Đọc kĩ phần tổng kết cuối (SGK 55)
- Ôn tập lại toàn kiến thức 6, sau chữa số BT có liên quan
********************************************
Tuần 16
Ngày soạn: 03 /12/08 Ngày dạy:
Tiết 32: Bài tËp
A Mơc tiªu:
- Cđng cè cho học sinh mô tả thuật toán số toán cho tr ớc
- Rèn kĩ tìm hiểu số câu lệnh, sử dụng câu lệnh điều kiện If then ch ơng trình môt số toán
- Rèn ý thức làm việc theo nhóm, cá nhân tích cực, hiệu
B Chuẩn bị:
- Thầy: Bảng phụ
- HS: Thùc hiÖn theo HD ë tiÕt 31
C TiÕn tr×nh:
1 ổn định: KTSS, t cách HS
2 KiĨm tra bµi cị:
HS1: Nêu b ớc giải toán máy tÝnh?
HS2: ViÕt có ph¸p sư dụng câu lệnh điều kiện dạng? HS khác NX, GVNX chung cho điểm
3 Bài mới:
Hoạt động thầy trò Nội dung
Hoạt động 1: HS biết mô tả thuật tốn tóan cho tr ớc
Gv đ a BT1 bảng
? Nêu INPUT OUTPUT toán?
HS:
INPUT: Cho số n >
OUTPUT: Thông báo kết n số chẵn n số lẻ
GV nhấn mạnh ? Mô tả thuật toán?
GV tổ chức cho nhóm thảo luận Đại diện hai nhóm lên bảng
NHóm khác NX bổ sung
Dạng 1: Mô tả thuật toán
BT!: Cho số n d ơng Mô tả thuật toán thông báo kết n số chẵn n số lẻ hình
B
ớc 1 NhËp sè n B
íc 2 NÕu n chia hÕt cho 2, ghi hình số chẵn; ngn ợc lại, ghi hình n sè lỴ”
B
íc 3 KÕt thóc thuËt to¸n
(3)GV chốt lại thuật toán GV vấn đáp HS chỗ GV tiếp tục đ a BT HS đọc to đề BT ? Nêu h ớng làm?
HS xác định INPUT OUTPUT toán
HS hoạt động theo nhóm đ a thuật tốn
GV chốt lại thuật toán
Hot ng 2: HS bit sử dụng câu lệnh điều kiện để viết ch ơng trình, hiểu đ ợc ý nghĩa câu lệnh ch ơng trình.
? Viết ch ơng trình cho tóan BT2?
HS hoạt động theo nhóm làm phiếu học
GV kiểm tra nhóm làm việc Sau 10 GV yêu cầu nhóm nộp kết
GV nhận xét làm nhóm, có ỏp v cha
GV chốt lại ch ơng trình bảng phụ HS quan sát tham khảo
GV tiếp tục đ a ch ơng trình sau yêu cầu HS tìm hiểu ý nghĩa câu lệnh CT Cho biết ch ơng trình cho kết gì?
Ch
ơng tr×nh Pascal: uses crt;
var X,Y,Z: real; begin
clrscr;
write('Nhap so X = '); readln(Y);
write('Nhap so Y = '); readln(Y);
if X>Y then begin Z:=X; X:=Y; Y:=Z;
writeln(X,’ ’,Y); readln
end.
đều, tam giác cân tam giác vng hay khơng ghi kết hình”
Tht to¸n: B
íc 1 NhËp ba sè A , B vµ C B
íc 2 NÕu A + B < C hc B C + < A
hc + C A < , thông báo B A , B C ba cạnh tam giác chuyển tới b íc
B
íc 3 NÕu A 2 + B 2 = C 2 hc B 2 C+ 2 =
A
2hc C 2 + A 2 = B 2 , thông báo A , B vµ C
ba cạnh tam giác vuông chuyển tíi b íc
B
íc 4 NÕu A = B vµ B C= , thông báo
A
B , Cvà ba cạnh tam giác đều; ng ợc lại, A = B B = C = A C , thông báo A , B C ba cạnh tam giác cân
B
íc 5 KÕt thúc thuật toán
Dạng 2: Viết chơng trình sử dụng câu lệnh điều kiện
BT3: Viết ch ơng tr×nh nhËp ba sè thùc
a
, b c từ bàn phím vào máy tính, sau kiểm tra ba số cạnh tam giác đều, tam giác cân tam giác vuông hay không ghi kết hình (với thuật tốn trên)
Ch
ơng trình Pascal: program Sap_xep;
uses crt;
var A, B, C, X: integer; begin
clrscr;
write('Nhap so A: '); readln(A); write('Nhap so B: '); readln(B); write('Nhap so C: '); readln(C); if (A+B<C) or (B+C<A) or (A+C<B) then writeln('Day khong la ba canh cua mot tam giac') else
if (A*A=B*B+C*C) or
(B*B=A*A+C*C) or (C*C=A*A+B*B)
then writeln('Day la ba canh cua tam giac vuong') else
if (A=B) and(B=C) and (A=C)
then writeln('Day la ba canh cua tam giac deu') else
if (A=B) or (B=C) or (C=A) then writeln('Day la ba canh cua tam giac can') else
writeln('Day chi la ba canh cua tam giac thuong');
(4)HS tr¶ lêi
GV chốt lại kết CT: C h ơng trình nhập sử dụng hai biến X Y từ bàn phím, sau đổi giá trị biến để X Y có giá trị tăng dần
4 Cñng cè:
GV nhấn mạnh dạng BT chữa tổ chức cho HS hoạt động cá nhân chữa BT (SGK – 51)
GV chốt lại đáp án:
a ) V× 45 chia hết cho 3, điều kiện đ ợc thỏa mÃn nên giá trị X đ ợc tăng lên 1, tøc b»ng 6;
b ) §iỊu kiện không đ ợc thỏa mÃn nên câu lệnh không đ ợc thực hiện, tức X giữ nguyên giá trị
5 H íng dÉn vỊ nhµ:
- Xem lại toàn BT chữa tiết học
- Hoàn thiện BT SGK – 51 + làm thêm BT sau: “ Hãy mô tả thuật tốn viết ch ơng trình nhập ba số thực a , b c từ bàn phím vào máy tính, sau xếp ghi số hình theo thứ tự tăng dần”
- Ơn lại tồn kĩ TH TH từ TH1 đến 4, sau kiểm tra tiết TH phòng máy.
GV HD BT3, (SGK – 51)
BT3 (SGK 51) Giả sử Điểm_1 số điểm ng ời thứ Điểm_2 số ®iĨm cđa ng êi thø hai, ngoµi mét ng ời thứ đầu số tự nhiên n < 10
Điều kiện trò chơi ng ời thứ hai đốn số n Khi Điểm_2 đ ợc cộng thêm 1; ng ợc lại, Điểm_2 đ ợc giữ nguyên T ơng tự, ng ời thứ hai nghĩ số tự nhiên m , điều kiện thứ hai ng ời thứ đoán số m Khi Điểm_1 đ ợc cộng thêm 1; ng ợc lại, Điểm_1 đ ợc giữ nguyên Điều kiện trò chơi sau 10 lần, Điểm_1 > Điểm_2 ng ời thứ đ
ợc tuyên bố thắng cuộc; ng ợc lại, ng ời thứ hai thắng Tr ờng hợp Điểm_1 =
Điểm_2 ng ời thắng vµ ng êi thua
BT4 (SGK – 51) Điều kiện để điều khiển khay trò chơi ng ời chơi nhấn phím mũi tên Nếu ng ời chơi nhấn phím , biểu t ợng khay di chuyển sang phải đơn vị khoảng cách; phím đ ợc nhấn, biểu t ợng khay di chuyển sang trái Nếu phím khác ngồi hai phím mũi tên đ ợc nhấn, khay giữ nguyên vị trí
Tuần 17
Ngày soạn: 9/12/08 Ngày dạy:
Tiết 33: Kiểm tra thực hành (1 tiết)
A Mơc tiªu:
- Đánh giá kĩ lập trình đơn giản qua tốn
- Củng cố kĩ sử dụng Turbo Pascal để viết ch ơng trình cách thành thạo
- RÌn ý thøc kiĨm tra thực hành nghiêm túc, tự giác, linh hoạt hiệu theo nhóm
B Chuẩn bị:
(5)- HS: Thùc hiÖn theo HD ë tiÕt 32
C TiÕn tr×nh:
1 ổn định: KTSS, t cách HS
2 KiĨm tra bµi cị:
GV nhắc nhở thái độ nhóm q trình làm KTTH chia nhóm kiểm tra
3 Bµi míi:
GV tổ chức cho đại diện nhóm lên bốc thăm đề kiểm tra
§Ị 1:
Viết ch ơng trình in hình đoạn văn sau: Năm điều Bác Hồ dạy Yêu Tổ quốc, yêu đồng bào Học tập tốt, Lao động tốt Đoàn kết tốt, Kỷ luật tốt Giữ gìn vệ sinh tht tt
5 Khiêm tốn, thật thà, dũng cảm
§Ị 2:
Viết ch ơng trình tính diện tích chu vi hình vng độ dài cạnh a nhập từ bàn phím
§Ị 3:
Viết ch ơng trình tính diện tích chu vi hình chữ nhật độ dài hai cạnh nhập từ bàn phím
§Ị 4:
Viết ch ơng trình để tính giá trị biểu thức sau:
P = 3
4 3
§Ị 5:
Viết ch ơng trình tính diện tích hình thang có độ dài đáy chiều cao nhập từ bàn phím
Đáp án thang điểm Yêu cầu chung cho đề
Làm nhanh, đúng, xác (ch ơng trình chạy đ ợc với số số liệu GV yêu cầu nhập) thời gian cho phép 25’ đến 30’ đ ợc điểm tối đa (10đ)
- Đối với đề dành riêng 2đ tổng số 10đ tối đa nhóm
tù cho chạy thử nghiệm ch ơng trình
- Thang điểm dành chung cho đề
+ PhÇn khai báo: 3đ
+ Phần thân ch ơng trình: 5đ
Đề 1:
Program vanban; (3đ) Uses crt;
Begin
Clrscr;
Writeln(‘Nam dieu Bac Ho day’);
Writeln(‘1 Yeu To quoc, Yeu dong bao’); Writeln(‘2 Học tập tốt, Lao động tốt’); Writeln(‘3 Đoàn kết tốt, Kỷ lut tt);
Writeln(4 Giữ gìn vệ sinh thật tốt); (5đ) Writeln(5 Khiêm tốn, thật thà, dũng cảm);
End
§Ị 2:
Program DTCV_Hinhvuong; Uses crt;
(6)Begin
Clrscr;
Writeln(‘Nhap dai hinh vuong a =’); Readln(a);
S:=a*a; C:= 4*a;
Writeln(‘Dien tich hinh vuong la S =, S:8:2); Readln(S); Writeln(‘Chu vi hinh vuong la C=, C:8:2); Readln(C); Readln
End
§Ị 3:
Program DTCV_Hinhchunhat; Uses crt;
Var S, C, a, b: Real; Begin
Clrscr;
Writeln(‘Nhap chieu dai hinh chu nhat a =’); Readln(a); Writeln(‘Nhap chieu réng hinh chu nhat b =’); Readln(b);
S:= a*b; C:= 2*(a + b);
Writeln(‘Dien tich hinh chu nhat la S =, S:8:2); Readln(S); Writeln(‘Chu vi hinh chu nhat la C=, C:8:2); Readln(C); Readln
End
§Ị 4:
Program Giatribieuthuc; Uses crt;
Var P: Real; Begin
Clrscr;
P:=((3/4 + 2/5) – (1/3 -3/2))*3/2;
Writeln(‘Gia tri cua bieu thuc P=’; P:8:2); Readln(P); Readln
End
§Ị 5:
Program DT_hinhthang; Uses crt;
Var S, a, b, h: Real; Begin
Clrscr;
Writeln(‘Nhap ®o dai day lon hinh thang a =’); Readln(a); Writeln(‘Nhap ®o dai day nho hinh thang b =’); Readln(b); Writeln(‘Nhap ®o dai chieu cao hinh thang h =’); Readln(h); S:= ((a + b)*h)/2;
Writeln(‘Dien tich hinh la S =, S:8:2); Readln(S); Readln
End
4 Cđng cè:
GV NX ý thøc lµm bµi cđa c¸c nhãm, rót kinh nghiƯm
5 H íng dÉn vỊ nhµ:
- Ơn lại tồn kiến thức lý thuyết kĩ TH từ đến 6, sau ôn tập
- Nghiên cứu kĩ lại tập làm, chữa SGK
******************************************
(7)Ngày soạn: 10/12/08 Ngày dạy:
Tiết 34: ÔN tập
A Mục tiêu:
- HS đ ợc hệ thống lại kiến thức từ đầu năm ch ơng trình NNLT nói chung NNLT Pascal nói riêng
- Rèn kĩ làm tập có liên quan
- Rèn ý thức làm việc cá nhân theo nhóm hiệu quả, tích cực
B Chuẩn bị:
- Thầy: Hệ thống kiến thức, dạng BT có liên quan - HS: Thùc hiÖn theo HD ë tiÕt 33
C TiÕn tr×nh:
1 ổn định: KTSS, t cách HS
2 Kiểm tra cũ:
Kết hợp với thời gian ôn tập Bài mới:
Hot động thầy trò Nội dung
GV tổ chức cho HS ơn lại tồn kiến thức từ đầu năm lập trình đơn giản
Hoạt động 1:
HS hoạt động theo nhóm trả lời câu hỏi sau
? Ch ¬ng trình MT, viết ch ơng trình, NNLT gì?
? Tại lại phải viết ch ơng trình ? Các b ớc để tạo ch ơng trình MT l gỡ?
Đại diện nhóm trả lời, nhóm khác NX bổ sung
GV chốt lại toàn -
Ch ơng tr ình máy tính dÃy lệnh mà máy tính hiểu thực đ ợc
- Viết ch ơng trình h ớng dẫn máy tính thực công vệc hay giải toán thĨ
- NNLT NN dùng để viết ch ơng trình MT
- ViƯc t¹o ch ơng trình máy tính thực chất gồm hai b ớc sau:
(1) Viết ch ơng trình theo ngôn ngữ lập trình;
(2) Dch ch ng trỡnh thnh ngơn ngữ máy để máy tính hiểu đ ợc ? NNLT gồm gì?
? Nêu quy tắc đặt tên lập trình
A Lý thuyÕt:
1 Máy tính, ch ơng trình máy tính NNLT
* MT ch ơng trình MT
* Ch ơng trình NNLT
+ NNLT gồm: Bảng chữ quy tắc
+ Quy tắc đặt tên ch ơng trình:
- Tên khác t ơng ứng với
những đai l ợng khác
- Tên không đ ợc trùng với từ
khóa
- Không đ ợc bắt đầu chữ số - Không đ îc chøa dÊu c¸ch (kÝ tù
trèng)
+ Cấu trúc chung môt ch ơng trình: Gồm phÇn:
Phần khai báo th ờng gồm câu lệnh dùng để:
(8)? Nªu cấu trúc chung ch ơng trình?
? Nêu cách l u, dich, chạy ch ơng trình?
HS lần l ợt trả lời
GV nhấn mạnh nội dung GV ý lại:
- Phần khai báo có khơng Tuy nhiên, có phần khai báo phải đ ợc đặt tr ớc phần thân ch - ơng trình.
-
NhÊn phÝm F2 (hc lƯnh File Save)
để l u ch ơng trình
- Nhấn tổ hợp phím Alt+F9 biờn
dịch ch ơng trình
- Nhn tổ hợp phím Ctrl+F9 để chạy
ch
ơng trình quan sát kết
Hot ng 2 :
? Nêu kiểu DL th êng dïng lËp tr×nh ?
HS
: Sè nguyªn (Integer) ; sè thùc (real) ; xâu kí tự (String) Ngoài ra còn có kiểu Char (một kí tự)
GV nhấn mạnh bổ sung thêm phạm vi giá trị cảu kiểu DL HS tham khảo thêm SGK 21
? Viết kí hiệu phép tốn, phép so sánh đựơc sử dụng NNLT Pascal ?
hai HS lªn viết, HS khác NX GV chốt lại
Hot ng 3 : GV tiếp tục tổ chức cho HS ôn lại cách sử dụng biến lập trình thơng qua hình thức vấn đáp chỗ
GV nhấn mạnh số điểm
-
Tên biến phải tuân theo quy tắc đặt tên ngơn ngữ lập trình.
-
Hằng phải đ ợc gán giá trị khai báo Giá trị đ ợc sử dụng trong suốt ch ơng trình.
Hot động 4 :
GV đ a số tập theo hình thức trắc nghiệm để HS củng cố kiến thức ôn
o Khai báo th viện (chứa lệnh viết sẵn cần sử dụng ch ơng trình) số khai báo khác
Phần thân chơng trình gồm câu lệnh mà máy tính cần thực Đây phần bắt buộc phải có
2 Ch ơng trình MT liệu:
-
C¸c kiĨu DL th êng dïng
- C¸c phép toán kí hiệu NNLT Pascal
- Quy tắc tính biểu thức số học - Các phÐp so s¸nh
3 Sư dơng biÕn ch ơng trình * Biến cách khai báo biến
Trong lập trình biến đ ợc dùng để l u
trữ liệu liệu đợc biến lu
trữ thay đổi thực ch ơng trình
ViƯc khai b¸o biến gồm:
Khai báo tên biến ;
Khai báo kiểu liệu biến l u
và phải đặt phần khai bỏo -
Các thao tác đ ợc thực biến là:
Gán giá trị cho biến
Tính toán với biến
* Hằng cách khai báo hằng
- Hằng đại l ợng có giá trị khơng đổi suốt trình thực ch ơng trình
-
const từ khóa để khai báo
B Bµi tËp:
Bµi 1: Khoanh tròn 1/
Phép toán (105 div 10 + 105 mod 5) cã gÝa trÞ l :à
A
B C 15 D 10
2/
Thứ tự ch ơng trình Program Chuong trinh 1; (1)
Begin (2) Uses crt; (3)
(9)GV tổ chức cho nhóm hoạt ng nhúm lm BT
Đại diện nhóm lên làm
Đáp án Bài :
1D ; 2A ; 3C ; 4B ; 5C ; 6D ; 7C
Bµi :
Program Giatribieuthuc; Uses crt;
Var Q: Real; Begin
Clrscr;
Q:=((12*12*12 + (4/15)/ (1/3))*2/3) – (12/43 -2*2*2*4/5);
Writeln(‘Gia tri cua bieu thuc Q=’; Q:8:2); Readln(Q); Readln
End
bieu );(4)’
End (5) A
1, 3, 2, 4, B 1, 2, 4, 3,
C
2, 3, 1, 4, D 1, 2, 3, 4, 3/ Trong NNLT Pascal, biÓu thøc
1 a(b 2)
x a
đ ợc biểu diễn nh n o?à
A
1/(x-a)*(b+2)/(2+a)
B 1/x-(a*b+2)/(2+a)
C 1/x-a*(b+2)/(2+a)
D (1/x-a*b+2)/(2+a) 4/
Trong tên sau đây, tên n o hợp lệ NNLT Pascal?
A
Khoi B Hinhvuong;
C
Bai-tap-thuc-hanh D beginprogram 5/
CÊc tªn sau đây, nhóm n o l từ khóa?
A
End, Mod, Var, Readln;
B
Begin, Uses, Write; Or
C
Begin, Program, Uses, And
D
Begin, Readln, Or, Uses 6/
Trong pascal, lƯnh n o cã t¸c dơngà xãa m n h×nh:à
A CLRSSR; B CLRSR;
C Clrscl; D clrscr;
7/
Cho X l biến số thực sau thựcà hiện lệnh gán X:=12.41; Để in m nà hình nh sau: X=12.41 Hãy chọn lệnh đúng:
A.Writeln(X); B writeln(X:5);
C.Writeln(‘X=’,X:5:2); D Writeln( ‘X=, X:5:2’);
Bài 2
Viết ch ơng trình tính giá trị cđa biĨu thøc sau:
Q = 123 1: 12 23 15 3 43
4 Cñng cè:
(10)HS lần l ợt trả lời, GV nhấn mạnh toàn
5 H ớng dẫn vỊ nhµ:
- Xem lại tồn kiến thức ôn BT làm