- Hoïc sinh bieát ñöôïc caùc kieåu döõ lieäu vaø döõ lieäu nhaäp vaøo maùy tính - Hoïc sinh bieát duøng caùc pheùp toaùn veà döõ lieäu.. - Hoïc sinh bieát caùch con ngöôøi giao tieáp vôù[r]
(1)Gi¸o ¸n Tin häc - Năm học 2009- 2010 Ngy dy:
Tit : : MÁY TÍNH VÀ CHƯƠNG TRÌNH MÁY TÍNH I/Mục tiêu::
- Học sinh biết số khái niệm thuật giải máy tính ngơn ngữ máy tính
- Học sinh biết lệnh sống hàng ngày thực vài ví dụ - Học sinh biết sử dụng ệnh vào tốn cụ thể
- Học sinh nghiêm túc trịng học tập
II/ Chuẩn bị
GV: SGK, máy chiếu HS: Xem trước nhà
IV Ti n trình gi ngế ả
Hoạt động Nội dung
Hoạt động 1:Tìm hiểu người ra lệnh cho máy tính nào?
GV: Để máy tính thực cơng việc theo mong muốn mình, người phải đưa dẫn thích hợp cho máy tính
VD: Nháy đúp lên biểu tượng Ra lệnh cho máy tính thực khởi động chương trình phần mềm
? Khi thực chép đoạn văn ta lệnh cho máy tính ? Đó lệnh nào?
Hoạt động 2: Tìm hiểu hoạt động RơBơt qt nhà
GV: Chiếu hình chiếu
Giả sử có đống rác RơBơt vị trí Hình SGK, từ vị trì thời RoBơt để RơBơt nhặt rác bỏ rác vào thùng
x
x x
? Nhìn vào hình em mơ tả bước để RơBơt nhặt rác bỏ vào thùng?
Giả sử lệnh viết lưu thành tệp với tên “ nhặt rác” lệnh tệp điều khiển Rơbơt tự động thực nhiệm vụ nhặt
I.Con ngưởi lệnh cho máy tính nào?
- Để dẫn máy tính thực cơng việc đó, người đưa cho máy tính nhiều lệnh máy tính thực lệnh theo thứ tự nhận
VD1: Gõ chữ A lên hình Ra lệnh cho máy tính ghi ký tự hình
VD2: Sao chép đoạn văn Yêu cầu máy tính thực công việc sau:
Sao chép đoạn văn vào nhớ chép đoạn văn từ nhớ vị trí
II Ví dụ : Rô- bôt quét nhà
Nếu thực lệnh sau Rơbơt hồn thành nhiệm vụ:
1 TiÕn bíc
2 Quay tr¸i, tiến bớc Nhặt rác
4 Quay phải, tiÕn bíc Quay tr¸i, tiÕn bíc Bỏ rác vào thùng Thuứng
Raực RoõBoõt
(2)rác v2 bỏ rác vào thùng rác
D Củng cố - Ghi nhớ
- Laøm tập SGK V Rút kinh nghiệm
- Học sinh hiểu bài, biết sử dụng lệnh hàng ngày để đưa vào máy tính - Học sinh tự lấy ví dụ minh họa
- Thời gian đảm bảo - Hồn thành chương trình
Tiết :Bài MÁY TÍNH VÀ CHƯƠNG TRÌNH MÁY TÍNH(TT)
IMục tiêu::
- Học sinh biết số khái niệm thuật giải máy tính ngơn ngữ máy tính
- Học sinh biết lệnh sống hàng ngày thực vài ví dụ - Học sinh biết sử dụng ệnh vào toán cụ thể
- Học sinh nghiêm túc tròng học tập
II Chuẩn bị
GV: SGK, máy chiếu HS: Xem trước nhà
IV Tiến trình giảng
Hoạt động Nội dung
Hoạt động 1: Cách viết chương trình, ra lệnh cho máy tính thực hiện
- Việc viết lệnh điều khiển Rôbôt thực chất viết chương trình - Khi thực chương trình máy tính thực lệnh có chương trình cách
Hoạt động 2:Tìm hiểu lý phải viết chương trình
- Để thực cơng việc, máy tính phải hiểu lệnh viết chương trình Vậy làm để máy tính hiểu lệnh người? Ta lệnh cho máy tính cách nói gõ phím khơng?
- Các ngơn ngữ lập trình đời để giảm nhẹ khó khăn việc viết
III Viết chương trình – lệnh cho máy tính thực hiện
Trở lại ví dụ Robơt nhặt rác, chương trình có lệnh sau:
IV Tại phải viết chương trình?
- Máy tính nói hiểu ngôn ngữ riêng gọi ngôn ngữ máy tính
- Viết chương trình sử dụng từ có nghĩa (thường tiếng Anh)
(3)Gi¸o ¸n Tin häc - Năm học 2009- 2010
chửụng trỡnh
- Mụ tả máy chiếu việc lệnh cho máy tính thực
Như chương trình đưa vào máy tính phải chuyển đổi thành dạng dạy Bit ( gồm số 1)
D Củng cố - Ghi nhớ
- Làm tập SGK V Rút kinh nghiệm
- Học sinh hiểu bài, biết sử dụng lệnh hàng ngày để đưa vào máy tính - Học sinh tự lấy ví dụ minh họa
- Thời gian đảm bảo - Hồn thành chương trình
Ngày dạy:
Tiết 3: LAØM QUEN VỚI CHƯƠNG TRÌNH VÀ NGƠN NGỮ LẬP TRÌNH (T1)
IMục tiêu::
- Học sinh biết số khái niệm thuật giải máy tính ngơn ngữ máy tính
- Học sinh biết lệnh sống hàng ngày thực vài ví dụ - Học sinh biết sử dụng ệnh vào toán cụ thể
- Học sinh nghiêm túc tròng học tập
II Chuẩn bị
GV: SGK
HS: Xem trước nhà
IV Tiến trình giảng
Hoạt động Nội dung
Hoạt động 1:Ví dụ chương trình
Để máy tính làm theo u cầu người ta phải cung cấp cho máy tính lệnh
Ví dụ: Để in dịng chữ “ Chào bạn” hình ta phải cung cấp cho máy tính lệnh để xuất dịng chữ hình
Muốn viết lệnh ta cần có ngun tắc khơng?
Ta tìm hiểu cấu trúc chương trình hay lệnh chương trình
Trong chương trình gồm lệnh hay gồm nhiều dòng lệnh khác
I Ví dụ chương trình
- Ví dụ : Viết chương trình in hình dịng chữ “chào bạn hình”
chương trình gồm dòng lệnh sau đây:
(4)Hoạt động 2:Ngơn ngữ lập trình gồm những ?
- Chúng ta quan sát nhìn vào ví dụ đơn giản trên, ta thấy chương trình viết gồm ký tự bảng chữ
- Giống ngôn ngữ khác, ngơn ngữ lập trình gồm bảng chữ riêng mà lệnh chương trình bao gồm bảng chữ
- Ngồi bảng chữ ngơn ngữ lập trình cịn tập hợp qui tắc để sử dụng chương trình
Chẳng hạn kết thúc lệnh dấu chấm phẩy, lệnh đuợc cách nhiều khoảng trắng
Hoạt động 3:Từ khóa tên
- Trong ch¬ng trình trên, ta thấy có từ nh program, uses, begin, end, Đó từ khoá
- Từ khóa từ có nghĩa dành riêng cho chương trình, với ngơng ngữ lập trình khác từ khóa khác
- Như biết chương trình cần có tên để phân biệt với chương trình khác để người sử dụng dễ nhớ tên chương trình mà cần sử dụng có ý nghĩa định
- Tên phải có qui tắc định việc đặt tên: Tên bắt đầu nào, chiều dài tối đa bao nhiêu, tên có trùng với từ khóa hay không?
- Bảng chữ ngôn ngữ lập trình thờng gồm chữ tiếng Anh số kí hiệu khác nh dấu phép tốn (+, , *, /, ), dấu đóng mở ngoặc, dấu nháy, - Các quy tắc : quy định cách viết từ thứ tự chúng
- Cãu leọnh: xác định thao tác mà máy tính cần thực kết đạt đợc
III Từ khóa tên
T ừ khóa : từ dành riêng Pascal không
đặt trùng với từ khóa
And,array,begin,case,const,div,do,downto,end,else,fil e of, forward,function,goto,if,in, label,mod,, not, nul, of, or,procedure, program,set,string,then,to,
type,record,, repeat,until, var , while, with
Tên :Là dãy ký tự Tên tạo chữ cái, chữ số ký tự gạch nối Tên phải bắt đầu bàng chữ khơng có ký tự trắng chiều dài tối đa 127 ký tự, tên không trùng với từ khóa
Củng cố - Ghi nhớ
- Làm tập SGK V Rút kinh nghieäm
- Học sinh hiểu bài, biết sử dụng thành phần ngơn ngữ lập trình - Biết khai báo tên từ khóa chương trình
- Phân biệt đâu tên đâu từ khóa - Học sinh tự lấy ví dụ minh họa
(5)Gi¸o ¸n Tin häc - Năm học 2009- 2010
Ngày dạy: 18/9/09
Tiết 4: LAØM QUEN VỚI CHƯƠNG TRÌNH VÀ NGƠN NGỮ LẬP TRÌNH(T2)
IMục tiêu::
- Học sinh biết số khái niệm thuật giải máy tính ngơn ngữ máy tính
- Học sinh biết lệnh sống hàng ngày thực vài ví dụ - Học sinh biết sử dụng ệnh vào tốn cụ thể
- Học sinh nghiêm túc trịng học tập
II Chuẩn bị
GV: SGK HS: Xem trước nhà
III Tiến trình giảng
Hoạt động Nội dung
Hoạt động 1: Cấu trúc chung chương trìn
- Với chương trình mà người sử dụng phải tuân theo cấu trúc định để thực chương trình đem đến kết định
- Tuy nhiên sử dụng người ta chương trình không cần phải làm tất theo cấu trúc chung mà chương trình người ta giảm bớt phần mà chương trình khơng cần thiết
- Tuy nhiên có phần mà khơng thể bỏ qua chương trình
Hoạt động 2: Ví dụ
- Trong phần làm quen với ngơn ngữ lập trình cụ thể, ngơn ngữ Pascal Để lập trình ngơn ngữ Pascal, ta cần có mơi trờng lập trình ngơn ngữ đợc cài đặt máy tính
- Díi minh hoạ việc viết chạy chơng trình cụ thể môi trờng lập trình Turbo Pascal
- Khởi động chương trình Turbo Pascal gõ nội dung ca chng trỡnh - chạy chơng trình, ta nhấn tỉ hỵp phÝm Ctrl+F9
IV Cấu trúc chung chương trình
- Phần khai báo thờng gồm câu lệnh dùng để: + Khai báo tên chơng trình;
+ Khai b¸o c¸c th viƯn (chøa c¸c 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ó
V Ví dụvề ngơn ngữ lập trình- Pascal
1 Chương trình nhập năm sinh,in tuổi:
Program nhapnamsinhintuoi; Var namsinh,tuoi:integer;
Begin
Write(‘Haõy cho biết bạn sinh năm naøo’); Readln(namsinh);
Tuoi:=2008-namsinh;
Write(‘Năm bạn :’,tuoi,’tuổi’); Readln;
End.
2 Chương trình in câu “Xin chao cac ban” hình
Program xinchao;
Begin
Write(‘Xin chào bạn’); Readln;
End.
(6)- Học sinh hiểu bài, biết sử dụng ví dụ cụ thể vè chương trình Pascal - Biết khai báo tên từ khóa chương trình
- Phân biệt đâu tên đâu từ khóa - Học sinh tự lấy ví dụ minh họa
- Hồn thành chương trình
Ngày dạy: 25/9/09
Tieỏt 5: Bài thực hành (T1) Làm quen với Turbo Pascal 1 Mc ớch, yờu cu
Bớc đầu làm quen với môi trờng lập trình Turbo Pascal, nhận diện hình soạn thảo, cách mở bảng chọn chän lƯnh
Gõ đợc chơng trình Pascal n gin
Biết cách dịch, sửa lỗi chơng trình, chạy chơng trình xem kết 2 Néi dung
Bài 1. Làm quen với việc khởi động thoát khỏi Turbo Pascal Nhận biết thành phần hình Turbo Pascal
a) Khởi động Turbo Pascal hai cách:
Cách 1: Nháy đúp chuột biểu tợng hình (hoặc bảng chọn Start); Cách 2: Nháy đúp chuột tên tệp Turbo.exe trong th mục chứa tệp (thờng th mục TP th mục TP\BIN)
b) Quan sát hình Turbo Pascal so sánh với hình dới đây:
c) Nhận biết thành phần: Thanh bảng chọn; tên tệp mở; trỏ; dòng trợ giúp phía d-ới hình
d) Nhấn phím F10 để mở bảng chọn, sử dụng phím mũi tên ( ) để di chuyển qua lại bảng chọn
(7)Giáo án Tin học - Năm häc 2009- 2010
H×nh 12
Mở bảng chọn cách khác: Nhấn tổ hợp phím Alt phím tắt bảng chọn (chữ màu đỏ tên bảng chọn, ví dụ phím tắt bảng chọn Filelà F, bảng chọn Runlà R, )
g) Sử dụng phím mũi tên lên xuống ( ) để di chuyển lệnh bảng chọn
h) Nhấn tổ hợp phím Alt+X để khỏi Turbo Pascal Bài 2. Soạn thảo, lu, dịch chạy chơng trình đơn giản a) Khởi động lại Turbo Pascal gõ dòng lệnh dới đây:
program CTDT; uses crt;
begin
clrscr;
writeln('Chao cac ban'); write('Minh la Turbo Pascal'); end.
Chó ý
- Gõ khơng để sót dấu nháy đơn ('), dấu chấm phẩy (;) dấu chấm (.) dịng lệnh
- Soạn thảo chơng trình tơng tự nh soạn thảo văn bản: sử dụng phím mũi tên để di chuyển trỏ, nhấn phím Enter để xuống dịng mới, nhấn phím Delete BackSpace để xoá
- Câu lệnh uses crt; đợc dùng để khai báo th viện crt, lệnh clrscr; có tác dụng xóa hình Chỉ sử dụng câu lệnh clrscr; sau khai báo th viện crt
b) Nhấn phím F2 (hoặc lệnh FileSave) để lu chơng trình Khi hộp thoại ra, gõ tên tệp (ví dụ
CT1.pas) Save file as (phần mở rộng ngầm định .pas) nhấn Enter (hoặc nháy OK)
c) Nhấn tổ hợp phím Alt+F9 để dịch chơng trình Khi đó, chơng trình đợc dịch kết nh hình 14 sau đây:
H×nh 14
Nhấn phím để đóng hộp thoại
d) Nhấn tổ hợp phím Ctrl+F9 để chạy chơng trình quan sát kết
H×nh 15
Nhấn Enter để quay hình soạn thảo
(8)Ngày dạy : 25/9/09
Tiết 6: Bµi thùc hµnh 1(T2)
Làm quen với Turbo Pascal 1 Mục đích, yêu cu
Bớc đầu làm quen với môi trờng lập trình Turbo Pascal, nhận diện hình soạn thảo, cách mở bảng chọn chọn lệnh
Gõ đợc chơng trình Pascal đơn giản
Biết cách dịch, sửa lỗi chơng trình, chạy chơng trình xem kết 2 Nội dung
Bài 3. Chỉnh sửa chơng trình, lu kết thúc
a) Xoá dòng lệnh begin Biên dịch chơng trình quan sát thông báo lỗi nh hình dới đây:
Hình 16
b) Nhấn phím gõ lại lệnh begin Xoá dấu chấm sau chữ end Biên dịch chơng trình quan sát thông báo lỗi
H×nh 17
Lu ý. Qua thơng báo lỗi trên, ta thấy phần thân chơng trình Pascal khóa begin Nói chung câu lệnh Pascal kết thúc dấu chấm phảy (;), riêng từ khóa end. kết thúc phần thân chơng trình ln có dấu chấm (.) kèm
c) Nhấn Alt+X để thoát khỏi Turbo Pascal, nhng không lu chỉnh sửa
TổNG KếT 1. Các bớc thực hiện:
Khi ng Turbo Pascal;
Soạn thảo chơng trình;
Biên dịch chơng trình: Alt + F9;
Chạy chơng trình (Ctrl + F9) ;
2. Pascal không phân biệt chữ hoa, chữ thờng: begin, BeGin, hay BEGIN
3. Các từ khoá Pascal là: program, begin, end
4. Lệnh kết thúc chơng trình end. (có dấu chấm), thơng tin đứng sau lệnh bị bỏ qua trình dịch chơng trình
5. Nói chung câu lệnh Pascal đợc kết thúc dấu chấm phẩy (;)
6. LÖnh writeln in hình đa trỏ xuống đầu dòng
Thụng tin cn in văn bản, số, đợc phân cách dấu phẩy Lệnh write tơng tự nh writeln, nhng không đa trỏ xuống đầu dòng tiếp theo
7. Câu lệnh clrscr dùng để xóa hình sử dụng đợc khai báo th viện crt Th viện crt chứa lệnh viết sẵn để thao tác với hình bàn phím
(9)Gi¸o ¸n Tin häc - Năm học 2009- 2010
Ngy dạy: 02/10/09
Tiết 7: Bài CHƯƠNG TRÌNH MÁY TÍNH VÀ DỮ LIỆU I Mục tiêu:
- Học sinh biết kiểu liệu liệu nhập vào máy tính - Học sinh biết dùng phép toán liệu
- Học sinh biết cách người giao tiếp với máy tính - Học sinh nghiêm túc học tập nghiên cứu học
II Chuẩn bị
GV: SGK, máy chiếu HS: Xem trước nhà
III Tiến trình giảng
Hoạt động Nội dung
Hoạt động 1: Dữ liệu kiểu liệu
-Thông tin đa dạng đưa vào máy tính nên liệu liên quan đến thơng tin đa dạng - Các kiểu liệu khác có chiều dài, giá trị nhận vào kiểu liệu khác
- Một số kiểu liệu hay sử dụng ngơn ngữ lập trình định nghĩa sẵn cách lưu trữ sử dụng kiểu liệu theo vấn đề khác
- Ở ngơn ngữ lập trình Pascal sử dụng liệu kiểu số biến liệu kiểu số thành liệu kiểu chuỗi cách thêm vào trước sau dãy kí số cặp dấu nháy đơn ‘ ‘
Hoạt động 2: Các phép toán với dữ liệu kiểu số
- Trong ngơn ngữ lập trình thực phép tốn số học: cộng, trừ nhân, chia,
- Các phép toán số học ngơn ngữ lập trình Pascal có cách biểu diễn có giống cách viết phép tốn số học bình thường khơng?
I Dữ liệu kiểu liệu
- Các ngơn ngữ lập trình thường phân liệu thành kiểu khác nhau: Chữ, số nguyên, số thập phân, - Các kiểu liệu xử lí theo cách khác - Ngơn ngữ lập trình định nghĩa sẵn số kiểu liệu bản, kiểu liệu xác định giá trị có liệu phép tốn thực hiện:
+ Số nguyên +Số thực +Xâu kí tự
- Một số kiểu liệu ngơn ngữ lập trình Pascal
Tªn kiĨu KÝ hiệu Phạm vi giá trị
Kiểu số
nguyờn Integer Số nguyên khoảng 215 đến 215
KiÓu sè
thực real Số thực khoảng 10-38 đến 1038 Kiểu kí tự char Mt kớ t bng
chữ
Kiểu xâu string DÃy tối đa gồm 255 kí tự
II.Các phép toán với liệu kiểu số KÝ hiƯu Tên phép toán Kiu liu
+ cộng số nguyªn, sè thùc
trõ sè nguyªn, sè thùc
* nhân số nguyên, số thực
/ chia số nguyên, số thực
div chia lấy phần nguyên số nguyên mod chia lấy phần d số nguyên Vớ duï:
5/2=2.5 -12/5=-2.4 div =2 -12 div 5=-2 mod 2= -13 mod =-1
- Có thể kết hợp phép tốn số học để trở thành phép toán phức tạp
Ví dụ:
a x b –c+d a*b-c+d
15 + x
a
(10)- Các phép tốn số học có khác so với phép tốn tính tốn tay hay không?
- Trong trường hợp cần thực lúc nhiều phép tính khác ngơn ngữ Pascal có đáp ứng hay khơng?
- Các phép tốn có ưu tiên khác q trình tính tốn hay khơng?
- Trong phép tốn tính tóan pascal có tn thủ theo qui tắc tính tốn số học hay khơng?
2
5
( 2)
3
x y
x
a b
(x+5)/(a+3)-y/(b+5)*(x+2)*(x+2)
Các qui tắc tính biểu thức số học:
- Các phép toán ngoặc thực trước tiên - Phép toán nhân chia trước
- Cộng trừ theo thứ tự trái sang
Củng cố
Ngày dạy : 02/10/09
Tiết 8: Bài CHƯƠNG TRÌNH MÁY TÍNH VÀ DỮ LIỆU (tt) I Mục tiêu:
- Học sinh biết kiểu liệu liệu nhập vào máy tính - Học sinh biết dùng phép toán liệu
- Học sinh biết cách người giao tiếp với máy tính - Học sinh nghiêm túc học tập nghiên cứu học
II Chuẩn bị
GV: SGK, máy chiếu HS: Xem trước nhà III Tiến trình giảng
HOẠT ĐỘNG NỘI DUNG
HĐ1: Các phép so sánh:
Gv: Yêu cầu hs nhắc lại kí hiệu tốn học ngơn ngữ lập trình?
Hs: Nhắc lại: +, -, *, /, div, mod
1.Các phép so sánh: Kí hiệu
trong
(11)Gi¸o ¸n Tin häc - Năm học 2009- 2010 Gv: Ngoi cỏc phộp tốn số học, ta cịn có
các kí hiệu toán học quen thuộc dùng để so sánh nào?
Hs trả lời: kí hiệu so sánh tốn học như: =, <, >, #, …
Gv: Kí hiệu phép tốn phép so sánh khác nhau, tùy theo từnmg ngơn ngữ lập trình
Hs: ý lắng nghe
Gv: giới thiệu bảng kí hiệu phép so sánh ngơn ngữ Pascal
Hs: ý quan sát ghi
Gv: kết phép so sánh sai Gv cho vài ví dụ minh họa cụ thể
Hs: ý lắng nghe ghi nhớ
pascal
= Bằng =
<> Khác
< Nhỏ <
<= Nhỏ
> Lớn >
>= Lớn
Bảng 4
Ví dụ: 3*2> 4; 5=5; 5<>6; … => kết 5*2=9, 22<17, … => kết sai
HĐ2: Giao tiếp người - máy tính
Gv: Em hiểu giao tiếp người máy tính?
Hs: - Giao tiếp người máy tính trao đổi liệu hai chiều người máy tính
Gv: Cho ví dụ cụ thể việc giao tiếp người máy tính?
Hs: VD như: người thường có nhu cầu tính tốn, kiểm tra, điều chỉnh, bổ sung… Ngược lại máy tính cho kết tính tốn, tìm kiếm, gợi ý…đó q trình giao tiếp người máy tính
Gv: gọi hs khác nhận xét Hs: Cho nhận xét
Gv: Nhận xét
Hs: ý lắng nghe ghi
Gv: giải thích thêm trường hợp tương tác trên:
- Thơng báo kết tính toán: yêu cầu chương trình Ví dụ, câu lệnh: write(‘dien tich hinh tron la’,x);
In kết tính diện tích hình trịn sau:
- Nhập liệu: chương trình ngừng chờ người dùng nhập liệu vào tiếp tục
- Chương trình tạm ngừng: tạm ngừng khỏang thời gian định đến người dùng nhấn phím
- Hộp thoại: công cụ cho việc gao
2 Giao tiếp người máy tính:
Quá trình trao đổi liệu hai chiều người máy tính chương trình hoạt động thường gọi giao tiếp hợac tương tác người máy tính
Sau số trường hợp tương tác người máy tính:
+ Thơng báo kết tính tốn + Nhập liệu
(12)chương trình
Hs: ý lắng nghe tiếp thu
Gv: chốt lại: trường hợp nói lên giao tiếp người - máy tính
Hs: lắng nghe
.Củng cố:
Câu hỏi: Thế trình giao tiếp người – máy tính?
Trả lời: Q trình trao đổi liệu hai chiều người máy tính chương trình hoạt động thường gọi giao tiếp hợac tương tác người máy tính
Câu hỏi: Trong NNLT pascal có phép so sánh nào? Trả lời: =, <>, <, <=, >, >=
IV.dặn dò:
- Học bài, làm tập 6, SGK/ 22 - Xem lại tiết 7, chuẩn bị cho thực hành
Ngaøy daïy : 07/10/09
Tiết 9:
Bài thực hành 2: Viết Chương Trình Để Tính Tốn (T1) I/ Mục tiêu:
- Giúp hs tiếp tục làm quen cách soạn thảo, chỉnh sửa, biên dịch chạy chương trình - Giúp hs làm quen với biểu thức số học chương trình Pascal
II/ Chuẩn bị:
- Gv: phòng máy, tập thực hành - Hs: kiến thức cũ, sgk
III/ Tiến trình dạy – học:
1 ổn định lớp: 2 Bài cũ:
HS1: Hãy phân biệt ý nghĩa câu lệnh Pascal sau đây:
Writeln('5+20=','20+5'); vàWriteln('5+20=',20+5);
Trả lời: câu lệnh: Writeln('5+20=','20+5') in hình: 5+20=20+5
(13)Gi¸o ¸n Tin häc - Năm học 2009- 2010 a) 15 ≥ 3; b) (20 15)2≠ 25;
Trả lời:
a) True; b) Fales
3 trình thực hành:
H 1: Chu n BĐ ẩ ị
HĐ GV HĐ HS
- Giáo viên quy địng số máy cho hs theo số thứ tự
- Giáo viên nhắc nhở hs quy định phòng thực hành
- Hs vị trí thực hành theo quy địng giáo viên
- Hs lắng nghe
H 2: Ti n trình th c hànhĐ ế ự
HĐ GV HĐ HS`
- Giáo viên yêu cầu hs làm tập 1a sách giáo khoa/ 22 vào tập
- Giáo viên hướng dẫn thêm cho hs hiểu yêu cầu 1a
- Giáo viên yêu cầu hs lên bảng làm câu 1a
- Gv: gọi hs khác nhận xét -Gv: nhận xét, ghi điểm
- Gv lưu ý thêm: dùng dấu ngoặc đơn để nhóm phép tốn - Gv: trình thực hành phần quan trọng yêu cầu hs nên ghi lại vào
- Gv: nhắc nhở Hs phải ý sử dụng kí hiệu Pascal
- yêu cầu Hs khởi động pascal làm tiếp tập 1b/ 22
- Gv: theo dõi uốn nắn, nhắc nhở trình thực hành hs
- Gv: nên ý cách gõ, dấu chấm phẩy, câu lệnh…
- Gv: ý nghĩa biểu thức đặt dấu nháy đơn?
- Gv lưu ý thêm: biểu thức Pascal đặt câu lệnh writeln để in kết Các em có cách viết khác sau làm quen với khái niệm Biến
- Gv: yêu cầu Hs lưu chương trình với tên CT2.pas sau dịch chạy chương trình để kiểm tra kết nhận hình
- Gv: theo dõi giúp hs sữa lỗi hs không tự sữa lỗi
Hs: làm 1a
HS: lắng nghe làm Hs: lên làm
Hs: nhận xét Hs: lắng nghe
Hs: lắng nghe ghi nhớ Hs: lắng nghe
Hs: ghi nhớ
Hs: khởi động Pascal làm 1b Hs: thực hành
Hs: lắng nghe, ghi nhớ, thực hành Hs: Trả lời
Hs: ý lắng nghe
Hs: lắng nghe tiếp tục thực hành
(14)H 3: T ng k tĐ ổ ế
HĐ GV HĐ HS
Gv: yêu cầu lớp trưởng lớp phó kiểm tra máy tính
Gv: kiểm tra máy tính thực hành hs Gv: đánh giá tiết thực hành hs qua mặt: thái độ thực hành hs, nề nếp, chuẩn bị hs…
Hs: kiểm tra máy tính Hs: lắng nghe
4 dặn dị:
- Về nhà xem lại tập thực hành Nếu hs có máy tính cá nhân nên thao tác lại nhiều lần cho thành thạo
- Xem trước Ngày dạy: 07/10/09
Tiết 10:
Bài thực hành 2: Viết Chương Trình Để Tính Tốn (TT) I/ Mục tiêu:
- Giúp hs tiếp tục làm quen cách soạn thảo, chỉnh sửa, biên dịch chạy chương trình - Giúp hs làm quen với biểu thức số học chương trình Pascal
II/ Chuẩn bị:
- Gv: phòng máy, tập thực hành - Hs: kiến thức cũ, sgk
III/ Tiến trình dạy – học:
1 ổn định lớp:
2 trình thực hành:
H 1: Chu n BĐ ẩ ị
HĐ GV HĐ HS
- Giáo viên quy định số máy cho hs theo số thứ tự
- Giáo viên nhắc nhở hs quy định phòng thực hành
- Hs vị trí thực hành theo quy địng giáo viên
- Hs lắng nghe
HĐ2: Tiến trình thực hành
HĐ GV HĐ HS
- Gv: yêu cầu hs khởi động pascal thực hành tập 2/ 23
- Gv: Bài tập yêu cầu em điều gì? - Gv: nhận xét
- Gv: em nên ý dòng lệnh uses crt phần khai báo dịng lệnh clrscr; phần thân chương trình Đây dịng lệnh xóa hình
- Gv: theo dõi thao tác hs
- Gv: yêu cầu hs gõ quy tắc, gõ kí hiệu toán học pascal tránh nhầm lẫn với kí hiệu tóan học
- Gv: u cầu hs thực hành theo thứ tự từ câu
Hs: thực hành Hs: trả lời
Hs: lắng nghe thực hành
(15)Gi¸o ¸n Tin học - Năm học 2009- 2010 a đến câu d
- Gv: yêu cầu hs vừa thực hành vừa rút nhận xét với kết nhận
- Gv: câu c yêu cầu điều gì?
- Gv: yêu cầu hs quan sát kết rút nhận xét
- Gv: yêu cầu hs tiếp tục thực hành bt3/ 23 - Gv: em cần mở lại bt CT2.pas lưu chỉnh sữa lại theo yêu cầu bt3, xem kết khác điểm nào?
- Gv: từ rút nhận xét
- Gv: chủ yếu giúp em hiểu phân biệt phép div, mod Và hiểu thêm cách in liệu hình
- Gv: theo dõi uốn nắn thêm cho hs
Hs: thực hành, nhận xét kết câu Hs: thêm lệnh delay (5000) vào sau câu lệnh writeln chương trình
Hs: chạy chương trình nhận xét Hs: thực hành
Hs: thực hành Hs: thực hành Hs: Rút nhận xét Hs: lắng nghe Hs: thực hành
H 3: T ng k tĐ ổ ế
HĐ GV HĐ HS
Gv: yêu cầu lớp trưởng lớp phó kiểm tra máy tính
Gv: kiểm tra máy tính thực hành hs Gv: đánh giá tiết thực hành hs qua mặt: thái độ thực hành hs, nề nếp, chuẩn bị hs…
Hs: kiểm tra máy tính Hs: lắng nghe
5 dặn dò:
- Về nhà xem lại tập thực hành Nếu hs có máy tính cá nhân nên thao tác lại nhiều lần cho thành thạo
- Xem trước
Ngày dạy : 14/10/09
Ti t 11ế : SỬ DỤNG BIẾN TRONG CHƯƠNG TRÌNH (T1)
I Mục tiêu:
– HS biết khái niệm biến
– HS biết vai trò biến lập trình – Biết cách khai báo biến
II Chuẩn bị:
– GV: Giáo án, tài liệu tham khảo, máy tính – HS: SGK, tài liệu tham khảo, ghi
III Tiến trình dạy học:
Hoạt động GV HS Nội dung
Hoạt động 1: Biến cơng cụ lập trình GV: Hoạt động chương trình máy tính xử lí liệu Trước máy tính xử lí, liệu nhập vào lưu nhớ máy tính Ví dụ, muốn cộng hai số a b, trước hết hai số
1 Biến cơng cụ lập trình:
(16)được nhập lưu nhớ máy tính, sau máy tính thực phép cộng a + b
Để chương trình ln biết xác liệu cần xử lí lưu vị trí nhớ, ngơn ngữ lập trình cung cấp cơng cụ lập trình quan trọng Đó biến nhớ, hay gọi ngắn gọn biến
Biến dùng để lưu trữ liệu liệu biến lưu trữ thay đổi thực chương trình
Dữ liệu biến lưu trữ gọi giá trị biến
GV lấy ví dụ minh hoạ cho HS
Hoạt động 2: Khai báo biến
GV: Tất biến dùng chương trình cần phải khai báo phần khai báo 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
Tên biến phải tuân theo quy tắc đặt tên ngơn ngữ lập trình
GV lấy VD khai báo biến pascal
GV: Gọi HS cho biết integer, real, string kiểu gì?
HS trả lời:
Integer: số nguyên Real: số thực
String: xâu kí tự GV: Giải thích thêm
- var từ khố ngơn ngữ lập trình dùng để khai báo biến,
- m, n biến có kiểu nguyên (integer),
- Dữ liệu biến lưu trữ gọi giá trị biến
VD1: In giá trị tổng hai số a + b hình
Gán: X a Y b Write (X + Y)
VD2: Tính giá trị biểu thức 100+50
3 ;
100+50
5 ghi kết hình
Gán:
X 100 + 50 X X/3 ; Write (X) X X/5 ; Write (X) 2 Khai báo biến: 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 VD:
(17)Gi¸o ¸n Tin häc - Năm học 2009- 2010 - S, dientich l cỏc bin có kiểu thực
(real),
- thong_bao là biến kiểu xâu (string) GV lưu ý HS:
Tên biến phải tuân theo quy tắc đặt tên ngôn ngữ lập trình
Tuỳ theo ngơn ngữ lập trình, cú pháp khai báo biến khác
Hoạt động 3: Củng cố
Cho HS thực câu 4/33
Hoạt động 4: Dặn dò
Xem lại đọc trước phần lại Làm câu 4, 6/33
IV/ Củng cố :
- Giáo viên củng cố lại đề mục
- Yêu cầu học sinh nắm vững kiến thức Ngày dạy : 14/10/09
Ti t 12:ế S D NG BI N TRONG CHỬ Ụ Ế ƯƠNG TRÌNH (T2)
I M c tiêuụ :
– HS bi t khái ni m h ngế ệ ằ
– HS bi t vai trò c a h ng l p trìnhế ủ ằ ậ
– Bi t cách khai báo, đ t tên cách s d ng bi n, h ngế ặ ụ ế ằ – Hi u l nh gánể ệ
II Chu n b :ẩ ị
– GV: Giáo án, tài li u tham kh o, máy tính.ệ ả – HS: SGK, tài li u tham kh o, v ghiệ ả
III Ti n trình d y h c:ế ạ ọ
Ho t đ ng c a GV HSạ ộ ủ N i dungộ
Ho t ng 1:ạ độ ki m tra cể ũ
1 Bi n dùng đ làm gì? (3 m)ế ể ể
2 Cách khai báo bi n? (3 m)ế ể
3 Câu 6/33 (4 m)ể
* áp án: Đ
1 Bi n đ c dùng đ l u tr d li u d li u đ c ế ượ ể ữ ữ ệ ữ ệ ượ
bi n l u tr có th thay đ i th c hi n ế ữ ể ổ ự ệ
ch ng trình.ươ
2 Vi c khai báo bi n g m:ệ ế
(18)- Khai báo ki u d li u c a bi nể ữ ệ ủ ế
3
a) Var S, a, h: integer b) Var a, b: integer; c, d: real;
Ho t ng 2ạ độ S d ng bi n ch ng trìnhử ụ ế ươ
GV: Sau khai báo, ta có th s d ng bi nể ụ ế
trong ch ng trình Các thao tác có th th c hi n v iươ ể ự ệ
các bi n là:ế
- Gán giá tr cho bi n;ị ế - Tính tốn v i bi n ế
GV l u ý HS: Ki u d li u c a giá tr đ c gánư ể ữ ệ ủ ị ượ
cho bi n ph i trùng v i ki u c a bi n đ c gánế ả ể ủ ế ượ
m t giá tr m i, giá tr c c a bi n b xoá Ta có thộ ị ị ũ ủ ế ị ể
th c hi n vi c gán giá tr cho bi n t i b t kì th i mự ệ ệ ị ế ấ ể
nào ch ng trình, giá tr c a bi n có thươ ị ủ ế ể
thay đ i ổ
GV gi i thi u d ng c a câu l nh gán giá tr choớ ệ ủ ệ ị
bi n r i l y VD cho HS ế ấ
Tên bi nế Bi u th c c n gán giá tr cho bi nể ứ ầ ị ế ;
trong đó, d u ấ bi u th phép gán Ví d :ể ị ụ
xc/b (bi n ế x nh n giá tr b ng ậ ị ằ c/b);
xy (bi n ế x đ c gán giá tr c a bi n ượ ị ủ ế y);
i i + (bi n ế i đ c gán giá tr hi n t i c a ượ ị ệ ủ i c ngộ
thêm đ n v ) ị
GV nh n m nh: Tu theo ngơn ng l p trình,ấ ỳ ữ ậ
cách vi t l nh gán c ng có th khác Ví d , trongế ệ ũ ể ụ
ngôn ng Pascal, ng i ta dùng phép gán d u kép "ữ ườ ấ :=" đ phân bi t v i phép so sánh d u b ng (=) ể ệ ấ ằ
GV l y ví d minh ho trang 31 cho HSấ ụ
Ho t ng 3ạ độ H ngằ
GV: Ngồi cơng c đ l u tr d li u làụ ể ữ ữ ệ
bi n, ngơn ng l p trình cịn có công c khác làế ữ ậ ụ
h ngằ Khác v i bi n, h ng đ i l ng có ế ằ ượ giá trị khơng i
đổ su t q trình th c hi n ch ng trình.ố ự ệ ươ
Gi ng nh bi n, mu n s d ng h ng, ta c ngố ế ố ụ ằ ũ
c n ph i khai báo tên c a h ng Tuy nhiên h ng ph iầ ả ủ ằ ằ ả
đ c gán giá tr khai báo ượ ị
Tên h ng c ng ph i tuân theo quy t c đ t tên c aằ ũ ả ắ ặ ủ
ngơn ng l p trình.ữ ậ
GV l y VD v khai báo h ng pascal vàấ ề ằ
3 S d ng bi n chử ụ ế ương trình: Các thao tác có th th c hi n v i bi n làể ự ệ ế
-Gán giá tr cho bi n;ị ế
- Tính tốn v i bi n ế
Câu l nh gán giá tr cho bi n có d ng:ệ ị ế
Tên bi nế Bi u th c c n gán giá tr cho ể ứ ầ ị
bi nế ;
Trong ngơn ng Pascal, kí hi u phép gán làữ ệ
d u :=ấ
VD: SGK/31
4 H ng: ằ
H ng đ i l ng có giá tr khơng đ iằ ượ ị ổ
trong su t ch ng trìnhố ươ
Vi c khai báo h ng g m:ệ ằ
- Khai báo tên h ngằ
- Gán giá tr cho h ng.ị ằ
VD:
Const pi = 3.14; Bankinh = 2;
(19)Gi¸o ¸n Tin häc - Năm học 2009- 2010
gi i thớch cho HSả
- const t khoá đ khai báo h ng, ể ằ
- Các h ng ằ pi, bankinh đ c gán giá tr t ngượ ị ươ
ng 3.14
ứ
V i khai báo trên, đ tính chu vi c a hình trịn, taớ ể ủ
có th dùng câu l nh sau:ể ệ
chuvi:=2*pi*bankinh;
GV: V y l i ích c a vi c s d ng h ng gì?ậ ợ ủ ệ ụ ằ
HS: Vi c s d ng h ng r t hi u qu n u giá trệ ụ ằ ấ ệ ả ế ị
c a h ng (bán kính) đ c s d ng nhi u câuủ ằ ượ ụ ề
l nh c a ch ng trình N u s d ng h ng, c nệ ủ ươ ế ụ ằ ầ
thay đ i giá tr , ta ch c n ch nh s a m t l n, t i n iổ ị ỉ ầ ỉ ộ ầ
khai báo mà khơng ph i tìm s a c ch ngả ả ươ
trình
GV: Chính giá tr c a h ng khơng đ i trongị ủ ằ ổ
su t ch ng trình nên khơng th dùng câu l nh đ thayố ươ ể ệ ể
đ i giá tr c a h ng (nh đ i v i bi n) b t kì v tríổ ị ủ ằ ố ế ấ ị
nào ch ng trìnhươ
GV l y VD v câu l nh kh ng h p lấ ề ệ ộ ợ ệ
Ho t ng 4ạ độ C ng củ ố
Nh c l i cách s d ng bi n ch ng trìnhắ ụ ế ươ
H ng đ i l ng nh th nào?ằ ượ ế
Cách khai báo h ng?ằ
Nêu s gi ng khác gi a h ng vàự ố ữ ằ
bi n, cách khai báo?ế
Ho t ng 5ạ độ D n dòặ
Xem l i đ c tr c th c hành 3ạ ọ ướ ự
Làm câu 1, 2, 3, 5/33
đ i giá tr c a h ng (nh đ i v i bi n) ổ ị ủ ằ ố ế
b t kì v trí ch ng trìnhấ ị ươ
IV/ Củng coá :
- Yêu cầu học sinh nắm vững cách khai báo biến sử dụng biến
(20)Ngày dạy : 21/10/09 Tiết : 13-14 : BAØI THỰC HAØNH SỐ 3
KHAI BÁO VAØ SỬ DỤNG BIẾN
I/ Mục đích yêu cầu :
- Thực khai báo cú pháp, lựa chọn kiểu liệu phù hợp
cho bieán
- Kết hợp lệnh write(), writeln(), read(), readln() để thực việc nhập
liệu từ bàn phím
- Hiểu kiểu liệu
II/ Chuẩn bị :
- Giáo viên: Máy tính, bảng kiểu liệu trng Pascal - Học sinh: Chuẩn bị thực hành trước nhà
III/ Tiến trình dạy :
Hoạt động GV HS Nội Dung GV : Đưa bảng kiểu liệu
Pascal: Giải thích tên kiểu liệu, phạm vi giá trị (các giá trị biến nhận )
GV nêu cách khai báo biến, giải thích
GV Lấy ví dụ SGK, giải thích ví dụ Hỏi : Nếu khai báo Var x, y : byte;
1/ Các kiểu liệu Pascal cách khai báo biến với kiểu liệu a/ Các kiểu liệu Pascal
Tên kiểu liệu Phạm vi giá trị Byte Các số nguyên từ o
-> 255
Integer Các số nguyên từ -215
đến 215-1.
Real Số thực có giá trị tuyệt đối
khoảng 2.9x10-39 đến
1.7x1038 số 0
Char Các ký tự bảng chữ
String Các dãy gồm tối đa 255 ký tự
Var <danh sách biến>:<kiểu liệu>; Trong đó:
- Danh sách biến danh sách
hoặc nhiều tên biến cách dấu phẩy ( , )
- Kiểu liệu
(21)Giáo án Tin học - Năm häc 2009- 2010
Trong chương trình có lệnh gán x:= 256; hay x := -5 có khơng ?
HS: Khong phạm vi giá trị nằm phạm vị kiểu liệu byte
HS : Đọc đề tốn, soạn thảo lập trình
Cơng thức :
Tiềnthanhtốn = đơngiá x sốlượng+phídịchvụ
Lưu chương trình với tên Tinhtien.Pas dịch chỉnh sửa lỗi, có
HS làm việc theo nhoùm
HS : đọc đề
GV: lấy ví dụ có cốc nước A mực đỏ, B chứa mực xanh, tráo đổi cho A chứa mực xanh, B chứa mực đỏ?
Caùch : A->C; B-> A; C -> B Caùch : B -> C; A -> B; C -> A
Var x, y : byte;
Var so_nguyen : intger; Var ho_ten: string;
2/ Bài : Viết chương trình Pascal có khai báo sử dụng biến
a/ Chương trình: Program tinh_tien; Uses crt;
Var soluong : integer;
Dongia, thanhtien : real; Thongbao : string; Const phi = 10000; Begin
Clrscr;
Thongbao:= ‘ tong so tien phai toan : ‘;
{ nhap don gia va so luong } Write ( ‘ dongia = ‘); Readln ( dongia);
Write ( ‘ soluong=’); Readln ( soluong);
Thanhtien := soluong*dongia+phi; ( * In so tien phai tra * )
Writeln ( thongbao, thanhtien :10:2); Readln
End 3/ Baøi :
Program hoan_doi; Var x,y,z : integer ; Begin
Read( x, y);
Writeln ( x, ‘ ‘ , y); Readln
End IV/ Củng cố :
- Đọc, hiểumục tổng kết
- Làm tập lập trình tính diện tích chu vi hình chữ nhật độ dài cạnh nhập từ
(22)Ngày dạy : 28/10/09
Tiết 15: BÀI TẬP
I Mục tiêu:
Giúp học sinh kĩ đọc hiểu đề
Giúp Hs sửa chữa tập cho trước II Chuẩn bị:
Gv: giáo án
Hs: sách giáo khoa, tập III Tiến trình giảng dạy:
1 Kiểm tra cũ: 2 Bài mới:
Hoạt động GV & HS Nội dung
Hoạt động 1: sửa tập - Gv hỏi Hs có tập khơng thể giải
- Hs nêu câu hỏi
- Gv giải đáp câu hỏi Hs tập mà Hs làm
- Hs ý lắng nghe
- Gv gọi Hs đọc đề tập
- Hs đọc đề
- Gv gọi đại diện tổ lên bảng làm
- Hs làm
- Gv gọi hs nhận xét - Hs: nhận xét - Gv nhận xét
- Hs: lằng nghe, ghi nhớ
- Gv gọi Hs đọc đề tập
1. Nếu thay đổi thứ tự hai lệnh chơng trình điều khiển rô-bốt, rô-bốt không thực đ-ợc công việc nhặt rác rơ-bốt khơng h-ớng khơng tới vị trí có rác, thực việc nhặt rác vị trí khơng có rác, Ví dụ, thay đổi thứ tự lệnh “Tiến bớc” lệnh “Quay trái, tiến bớc”, tác dụng hai lệnh “Quay trái tiến bớc” Khi rơ-bốt nhặt rác vị trí khơng có rác Nói chung, lệnh điều khiển rơ-bốt hay chơng trình cần đợc đa theo thứ tự xác định cho ta đạt kết mong muốn Trong số trờng hợp, ta đa lệnh khác nhau, nhng đạt kết Chẳng hạn, ví dụ rơ-bốt, thay cho hai câu lệnh đầu tiên, ta điều khiển rơ-bốt đến vị trí có rác lệnh sau: “Quay trái, tiến bớc” “Quay phải, tiến bớc” “Quay phải, tiến ớc”, “Quay trái, tiến bớc” “Quay trái, tiến b-ớc” Trong số trờng hợp khác, việc thay đổi thứ tự vài câu lệnh cho kết nh yêu cu
2. Các tên hợp lệ: a, Tamgiac, beginprogram, b1, abc, tên không hợp lệ: 8a (bắt đầu sè), Tamgiac (cã dÊu c¸ch), end (trïng víi tõ khãa)
3. a) Chơng trình chơng trình Pascal đầy đủ hoàn toàn hợp lệ, chơng trình chẳng thực điều Phần thiết phải có chơng trình phần thân chơng trình đợc đảm bảo hai từ
begin end. (có dấu chấm)
b) Chơng trình chơng trình Pascal không hợp lệ câu lệnh khai báo tên chơng trình program CT_thu; nằm phần thân chơng trình
(23)Giáo án Tin học - Năm học 2009- 2010 - Hs đọc đề
- Gv gọi đại diện tổ lên bảng làm
- Hs làm
- Gv gọi hs nhận xét - Hs nhận xét
- Gv nhận xét - Hs lắng nghe
- Gv gọi Hs đọc đề tập
- Hs đọc đề
- Gv gọi đại diện tổ lên bảng làm
- Hs làm
- Gv gọi hs nhận xét - HS nhận xét
- Gv nhận xét - Hs lắng nghe
- Gv gọi Hs đọc đề tập
- Hs đọc đề
- Gv gọi đại diện tổ lên bảng làm
- Hs làm
- Gv gọi hs nhận xét - Hs nhận xét
- Gv nhận xét - Hs lằng nghe
- Gv gọi Hs đọc đề tập
- Hs đọc đề
- Gv gọi đại diện tổ lên bảng làm
- Hs làm
- Gv gọi hs nhận xét - HS nhận xét
xâu, phải viết dãy số cặp dấu nháy đơn (’)
var a: real; b: integer; begin writeln('123'); writeln(123); a:=2010; b:=2010; end.
5. LÖnh Writeln('5+20=','20+5'); in hình hai xâu ký tự '5+20' '20+5' liền nhau: 5+20 = 20+5, lệnh Writeln('5+20=',20+5); in hình xâu ký tự '5+20' tổng 20+5 nh sau: 5+20=25
Hai lệnh Writeln('100'); và Writeln(100); không tơng đ-ơng với lệnh in hình xâu ký tự biểu diễn số 100 lệnh in hình số 100
6. Các biểu thøc Pascal:
a/b+c/d a*x*x+b*x+c 1/x-a/5*(b+2)
(a*a+b)*(1+c)*(1+c)*(1+c)
7. Các biểu thức toán tơng ứng:
2
(a b) x
y
2
b a c
2
(2 )
a b c
1 1
1
2 2.3 3.4 4.5
(24)- Gv nhận xét - Hs lắng nghe
- Gv gọi Hs đọc đề tập
- Gv gọi đại diện tổ lên bảng làm
- Gv gọi hs nhận xét - Gv nhận xét
- Gv gọi Hs đọc đề tập
- Hs đọc đề
- Gv gọi đại diện tổ lên bảng làm
- HS làm
- Gv gọi hs nhận xét - Hs nhận xét
- Gv nhận xét - Hs lắng nghe Hoạt động 2
IV/ củng cố, dặn dò
- Gv ý với Hs điểm hay sai Hs - Hs: lắng nghe rút kinh nghiệm
- Gv nhận xét: - Hs lắng nghe
Sự chuẩn bị Hs
- Gv dặn dò: Hs nhà xem trước phần 1, phần mềm Finger Break Out
Ngày dạy : 13/10/2008
TiÕt 16: kiÓm tra tiết I Mục tiêu học.
1.Kiến thức
- Biết số chơng trình mô tả thuật toán cách liệt kê lệnh Biết sơ bé vÒ NNLT Pascal
- Biết cấu trúc chơng trình, thành phần sở NNLT pascal - Biết lệnh vao/ra đơn giản
(25)Giáo án Tin học - Năm học 2009- 2010 - Hiểu đợc lệnh gán
2 Kỹ
- Mụ t thut toỏn n gin liệt kê bớc - Viết lệnh chơng trình Pascal
II Mức độ
1.NhËn biết:
Nhận biết lỗi sai lập trình Thông hiểu
Hiểu cú pháp c©u lƯnh 3.VËn dơng
Viết chơng trình
(26)Ngày soạn : 19/10/2008 Ngày dạy : 20/10/2008
Tuần
Tiết 17->18 : LUYỆN GÕ PHÍM NHANH VỚI FINGER BREAK OUT
I Mục tiêu:
Giúp học sinh luyện gõ phím nhanh xác
Bước đầu giúp hs biết cách khởi động phần mềm, biết thành phần hình phần mềm
II Chuẩn bị:
Gv: giáo án, máy chiếu Hs: sách giáo khoa III Tiến trình giảng dạy:
HOẠT ĐỘNG GV & HS Nội Dung
HĐ1: Giới thiệu phần mềm:
Gv giới thiệu mục đích sử dụng phầm mềm
Hs: lắng nghe
I Giới thiệu phần mềm:
Mục đích trị chơi luyện gõ bàn phím nhanh, xác
HOẠT ĐỘNG Nội Dung
Hoạt động 2: hình của phần mềm
- Gv hỏi Hs cách để khởi động phần mềm nói chung
- Hs trả lời: nhắp đúp chuột lên biểu tượng phần mềm hình Desktop
- Gv gợi ý: cách khởi động phần mềm Finger Break Out giống phần mềm khác gọi Hs khởi động phần mềm
- Hs thực
- Gv giới thiệu thành phần phần mềm
- Hs ý lắng nghe ghi nhớ - Gv gọi Hs nhắc lại thành phần phần mềm
- Hs trả lời
II Màn hình phần mềm:
Khởi động phần mềm:
Nháy đúp chuột lên biểu tợng phần mềm trờn hỡnh Desktop
2 Giới thiệu hình chính:
(27)Giáo án Tin học - Năm häc 2009- 2010 - Gv gọi HS nhận xét
- Hs nhận xét - Gv nhắc lại
- Hs ý lắng nghe
- Gv thực mẫu thao tác để dừng trò chơi
- Hs: ý quan sát - Gv gọi Hs thực lại - Gv thực
- Gv gọi Hs khác nhận xét - Hs nhận xét
- Gv nhận xét
- Hs lắng nghe ghi nhớ
- Gv yêu cầu Hs nhắc lại cách để thoát khỏi phần mềm
- Gv gọi Hs thực lại cách để thoát khỏi phần mềm
- Hs: thực - Gv nhận xét - Hs: lng nghe
Các thành phần hình cđa phÇn mỊm gåm:
Hình bàn phím vị trí trung tâm với phím có vị trí nh bàn phím Các phím đợc tơ màu ứng với ngón tay gõ phím
Khung trèng phÝa hình bàn phím khu vực chơi Khung bên phải chứa lệnh thông tin lợt
chơi Ví dụ, ô Level chọn mức khó khác trò chơi: Bắt đầu (Beginner), Trung bình (Intermediate) Nâng cao (Advanced)
c) Thoát khỏi phần mềm
- Nếu muốn dừng chơi, hÃy nháy chuột lên nút Stop khung bên phải
- Muốn thoát khỏi phần mềm, nháy nút nhÊn tỉ hỵp phÝm Alt+F4.
Ngày soạn :
Ngày dạy :
Tiết 19->20: LUYỆN GÕ PHÍM NHANH VỚI FINGER BREAK OUT
I Mục tiêu:
Giúp học sinh luyện gõ phím nhanh xác
Bước đầu giúp hs biết cách khởi động phần mềm, biết thành phần hình phần mềm
II Chuẩn bị:
(28)III Tiến trình giảng dạy:
H 3: H ng d n s d ngĐ ướ ẫ ụ
Hoạt động GV & HS Nội Dung
GV hướng dẫn HS cách ngồi cách chơi
HS quan sát hình thao tác GV thực
GV lưu ý HS:Trên hình cịn có cầu lớn Nếu cầu chạm đất, em lượt chơi Nếu chơi điểm cao người chơi thưởng thêm cầu lớn
HS tiến hành chơi máy cá nhân Mỗi nhóm HS/máy
Điểm khuyến khích chơi đạt điểm cao: 10 đ: 6000đ (tối đa lượt chơi) 9đ: 5000đ (tối đa lượt chơi) 8đ: 4000đ (tối đa lượt chơi) 7đ: 3000đ (tối đa lượt chơi) 6đ: 2000đ (tối đa lượt chơi) 5đ: 1000đ (tối đa lượt chơi)
Dưới 5: không đạt yêu cầu
HĐ 4:
IV/ Củng cố - Gv nêu câu hỏi củng cố:
Mục đích sử dụng phần mềm Các thành phần phần mềm Cách để ngừng trò chơi
Ngày soạn : Ngày dạy :
Tiết 21 – 24 : TÌM HIỂU THỜI GIAN VỚI PHẦN MỀM SUNTIME I/ Mục tiêu :
- Kiến thức :
+ Học sinh biết cách khởi động thoát khỏi phần mềm suntime + Hiẻu chức phần mềm
+ Biết sử dụng phần mềm tìm hiẻu địa danh giới, tìm hiểu tượng kỳ thú thiên nhiên
+ Tìm hiểu sâu kiến thức địa lý - Kỷ :
+ Thực tốt cách khởi động thoát khỏi phần mềm
(29)Gi¸o ¸n Tin học - Năm học 2009- 2010
II/ Chuẩn bị :
- Giáo viên : Máy tính Máy chiếu - Học sinh:
III/ Tiến trình dạy :
Nội dung H/Đ thầy trò
Hoạt động :
1/ Giới thiệu phần mềm:
Sun Times nhóm chuyên
gia thiên văn học thiết lập nhằm gây quĩ ủng hộ mơi trường chống nghèo đói trái đất
Là phần mềm miễn phí
Chức Sun Times
cho phép quan sát nhận biết khái niệm thời gian trái đất
Quan sát nhận biết vị trí
màn hình
Phóng to vùng đồ
Nhận biết thời gian ngày đêm Xem thông tin chi tiết vị trí Đặt thời gian quan sát theo ý muốn Tìm vị trí có thơng số thời gian
giống
Tìm kiếm nhật thực
Cho thời gian chuyển động tự động 2/ Màn hình phần mềm
a/ Khởi động :
Start \ All programs \ Sun times \ Sun Times
v5.0
Hoặc kích vô biểu tượng Sun times
nền Decktop
b/ Màn hình
- Màn hình đồ nước toàn giới
- Vùng sáng tối – ban ngày ban đêm
- Đường vạch liền : ranh giới ban ngày ban đêm gọi đường phân chia thời gian sáng tối
c/ Thoát khỏi phần mềm Lên File → Exit
HS : đọc SGK
GV : Ứng dụng phần mềm
GV Thao taùc máy tính mô tả hình
(30) Hoặc nhấn tổ hợp phím Alt+F4
Hoạt động :
3/ Hướng dẫn sử dụng :
a/ Phóng to quan sát vùng đồ chi tiết: Phĩng to quan sát vùng đồ chi tiết: dùng chuột phải kéo thả
b/ Quan sát nhận biết thời gian ngàyvà đêm :
- Vùng sáng : ban ngày - Vùng tối : Ban ñeâm
- Đường phân chia thời gian
c/ Quan sát xem thông tin chi tiết thành phố :
Nháy chuột lên vị trí đánh dấu đồ
d/ Quan sát vùng đệm ngày đêm:
- Vùng sáng tối: Thời gian thời chuyển đổi sáng – tối - Giữa vùng đệm có đường vạch
liền: đường thời gian mặt trời mọc mặt trời lặn taih đường chân trời
e/ Thay đổi thời gian quan sát: - Thay đổi thời gian : Nháy chuột
lên nút trạng thái thời gian
- Đêm trắng : Mặt trời chưa lặn hết mọc
- Ngày đen : Mặt trời chưa kịp mọc lặn
4/ Một số chức khác :
a/ Hiện khơng hình ảnh bầu trời
theo thời gian:
Option → Maps hủy chọn mục Show sky color
b/ Cố định vị trí thời gian quan sát:
Option → Maps hủy chọn mục Hover Update
c/ Tìm địa điểm có thơng tin thời
gian ngày giống nhau:
Option → Anchor chọn mục Sunris
Tìm kiếm quan sát nhật thực:
- Chọn địa điểm muốn tìm Lên View → Eclipse
_ GV Cho HS tìm vị trí khác có thời gian với Hà nội
HS : thao tác tìm kiếm
GV : Hướng dẫn hs tìm kiếm nhật thực vị trí trái đất
(31)Gi¸o ¸n Tin häc - Năm học 2009- 2010
- Tỡm kim tng lai - Tìm kiếm khứ Hoạt động :
Thực hành :
Bài : Phóng to quan sát vùng đồ chi tiết:
Baøi 2: Quan sát xem thông tin chi tiết thành phố
Bài : Đặt thời gian quan sát
Bài : Xem vị trí có thời gian ngày giống
Bài : Tìm kiếmvà quan sát vị trí nhật thực trái đất
Bài : Đặt chế độ quan sát thời gian chuyển động tự động
HS: Làm việc theo nhóm GV gọi thành viên trả lời
Ngày soạn : 16/11/2009 Ngày dạy : 17/11/2009
Tiết 25 – 26 : TỪ BÀI TỐN ĐẾN CHƯƠNG TRÌNH I/ Mục tiêu :
Khái niệm toán, thuật toán
- Các bớc giải toán máy tính - Mô tả thuật toán phơng pháp liệt kê Kĩ năng:
- Biết khái niệm toán, thuật toán
- Xác định đợc Input, Output toán đơn giản - Biết mơ tả thuật tốn phơng pháp liệt kê
II/ Chuẩn bị :
- Giáo viên : Giáo án
- Học sinh : Chuẩn bị nhà III/ Tiến trình dạy :
Nội dung H/Đ thầy trò
Hoạt động 1:
1/ Bài toán xác định tốn:
- B tốn mộ cơng việc hay nhiệm vụ cần giải
Ví dụ : Tính S hình tam giác
-ĐKCT : cạnh chiều cao tương ứng với cạnh
GV: Lấy ví dụ SGK - Tính tổng 10 số tự
(32)-KQTĐ: S hình tam giác
- Để xác định toán cụ thể ta cần xác định rõ điều kiện cho trước kết thu 2/ Quá trình giải tốn máy tính :
- Giải tốn máy tính giao cho máy tính cách thực hoạt động cụ thể qua bước để từ đk cho trước ta nhận kết cần thiết
- Dãy hữu hạn thao tác cần thực để giải toán thường gọi thuật toán
Thuật toán bước để giải tốn, cịn chương trình thể thuật tốn ngơn ngữ lập trình cụ thể
GV : cho ví dụ tính S tam giác yêu cầu HS xác định toán ?
HS : Xác định toán
GV : Hướng dẫn HS quy trình giải tốn máy tính?
Q trình giải tốn máy tính
gịmm ba bước: + Xác định tốn + Mơ tả thuật tốn + Viết chương trình
Hoạt động 2:
3/ Thuật tốn mơ tả thuật toán:
VD1 : Thuật toán pha trà
VD2: thuật tốn chuẩn bị trứng tráng
4/ Một số ví dụ thuật tốn :
Ví dụ : Một hình A ghép từ hình chữ nhật với chiều rộng 2a, chiều dài b hình bán nguyệt bán kính a hình vẽ :
HS : nắm bát khái niệm GV : Quy trình giải tốn máy tính gồm bước?
HS : trả lời
(33)Gi¸o án Tin học - Năm học 2009- 2010
- Xác định toán :
- Input : Số a ½ chiều rộng HCN bán kính hình bán nguyệt, b chiều dài HCN
- Output: Diện tích hình A - Thuật toán:
+ B1 : S1<- 2ab ( S HCN )
+ B2 : S2 <-
2
2
a
+ B3 : S <- S1 + S2
Ví dụ : Tính tổng 100 số tự nhiên :
Xác định toán :
+ ĐKCT : dãy số tự nhiên ( 1-100) +Kqtđ : giá trị Sum = 1+2+… 100
+ B1 : Sum <- +B2: Sum<-Sum+1 ………
+ B101 : Sum <- Sum + 100
GV : Cho HS thảo luận
HS : chia hình to thành hình nhỏ để tính S
Xác định tốn
Nhắc lại cơng thức tính S HCN, S Htròn
GV : Lưu ý cách làm khác cuối thu kết
GV : Cho HS xác định tốn tính tổng
HS : Xác định tốn
IV / Củng cố :
- Đọc hiểu mục ghi nhớ
- Làm hỏi tập SGK : 1, 2,
Tiết 27 – 28 : BÀI TẬP I/ Mục tiêu :
- Giúp học sinh đọc hiểu đề
- Giúp học sinh giải tập sách giáo khoa
(34)II/ Chuẩn bị :
- Giáo viên : tập
- Học sinh : chuẩn bị trước nhà III/ Tiến trình dạy :
Nội dung H/Đ thầy trò
Hoạt động :
Bài tập 1: Tìm chỗ sai lệnh khai báo sau sửa lại :
a/ Var Star, Begin : real; b/ Const x:= 3.14; y:= 1000; c/ Var a:= 5;
d/ Coùnt ten lop = ‘ 81 ‘;
e/ Var xep_loai, diem : integer, real;
Bài tập 2: Em viết chương trình Pascal để tính chu vi diện tích hình trịn với bán kính nhập từ bàn phím
Bài tập 3 : Em liệt kê lỗi ( có) chương trình Pascal sửa lại cho
Const Pi := 3.14; Var cv, dt : integer; R: real;
Begin R= 5.5
Cv = 2*Pi*r; Dt=Pi*r*r;
Writeln(‘ chu vi la:= cv’); Writeln(‘dien tich la:= dt’); Readln
End
Hoạt động :
Bài tập : Em xếp lại cho thứ tự công việc em thực buổi sáng ngày tuần : a/ Chào bố mẹ;
b/ Đánh rửa mặt; c/ Thức dậy;
d/ Aên saùng;
GV : cho tập yêu cầu HS tìm chỗ sai sửa lại ?
HS : Làm tập GV : Nhận xét
GV : yêu cầu viết chương trình Pascal theo đề bên ?
HS : viết chương trình
GV : Cho HS quan sát đoạn chương trình liệt kê lỗi có?
HS : Quan sát tìm lỗi sai sửa lại
GV : Cho HS quan sát thuật toán sau yêu cầu HS xếp lại ?
(35)Gi¸o ¸n Tin häc - Năm học 2009- 2010
e/ i n trng;
Bài tập : Em xác định mô tả thuật tốn tìm số lớn ba số a, b, c ?
Bài tập : Giả sử điểm kiểm tra môn tin học lớp n học sinh cho n biến số thực a1,a2, …, an,
ai điểm kiểm tra học sinh thứ I,
với I = 1, 2, … , n Hãy tính điểm trung bình mơn tin học lớp
a/ Xác định thuật tốn b/ Mơ tả thuật tốn
GV : yêu cầu HS xác định mô tả thuật tốn tìm số lớn ba số? HS : Làm
GV : Yêu cầu HS xác định mơ tả thuật tốn toấn bên
HS : làm
GV : cho HS nhận xét
IV/ Củng cố :
- Qua hai tiết tập yêu cầu HS nắm vững kiến thức - Về nhà làm tập lại SGK
- Chuẩn bị truớc
Tiết 29- 30 : CÂU LỆNH ĐIỀU KIỆN I/ Mục tiêu :
- Học sinh biết hoạt động phụ thuộc vào điều kiện
- Nắm tính sai điều kiện thơng qua ví dụ
- Rèn luyện kỹ phân biệt hoạt động phụ thuộc vào điều kiện sống
II/ Chuẩn bị :
Chuẩn bị giáo viên: Giáo án, ví dụ
Chuẩn bị học sinh: Vở, bút, thước dài, phấn
III/ Tiến trình dạy :
NỘI DUNG HOẠT ĐỘNG CỦA GV&HS
Hoạt động 1: Kiểm tra cũ (4’)
GV: Em mô tả thuật tốn tím giá trị lớn hai số?
HS: Bước : Max:= a (hoặc Max:=b);
(36)GV: Nhận xét câu trả lời bạn? GV: Nhận xét ghi điểm
Hoạt động 2: Hoạt động phụ thuộc vào điều kiện (16’)
GV: Lấy ví dụ sống mà có phụ thuộc vào điều kiện phân tích cho hs hiểu
GV: Lấy ví dụ hoạt động có phụ thuộc vào điều kiện?
GV: Các hoạt động có liên quan đến từ gì?
Kết luận:
- Có hoạt động thực điều kiện cụ thể xảy Điều kiện thường kiện mô tả sau từ
Hoạt động Tính sai điều kiện (20’)
GV: Cho hs quan sát lên b ng ph n k t qu sai vào ả ụ ề ế ả
c t k t qu ? Ho t đ ng nhóm phútộ ế ả ộ Điều
kiện Kiểm tra
Kết
Hoạt động Trời
khơng mưa?
Buổi chiều nhìn ngồi trời thấy
trời khơng mưa
? ?
Đi chơi bóng Ở nhà Em bị
ốm?
Cảm thấy khoẻ mạnh
? ?
Ở nhà Đi học
GV: Đại diện nhóm trả lời, nhóm khác nhận xét? GV: Nhận xét bổ sung
Kết luận:
- Khi kết kiểm tra đúng, ta nói điều kiện thỏa mãn, kết kiểm tra sai, ta nói điều kiện không thỏa mãn
GV: Yêu cầu hs lấy ví dụ tính đung sai điều kiện tin hoc?
GV: Nhận xét ví dụ hs
GV: Lấy thêm số ví dụ cao tin học có phụ thuộc vào điều kiện cho hs
Hoạt động 1: Kiểm tra cũ (3’)
GV: Em nêu ví dụ hoạt động hàng ngày em có phụ thuộc vào điều kiện? Phân tích? GV: Yêu cầu hs nhận xét câu trả lời bạn? GV: Nhận xét ghi điểm
Hoạt động 2: Điều kiện phép so sánh (10’)
GV: Em nêu trường hợp xảy
HS: Nhận xét
HS: Lắng nghe HS: Lấy ví dụ
HS: Bắt đầu từ “nếu”
HS: Hoạt động nhóm
HS: Đại diện nhóm trả lời, nhóm khác nhận xét
HS: Lấy ví dụ HS: Lắng nghe
HS: Trả lời
HS: Nhận xét
(37)Gi¸o ¸n Tin häc - Năm học 2009- 2010
thc hin phộp so sỏnh toán học?
GV: Khi thực phép so sánh kết gì? GV: Lấy ví dụ minh họa
GV: Mô tả điều kiện phép so sánh tốn in hình lớn giá trị biến?
GV: Nhận xét bổ sung
Kết luận:
- Các phép so sánh thường sử dụng để biểu diễn điều kiện
- Các phép so sánh cho kết sai
Hoạt động 3: Cấu trúc rẽ nhánh (27’)
GV: Trình bày cho hs cấu trúc rẽ nhánh? GV: Lấy ví dụ cấu trúc rẽ nhánh mà em biết?
Ví dụ 1: Một cửa hàng bán bia thực đợt khuyến mãi, mua bia với số tiền từ triệu đồng trở lên khách hàng giảm 30% tổng số tiền tốn Mơ tả hoạt động tính tiền cho khách
GV: Hoạt động theo nhóm phút làm ví dụ GV: Đại diện nhóm trả lời, nhóm khác nhận xét Gv nhận xét bổ sung
Ví dụ 2: Một cửa hàng bán bia thực đợt khuyến mãi, mua bia với số tiền từ triệu đồng trở lên khách hàng giảm 30% tổng số tiền toán giảm 5% cho khách hàng mua với số tiền không đến triệu đồng Mô tả hoạt động tính tiền cho khách
GV: Yêu cầu hs hoạt động theo nhóm phút làm ví dụ
GV: Đại diện nhóm trình bày, nhóm khác nhận xét GV: Nhận xét bổ sung
GV: Từ ví dụ rút kết luận gì?
GV: Từ kết luận em vẽ sơ đồ cấu trúc rẽ nhánh?
Kết luận:
- Sơ đồ cấu trúc rẽ nhánh
- Cấu trúc rẽ nhánh giúp cho việc lập trình đơn giản hơn, ngơn ngữ lập trình có câu lệnh để thực cấu rẽ nhánh
HS: Đúng sai HS: Lắng nghe HS: Mô tả
HS: Lắng nghe HS: Lấy ví dụ
HS: Hoạt động theo nhóm HS: Đại diện nhóm trả lời
HS: Hoạt động theo nhóm HS: Đại diện nhóm trả lời HS: Rút kết luận
(38)IV/ Củng cố :
- Nêu phép so sánh Pascal mà em biết? Kết phép so sánh gì? Cho ví dụ cụ thể?
- Có dạng cấu trúc rẽ nhánh? Nêu dạng? Cho ví dụ cấu trúc rẽ nhánh dạng đủ?
- Làm tập 3, sgk trang 51.Biểu dương số nhóm làm tốt Nhận xét đánh giá tiết học
Tiết 31- 32 : SỬ DỤNG LỆNH ĐIỀU KIỆN IF … THEN I/ Mục tiêu :
- Viết đợc câu lệnh điều kiện if… then chơng trình
- Rè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
II/ Chuẩn bị :
GV: Bài soạn, SGK, Phịng máy tính, đồ dùng dạy học HS: Vở ghi, SGK, phiếu học tập, đồ dùng học tập
III/ Tiến trình dạy :
Nội dung H/Đ thầy trò
Hoạt động :
1 Mục đích, yêu cầu
2.Néi dung
Câu lệnh điều kiện dạng thiếu: Nếu <điều kiện> < câu lệnh>; If <điều kiện> then < câu lệnh>; Câu lệnh điều kiện dạng đủ:
Nếu < điều kiện) < câu lệnh 1> không
< câu lệnh 2>;
If < điều kiện) then < câu lệnh 1> Else
< câu lệnh 2>;
Bài 1
a)Mô tả thuật toán b)Gõ chơng trình
c)Tìm hiểu ý nghĩa cÇu lƯnh
GV :Nêu mục đích u cầu HS : Chú ý.
GV: Đa bảng câu lệnh rẽ nhánh dạng thiếu đủ.
Câu lệnh điều kiện dạng thiếu: Nếu <điều kiện> < câu lệnh>; If <điều kiện> then < câu lệnh>; Câu lệnh iu kin dng :
Nếu < điều kiện) < câu lệnh 1> không
< câu lệnh 2>;
If < điều kiện) then < câu lƯnh 1> Else
< c©u lƯnh 2>; HS: Chó ý ghi bai HS: Đọc tập 1
(39)Gi¸o ¸n Tin häc - Năm học 2009- 2010
Bài 2
a) Khi động gõ chơng trình b)Lu tên chơng trình aicaohon.pas c)Chạy chơng trình với liệu. d)Sửa chơng trình
Bµi SGK
Write(‘Nhap ba so a,b va c); {hiện thị thông báo}
Readln(a,b,c) {nhập vào sè}
If (a+b>c) and (b+c>a) and (a+c>b) then {nếu bt1 bt2 bt3 thì} Writeln(‘a,b,c la canh cua tam giac’) {hiển thị thông báo}
Else
{nếu bt1 bt2 bt3 sai thì}
Writeln(‘a,b,c khong phair la canh cua tam giac)
{hiển thị thông báo}
HS: Làm ý a mô tả thuật toán GV:Nhận xét bæ sung
KÕt luËn
Tổ chức thực hành máy Hoạt động nhóm thực ý b, 3. GV: Quan sát, hớng dẫn
NhËn xÐt, kÕt luËn
GV: 02 HS đọc toán. GV: Gợi ý yêu cầu
a)Khởi động gõ chơng trình b)Lu tên chơng trình aicaohon.pas c)Chạy chơng trình với b d liu.
d)Sửa chơng trình
Tổ chức HS thực hành máy tập
Thực hành
Quan sát, hớng dẫn
Nhn xột nhóm làm, cho điểm HS:02 em đọc
GV: Yêu cầu HS thực gõ ch-ơng trình SGK vµ híng dÉn
Tỉ chøc HS thùc hµnh máy tập
HS: Thực hành
GV: Quan sát, hớng dẫn
Tìm hiểu ý nghĩa câu lệnh
HS tr li ỏp cỏc câu hỏi
IV/ Củng cố :
GV: Tóm tắt kiến thức trọng tâm làm GV: Nêu phần tổng kết thực hành HS: Chú ý ghi
Tiết 33 : KIỂM TRA TIẾT THỰC HAØNH I/ Mục tiêu :
- Kiến thức : Biết cách xác định toán mơ tả thuạt tốn
I - Mơc tiªu
Kiến thức: Kiểm tra chất lơng thao tác từ bi n bi
2 Kỹ Năng: Các thao tác ban đầu làm việc với trang tÝnh
II - ChuÈn bÞ
1 Giáo viên: Giáo trình, đề bài, phịng máy
2 Häc sinh: Học chuẩn bị nhà
III - Phơng pháp
(40)IV - Tiến trình dạy Đề Cho chơng trình Program Kiem tra;
Var a,b,max:real BEGIN
Writeln('TIM SO LON NHAT TRONG HAI SO A, B'); Writeln(' -'); Write('Nhap a='); Readln(a);
Write('Nhap b='); Readln(b); max:=a;
If b< max then max =b;
Writeln('So lon nhat la:',max:4:2); Readln;
End
Yêu cầu:
1 Hãy nhập lại chương trình Và chữa lại lỗi có? (4 điểm) Hãy dựa vào chương trình để sữa lại chương trình tìm số lớn
trong số A, B, C(5 điểm)
3 Lưu chương trình với tên em VD (TrangA) (1 điểm) D - Cđng cè
- Ơn lại kiến thức học, thực hành máy có điều kiện
Tiết 34- 35 : ƠN TẬP
I - Mơc tiªu
KiÕn thøc
- KiĨm tra viƯc n¾m b¾t kiÕn thøc cđa học sinh từ đầu năm học - Chuẩn bị kiểm tra häc kú I
- §iỊu chØnh viƯc häc học sinh nh việc dạy giáo viên Kỹ Năng
- Hình thành cho học sinh kỹ quan sát, phân tích, t tổng hợp II - Chuẩn bị
(41)Giáo án Tin học - Năm học 2009- 2010
Hoạt động thầy & trò Nội dung dạy
Giáo viên đa chủ đề kiến thức lý thuyết học chơng trình học kỳ I
- Yêu cầu học sinh theo cá nhân lần lợt giải đáp chủ đề lý thuyt ú
GV: Ra tập (treo bảng phụ) vµ híng dÉn häc sinh lµm bµi
- Để học sinh làm GV: Đa đáp án
GV: Đa tập (phat phiếu học tập cho häc sinh)
- Híng dÉn häc sinh lµm
HS: Quan sát ghi chép - Nhớ lại trả lời
HS: Quan sát, nghe hớng dẫn làm - So sánh với máy xung quanh - Chữa sai
HS: Quan sát bµi tËp
- Nghe hìng dÉn vµ thùc hµnh lµm bµi
Hoạt động 1: 1 Lý thuyết
- Máy tính chơng trình máy tính - Các kiểu liệu TP
- Các phép toán kiểu liệu - Cách sữ dụng biến chơng trình - Cú pháp câu lệnh diều kiƯn 2 Bµi tËp
a) Bµi 1: Nhập vào cạnh hình
chữ nhật In hình diện tích chu vi Program HINH_CHU_NHAT; Uses Crt;
Var a,b,s,c: real; Begin
Clrscr;
Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);
Writeln(‘ - ‘); Write('Nhap chieu dai='); readln(a); Write('Nhap chieu rong=');readln(b); s:=a*b;
c:=(a+b)*2;
Writeln('Dien tich hinh chu nhat la:’,s:6:2); Writeln('Chu vi hinh chu nhat:',c:6:2); Readln;
End
Hoạt động :
a. Bµi tËp 2.Tìm số lớn hai số nguyên A, B
Program Kiem tra; Var a,b,min:real BEGIN
Writeln('TIM SO BE TRONG HAI SO A, B');
Writeln(' -'); Write('Nhap a='); Readln(a); Write('Nhap b='); Readln(b); min:=a; If b< then min: =b;
(42)IV - Cñng cè
- Nhắc lại bớc sử dụng hàm để tính tốn - Nhận xét làm học sinh
Tiết 36- 37 : THI KIỂM TRA HỌC KỲ I
I - Mơc tiªu
Kiến thức: - Các thành phần trang tính. - Các khái niệm đơn giản ban đầu trang tính
Kỹ Năng:- Các thao tác ban đầu làm việc với trang tính. II - Chuẩn bị
1 Giáo viên: Giáo trình, đề bài.
2 Häc sinh: Học chuẩn bị nhà.
III- Tiến trình dạy
Đề bài
I TRAẫC NGHIỆM:(4,0 điểm)
Chọn đáp án cách bôi đen phương án phiếu trả lời đây:
Caâu 1 2 3 4 5 6 7 8
Đáp án
A A A A A A A A
B B B B B B B B
C C C C C C C C
D D D D D D D D
Câu 1: Cấu trúc chung chương trình gồm phần nào.
A Phần khai báo; B Phần khai báo Phần thân chương trình;
C Phần thân chương trình; D Bắt đầu BEGIN kết thúc END
Câu 2: Từ khơng phải “từ khố” chương trình.
A Tinhoc; B Uses; C Begin; D
Program;
Câu 3: Câu lệnh Uses Crt; đặt phần chương trình. A Phần thân chương trình; B In lên hình; C Lau hình; D Phần khai báo;
Câu 4: Khai báo biến số học sinh (Hs) THCS lớp ta nên dùng lệnh:
(43)Gi¸o ¸n Tin häc - Năm học 2009- 2010
Caõu 5: Caõu lệnh Const Tinhoc = 8; có tác dụng:
A Khai báo Tinhoc lớp 8; B Khai báo biến Tinhoc lớp 8; C Khai báo Tinhoc = 8; D Khai báo biến Tinhoc = 8; Câu 6: Muốn in lên hình dịng chữ “Chao cac ban” ta dùng lệnh:
A Chao cac ban := integer; B Read(‘Chao cac ban’); C Var Chao cac ban:String; D Writeln (‘Chao cac ban’); Câu 7: Lệnh nhập liệu cho biến x viết là:
A Readln(x); B Write(x); C Writeln(x) D
ClrScr(x);
Câu 8: Cho x số thực; muốn in số thực x với độ rộng có chữ số thập phân ta dùng lệnh:
A Write(x:4:8); B Write(x:8:2); C Write(‘x:8:2’); D Write(‘x:4:8’);
II TỰ LUẬN (6,0 điểm) Bài 1.(1,0 điểm)
Viết phần thân chương trình tìm in số nhỏ số x,y,z nhập từ bàn phím
Bài 2.(3,0 điểm)
Viết chương trình tính tuổi thọ trung bình (TTB) bạn Dũng(D); Tuấn(T); Vinh(V) Biết rằng: tuổi ba bạn Dũng, Tuấn, Vinh nhập từ bàn phím; Cơng thức tính tuổi thọ trung bình là: TTB= (D + T + V)/ Sau in kết TTB hình
Bài 3.(2,0 điểm) Viết biểu thức toán học sang dạng biểu diễn Pascal: a)
2
(7 )
6
x x y
y
b) (a2 + b)(1 + c)3
ĐáP áN P N 01: I Trắc nghiệm:
Caâu 1 2 3 4 5 6 7 8 9 10 11 12
Đáp
(44)C C C C C C C C C C C C
D D D D D D D D D D D D
Baøi 1:
Begin Min:= x;
If Min > y Then Min: = y; If Min > z Then Min: = z;
Write (‘ Vay so nho nhat la:’, Min); Readln
End
Baøi 2:
Program Tuoi_tho_TB; Uses Crt;
Var D; T; V: integer; TTB: real;
BEGIN ClrScr;
Writeln(‘***Chuong trinh tinh tuoi tho trung binh***’); Write(‘ Nhap tuoi cua Dung:’); Readln(D);
Write(‘ Nhap tuoi cua Tuan:’); Readln(T); Write(‘ Nhap tuoi cua Vinh:’); Readln(V); TTB:= (D + T + V)/3;
Writeln(‘ Vay tuoi tho trung binh cua ba ban Dung, Tuan, Vinh la:’, TTB:4:1);
Readln END
(45)Gi¸o ¸n Tin häc - Năm học 2009- 2010
Tit 39 : CÂC LỆNH LẶP I/ MỤC TIÊU:
Biết nhu cầu cần có cấu trúc lặp ngơn ngữ lập trình
Biết ngơn ngữ lập trình dùng cấu trúc lặp để dẫn máy tính thực lặp
lặp lại cơng việc số lần
Thái độ nghiêm túc cẩn thận
II/ CHUẨN BỊ:
Gv: Soạn giáo án, SGK, SBT
HS: Vở ghi, SGK, SBT, đọc trước nội dung học
III/ Nội dung mới:
Nội dung Hoạt động GV & HS
Hoạt động :
1/ Các công việc phải thực nhiều lần
Trong sống ngày, nhiều hoạt động thực lặp lặp lại nhiều lần ví dụ:
- Các ngày tuần em lặp lặp lại hoạt động buổi sáng đến trường buổi trưa trở nhà
- Các em học phải đọc đọc lại nhiều lần thuộc
Hãy cho thêm vài ví dụ thực tế đời sống ngày mà ta phải thực thao tác lặp lặp nhiều lần?
Gv: Khi viết chương trình máy tính vậy, nhiều trường hợp ta phải viết lặp lại nhiều câu lệnh để thực phép tính định
Hs lắng nghe
Hs cho ví dụ
Hoạt động 2:
2/ Câu lệnh lặp – lệnh thay cho nhiều lệnh
Các thao tác giống
Vd1: Thuật tốn mơ tả bước để vẽ hình vuông Bước 1: k ← (k số đoạn thẳng vẽ được) Bước 2: k ← k+1 Vẽ đoạn thẳng đơn vị độ dài quay thước 900 sang phải.
Bước 3: Nếu k<4 quay lại bước 2; ngược lại kết thúc
k biến đếm
Vd2: Thuật tốn tính S= 1+2+3+ … + 100 Bước 1: S ← 0; i ← Bước 2: i← i +
Bước 3: i ≤ 100, S ← S + i quay lại
Gv: Gọi hs lên bảng vẽ hình vng cạnh đơn vị độ dài (20cm) yêu cầu lớp theo dõi bạn thực thao tác bảng Yêu cầu hs mô tả bước bạn vẽ bảng
Vậy bạn vẽ hình vng thực thao tác? (hs trả lời thao tác vẽ đoạn thẳng)
(46)bước 2; ngược lại kết thúc
i biến đếm
Mơ tả thuật tốn gọi cấu trúc lặp
Mọi ngơn ngữ lập trình có cách thị cho máy tính thực cấu trúc lặp với câu lệnh Đó câu lệnh lặp
Cấu trúc mơ tả thuật tốn gọi cấu trúc lặp
Gv: Mô tả thuật tốn tính tổng số tự nhiên từ 1→ 100
1hs lên bảng vẽ, lớp theo dõi GV: Gợi ý thêm thao tác quay thước
Các thao tác nào? Gv: Như vẽ hình vng có thao tác lặp lặp lại Thuật tốn sau mơ tả bước để vẽ hình vng
III Củng cố luyện tập:
? Em cho vài ví dụ hoạt động thực lặp lại sống ngày
? Cho biết tác dụng câu lệnh lặp với số lần biết trước
HS: Thảo luận nhóm đại diện nhóm đưa ví dụ nhóm
Hoạt động cá nhân, đến ba học sinh đứng chỗ trả lời
IV Hướng dẫn nhà học làm bài: (2’) - Học làm tập 1, SGK trang 60
- Đọc trước nội dung bài, sau học tiếp
Tiết 40 : CÂC LỆNH LẶP ( TT ) I/ MỤC TIÊU:
Hiểu hoạt động câu lệnh với số lần biết trước for Pascal Viết lệnh for số tình đơn giản
Hiểu lệnh ghép Pascal Thái độ nghiêm túc cẩn thận
II/CHUẨN BỊ:
Gv: Soạn giáo án, SGK, SBT
HS: Vở ghi, SGK, SBT, đọc trước nội dung học
III/ NỘI DUNG BÀI DẠY
Hoạt động trò Nội dung dạy Gv: minh họa bẳng ngôn ngữ Pascal cú
pháp câu lệnh for … to …
Lưu ý cho hs:
- biến đếm biến đơn có kiểu nguyên;
- giá trị đầu giá trị cuối
biểu thức có kiểu với biến
3/ Ví dụ câu lệnh lặp
Cú Pháp câu lệnh lặp với số lần biết trước Pascal
for<biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>
trong đó: for, to, từ khóa
(47)Gi¸o ¸n Tin häc - Năm học 2009- 2010 m v giỏ tr cui phải lớn
giá trị đầu;
- câu lệnh câu lệnh đơn giản hay câu lệnh ghép
Cho hs nhận xét so sánh khác câu lệnh lặp hai vd trên?
Gv: Giải thích cho học vd2 câu lệnh lặp có begin … end
lần lặp
var i:integer; begin
for i:= to 20 do
writeln(‘Day la lan lap thu’,i); readln;
end.
Vd2: chương trình ghi nhận vị trí 10 chữ O rơi từ xuống
ues crt; var i:integer; begin
clrscr;
for i:= to 20 do begin
writeln(‘O’); delay(200); end;
readln; end.
*Lưu ý: Câu lệnh có sử dụng câu lệnh ghép phải đặt hai từ khóa begin … end
Gv: trình bày đoạn chương trình tính tổng N số tự nhiên, với N số tự nhiên nhập từ bàn phím (Pascal)
Theo cơng thức tính tổng ta cần khai bao nhieu biến? kiểu biến?
Trong biến biến có giá trị nhập từ bàn phím?
Hoạt động 2:
4/ Tính tổng tích câu lệnh lặp
Vd 1: chương trình tính tổng N số tự nhiên đầu tiên, với N số tự nhiên nhập từ bàn phím
S = 1+2+3+ … + N
program Tinh_tong; var N,i:integer;
S:longint; begin
write(‘Nhap so N = ‘); readln(N);
S:= 0;
for i:= to N do S:= S+i;
writeln(‘Tong cua’, N, ‘so tư nhien dau tien S = ‘, S); readln;
(48)Trong trường hợp liệu có kiểu nguyên lớn ta dùng longint
*Kiểu longint có phạm vi từ -231 đến 231
–
Vd 2: chương trình tính tích N số tự nhiên, với N số tự nhiên nhập từ bàn phím
N! = 1.2.3….N
program Tinh_Giai_Thua; var N,i:integer;
P:longint; begin
write(‘Nhap so N = ‘); readln(N);
P:= 1;
for i:= to N do P:= P*i;
writeln( N, ‘! = ‘, P); readln;
end.
III Củng cố:
1/ Cấu trúc lặp chương trình dùng để làm gì?
2/ Trong ngơn ngữ lập trình Pascal cấu trúc lặp với số lần lặp cho trước thể với câu lệnh nào?
IV Hướng dẫn nhà:
Học bài, làm tập SGK trang 60 – 61, xem lại ví dụ, tiết sau làm tập lớp
Tiết 41 : BÀI TẬP. I/ MỤC TIÊU:
Củng cố lại kiến thức thông qua việc làm tập lớp nhà
HS
Thái độ nghiêm túc cẩn thận
II/CHUẨN BỊ:
Gv: Soạn giáo án, SGK, SBT
HS: Vở ghi, tập, SGK, SBT
III/ TIẾN TRÌNH BÀI DẠY: Nội dung tập:
Bµi 1. (10’) Em cho vài ví dụ hoạt động thực lặp lại
cuộc sống ngày Trả lời:
(49)Gi¸o án Tin học - Năm học 2009- 2010
a) Hàng ngày em đặt đồng hồ báo thức lúc để dậy sớm tập thể dục
b) Hàng ngày (hoặc hàng tuần) bác lái xe khách lái xe để chuyên chở hành khách xuất phát từ thời gian địa điểm định theo tuyến đờng đợc xác định trớc
c) Mỗi lần đợc khởi động, máy tính em thực hoạt động tự kiểm tra thành phần máy tính, sau khởi động hệ điều hành theo trình tự đợc quy định trớc
Bài 2. (17 )’ : a) Có thể thấy, để vẽ đợc hình a), thao tác cần thực vẽ nửa đờng trịn theo hớng định Ta gọi thao tác vẽ nửa đờng tròn theo hớng A
là vẽ nửa đờng tròn có bán kính đơn vị điểm xác định, đờng kính nối điểm đầu điểm cuối nửa đờng trịn vng góc với hớng A và nửa đờng trịn "cong hớng A" (hình ) Ta xét A là hớng lên trên, xuống d-ới, sang trái, sang phải
Với hớng, ta định nghĩa phép toán sau: lên trên + = sang trái, sang trái +1 = xuống dới, xuống dới +1 = sang phải, sang phải +1 = lên trên Khi mơ tả bớc thuật tốn để vẽ hình 1a nh sau:
a) b)
H×nh 1
Có thể mơ tả bớc thuật tốn để vẽ hình a) nh sau:
Bớc 1 Xác định điểm bắt đầu vẽ X
Bớc 2 Đặt i = đặt hớng = lên trên
Bớc 3 Vẽ nửa đờng trịn theo hớng đặt
Bíc 4. i = i +
Bớc 5 Nếu i > 4, chuyển bớc 6; ngợc lại, đặt hớng = hớng + quay lại bớc
Bíc 6 KÕt thóc tht to¸n
Lu ý Khi trình bày thuật tốn lần cho học sinh khơng nên định nghĩa phép toán với hớng mà nên liệt kê đủ bốn hớng thuật toán
b) Thuật tốn tơng tự nh Thao tác cần lặp lại vẽ hình vng Tại bớc, giữ ngun tâm hình vng thay đổi hớng vẽ góc 30o.
Bµi 3. (5’) Cho biết tác dụng câu lệnh lặp với số lần biết trước
Trả lời:
Câu lệnh lặp có tác dụng làm đơn giản giảm nhẹ công sức ngời viết ch-ơng trình
Bµi 4. (10’): Khi thực câu lệnh lặp, máy tính kiểm tra điều kiện Với
lệnh lặp
For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>; Pascal, điều kiện cần phải kiểm tra gì?
Trả lời:
Chúng ta nói thực hoạt động lặp, chơng trình kiểm tra điều kiện Với lệnh lặp
(50)của Pascal, điều kiện cần phải kiểm tra giá trị biến đếm lớn giá trị cuối Nếu điều kiện không đợc thoả mãn, câu lệnh đợc tiếp tục thực hiện; ng-ợc lại, chuyển sang câu lệnh chơng trình
III Củng cố - Hướng dẫn học làm nhà: (3’)
- Học làm lại tập
- Làm tiếp tập lại SGK, sau làm tiếp tập
Tiết 42 : BÀI TẬP ( TT ) I/ MỤC TIÊU:
Củng cố lại kiến thức thông qua việc làm tập lớp nhà
HS
Thái độ nghiêm túc cẩn thận II/ CHUẨN BỊ:
Gv: Soạn giáo án, SGK, SBT
HS: Vở ghi, tập, SGK, SBT III/ TIẾN TRÌNH BÀI DẠY:
II Nội dung tập: (42’)
Bµi 5. Sau thực đoạn chương trình sau, giá trị biến j bao
nhiêu? J:=0;
for i:=0 to j:=j+2;
Trả lời:
Sau thực đoạn chương chương giá trị j =12
Bµi 6.: Hãy mơ tả thuật tốn để tính tổng sau đây:
1 1
1.3 2.4 3.5 ( 2)
A
n n
Trả lời:
Tht to¸n tÝnh tỉng A = 1 31 +2 41 +3 51 + n(n1+1)
Bíc 1 G¸n A 0, i
Bíc 2 A
1 ( 2)
i i .
Bíc 3 i i +
Bíc 4 NÕu i n, quay lại bớc
Bớc 5 Ghi kết A và kết thúc thuật toán
Bài 7.: Cỏc câu lệnh Pascal sau có hợp lệ khơng? Vì sao?
a) for i:=100 to writeln(‘A’); b) for i:=1.5 to 10.5 writeln(‘A’);
c) for i=1 to 10 writeln(‘A’);
(51)Giáo án Tin học - Năm học 2009- 2010
d) var x:real; begin for x:=1 to 10 writeln(‘A’); end Trả lời:
Trừ d), tất câu lệnh không hợp lệ:
a) Giá trị đầu phải nhỏ giá trị cuối;
b) Các giá trị đầu giá trị cuối phải số nguyên;
c) Thiếu dấu hai chấm gán giá trị đầu;
d) Thừa dấu chấm phẩy thứ nhất, nh ta muốn lặp lại câu lệnh writeln('A') m-ời lần, ngợc lại câu lệnh hợp lệ;
e) Bin x ó c khai báo nh biến có liệu kiểu số thực khơng thể dùng để xác định giá trị đầu giá trị cuối câu lệnh lặp
Bài 8.: Thuật toán:
Bớc 1 Nhập sè n vµ x
Bíc 2 A 1, i (A lµ biÕn lu luü thõa bËc n cđa x)
Bíc 3 ii + 1, A A.x
Bíc 4 NÕu i < n, quay l¹i bớc
Bớc 5 Thông báo kết A lµ l thõa bËc n cđa x vµ kÕt thóc thuật toán Chơng trình Pascal nh sau:
var n,i,x: integer; a: longint;
begin
write('Nhap x='); readln(x); write('Nhap n='); readln(n); A:=1;
for i:=1 to n do A:=A*X; writeln(x,' mu ',n,' bang ',A);
end
Bài 9.Thuật toán:
Bớc 1 Nhập số n
Bíc 2 A32768 (g¸n sè nhá nhÊt cã thĨ số kiểu nguyên cho A), i
1
Bớc 3 Nhập số thứ i và gán giá trị vào biến A
Bíc 4 NÕu Max < A, Max A
Bíc 5 i i +
Bíc 6 NÕu i ≤ n, quay l¹i bớc
Bớc 7 Thông báo kết Max là số lớn kết thúc thuật toán Chơng tr×nh Pascal cã thĨ nh sau:
uses crt;
var n,i,Max,A: integer;
begin
clrscr;
write('Nhap N='); readln(n); Max:=-32768;
for i:=1 to n do
begin write('Nhap so thu ',i,':'); readln(A); if Max<A then Max:=A end;
writeln('So lon nhat: ',Max);
end
Lu ý. Trong chơng trình sử dụng hai biến A Max để giải toán Một cách tự nhiên, để nhập n số cần tới n biến Tuy nhiên, việc xử lí giá trị dãy số thực cách cần so sánh giá trị đợc nhập vào, cần biến để lu lần lợt giá trị nhập vào đủ Một cách giải khác sử dụng biến mảng (xem tập 6, 9)
(52)uses crt;
var n,i,SoDuong,A: integer;
begin
clrscr;
write('Nhap N='); readln(n);
if n>0 then
begin
SoDuong:=0; for i:=1 to n do
begin write('Nhap so thu ',i,':'); readln(A);
if A>0 then SoDuong:=SoDuong+1 end;
writeln('So cac so duong = ',SoDuong) end
else writeln('n phai > 0!');
end
IV/ Củng cố - Hướng dẫn nhà học làm bài: (3’)
- Học
- Làm lại tập
- Xem trước nội dung thực hành 5, sau thực hành phòng máy
Tiết 43 : BÀI THỰC HÀNH SỐ : SỬ DỤNG LỆNH FOR … DO
I Mơc tiªu:
Kiến thức Vận dụng kiến thức vòng lặp for… do, câu lệnh ghép để viết ch-ơng trình
Kỹ Viết đợc chơng trình có sử dụng vịng lặp for … do; Sử dụng đợc câu lệnh ghép;
Rèn luyện kỹ đọc hiểu chơng trình có sử dụng vịng lặp for …
II chn bÞ cđa GV, HS
1 Chn bÞ cđa GV: - Giáo án, SGK, phòng máy, phần mềm pascal Chuẩn bÞ cđa HS: - SGK, vë ghi, bót
III Tiến trình dạy
Hoạt động thầy trũ Ni dung bi dy
- GV: yêu cầu dÃy gõ vào máy
- HS: gõ chơng trình, chạy thử chơng trình, báo cáo kết
- GV: hỗ trợ học sinh trình thực hành
Hot ng 1: Vit chng trình cho tập cho nhà
Bài 1: Tính tổng n số tự nhiên
Program tinh_tong;
Uses crt;
Var i, n: integer; tong: longin; Begin
Clrscr; Tong:=0;
Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n
Tong: = Tong+i;
Writeln(‘Tong cña’, n,’so tu nhien dautien la’,tong);
Readln;
(53)Gi¸o ¸n Tin học - Năm học 2009- 2010
- Sau kết chạy chơng trình đúng, gv yêu cầu học sinh chữa làm nhà cho theo chơng trình chy
2 Viết chơng trình tìm xem có số dơng n số nhập vào từ bàn phÝm Program tinh_so_cac_so_duong;
Uses crt;
Var i,A, dem, n: integer; Begin
Clrscr; Dem:=0;
Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n
begin
writeln(‘nhap vao so thu’,i); readln(A); if A>0 then dem:=dem+1;
end;
Writeln(‘So cac so duong la’,dem); Readln;
End - GV: Đa nội dung toán
- HS: Nghiên cứu toán, tìm input output
- GV: Đa nội dung chơng trình lên hình, yêu cầu học sinh đọc hiểu chơng trình
- HS: đọc, phân tích câu lệnh tìm hiểu hoạt động chơng trình
- GV: yêu cầu học sinh đứng vị trí trình bày hoạt động chơng trình, nhóm khác tham gia phân tích
- HS: tham gia hoạt động giáo viên - GV: yêu cầu học sinh lập bảng hoạt
động chơng trình theo mẫu: Giả sử N=2:
Bíc i i<=10 Writeln(n,’.’,i,’=’,n*i)
1 2.1=2
- HS: nhóm lập bảng đại diện nhóm báo cáo kết
- GV: nhËn xÐt
- GV: cho chơng trình chạy máy, yêu cầu học sinh quan sát kết
Hot ng 2: Bảng cửu chơng
Bài 2: Viết chơng trình in hình bảng nhân số từ đến 9, dừng hình để quan sát kết Program Bang_cuu_chuong;
Uses crt;
Var i, n: integer; Begin
Clrscr;
Writeln(‘Nhap vao so n’); readln(n); Writeln(‘Bang nha’,n);
Writeln;
For i:=1 to 10
Writeln(n,’x’,i:2,’=’,n*i:3); Readln;
End
IV Cđng cè :NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh
về nhà xem trớc thực hành SGK (T63) viết chơng trình in hình bảng cửu chơng từ đến
Tiết 44 : BÀI THỰC HÀNH SỐ : SỬ DỤNG LỆNH FOR … DO
I/Mơc tiªu:
Kiến thức Vận dụng kiến thức vòng lặp for… do, câu lệnh ghép để viết ch-ơng trình, tìm hiểu câu lệnh gotoxy(), where<>, lệnh for lồng for
Kỹ
Viết chơng trình có sử dụng vòng lặp for do; Sử dụng câu lệnh ghép chơng trình;
(54)II/chuẩn bị
Chuẩn bị GV: - Giáo án, SGK, phòng máy, phần mềm pascal Chuẩn bị HS: - SGK, vë ghi, bót
III/ TiÕn Tr×nh b i d yà ạ :
Hoạt động thầy trò Ni dung bi dy
- Giáo viên cho chạy kết thực hành Bang_cuu_chuong
Yêu cầu học sinh quan sát kết nhận xét khoảng cách hàng, cột
- HS: quan sỏt đa nhận xét - ? Có cách để khoảng cách hàng cột tăng lờn?
- GV: Giới thiệu câu lệnh gotoxy where
- GV: yêu cầu học sinh mở chơng trình Bang_cuu_chơng sửa lại chơng trình theo hình giáo viên
- HS: gõ chơng trình vào máy, sửa lỗi tả, chạy chơng trình, quan sát kết
- GV: yêu cầu học sinh quan sát kết so sánh với kết chơng trinh cha dùng lệnh gotoxy(5, wherey)
- HS: quan sát nhận xét
Hot động 1: Làm đẹp hình kết lệnh gotoxy, where
Bµi sgk (T63)
a) Giíi thiƯu lƯnh gotoxy(), wherex - Gotoxy(a,b)
Trong đó: a số cột, b số hàng - ý nghĩa câu lệnh đa trỏ cột a hàng b
- Wherex: cho biÕt sè thø tù cña cét, wherey cho biÕt sè thø tù hàng
* Lu ý: Phải khai báo th viƯn crt tríc sư dơng hai lƯnh trªn
a) Chỉnh sửa chơng trình nh sau: Program Bang_cuu_chuong;
Uses crt;
Var i, n: integer; Begin
Clrscr;
Writeln(‘Nhap vao so n’); readln(n); Writeln(‘Bang nha’,n);
Writeln;
For i:=1 to 10 begin
gotoxy(5, wherey);
Writeln(n,’x’,i:2,’=’,n*i:3); Readln;
End - GV: giíi thiƯu cÊu tróc lƯnh for
lång, híng dÉn häc sinh c¸ch sư dơng lƯnh
- HS: ghi chÐp cÊu tróc lĩnh hội - GV: đa nội dung chơng trình bµi
thực hành lên hình, u cầu học sinh đọc chơng trình,
Hoạt động 2: Bài SGK (T64)
a) C©u lƯnh for lång for
- For<biến đếm1:= giá trị đầu>to<giátrị
cuèi>do
(55)Gi¸o ¸n Tin häc - Năm học 2009- 2010
tỡm hiu hot động chơng trình
- HS: hoạt động theo nhóm, tìm hiểu hoạt động chơng trinh, đại diện nhóm báo cáo kết thảo luận
- GV: cho chạy chơng trình - HS : quan sát kết
hình
< câu lệnh>;
Program Tao_bang;
Uses crt;
Var i,j: byte; Begin
Clrscr;
For i:=1 to
Begin
For j:=0 to Writeln(10*i+j:4); Writeln;
End;
Readln;
End
IV/Củng cố :Nhận xét rút kinh nghiệm thực hành học sinh nhà sử dụng lệnh gotoxy để chỉnh sửa lại thực hành số cho kết in hình đẹp
Tiết 45- 49:häc vÏ hình với phần mềm geogebra
I/ Mục tiêu:
Học sinh biết đợc ý nghĩa hình học geogebra Làm quen với phần mềm nh khởi động, công cụ, nút lệnh
Nắm đợc cách vẽ hình sử dụng phần mềm geogebra Hứng thú u thích mơn học
II/ Chuẩn bị:
- Sách giáo khoa, giáo án, tài liệu tin học có liên quan - Đọc tài liệu nhà trớc
III Tiến trình BàI DạY:
Hot ng ca gv v HS Ni dung Bài dạy
Hoạt động 1: Giới thiệu phần mềm geogebra Cho học sinh đọc thông tin SGK
? Em biết phần mềm geogebra Nếu biết hÃy nêu vài ví dụ
? Phn mm geogebra có đặc điểm gì? Giáo viên giới thiệu lại cho học sinh nghe
1 Em biết GeoGebra?
- Phần mềm GeoGebra dùng để vẽ hình hình học đơn giản nh điểm, đoạn thẳng, đờng thẳng lớp em đợc học qua - - - Đặc điểm quan trọng phần mềm Geogebra khả tạo gắn kết đối tợng hình học, đ-ợc gọi quan hệ nh thuộc, vng góc, song song Đặc điểm giúp cho phần mềm vẽ đợc hình xác có khả tơng tác nh chuyển động nhng giữ đợc mối quan hệ đối tợng
Hoạt động2: Làm quen với phần mềm Geogebra
(56)Hoạt động gv HS Nội dung Bài dạy thiệu bớc
Để khởi động ta làm nh nào?
Ngoµi cách có cách không?
Màm hình phần mềm GeoGebra tiếng Việt có phần nào?
Em hiểu Bảng chọn gì?
Giáo viªn chó ý cho HS
Thanh cơng cụ ? Hãy nêu lệnh (có thể cho HS lên bảng vẽ)
Gi¸o viên giới thiệu công cụ làm việc cho học sinh
Để chọn công cụ hÃy nháy chuột lên biểu tợng công cụ
Mỗi nút công cụ có nhiều công cụ nhóm Nháy chuột vào nút nhỏ hình tam giác phía dới biểu tợng làm xuất công cụ khác
Cỏc cụng c liờn quan đến đối tợng điểm
GeoGebra tiÕng ViÖt
a) Khởi động
Nháy chuột biểu tợng để ng chng trỡnh
b) Giới thiệu hình GeoGebra tiÕng ViƯt
Màn hình làm việc phần mềm bao gồm bảng chọn, công cụ khu vực thể đối tợng
B¶ng chọn hệ thống lệnh phần mềm Geogebra Víi phÇn mỊm Geogebra tiÕng ViƯt em sÏ thÊy c¸c lƯnh b»ng tiÕng ViƯt
Chú ý lệnh bảng chọn không dùng để vẽ đối tợng-hình Các lệnh tác động trực tiếp với đối tợng hình học đợc thực thơng qua cơng cụ công cụ phần mềm
Thanh công cụ phần mềm chứa công cụ làm việc Đây cơng cụ dùng để vẽ, điều chỉnh làm việc với đối tng
- Khi nháy chuột lên nút lệnh ta thấy xuất công cụ khác nhãm
- Mỗi cơng cụ có biểu tợng riêng tơng ứng Biểu tợng cho biết công dụng ca cụng c ú
c) Giới thiệu công lµm viƯc chÝnh
Cơng cụ di chuyển có ý nghĩa đặc biệt khơng dùng để vẽ khởi tạo hình mà dùng để di chuyển hình Với cơng cụ này, kéo thả chuột lên đối tợng (điểm, đoạn, đờng, ) để di chuyển hình Công cụ dùng để chọn đối tợng thực lệnh điều khiển thuộc tính đối tợng Có thể chọn nhiều đối tợng cách nhấn giữ phím Ctrl chọn
Chú ý: Khi sử dụng công cụ khác, nhấn phím ESC để chuyển cơng cụ di chuyển
Các công cụ liên quan đến đối tợng điểm
(57)Gi¸o ¸n Tin häc - Năm học 2009- 2010
Hot ng gv HS Nội dung Bài dạy
Các công cụ liên quan đến đoạn, đờng thẳng
mới Điểm đợc tạo điểm tự mặt phẳng điểm thuộc đối tợng khác (ví dụ đờng thẳng, đoạn thẳng)
Cách tạo: chọn công cụ nháy chuột lên điểm trống hình nháy chuột lên đối tợng để tạo điểm thuộc đối tợng
Công cụ dùng để tạo điểm giao hai đối tợng có mặt phẳng
Cách tạo: chọn công cụ lần lợt nháy chuột chọn hai đối tợng có mặt phẳng
Cơng cụ dùng để tạo trung điểm (đoạn thẳng nối) hai điểm cho trớc: chọn công cụ nháy chuột hai điểm để tạo trung điểm
Các công cụ liên quan đến đoạn, đ-ờng thẳng
Các công cụ , , dùng để tạo đờng, đoạn, tia qua hai điểm cho trớc Thao tác nh sau: chọn cơng cụ, sau nháy chuột chọn lần lợt hai điểm hình
Cơng cụ tạo đoạn thẳng qua điểm cho trớc với độ dài nhập trực tiếp từ bàn phím
Thao tác: chọn cơng cụ, chọn điểm cho trớc, sau nhập giá trị số vào cửa sổ có dạng:
Nháy nút áp dụng sau nhập xong độ dài đoạn thẳng
Chó ý: Trong cưa sỉ trªn cã thể nhập chuỗi kí tự tên cho giá trị số
Các công cụ tạo mối quan hƯ h×nh häc
- Cơng cụ dùng để tạo đờng thẳng qua điểm vuông góc với đờng đoạn thẳng cho trớc
(58)Hoạt động gv HS Nội dung Bi dy
Các công cụ tạo mối quan hƯ h×nh häc
Các cơng cụ liên quan đến hình trịn
lại chọn đờng (đoạn, tia) chọn điểm - Công cụ tạo đờng thẳng song song với đờng (đoạn) cho trớc qua điểm cho trớc
Thao tác: chọn công cụ, sau lần lợt chọn điểm, đờng (đoạn, tia) ngợc lại chọn đờng (đoạn, tia) chọn điểm - Công cụ dùng để vẽ đờng trung trực đoạn thẳng hai điểm cho trớc
Thao tác: chọn cơng cụ, sau chọn đoạn thẳng chọn hai điểm cho trớc mặt phẳng
- Công cụ dùng để tạo đờng phân giác góc cho trớc Góc xác định ba điểm mặt phẳng
Thao tác: chọn cơng cụ sau lần lợt chọn ba điểm mặt phẳng Điểm chọn thứ hai đỉnh góc
Các cơng cụ liên quan đến hình trịn
- Cơng cụ tạo hình trịn cách xác định tâm điểm hình trịn Thao tác: chọn cơng cụ, chọn tâm hình trịn điểm thứ hai nằm hình trịn
- Cơng cụ dùng để tạo hình trịn cách xác định tâm bán kính Thao tác: chọn cơng cụ, chọn tâm hình trịn, sau nhập giá trị bán kính hộp thoại sau:
- Cơng cụ dùng để vẽ hình trịn qua ba điểm cho trớc Thao tác: chọn công cụ, sau lần lợt chọn ba điểm - Cơng cụ dùng để tạo nửa hình trịn qua hai điểm đối xứng tâm
(59)Giáo án Tin học - Năm học 2009- 2010
Hoạt động gv HS Nội dung Bài dạy
- Công cụ tạo cung trịn phần hình trịn xác định trớc tâm hình trịn hai điểm cung trịn
- Thao tác: Chọn cơng cụ, chọn tâm hình trịn lần lợt chọn hai điểm Cung tròn xuất phát từ điểm thứ đến điểm thứ hai theo chiều ngợc chiều kim đồng hồ
- Công cụ xác định cung tròn qua ba điểm cho trớc Thao tác: chọn cơng cụ sau lần lợt chọn ba điểm mặt phẳng
Các cơng cụ biến đổi hình học
- Công cụ dùng để tạo đối t-ợng đối xứng với đối tt-ợng cho trớc qua trục đờng đoạn thẳng
- Thao tác: Chọn công cụ, chọn đối tợng cần biến đổi (có thể chọn nhiều đối tợng cách kéo thả chuột tạo thành khung chữ nhật chứa đối tợng muốn chọn), sau nháy chuột lên đờng đoạn thẳng làm trục đối xứng
- Công cụ dùng để tạo đối t-ợng đối xứng với đối tt-ợng cho trớc qua điểm cho trớc (điểm gọi tâm đối xứng)
- Thao tác: Chọn công cụ, chọn đối tợng cần biến đổi (có thể chọn nhiều đối tợng cách kéo thả chuột tạo thành khung chữ nhật chứa đối tợng muốn chọn), sau nháy chuột lên điểm tâm đối xứng
d) C¸c thao t¸c víi tÖp
(60)Hoạt động gv HS Nội dung Bài dạy e) Thoát khỏi phần mềm
Nháy chuột chọn Hồ sơ Đóng nhấn tổ hợp phím Alt+F4
IV/Củng cố:
- Giáo viên hệ thống lại toàn nội dung học
- Học theo sách giáo khoa ghi, Ơn lại kiến thức học luyện viết, làm làm lại nhiều lần
- Đọc để sau học
Tiết 50 – 51 : Bài 8: LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC
I
Mục tiêu:
- Biết nhu cầu cần có cấu trúc lặp với số lần chưa biết trước ngôn ngữ lập trình;
- Biết ngơn ngữ lập trình dùng cấu trúc lặp với số lần chưa biết trước để dẫn máy tính thực lặp lặp lại cơng việc đến điều kiện thoả mãn;
- Nhận biết đâu hoạt động lặp với số lần chưa biêt trước - Nghiêm túc trình nghiên cứu thực hành
II Chuẩn bị
GV: SGK, máy chiếu, phim ví dụ chương trình HS: Xem trước nhà
III Tiến trình giảng
Viết thuật tốn tính tổng 100 số tự nhiên 1,2,3,…,99,100 Trả lời
Bước SUM 0; i Bước ii +
Bước 3. Nếu i ≤ 100, SUM SUM + i quay lại bước Bước 4. Thông báo kết kết thúc thuật toán
Bài mới
Hoạt động GV HS Nội dung
+ G : y/c hs đọc ví dụ 1sgk/67 + Hs : 2-3 hs đọc ví dụ sgk + G : Phân tích ví dụ + Hs : Chú ý lắng nghe
+ G : y/c hs đọc ví dụ 1sgk/67 + Hs : 2-3 hs đọc ví dụ sgk + G : Phân tích ví dụ
1 Các hoạt động lặp với số lần chưa biết trước
a/ Ví dụ 1(sgk).
(61)Gi¸o án Tin học - Năm học 2009- 2010
+ Hs : ý lắng nghe
+ G : Hướng dẫn hs xây dựng thuật toán
+ Hs : Nghe giáo viên hướng dẫn, sau tự xây dựng thuật tốn
+ G : Chạy tay cho học sinh xem ( Chỉ nên chạy tay thử từ đến 10 )
+ Hs : Chú ý nghe Hs ghi ví dụ
+ G : Giới thiệu sơ đồ khối
+ G : Nêu nhận xét
+ G : Có thể sử dụng lệnh lặp với số lần lặp chưa biết trước chương trình lập trình Sau ta xét câu lệnh ví dụ TP
+ G : Giới thiệu cú pháp lệnh
while …do ….;
+ hs : ý nghe ghi chép + Gv : Xét ví dụ
Chúng ta biết rằng, n càng lớn
1
n nhỏ, ln lớn Với giá trị n thì
1
n < 0.005
1
n < 0.003 ?
nhất lớn 1000?
Giải :
Kí hiệu S là tổng cần tìm ta có thuật tốn sau:
+ Bước 1.S 0, n
+ Bước 2. Nếu S ≤ 1000, n n + 1; ngược lại
chuyển tới bước
+ Bước 3.S S + n và quay lại bước + Bước 4.In kết : S n số tự nhiên nhỏ cho S > 1000 Kết thúc thuật tốn
* Ta có sơ đồ khối :
* Nhận xét : Để viết chương trình dẫn máy tính thực hoạt động lặp ví dụ trên, ta sử dụng câu lệnh có dạng
lặp với số lần chưa biết trước
2 Ví dụ lệnh lặp với số lần chưa biết trước
Trong Pascal câu lệnh lặp với số lần chưa biết trước có dạng:
while <điều kiện> do <câu lệnh>;
trong đó:
- điều kiện thường phép so sánh; - câu lệnh câu lệnh đơn giản
hay câu lệnh ghép
Câu lệnh lặp thực sau: Bước : Kiểm tra điều kiện
Bước : Nếu điều kiện SAI, câu lệnh bị bỏ qua việc thực lệnh lặp kết thúc Nếu
điều kiện đúng, thực câu lệnh quay lại bước
Ví dụ
Với giá trị n ( n>o ) thì
1
n < 0.005
1
(62)( Gv đưa phim ví dụ ) + Hs : Đọc ví dụ
+ G : giới thiệu chương trình mẫu sgk ( Giáo viên in chương trình mẫu trên) + Hs : quan sát
+ Gv : Chạy tay cho học sinh xem + Hs : ý nghe tự chạy tay lại + Gv : Yêu cầu học sinh mở máy tính mở chương trình ví dụ ( giáo viên chuẩn bị chương trình mẫu đưa lên máy )
+ Hs : thực
+ G : Cho học sinh chạy chương trình máy
+ Hs : thực
+ G : Yêu cầu hs thay điều kiện sai_so = 0.003 thành 0.002 ; 0.001 ;
0.005 ;
+ Hs : thực
số n nhỏ để
1
n nhỏ sai số cho trước :
uses crt;
var x: real; n: integer;
const sai_so=0.003;
begin
clrscr; x:=1; n:=1;
while x>=sai_so do begin n:=n+1; x:=1/n
end;
writeln('So n nho nhat de 1/n < ',sai_so:5:4, 'la ',n);
readln
end
IV/ Củng cố:
- Lấy ví dụ hoạt động phải lặp lại với số lần chưa biết trước
Hướng dẫn nhà:
- Học Nghiên cứu trước nội dung phần lại
Tiết 52 : BÀI THỰC HÀNH 6
SỬ DỤNG LỆNH LẶP WHILE DO
I/ MỤC TIÊU * Kiến thức
- Vận dụng kiến thức vòng lặp while … do, câu lệnh ghép để viết chơng trình
* Kỹ năng
- Viết đợc chơng trình có sử dụng vịng lặp while … do; - Sử dụng đợc câu lệnh ghép;
- Rèn luyện kỹ đọc hiểu chơng trình có sử dụng vịng lặp while do
II/ CHUẨN BỊ
* Giáo viên
- Sách giáo khoa, giáo án, phòng máy
* Học sinh
(63)Gi¸o ¸n Tin häc - Năm học 2009- 2010
III/ TI N TRÌNH GI D YẾ Ờ Ạ
HĐ CỦA GV& HS NỘI DUNG
Hoạt động
- GV: Yêu cầu HS đọc tập (Tr71 SGK), thảo luận theo nhóm làm tập - GV: yªu cầu dÃy gõ vào máy - GV: hỗ trợ học sinh trình thực hành
- GV hớng dẫn HS tìm hiểu câu lệnh - GV cho HS thay vòng lặp While vòng lặp xác định For
- Sau kết chạy chơng trình đúng, GV yêu cầu học sinh chữa làm nhà cho theo chơng trình chạy
Hoạt động
- Nếu nhóm làm xong trớc thời gian thực vÝ dô 3,4,5 trang 69,70 SGK
- HS: Đọc bài, suy nghĩ, thảo luận làm máy
- HS: gõ chơng trình, chạy thử chơng trình, báo cáo kết
- Thực theo yêu cầu GV - HS: Chữa tập ë bµi häc tríc
- HS: Thùc hµnh víi tập ví dụ
Bài 1
Viết chơng trình sử dụng lệnh While để tính trung bình n số thực x1,x2 ,xn Các số xi đợc nhập từ bàn phím
Program tinh_trung_binh; Uses crt;
Var dem, n: integer; x,tb: real; Begin
Clrscr;
Dem:=0;Tb:=0;
Writeln(‘Nhap vao so n’); readln(n); while dem<=n
begin dem: = dem+i;
Writeln(‘nhap so thu’,dem,’=’); readln(x);
Tb:=tb+x; End;
Write(‘TB cua’,n,’so la’,tb:10:2); Readln;
End
* C¸c vÝ dô
(64)- GV nhận xét, rút kinh nghiệm thực hành
V/ HƯỚNG DẪN VỀ NHÀ (1’)
- Đọc chuẩn bị cho tiết thực hành
Tiết 53 :
BÀI THỰC HÀNH 6
SỬ DỤNG LỆNH LẶP WHILE DO
I/ MỤC TIÊU * Kiến thức
- Vận dụng kiến thức vòng lặp while … do, câu lệnh ghép để viết chơng trình
* Kỹ năng
- Viết đợc chơng trình có sử dụng vịng lặp while … do; - Sử dụng đợc câu lệnh ghép;
- Rèn luyện sâu kỹ đọc hiểu chơng trình có sử dụng vịng lặp while do
II/ CHUẨN BỊ * Giáo viên
- Sách giáo khoa, giáo án, phòng máy
* Học sinh
- Vở ghi + Sách giáo khoa
III/ TI N TRÌNH GI D YẾ Ờ Ạ
HĐ CỦA GV & HS NỘI DUNG
Hoạt động
- GV: Đa nội dung toán, yêu cầu HS đọc tìm Input, Output
- GV: Đa nội dung chơng trình lên hình, yêu cầu học sinh đọc hiểu chơng trình
- GV: Yêu cầu học sinh đứng vị trí trình bày hoạt động chơng trình, nhóm khác tham gia phân tích
- GV: Yêu cầu học sinh lập bảng hoạt động chơng trình theo mẫu
Bµi 2
Viết chơng trình nhận biết số có phải số ngun tố hay khơng với n số nguyên đợc nhập từ bàn phím:
Program so_nguyen_to; Uses crt;
Var i, n: integer; Begin
Clrscr;
(65)Gi¸o ¸n Tin häc - Năm học 2009- 2010
Hot ng
- GV: Yêu cầu HS đọc phần Đọc thêm 2: Tính gần số Pi với độ xác cho trớc - GV: Giải thích chơng trình có sử dụng hàm chuẩn Abs Pascal
- HS: Nghiên cứu toán, tìm Input Output
- HS: Đọc, phân tích câu lệnh tìm hiểu hoạt động chơng trình
- HS: Tham gia hoạt động giáo viên
- HS: Gâ, ch¹y chơng trình kiểm tra với số khác nhau; tìm hiểu câu lệnh chơng trình
- HS: Thực theo yêu cầu GV - HS: Chú ý lắng nghe ghi chép
ngto) else Begin i:=2;
while n mod i <>0 i:=i+1; if i=n then Writeln(n,’la so ngto’) else writeln(n,’ko la so ngto’); end;
Readln; End
* Đọc thêm 2
- Hm Abs cho kết giá trị tuyệt đối số, tức Abs (x) cho giá trị x, x>=0, ngợc lại Abs (x) cho kết -x
IV/ CỦNG CỐ
- GV nhận xét, rút kinh nghiệm thực hành
- Ôn lại tất kiến thức học câu lệnh lặp - Chuẩn bị tốt cho tiết tập
(66)* Kiến thức
- Kiểm tra vận dụng cấu trúc lặp với số lần chưa biết trước ngơn ngữ lập trình; - Hiểu hoạt động câu lệnh lặp với số lần chưa biết trước While do… Pascal
* Kỹ năng
- Ứng dụng câu lệnh lặp việc giải toán
II/ CHUẨN BỊ * Giáo viên
- Sách giáo khoa, giáo án, máy chiếu
* Học sinh
- Vở ghi + Sách giáo khoa
III/ TI N TRÌNH GI D YẾ Ờ Ạ
HĐ CỦA GV & HS NỘI DUNG
Hoạt động
- GV: Nhắc lại cú pháp lệnh While
- GV: Lưu ý HS cách thực tránh lệnh lặp vô hạn lần
Hoạt động
- GV: Yêu cầu hs làm tập (Tr71 SGK) Phát biểu khác biệt câu lệnh lặp với
I/ Ôn tập lý thuyết
while <điều kiện> do <câu lệnh>;
trong đó:
- điều kiện thường phép so sánh;
- câu lệnh câu lệnh đơn giản hay câu lệnh ghép
Câu lệnh lặp thực hiện: Bước : Kiểm tra điều kiện
Bước : Nếu điều kiện SAI, câu lệnh
(67)Giáo án Tin học - Năm học 2009- 2010
số lần lặp cho trớc câu lệnh lặp với số lần lặp cha biết trớc
- GV: Nhận xét, đánh giá
- GV: Yêu cầu HS đọc tập 3:
Tìm hiểu thuật toán sau cho biết thực thuật tốn, máy tính thực vịng lặp? Khi kết thúc, giá trị S bằng bao nhiêu? Viết chơng trình Pascal thể thuật tốn
a) Tht to¸n
Bíc 1 S 10, x 0.5
Bíc 2 NÕu S 5.2, chun tíi bíc
Bíc 3 S S x quay lại bớc
Bớc 4 Thông báo S và kết thúc thuật toán
b) Tht to¸n
Bíc 1 S 10, n
Bíc 2 NÕu S ≥10, chun tíi bíc
Bíc 3 n n + 3, S Sn quay l¹i bíc
Bíc 4 Thông báo S và kết thúc thuật toán - HS: Chú ý quan sát
- HS: Lắng nghe ghi chép
II/ Bµi tËp Bµi 2
Sù khác biệt câu lệnh lặp với số lần lặp cho trớc câu lệnh lặp với số lần lặp cha biết trớc điểm sau đây:
a) Nh tên gọi nó, câu lệnh lặp với số lần lặp cho trớc thị cho máy tính thực lệnh nhóm lệnh với số lần đợc xác định từ trớc, với câu lệnh lặp với số lần lặp cha biết trớc số lần lặp cha đợc xác định trớc
b) Trong câu lệnh lặp với số lần cho tr-ớc, điều kiện giá trị biến đếm có giá trị nguyên đạt đợc giá trị lớn hay cha
Trong câu lệnh lặp với số lần cho tríc,
câu lệnh đợc thực lần, sau kiểm tra điều kiện Trong câu lệnh lặp với số lần cha xác định trớc, trớc hết điều kiện đợc kiểm tra Nếu điều kiện đợc thoả mãn, câu lệnh mới đợc thực Do có trờng hợp câu lệnh hồn tồn khơng đợc thực
Bµi
a) Thuật tốn 1: 10 vòng lặp đợc thực Khi kết thúc thuật tốn S = 5.0 Đoạn chơng trình Pascal tơng ứng:
S:=10; x:=0.5;
while S>5.2 S:=S-x; writeln(S);
b) Thuật tốn 2: Khơng vịng lặp đợc thực từ đầu điều kiện khơng đợc thỏa mãn nên bớc bị bỏ qua
(68)- HS: Đọc trả lời
- HS: Ghi chép
- HS: đọc yêu cầu tập trả lời câu hỏi - HS viết chương trình theo yêu cầu
chơng trình Pascal tơng ứng:
S:=10; n:=0; while S<10 do begin n:=n+3; S:=S-n end;
writeln(S);
IV/ CỦNG CỐ (3’)
- HS nhắc lại kiến thức câu lệnh lặp While - GV củng cố lại kiến thức
V/ HƯỚNG DẪN VỀ NHÀ (1’)
- Đọc nghiên cứu lại tập - Chuẩn bị cho tiết tập
Tiết 55: BÀI TẬP
I/ MỤC TIÊU * Kiến thức
- Nắm vững cấu trúc lặp với số lần chưa biết trước ngôn ngữ lập trình; - Củng cố kiến thức hoạt động câu lệnh lặp với số lần chưa biết trước While do… Pascal
* Kỹ năng
- Ứng dụng thành thạo câu lệnh lặp việc giải toán
II/ CHUẨN BỊ * Giáo viên
- Sách giáo khoa, giáo án, máy chiếu
* Học sinh
- Vở ghi, sách giáo khoa
III/ TIẾN TRÌNH GIỜ DẠY
(69)Gi¸o ¸n Tin học - Năm học 2009- 2010
HĐ CỦA GV & HS NỘI DUNG
Hoạt động
- GV: yờu cầu HS đọc ( Tr71 SGK) Hãy tìm hiểu cụm câu lệnh sau cho biết với câu lệnh chơng trình thực vịng lặp? Hãy rút nhận xét em!
a) S:=0; n:=0; while S<=10
begin n:=n+1; S:=S+n end; b) S:=0; n:=0;
while S<=10 n:=n+1; S:=S+n;
Hoạt động
- GV: Yeu cầu HS đọc bi (Tr71 SGK) HÃy lỗi câu lệnh sau đây: a)X:=10; while X:=10 X:=X+5;
b)X:=10; while X=10 X=X+5;
c)S:=0; n:=0; while S<=10 n:=n+1; S:=S+n;
- HS: Đọc làm tập
- Chữa ghi chép đầy đủ
- HS: Đọc làm tập - Chữa ghi chép đầy đủ
Bµi 4
a) Chơng trình thực vòng lặp
b) Vịng lặp chơng trình đợc thực vơ tận sau câu lệnh n:=n+1; câu lệnh lặp kết thúc nên điều kiện S=0 luôn đợc thỏa mãn
Nhận xét: Trong câu lệnh thực hiện, điều kiện cần phải đợc thay đổi để sớm hay muộn chuyển sang trạng thái khơng thỏa mãn Khi vịng lặp đợc kết thúc sau hữu hạn bớc Để làm đợc điều này, câu lệnh câu lệnh lặp while thờng câu lệnh ghép
Bµi 5
a) Thõa dÊu hai chÊm ®iỊu kiƯn;
b) ThiÕu dấu hai chấm câu lệnh gán;
(70)IV/ CỦNG CỐ
- GV củng cố lại kiến thức với loại vòng lặp học - Ơn tập kiến thức lí thuyết từ đầu HK2
- Tự làm lại tập
- Chuẩn bị tốt cho kiểm tra tiết
Tiết 56: KIỂM TRA MỘT TIẾT
I/ MỤC TIÊU * Kiến thức
- Kiểm tra kiến thức từ đầu học kỳ II học sinh
* Kĩ năng
- Có kỹ làm kiểm tra
II/ CHUẨN BỊ * Giáo viên
- Đề
* Học sinh
- Ôn tập trước tới lớp
III/ TIẾN TRÌNH BÀI GIẢNG
ĐỀ BÀI
I/ TRẮC NGHIỆM (3Đ) (Khoanh tròn vào đáp án đúng) Câu 1: Cú pháp c a câu l nh For … 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>; Câu 2: Cho đoạn chương trình:
S:=0;
For i:=1 to do S:=S+i;
Sau thực đoạn chương trình S có kết :
a 20 b 15 c 10 d
Câu 3: Câu lệnh viết cú pháp 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>;
(71)Gi¸o ¸n Tin häc - Năm học 2009- 2010 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 5: Cú pháp c a câu l nh u ki n 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 6: Cú pháp câu lệnh lặp 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>; II/ TỰ LUẬN (6Đ)
Bài 1: (3Đ) - Điền vào chỗ trống để câu đúng:
a) Cấu trúc rẽ nhánh có hai dạng:
b) Câu lệnh lặp với số lần cho trước Pascal là:
c) Câu lệnh lặp với số lần chưa biết trước Pascal là:
Bài 2:(3Đ) - Viết chương trình tính tổng n số tự nhiên Với n nhập từ bàn phím.
IV/ CỦNG CỐ
- GV nhận xét KT ý thức làm HS
Tiết 57 : BÀI 9: LÀM VIỆC VỚI DÃY SỐ
I/ MỤC TIÊU * Kiến thức
- Biết khái niệm mảng chiều
- Biết cách khai báo mảng, nhập, in, truy cập phần tử mảng
* Kỹ năng
- Hiểu ứng dụng cách khai báo mảng lập trình
(72)- Sách giáo khoa, giáo án, máy chiếu
* Học sinh
- Vở ghi, sách giáo khoa
III/ TI N TRÌNH GI D YẾ Ờ Ạ
HĐ CỦA GV & HS NỘI DUNG
Hoạt động (12')
- GV: Giới thiệu ví dụ (SGK Tr 75)
- Như biết bất tiện sử dụng cách khai báo biến biết (khai báo biến đơn) Vì Pascal cung cấp cơng cụ hiệu để hỗ trợ người lập trình kiểu mảng
- GV: Giới thiệu biến mảng
Hoạt động (28')
- GV: Giới thiệu cách khai báo biến mảng
- Cách khai báo trực tiếp biến mảng chiều
Khai báo gián tiếp biến mảng qua kiểu mảng chiều
- GV: Giải thích thành phần cách khai báo biến mảng
1 Dãy số mảng
Các câu lệnh khai báo nhập liệu:
Var Diem_1, Diem_2, Diem_3, .: real;
Read (Diem_1); Read (Diem_2); Read (Diem_3);
- Khi số HS lớp nhiều đoạn khai báo đọc đọc liệu chương trình dài
- Để giải vấn đề Pascal cung cấp kiểu liệu gọi
kiểu mảng
- Khi khai báo biến có kiểu liệu kiểu mảng biến dó gọi
là biến mảng
2 Ví dụ biến mảng
Có hai cách khai báo biến mảng
Cách 1: Khai báo trực tiếp biến mảng chiều:
var <tên biến mảng> : array [kiểu chỉ số]of[kiểu phần tử];
Cách 2: Khai báo gián tiếp biến mảng qua kiểu mảng chiều:
type <tên kiểu mảng> = array [kiểu chỉ số]of<kiểu phần tử>;
(73)Giáo án Tin học - Năm häc 2009- 2010
- GV: sử dụng số ví dụ để luyện tập khai báo mảng chiều giải thích số lượng phần tử, kiểu phần tử biến mảng tương ứng với ví dụ - GV: Gọi HS rút cách khai báo mảng Pascal - GV: Yêu cầu HS đọc VD (Tr76 SGK) Đưa cách khai báo sử dụng biến mảng ? Cách khai báo sử dụng biến mảng có lợi gì?
- GV: Giới thiệu câu lệnh lặp sử dụng biến mảng để so sánh điểm HS so với giá trị
- GV: Giới thiệu cách khai báo nhiều điểm theo môn học
- GV: Giới thiệu câu lệnh gán giá trị mảng câu lệnh gán
- HS: Chú ý lắng nghe suy nghĩ
- HS: Chú ý lắng nghe ghi chép - HS: Nghe ghi chép
- HS: Chú ý quan sát - HS: Ghi chép
trong đó:
- kiểu số dãy số nguyên liên tục n1 n2 với n1, n2 (hoặc
biểu thức cho kết số nguyên) xác định số số cuối (n1n2)
- kiểu phần tử kiểu phần tử mảng
Ví dụ:
Var Chieucao: array[1 50] of real; Var Tuoi: array [21 80] of integer;
Tên mảng: array [<chỉ số đầu> <chỉ số cuối>] of <kiểu sữ liệu>
Var Diem: array [1 50] of real;
- Có thể thay nhiều câu lệnh nhập in liệu hình câu lệnh lặp
For i: = to 50
If Diem[i] > 8.0 then writeln ('Gioi');
Var DiemToan, DiemVăn, DiemLi: array [1 50] of real;
A[1] := 5; A[2] := 8;
(74)- HS: Ghi chép
- HS: Chú ý quan sát ghi chép
- HS: Chú ý quan sát, luyện tập với ví dụ GV đưa
- HS: Suy nghĩ trả lời câu hỏi - HS: Đọc ví dụ ghi chép
- HS: Trả lời câu hỏi GV
- HS: Chú ý quan sát ghi chép - HS: Chú ý quan sát ghi chép - HS: Chú ý quan sát
For i := to readln (a[i]);
IV/ CỦNG CỐ
- HS nhắc lại kiến thức kiểu mảng, biến mảng, cách khai báo biến mảng - GV củng cố lại kiến thức
- Ôn tập kiến học
- Đọc trước phần 3: Tìm giá trị lớn nhát nhỏ dãy số
(75)Gi¸o ¸n Tin học - Năm học 2009- 2010
Tiết 58:
BÀI 9: LÀM VIỆC VỚI DÃY SỐ
I/ MỤC TIÊU * Kiến thức
- Biết sâu cách khai báo mảng, nhập, in, truy cập phần tử mảng
* Kỹ năng
- Hiểu ứng dụng thuật tốn tìm số lớn nhất, số nhỏ dãy số
II/ CHUẨN BỊ * Giáo viên
- Sách giáo khoa, giáo án, máy chiếu
* Học sinh
- Vở ghi, sách giáo khoa
III/ TI N TRÌNH GI D YẾ Ờ Ạ
HĐ CỦA GV & HS GHI BẢNG
Hoạt động
- GV: Yêu cầu HS đọc ví dụ (SGK Tr 78) - GV: Giới thiệu thuật toán tìm MAX (số lớn dãy số nguyên nhập từ bàn phím)
- Sau giới thiệu xong thuật tốn tìm Max giáo viên hướng dẫn HS xác định biến, kiểu biến viết khai báo biến; viết câu lệnh thực bước nhập N, nhập phần tử mảng, tìm Max, in Max hình - GV: Từ hướng dẫn giúp HS hiểu đoạn cương trình GV đưa chương trình đầy đủ
3 Tìm giá trị lớn nhỏ của dãy số
Thuật tốn tìm Max dãy số ngun nhập từ bàn phím sau:
Bước Nhập N dãy A1, , An
Bước Max A1
Bước Lần lượt gán giá trị từ đến
N cho i Với giá trị i thực hiện: Nếu Max <Ai MaxAi Bước Đưa hình giá trị Max kết thúc
(76)Hoạt động
- GV: Yêu cầu HS nhập lại chương trình vừa học, dịch, chạy chương trình nhận xét kết
- HS: Đọc ví dụ SGK
- HS: Chú ý quan sát ghi chép
- HS: Theo hướng dẫn thực yêu cầu GV
- HS: Hình thành đoạn chương trình quan sát, ghi chép lại chương trình đầy đủ GV đưa
- HS: Khởi động máy tính thực hành
Var
i, N, Max : integer;
A: array[1 100] of integer;
Begin
{Nhap N}
write('Hay nhap dai cua day so, N = '); readln(N);
{Nhap day so}
writeln('Nhap cac phan tu cua day so:');
For i:=1 to N do
Begin
write('a[',i,']='); readln(a[i]); End;
{Tim Max} Max:=a[1];
for i:=2 to n doif Max<a[i] then
Max:=a[i];
{Hien thi Max man hinh}
write('So lon nhat la Max = ',Max); readln;
End
Thực hành
IV/ CỦNG CỐ
- GV củng cố lại kiến thức vừa học
- Tự làm lại tập chuẩn bị tốt cho tiết Bài tập
(77)Gi¸o ¸n Tin häc - Năm học 2009- 2010 Bi Tp
Câu lệnh Lặp Với Số Lần Chưa Biết Trước
I Mơc tiªu:
1 KiÕn thøc:
Củng cố kiến thức vòng lặp với số lần cha biết trớc 2 Kỹ năng:
Vn dng vũng lặp while câu lệnh ghép viết số toán đơn giản
II/ Chuẩn bị:
Giáo viên: Giáo án, máy tính, sgk Học sinh: Kiến thức cũ, sgk
III:Tiến trình dạy :
HĐ Thầy & Trò Nội Dung Hoạt động :
-Dựa phần kiểm tra cũ HS, GV nhắc lại lần cấu trúc câu lệnh lặp cấu trúc
-Cùng HS tiến hành giải câu hỏi SGK Đối với câu1, 2, liên quan đến phần lí thuyết GV cần gọi HS trả lời củng cố lại
-Riêng 4, GV cần hướng dẫn cho HS thực GV đặt câu hỏi gợi mở cho HS: 1.Theo em chng trỡnh trờn cú thực vòng lặp hay không?
2 Theo cỏc em chương trỡnh trờn thực yờu cầu gỡ? Hoạt động
GV giải thích lại cho HS -GV cho HS đọc đề
Gọi số HS đứng lên trả lời theo yêu cầu
Phần cho điểm em có câu trả lời
-GV giải thích lại cho HS hiĨu
Hoạt động
-Kết thúc phần tập SGK GV cho HS làm thêm vài toán liên quan đến câu lệnh lặp
-GV gọi số HS đứng lên nêu hướng giải cho tốn Gọi HS lên bảng trình bày
-GV cho Hs nhận xét giải thích củng cố lại
-HS giải 1, 2, 3.Nếu có thắc mắc hỏi GV
Bµi
Hãy tìm hiểu cụm câu lệnh sau cho biết với câu lệnh chơng trình thực vịng lặp? Hãy rút nhận xét em!
a) S:=0; n:=0; while S<=10 do
begin n:=n+1; S:=S+n end;
b) S:=0; n:=0; while S<=10 do n:=n+1;S:=S+n;
a) Chơng trình thực vòng lặp
b) Vũng lp chng trỡnh đ-ợc thực vơ tận sau câu lệnh n:=n+1; câu lệnh lặp kết thúc nên điều kiện S=0 luôn đợc thỏa mãn
Nhận xét: Trong câu lệnh thực hiện, điều kiện cần phải đợc thay đổi để sớm hay muộn chuyển sang trạng thái không thỏa mãn Khi vịng lặp đợc kết thúc sau hữu hạn bớc Để làm đợc điều này, câu lệnh câu lệnh lặp while thờng câu lệnh ghộp
Bài
HÃy lỗi câu lệnh sau đây:
a) X:=10; while X:=10 do X:=X+5;
b) X:=10; while X=10 do X=X+5;
c) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;
a) Thõa dÊu hai chÊm ®iỊu kiƯn;
(78)-HS quan sát tập SGK phát biểu -Một số HS nêu ý kiến
HS đọc đề bài5
-HS trả lời em có giải thích
HS đọc nội dung tập Suy nghĩ thực HS ghi vào
-HS lên bảng trình bày
lƯnh g¸n;
c) ThiÕu c¸c tõ khãa begin vµ
end trớc sau lệnh n:=n+1; S:=S+n, vịng lặp trở thành vơ tận
Bµi
Viết thuật tốn chơng trình Pascal có câu lệnh lặp với số lần khơng xác định để tính lũy thừa bậc n của x (tức xn), với n số tự
nhiên x số thực đợc nhập vào từ bàn phím
ThuËt toán:
Bớc 1 Đọc giá trị x vµ n Bíc 2 A 1, k
Bíc 3 NÕu k > n, chun xng bíc
Bíc 4 A = A.x, k k + quay lại bớc
Bớc 5 Thông báo kết A và kết thúc thuật toán
Chơng trình Pascal:
Var n,k: integer; A, LT: real; begin
write(‘Nhap so A= ‘); readln(A);
write(‘Nhap so n= ‘); readln(n);
LT:=1; k:=1;
while k<=n begin LT:=LT*A, k:=k+1 end end.
IV Củng cố
- Củng cố lại nhắc vòng lặp vô hạn cần tránh - Củng cố kiến thức baì tập viết chơng tr×nh - Chuẩn bị cho tiết sau
- Cần học tốt xem lại tập
bµi thùc hµnh 7
xư lý dÃy số chơng trình (T1) I Mục tiêu :
Thực hành khai báo sử dụng biến mảng ; Ôn luyện cách sử dụng câu lệnh lặp if then, for do; Củng cố kĩ đọc, hiểu chỉnh sửa chương trình
Hiểu viết chương trình với thuật tốn tìm giá trị lớn nhất, nhỏ
(79)Gi¸o ¸n Tin häc - Năm học 2009- 2010 II Chuẩn bị :
Giáo viên :
- Tài liệu, GA điện tử
- Đồ dùng dạy học nh máy tính kÕt nèi projector,
Häc sinh :
- Đọc trớc
III : Tin trỡnh gi d yờ
H/Đ CỦA THẦY & TRÒ NỘI DUNG
Chương trình tìm giá trị nhỏ dãy số nguyên P_Min ?
HS chia nhãm lµm thùc hµnh
Viết chơng trình nhập điểm bạn lớp Sau in hình số bạn đạt kết học tập loại giỏi, khá, TB
Tiªu chuÈn:
- Loại giỏi: 8.0 trở lên - Loại khá: 6.5 đến 7.9 - Loại TB: 5.0 đến 6.4 - Loại kém: dới 5.0
HS chia nhóm làm thực hành GV gợi ý:
- Dùng câu lệnh ifthen
Bài 1:
Program P_Min;
Var
i, n, Min : integer;
A: array[1 100] of integer;
Begin
write('Hay nhap dai cua day so, N = '); readln(n);
writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do
Begin
write('a[',i,']='); readln(a[i]); End;
Min:=a[1];
for i:=2 to n do if Min>a[i] then
Min:=a[i];
write('So nho nhat la Min = ',Min); readln;
End
Bµi 2:
Program Phan_loai; uses crt;
Var
i, n, G, Kh, TB, K: integer; A: array[1 100] of real;
Begin clrscr;
write('nhap so HS lop, n= '); readln(n);
writeln('Nhap diem :'); For i:=1 to n do
Begin
(80)End;
G:=0; Kh:= 0; TB:= 0; K:= 0; for i:=1 to n do
Begin
if a[i] >= 8.0 then G:= G + 1;
if a[i] <5.0 then K:= K + 1;
if (a[i] <8.0 ) and (a[i] >=6.5) then Kh:= Kh + 1;
if (a[i] >= ) and (a[i] < 6.5) then TB:= TB + 1;
end;
writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha ');
writeln(TB, ' ban hoc trung binh'); writeln(K, ' ban hoc kem ');
readln;
End
IV/Cñng cè
- NhËn xÐt rót kinh nghiƯm giê học
bµi thùc hµnh 7
xử lý dÃy số chơng trình (T2) I Mục tiªu :
Thực hành khai báo sử dụng biến mảng ; Ôn luyện cách sử dụng câu lệnh lặp if then, for do; Củng cố kĩ đọc, hiểu chỉnh sửa chương trình
Hiểu viết chương trình với thuật tốn tìm giá trị lớn nhất, nhỏ
của dãy số, tính tổng dãy số
II Chuẩn bị : Giáo viên :
- Tài liệu, GA điện tử
- Đồ dùng dạy học nh máy tính kết nối projector,
Học sinh :
- Đọc trớc
III Ti n trình gi d yế ờ ạ :
H/Đ THẦY & TRỊ NỘI DUNG
Chương trình tính tổng dãy số, in hình dãy số vừa nhập
Bµi 1:
Program P_Sum;
Var
i, n, Sum : integer;
(81)Giáo án Tin học - Năm häc 2009- 2010
HS chia nhãm lµm thùc hµnh
Bổ sung chỉnh sửa chơng trình BT2 (tiết 59 ) để nhập loại điểm Toán Ngữ văn bạn Sau in hỡnh :
a/ điểm TB bạn lớp theo công thức:
Điểm TB = (Điểm toán + điểm văn)/2 b/ Điểm TB lớp theo môn Toán Ngữ văn
HS chia nhóm lµm thùc hµnh
Begin
write('Hay nhap dai cua day so, N = '); readln(n);
writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do
Begin
write('a[',i,']='); readln(a[i]); End;
Sum:=0;
for i:=1 to n do Sum:= Sum + a[i]; write('Day so vua nhap la: '); for i:=1 to n do write(a[i], ' '); writeln;
write('Tong day so la = ',Sum); readln;
End
Bµi 2:
Program Xep_loai; uses crt;
Var
i, n: integer;
TBtoan, TBvan: real;
diemT, diemV: array[1 100] of real;
Begin clrscr;
writeln('Diem TB : '); For i:=1 to n do
write(i,' ',(diemT[i] + diemV[i])/2:3:1); TBtoan: =0; TBvan: =0;
For i:=1 to n do
Begin
TBtoan: = TBtoan + diemT[i] ; TBvan: = TBvan + diemV[i] ; end;
TBtoan: = TBtoan /n; TBvan: = TBvan /n;
writeln('Diem TB mon Toan : ',TBtoan : 3:2);
writeln('Diem TB mon Van: ',TBvan : 3:2);
readln;
(82)IV.Cđng cè - NhËn xÐt rót kinh nghiƯm giê học VỊ nhµ - Häc sinh vỊ nhµ ụn bi
- Đọc trớc bài: Quan sát hình không gianvới phần mềm yenka
Tit 61 : QUAN SÁT HÌNH KHƠNG GIAN VỚI PHẦN MỀM YENKA I mục tiêu :
- HS biêt khám phá, hình khơng gian : Thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình
- HS thực kỹ thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình
II Chuẩn bị :
Giáo viên : tài liệu, giáo án Học sinh :
III/ Tiến trình tiết daïy :
H/Đ THÂY & HS NỘI DUNG
Hoạt động 1:
- GV giới thiệu phần mềm chức phần mềm
- HS : Ghi nhớ
- GV Giới thiệu hình làm việc
+ Khởi động HS : Nắm bắt
+ Màn hình làm việc
1 Giới thiệu
- Yenka phần mềm nhánh công ty phần mềm Crocodile tiếng
- Chức phần mềm giúp học sinh thiết kế mơ hình hình khối kiến trúc khơng gian dựa hình khơng gian c/ nhu hình trụ, lăng trụ, hình chóp, hình hộp
2/ Giới thiệu hình làm việc
a/ khởi động :
(83)Gi¸o ¸n Tin học - Năm học 2009- 2010
+ Thoát khỏi phần mềm
c/Thoát khỏi phần mềm : - Alt + F4
IV/ Củng cố :
- Nắm vững chức phần mềm - Các thao tác xử dụng phần mềm
Tiết 62: QUAN SÁT HÌNH KHÔNG GIAN VỚI PHẦN MỀM YENKA (tt) I mục tiêu :
- HS biêt khám phá, hình không gian : Thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình
- HS thực kỹ thay đổi, di chuyển, thay đổi kích thước, thay đổi màu cho hình
II Chuẩn bị :
Giáo viên : tài liệu, giáo án Học sinh :
III/ Tiến trình tiết dạy :
Hoạt động GV – HS Nội dung
Hoạt động
GV : Hướng dẫn HS tạo hình khơng gian tạo mơ hình HS : Nắm vững thao tác
3/ Tạo hình không gian : a/ Tạo mô hình :
(84)GV : Hướng dẫn HS thao tác xoay hình khơng gian 3D-Thao tác phóng to thu nhỏ
HS : Nắm bắt
GV: Hướng dẫn thao tác tạo mới, lưu, mở tệp mơ hình cách xóa đối tượng
Hs : nắm vững thao tác
Chọn hình kéo thả đối tượng vào khu vực tạo đối tượng
Xoay mô hình không gian 3D :
- Nháy vào biểu tượng xoay - Đưa trỏ chuột lên mơ hình
Phóng to , thu nhỏ :
di chuyển khung mô hình :
b/ lệnh tạo mới, lưu, mở tệp mơ hình :
c/ Xóa đối tượng :
- Nhấp chuột vào mô hình cần xóa
Hình trụ
hình chóp Hình lăng
trụ
(85)Gi¸o ¸n Tin học - Năm học 2009- 2010
- Ctrl + A Delete
IV/ Củng cố:
- Yêu cầu HS nắm vững thao tác phân mềm