lá cây xấu hổ sinh học 6 đặng khai nguyên thư viện tư liệu giáo dục

 Thực hành khai báo và sử dụng các 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ĩ năng đọc, hiểu và chỉnh sửa chương trình.  Hiểu và viết được chươn[r]

(1)

Ngày soạn : Ngày dạy :

Tuần Tiết :

Bài 1: Máy tính chơng trình máy tính

A Mơc tiªu :

 BiÕt ngêi chØ dẫn cho máy tính thực công việc thông qua lƯnh

 Biết chơng trình cách để ngời dẫn cho máy tính thực nhiều cơng việc liên tiếp cách tự động

B ChuÈn bị : 1 Giáo viên :

- SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy häc,

2 Häc sinh :

- §äc tríc bµi

- SGK, Đồ dùng học tập C Tiến trình tiết dạy : I ổn định tổ chức lớp :

- KiÓn tra sÜ sè :

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :…… - ổn định trật tự :

II KiĨm tra bµi cị :

Kiểm tra đồ dùng học sinh III Dạy :

hoạt động thày trò kiến thức cần đạt

Hoạt động : Học sinh hiểu ngời điều khiển máy tính thơng qua gì Để mỏy tớnh cú thể thực

một 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

Double click chuột lên biểu tượng hình Desktop lệnh cho MT khởi động phần mềm

Khi thực chép đoạn văn bản, ta lệnh cho máy tính thực hiện?

1 Con ngời lệnh cho máy tính nh thế 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

VD 1: Gõ chữ a bàn phím ta lệnh cho MT ghi chữ a lên hình

VD 2: Sao chép đoạn vb yêu cầu MT thực lệnh: chép ghi vào nhớ chép từ nhớ vị trí

Hoạt động : Tìm hiểu ví dụ rơ bốt qt nhà H : Quan sát nghiên cứu SGK

G : Em phải lệnh để rơbốt hồn thành việc nhặc rác bỏ vào thùng nơi qui định

H : Tr¶ lêi

G : Cho rơbơt chạy mơ hình để hs hình dung trực quan

(2)

H : Quan sát nhớ thao tác thực rôbốt

H : Nhc li lệnh mà robơt phải làm để hồn thành cơng việc

Để rơ-bốt hồn thành nhiệm vụ ta lệnh sau:

Lệnh 1: tiến bước

Lệnh 2: quẹo trái, tiến bước Lệnh 3: nhặt rác

Lệnh 4: tiến bước

Lệnh 5: quẹo phải, tiến bước Lệnh 6: bỏ rác vào thùng

Cñng cè kiÕn thøc.

Sau thực lệnh “Hãy quét nhà” trên, vị trí rơ-bốt gì? Em đa lệnh để rơ-bốt trở lại vị trí xuất phát (góc dới bên trái hình)

Híng dÉn nhà.

(3)

Tuần Tiết 2:

Bài 1: Máy tính chơng trình máy tính (T.T)

A Mơc tiªu :

 Biết viết chơng trình viết lệnh để dẫn máy tính thực cơng việc hay giải tốn cụ thể

 Biết ngơn ngữ dùng để viết chơng trình máy tính gọi ngơn ngữ lập trình  Biết vai trị chơng trình dch

B Chuẩn bị : 1 Giáo viên :

- SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy học ,

2 Học sinh :

- Đọc trớc

- SGK, Đồ dùng học tập, C Tiến trình tiết dạy :

I ổn định tổ chức lớp : - Kiển tra sĩ số :

II KiÓm tra bµi cị :

Con ngêi lƯnh cho máy tính nh ? Lấy ví dụ minh hoạ ? III Dạy :

hot động thày trò kiến thức cần đạt

Hoạt động : Học sinh hiểu viết chơng trình gì.

Trở lại ví dụ rơ-bốt nhặt rác, việc viết lệnh để điều khiển rô-bốt thực chất có nghĩa 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

3 Viết chơng trình : lệnh cho máy tÝnh lµm viƯc

Việc viết lệnh để điều khiển rơ-bốt ví dụ viết chương trình Tương tự, để điều khiển máy tính làm việc, ta phải viết chương trình máy tính

* Tại cần viết chương trình?

(4)

khiển máy tính cách đơn giản hiệu

Hoạt động 2: Tìm hiểu lý phải viết chương trình Giả sử có hai người nói

chuyện với Một người biết tiếng Anh, người biết tiếng Việt Vậy hai người hiểu không?

Tương tự để dẫn cho máy tính cơng việc cần làm ta phải viết chương trình ngơn ngữ máy Tuy nhiên, việc viết chương trình ngơn ngữ máy khó.?

Để 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 chương trình

GV: Mô tả máy chiếu việc lnh cho mỏy tớnh lm vic

4 Chơng trình ngôn ngữ lập trình ? Thụng tin a vo máy tính phải chuyển đổi thành dạng dãy bit (dãy số gồm 1) gọi ngơn ngữ máy

Máy tính “nói” “Hiểu” ngơn ngữ riêng 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)

- Các chương trình dịch đóng vai trị "người phiên dịch" dịch chương trình viết ngơn ngữ lập trình sang ngơn ngữ máy để máy tính hiểu  Như vậy, thông tin đưa vào máy phải chuyển đổi thành dạng dãy bit (dãy tín hiệu kí hiệu 1)

đợc viết ngơn ngữ lập trình sang ngơn ngữ máy để máy tính hiểu đợc

- Chơng trình soạn thảo chơng trình dịch thờng đợc kết hợp vào phần mềm, đợc gọi môi trờng lập trình

Cđng cè kiÕn thøc.

? Qua học em cần ghi nhớ điều H : Trả lời

G : Chốt ghi nhớ hình :

GHI NHớ

1.Con ngời dẫn cho máy tính thực công việc thông qua lệnh

2.Viết chơng trình hớng dẫn máy tính thực công việc hay giải toán cụ thể

3.Ngụn ng dựng vit chơng trình máy tính đợc gọi ngơn ngữ lập trình Hớng dẫn nhà.

(5)

2 Sau thực lệnh “Hãy quét nhà” trên, vị trí rơ-bốt ? Em đa lệnh để rô-bốt trở lại vị trí xuất phát (góc dới bên trái hình)

3 Tại ngời ta tạo ngơn ngữ khác để lập trình máy tính có ngơn ngữ máy mình?

4 Học thuộc phần ghi nhớ

Tuần Tiết 3:

Bài : Làm quen với chơng trình

và ngôn ngữ lập trình A Mục tiêu :

 Biết ngơn ngữ lập trình gồm thành phần bảng chữ quy tắc để viết chơng trình, câu lệnh

 Biết ngơn ngữ lập trình có tập hợp từ khóa dành riêng cho mục đích sử dụng định

 Biết tên ngơn ngữ lập trình ngời lập trình đặt ra, đặt tên phải tuân thủ quy tắc ngôn ngữ lập trình Tên khơng đợc trùng với từ khố.

- SGK, SGV, tài liệu, Giáo án - Đồ dïng d¹y häc ,

2 Häc sinh :

- Đọc trớc

(6)

1 Viết chơng trình ? phải viết chơng trình ?

2 Ngôn ngữ lập trình ? phải tạo ngôn ngữ lập trình ? III Dạy :

Hoạt động : Học sinh hiểu ngơn ngữ lập trình G : Đa ví dụ chơng trình

đơn giản viết mơi trng Pascal

H : Quan sát cấu trúc giao diện chơng trình Pascal

G : Theo em chơng trình đợc dịch sang mã máy máy tính đa kết ?

H : Tr¶ lêi theo ý hiĨu

1 VÝ dụ chơng trình

* Vớ d v chơng trình đơn giản viết Pascal

- Sau chạy chơng trình máy in lên hình dòng chữ Chao cac ban

Hot ng : Học sinh hiểu ngơn ngữ lập trình gồm gì G : Khi nói viết ngoại ngữ để

ng-ời khác hiểu em có cần phải dùng chữ cái, từ cho phép phải đợc ghép theo quy tắc ngữ pháp hay khụng ?

H : Đọc câu hỏi suy nghĩ trả lời G : Ngôn ngữ lập trình gồm ?

H : Nghiên cứu SGK trả lời

G : Chốt khái niệm hình

2 Ngơn ngữ lập trình gồm gì?

Ngơn ngữ lập trình gồm:

- Bảng chữ cái: thường gồm chữ tiếng Anh số kí hiệu khác dấu phép tốn (+, , *, /, ), dấu đóng mở ngoặc, dấu nháy, Nói chung, kí tự có mặt bàn phím máy tính có mặt bảng chữ ngơn ngữ lập trình

- Các quy tắc: cách viết (cú pháp) ý nghĩa chúng; cách bố trí câu lệnh thành chương trình,

(7)

Hoạt động : HS tìm hiểu từ khố tên chơng trình. G : Đa ví dụ chơng trình nh

phần trớc H : Nghiên cứu

G : Theo em từ ch-ơng trình từ khoá

H : Trả lời theo ý hiểu

G : Chỉ từ khoá chơng trình

G : Trong chơng trình đại lợng gọi tên

H : Tr¶ lêi theo ý hiĨu G : Tên ?

G : Cht khái niệm tên giải thích thêm quy tắc đặt tên chơng trình

H : Nghe vµ ghi

3 Từ khoá tên

- Từ khố ngơn ngữ lập trình từ dành riêng, khơng đợc dùng từ khố này cho mục đích khác ngồi mục đích sử dụng ngơn ngữ lập trình quy định

- Tên đợc dùng để phân biệt đại lợng chơng trình ngời lập trình đặt theo quy tắc :

+ Hai đại lợng khác chơng trình phải có tên khác

+ Tên không đợc trùng với từ khố

? Qua tiết học em hiểu đợc điều ? Hãy đặt hai tên hợp lệ hai tên không hợp lệ

G : Tên hợp lệ ngôn ngữ lập trình Pascal khơng đợc bắt đầu chữ số khơng đợc chứa dấu cách (kí tự trống) Do đặt tên STamgiac để diện tích hình tam giác, đặt tên ban_kinh cho bán kính hình trịn, Các tên tên hợp lệ, tên Lop em, 10A, tên khơng hợp lệ

Híng dÉn nhà.

(8)

Tuần : Tiết :

Bài : Làm quen với chơng trình

và ngôn ngữ lập trình A Mục tiêu :

Biết cấu trúc chơng trình bao gồm phần khai báo phần thân chơng trình B Chuẩn bị :

1 Giáo viên :

- SGK, SGV, tài liệu, Giáo án - §å dïng d¹y häc

2 Häc sinh :

- Đọc trớc

- SGK, Đồ dùng học tập, C Tiến trình tiết dạy :

1 Ngôn ngữ lập trình gồm ?

2 Thế từ khoá tên chơng trình ? III Dạy :

Hoạt động : Học sinh hiểu cấu trúc chơng trình G : Đa ví dụ chơng trình

G : Cho biÕt mét ch¬ng trình có phần ?

H : Quan sát chơng trình nghiên cứu sgk trả lời

G : Đa lên hình phần chơng trình

H : Đọc

G : Gii thớch thêm cấu tạo phần

4 CÊu trúc chung chơng trình

- Cấu trúc chung chơng trình gồm: Phần khai báo

o Khai báo tên chơng trình;

o Khai báo th viện (chứa lệnh viết sẵ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 bc ph¶i cã

- Phần khai báo có khơng Tuy nhiên, có phần khai báo phải đợc đặt trớc phần thân chơng trình

Hoạt động : Học sinh hiểu số thao tác NNLT Pascal G : Khởi ng chng trỡnh T.P

xuất hình sau :

5 Ví dụ ngơn ngữ lập trình - Khởi động chơng trình :

(9)

G : Giới thiệu hình soạn thảo T.P

H : Quan sát lắng nghe

G : Giới thiệu bớc để làm việc với chơng trình mơi trờng lập trình T.P

- Từ bàn phím soạn chơng trình tơng tù word

- Sau soạn thảo xong, nhấn phím Alt+F9 để dịch chơng trình

- §Ĩ chạy chơng trình, ta nhấn tổ hợp phím Ctrl+F9

GHI NHỚ

1.Ngơn ngữ lập trình tập hợp kí hiệu quy tắc cho viết lệnh tạo thành chương trình hồn chỉnh chạy máy tính

2.Một chương trình thường có hai phần: Phần khai báo phần thân chương trình

CÂU HỎI VÀ BÀI TẬP

1. Hãy cho biết bước cần thực để tạo chương trình máy tính

2. Ngơn ngữ lập trình có thành phần nào? Những thành phần có ý nghĩa, chức gì?

3. Cấu trúc chương trình gồm phần nào? Phần quan trng nht?

Tuần : Tiết

Bµi thùc hµnh 1 : lµm quen víi turbo pascal

A Mơc tiªu :

 Thực đợc thao tác khởi động/kết thúc TP, làm quen với hình soạn thảo TP  Thực đợc thao tác mở bảng chọn chọn lệnh

 Soạn thảo đợc chơng trình Pascal đơn giản

(10)

B ChuÈn bÞ : 1 Giáo viên :

- SGK, SGV, tài liƯu, Gi¸o ¸n

- Chuẩn bị phịng thực hành đủ số máy tính hoạt động tốt 2 Học sinh :

- Đọc trớc thực hành

- Học thuộc kiến thức lý thuyết học C Tiến trình tiết dạy :

1 CÊu tróc chung chơng trình gồm phần ? Đọc tên chức số từ khoá chơng trình

2 Nờu cỏc bc c bn làm việc với chơng trình Turbo Pascal III Dạy :

Hoạt động : Hớng dẫn ban đầu G : Đóng điện

G : Xác nhận kết báo cáo máy

G : Phổ biến nội dung yêu cầu chung tiết thực hành làm quen với ngôn ngữ lập trình Turbo Pascal.

H : Khi ng kiểm tra tình trạng máy tính => Báo cáo tình hình cho G

H : ổn định vị trí máy

Hoạt động : Giáo viên hớng dẫn H làm 1trên hình lớn. G : Giới thiệu biểu tợng chơng

trình cách khởi động chơng trình cỏch

H : Theo dõi quan sát tìm biểu t-ợng chơng trình máy

G : Giới thiệu hình TP

H : Quan sát khám phá thành phần hình TP

G : Giới thiệu thành phần hình Turbo Pascal

H : Quan sát

Bài 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 nền;

Cách 2: Nháy đúp chuột tên tệp Turbo.exe th mục chứa tệp (thờng th mc TP\BIN)

b Quan sát hình Turbo Pascal so sánh với hình 11 SGK

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

(11)

G : Gii thiu làm mẫu cách mở hệ thống thực đơn (menu) cách di chuyển vệt sáng, chọn lệnh thực n

H : Làm theo máy quan sát lệnh menu G : Giới thiệu cách thoát khỏi TP H : Làm thử máy tính

G : Theo dõi quan sát thao tác thực H máy h-ớng dẫn thêm

e Nhn phớm Enter để mở bảng chọn f Quan sát lệnh bảng chọn - 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 File F, bảng chọn Run 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

Hoạt động : Giáo viên hớng dẫn H làm hình lớn. H : Gõ chơng trình phần a sgk

G : Mở chơng trình chuẩn bị sẵn từ mỏy ch

H : Đọc hiểu ý sgk

H : Làm theo cách c¸c bíc b, c, d sgk

G : Theo dõi hớng dẫn máy

G : dịch chạy chơng trình máy chủ

H : Quan sát đối chiếu kết máy

Bài Soạn thảo, lu, dịch chạy chơng trình đơn giản

program CT_Dau_tien; uses crt;

begin

clrscr;

writeln('Chao cac ban'); write('Toi la Turbo Pascal'); end.

- Nhấn tổ hợp phím Alt+F9 để dịch chơng trình - Nhấn tổ hợp phím Ctrl+F9 để chạy chơng trình - Sau nhấn Alt+F5 để quan sát kết

TiÕt :

Hoạt động : Giáo viên hớng dẫn H làm hình lớn. H : Làm theo bớc yêu cầu

SGK

G : Thờng xuyên máy kiểm tra, theo dâi vµ híng dÉn thĨ G : Lµm bớc a, b máy chủ giải thích số lỗi cho H hiểu H : Quan sát lắng nghe giải thích

Bài Chỉnh sửa chơng trình nhận biết số lỗi

(12)

G : Đa lên hình nội dung chính cần đạt tiết thực hành (SGK) H : Đọc lại.

H : Đọc phần đọc thêm SGK G : Có thể giải thích thêm

Tæng kÕt : SGK

NhËn xÐt sau tiÕt thùc hµnh :

Híng dÉn vỊ nhµ.

Đọc chuẩn bị : Chơng trình máy tính liệu

TuÇn : TiÕt :

Bµi thùc hµnh 1 : lµm quen víi turbo pascal

A Mơc tiªu :

 Thực đợc thao tác khởi động/kết thúc TP, làm quen với hình soạn thảo TP  Thực đợc thao tác mở bảng chọn chọn lệnh

 Biết cách dịch, sửa lỗi chơng trình, chạy chơng trình xem kết  Biết cần thiết phải tuân thủ quy định ngôn ngữ lập trình

B Chn bÞ : 1 Giáo viên :

- SGK, SGV, tài liệu, Gi¸o ¸n

- Chuẩn bị phịng thực hành đủ số máy tính hoạt động tốt 2 Học sinh :

- Hc thuộc kiến thức lý thuyết học C Tiến trình tiết dạy :

1 CÊu tróc chung chơng trình gồm phần ? Đọc tên chức số từ khoá chơng tr×nh

2 Nêu bớc để làm việc với chơng trình Turbo Pascal III Dạy :

(13)

G : Xác nhận kết báo cáo tõng m¸y

H : Khởi động kiểm tra tình trạng máy tính => Báo cáo tình hình cho G

H : ổn định vị trí máy Hoạt động : Giáo viên hớng dẫn H làm 3.

H : Lµm theo bớc yêu cầu SGK

G : Thờng xuyên máy kiểm tra, theo dõi hớng dẫn cụ thể G : Làm bớc a, b máy chủ giải thích số lỗi cho H hiểu H : Quan sát lắng nghe giải thích

Bài Chỉnh sửa chơng trình nhận biết số lỗi

Hot ng : Giáo viên tổng kết nội dung tiết thực hành. G : Đa lên hình nội dung

cần đạt tiết thực hành (SGK)

H : §äc l¹i

H : Đọc phần đọc thêm SGK G : Có thể giải thích thêm

Tỉng kÕt : SGK

(14)

Tuần : Tiết

Bài : CHƯƠNG TRìNH MáY TíNH Và Dữ LIệU

A Mơc tiªu :

 Biết khái niệm kiểu liệu;

 Biết số phép toán với liệu số; B ChuÈn bÞ :

1 Giáo viên :

- SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy học

2 Học sinh : - Kiến thức học. - Đọc trớc - SGK, Đồ dùng học tập C Tiến trình tiết dạy : I ổn định tổ chức lớp :

II KiĨm tra bµi cị : III Dạy :

hot ng ca thy v trò kiến thức cần đạt

Hoạt động : Học sinh tìm hiểu liệu kiểu liệu. G : Nêu tình để gợi ý

về liệu kiểu liệu G : Đa lên hình ví dụ SGK

H : Quan sát để phân biệt đ-ợc hai loại liệu quen thuộc chữ số

G : Ta thực phép toán với liệu kiểu ?

H : Nghiên cứu SGK trả lêi víi kiĨu sè

G : Cịn với kiểu chữ phép tốn khơng có nghĩa

G : Theo em có kiểu liệu ? Lấy ví dụ cụ thể kiểu liệu H : Nghiên cứu SGK trả lời SGK, Đồ dùng học tập, bảng phụ

G : Chốt hình

1 Dữ liệu kiểu liệu.

Ví dụ 1: Minh hoạ kết thực chơng trình in hình với kiểu liệu quen thuộc chữ số

- Cỏc ngụn ng lp trình định nghĩa sẵn số kiểu liệu bn

Dới số kiểu liệu thêng dïng nhÊt:

 Sè nguyªn, vÝ dơ sè häc sinh cđa mét líp, sè s¸ch th viƯn,

(15)

kiểu liệu giải thích thêm

G : Trong ngụn ngữ lập trình có kiểu liệu hay cịn nhiều ? H : Nghiên cứu SGK trả lời G : Đa lên hình ví dụ SGK để giới thiệu tên số kiểu liệu NNLT pascal

G : Đọc tên kiểu liệu Integer, real, char, string H : Đọc lại

H : Viết tên ý nghĩa kiểu liệu TP G : Đa ví dụ : 123 123 H : Đọc tên hai kiểu liệu

G : Đa ý kiểu liệu char string

Xâu kí tự (hay xâu) dÃy "chữ cái" lấy từ bảng chữ ngôn ngữ lập trình, ví dụ: "Chao cac ban", "Lop 8E", "2/9/1945"

- Ngôn ngữ lập trình cụ thể cịn định nghĩa nhiều kiểu liệu khác Số kiểu liệu tên kiểu liệu ngơn ngữ lập trình khác

Ví dụ Bảng dới liệt kê số kiểu liệu cơ ngôn ngữ lập trình Pascal:

Chú ý: D liu kiu kí tự kiểu xâu Pascal đặt cặp dấu nháy đơn

Hoạt động : HS tìm hiểu, làm quen với phép tốn kiểu liệu số. G : Viết lên bảng phụ

phép toán số học dùng cho liệu kiểu số thực số nguyên ?

H : Viết giơ bảng phụ có hiệu lệnh G

G : Đa lên hình bảng kí hiệu phép toán dùng cho kiểu số thực số nguyên H : Quan sát để hiểu cách viết ý nghĩa phép toán ghi

2 Các phép toán với liệu kiểu số.

- Bảng dới kí hiệu phép tốn số học ngơn ngữ Pascal:

Tªn kiểu Phạm vi giá trị

integer Số nguyên kho¶ng 2

15 đến 215  1.

real

Số thực có giá trị tuyệt đối khoảng 2,910-39 đến 1,71038 và số 0.

char Mét kí tự bảng chữ

(16)

G : Đa số ví dụ sgk giải thích thêm

H : Quan sát, lắng nghe ghi

G : Đa phép toán viết dạng ngôn ngữ toán học :

8 xy

x

yêu cầu H viết biểu thức ngôn ngữ TP

H : Viết giơ bảng phụ có hiệu lệnh G

G : Yêu cầu H viết lại phép toán x y (x 2)2

a b 

 



ngôn ngữ TP

H : Làm bảng phụ

G : Nhận xét đa bảng ví dụ SGK

H : Nêu quy tắc tính biểu thức số học

G : Nhận xét chốt hình

G : Viết lại biểu thức ngôn ngữ lập trình Pascal (a b)(c d) 6 a

3   

 ? H : ViÕt SGK, §å dïng häc tËp, b¶ng phơ

G : NhËn xÐt đa ý

Dới ví dụ phép chia, phép chia lấy phần nguyên phép chia lấy phần d:

5/2 = 2.5; 12/5 = 2.4 div = 2; 12 div = 2 mod = 1; 12 mod = 2

- Ta cã thĨ kÕt hỵp phép tính số học nói ngôn ngữ lập trình Pascal ví dụ :

Ngôn ngữ toán Ngôn ngữ TP

a b c + d a*b-c+d

a 15

2

  15+5*(a/2)

2

x y

(x 2) a b



 

 

(x+5)/(a+3)-y/ (b+5)*(x+2)*(x+2)

Quy t¾c tÝnh c¸c biĨu thøc sè häc:

 Các phép tốn ngoặc đợc thực trớc tiên;  Trong dãy phép tốn khơng có dấu ngoặc,

phép nhân, phép chia, phép chia lấy phần nguyên phép chia lấy phần d đợc thực trớc;

 Phép cộng phép trừ đợc thực theo thứ tự từ trái sang phải

Chó ý: Trong Pascal (và hầu hết ngơn ngữ lập trình nói chung) phép sử dụng cặp dấu ngoặc tròn () để gộp phép tốn Khơng dùng cặp dấu ngoặc vuông [] hay cặp dấu ngoặc nhọn {} tốn học

H : Nhắc lại kiến thức cần đạt đợc G : Chốt lại kiến thức trọng tâm Hớng dẫn nhà.

KÝ hiÖu PhÐp toán Kiểu liệu

+ 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

(17)

(18)

Tuần : Tiết

Bài : CHƯƠNG TRìNH MáY TíNH Và Dữ LIệU (T.T)

A Mục tiêu :

 BiÕt c¸c phÐp to¸n so s¸nh ngôn ngữ lập trình

Bit khỏi nim điều khiển tương tác người với máy tính B Chuẩn bị :

1 Giáo viên :

- SGK, SGV, tài liệu, Giáo án

- Đồ dùng dạy học nh máy tính, projector, 2 Học sinh : - Kiến thức học.

- §äc tríc bµi míi

- SGK, §å dïng häc tập, bảng phụ C Tiến trình tiết dạy :

II KiĨm tra bµi cò :

(?) Nêu số kiểu liệu mà em đợc học? Lấy ví dụ minh hoạ?

(?) Nêu số phép toán số học có ngôn ngữ Pascal? Lấy ví dụ?

(?) Hóy nêu hai kiểu liệu phép tốn thực đợc kiểu liệu, nhng phép tốn khơng có nghĩa kiểu liệu

(?) D·y ch÷ sè 2010 cã thể thuộc kiểu liệu nào? HS : Trả lời

GV : Nhận xét cho điểm III Dạy :

Hoạt động : HS biết ý nghĩa cách viết phép toán so sánh TP G : Đa lên hình bảng kí hiệu

c¸c phÐp to¸n so s¸nh to¸n häc

G : Các phép tốn so sánh dùng để làm ?

H : Nghiªn cøu SGK tr¶ lêi

- để so sánh số, biểu thức với

G : §a vÝ dô : a)  = b) 15 + > 20  c) + x ≤ 10

H : ViÕt b¶ng phơ kÕt so sánh a, b, c

G : Theo em phép so sánh viết ngôn ngữ TP có giống

3 Các phép so sánh

- Bảng kí hiệu phép so sánh viết ngôn ngữ Pascal:

Kí hiệu trong

Pascal PhÐp so s¸nh KÝ hiƯu to¸nhäc

= B»ng =

<> Khác

< Nhỏ <

<= Nhỏ

> Lớn >

>= Lớn

Ví dụ: 3*2> 4; 5=5; 5<>6; … => kết ỳng

(19)

trong toán học không ? H : Trả lời theo ý hiểu G : Đa lên hình bảng

Hot ng : HS làm quen với số dạng hình giao tiếp với máy tính G : Đa ví dụ bảng thụng bỏo kt

quả

H : Quan sát, lắng nghe G giải thích

G : Đa lên hình hộp thoại nhập liệu

G : Em phải làm xuất hộp thoại ?

H : Tr¶ lêi theo ý hiĨu G : Nhận xét giải thích

G : Nêu hai tình tạm ngừng hình kết thông qua lệnh hộp thoại

G : Giải thích tình

H : Lng nghe để hiểu G : Đa ví dụ hp thoi

H : Quan sát lắng nghe G giải thích

4 Giao tiếp ngời - máy tính a) Thông báo kết tính toán

- LÖnh :

write('Dien tich hinh tron la ',X);

- Thông báo :

b) Nhập liệu

- LÖnh :

write('Ban hay nhap nam sinh:'); read(NS);

- Thông báo :

c) Chơng trình t¹m ngõng

- LƯnh :

Writeln('Cac ban cho giay nhe '); Delay(2000);

Thông báo :

- LÖnh :

writeln('So Pi = ',Pi); read; {readln;}

- Thông báo :

d) Hộp thoại

H : Nhắc lại kiến thức cần đạt đợc G : Chốt lại kiến thức trọng tâm H : Đọc phần ghi nhớ sgk

(20)

1 Làm tập 5,

2 Học thuộc phần ghi nhớ

(21)

Ngày soạn : Ngày d¹y :

Tuan Tiết:9

Bài thực hành 2: Viết Chương Trình Để Tính Toán

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:

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :……

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 Câu lệnh: Writeln('5+20=',20+5); in hình: 5+20=25

HS2: Xác định kết biểu thức đây: 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

Hs: làm 1a

HS: lắng nghe làm Hs: lên làm

(22)

-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: trong q trình thực hành những phần quan trọng yêu cầu hs nên ghi lại vào vở.

- Gv: nhắc nhở Hs phải ý sử dụng đú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ắ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

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

4.dặn dị:

(23)

Ngàysoạn:…./…./… Ngày dạy:…./…./…

Tuan : 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:

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :……

2 Bài cũ:

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

- 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 tốn học pascal tránh nhầm lẫn với kí hiệu tóan học

Hs: thực hành Hs: trả lời

Hs: lắng nghe thực hành

Hs: thực hành

(24)

- Gv: yêu cầu hs thực hành theo thứ tự từ câu 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ê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

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 soạn : Ngày dạy:

Tuần 6: TiÕt 11:

(25)

A Môc tiêu :

Học sinh biết vai trò biến lập trình; Học sinh biết khái niệm biến

- Đồ dùng dạy học nh máy tính, projector, 2 Häc sinh :

- §äc tríc

- SGK, Đồ dùng học tập, bảng phụ C Tiến trình tiết dạy :

1 Viết lệnh in lên hình thông báo : 20 + = Viết lệnh in lên hình kết phép toán : 20+5

3 Vit lệnh điều khiển máy dừng lại đến nhấn phím enter tiếp tục Viết lệnh nhập liệu vo t bn phớm

III Dạy :

Hoạt động : Học sinh biết vai trị biến lập trình. H : Đọc SGK để hiểu

biÕn

G : Biến ? Biến có vai trò chơng trình ?

G : Viết lệnh in kết phép cộng 15+5 lên hình ? H : Viết bảng phụ

G : Muốn in lên hình kết phép tính khác làm ?

H :

G : Đa hình ảnh lên hình phân tích gợi mở

H : Quan sát, lắng nghe để hiểu biến vai trò biến

H : Đọc thầm ví dụ

G : Trình bày cách tính hai biểu thức bên ?

H : Nghiên cứu SGK trả lời G : Đa cách làm phân

1 Biến công cụ lËp tr×nh.

- Biến đợc dùng để lu trữ liệu liệu n y thay đổi thực chơng trình

- Dữ liệu biến lu trữ đợc gọi giá trị biến * Ví dụ :

In kết phép cộng 15+5 lên hình viết lệnh : writeln(15+5);

In lên hình giá trị biến x + giá trị biến y viết lƯnh :

writeln(X+Y);

* VÝ dơ :

Tính in giá trị biểu thức 100 50

 vµ 100 50

5 

(26)

tÝch X  100 + 50 Y  X/3 Z  X/5

Hoạt động : HS biết khái niệm biến H : Đọc thầm nghiên cứu SGK

G : ViÖc khai báo biến gồm khai báo ?

H : Trả lời

G : Đa ví dụ SGK phân tích thành phần

H : Lắng nghe nắm vững kiến thức

G : ViÕt mét vÝ dơ vỊ khai b¸o biÕn råi giải thích thành phần ? H : Làm theo nhóm vào bảng phụ

G : Thu kết nhận xét cho điểm

G : Vit dng tng quát để khai báo biến chơng trình H : Quan sát ví dụ viết theo nhóm

G : Kiểm tra kết nhóm đa dạng tổng quát

H : Quan sát ghi

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 * Ví dụ :

Trong :

- 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), - S, dientich biến cã kiĨu thùc (real), - thong_bao lµ biÕn kiĨu xâu (string)

Dạng tổng quát :

Var danh sách tên biến : kiểu biến ;

Trong Pascal, khai báo sau cho khai báo biến số ?

a) var tb: real; b) var 4hs: integer; c) const x: real; d) var R = 30; Hãy cho biết kiểu liệu biến cần khai báo dùng để viết chơng trình để giải tốn dới đây:

a) Tính diện tích S hình tam giác với độ dài cạnh a chiều cao t-ơng ứng h (a h số tự nhiên đợc nhập vào từ bàn phím)

b) TÝnh kÕt qu¶ c cđa phÐp chia lấy phần nguyên kết d phép chia lấy phần d hai số nguyên a b

(27)

1 Nắm vững khái niệm biến chức biến chơng trình Học thuộc cách khai báo biến lấy ví dụ

(28)

TuÇn : TiÕt 12 :

Bài 4: Sử dụng biến chơng trình (t.T)

A Mục tiêu :

HS hiểu cách sử dụng biến lệnh gán

Biết khái niệm cách sử dụng số chơng trình ; B Chuẩn bị :

1 Giáo viên :

- SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy học,

2 Học sinh :

- Đọc trớc

- SGK, Đồ dùng học tập, C Tiến trình tiết dạy : I ổn định tổ chức lớp :

1 Biến dùng để làm chơng trình ? Lệnh Readln(x) có tác dụng ? Viết cách khai báo biến cho ví dụ c th ?

III Dạy :

Hoạt động : Học sinh biết cách sử dụng biến chơng trình. G : Sau khai bỏo bin, mun

sử dụng biến phải làm cho biến có giá trị cách (nhập gán)

H : Viết lệnh nhập giá trị cho biến y vào bảng phụ

G : Khi khai báo biến y thuộc kiểu Interger phải nhập giá trị cho biến y nh ?

H : Nghiên cứu sgk trả lời

G : Khi nhập gán giá trị cho biến giá trị cũ có bị hay không ?

H : Nghiên cứu sgk trả lời G : Giới thiệu cấu trúc lệnh gán H : Nghiên cứu ví dụ sgk để hiểu hoạt động lệnh gán

G : Đa hình bảng ví dơ vỊ lƯnh g¸n

LƯnh ý nghÜa

X:=12;

3 Sử dụng biến chơng trình

- Muốn sử dụng biến ta phải thực thao t¸c :

+ Khai báo biến thuộc kiểu ú

+ Nhập giá trị cho biến hoặc gán giá trị cho biến + Tính toán với giá trị cña biÕn

- Lệnh để sử dụng biến :

+ Lệnh nhập giá trị cho biến từ bàn phím : Readln(tên biến);

+ Lệnh gán giá trị cho biến :

Tên biến := Biểu thức cần gán giá trị cho biến;

- Ví dụ :

(29)

Gán giá trị lu bin nhYvo bin nhX

X:=(a+b)/2;

Tăng giá trị cđa biÕn nhíX

lên đơn vị, kết gỏn tr li binX

H : Điền vào « trèng lƯnh hc ý nghÜa cđa lƯnh

G : Nhận xét chốt bảng nh SGK

X:=12; Gán giá trị số 12 vào biến nhớX. X:=Y; Gán giá trị lu biến nhớY

vµo biÕn nhíX

X:=(a+b)/2; Thùc hiƯn phÐp to¸n tÝnh trung

bình cộng hai giá trị nằm hai biến nhớ a b. Kết gán vào biến nhớX

X:=X+1; Tăng giá trị biến nhớ X lên 1

đơn vị, kết gán trở lại biếnX

Hoạt động : HS biết khái niệm cách sử dụng chơng trình H : Đọc sgk hiu th no l

hằng cách khai báo nh ?

G : Nêu khái niệm ngắn gọn ?

H : Trả lời

G : Viết cách khai báo h»ng sè vµ vÝ dơ thĨ

H : ViÕt b¶ng phơ

G : Nhận xét chốt khái niệm hằng, cách khai báo hằng, ví dụ G : Có thể dùng lệnh gán để thay đổi giá trị không ? Khi cần thay đổi giá trị ta làm nh ?

H : N/c sgk tr¶ lêi

4 H»ng

- Hằng đại lợng để lu trữ liệu có giá trị khơng đổi suốt q trình thực chơng trình

- C¸ch khai báo :

Const tên =giá trị h»ng ; VÝ dơ :

H : Đọc phần ghi nhớ sgk G : Chốt khái niệm biến

1. Gi sử A đợc khai báo biến với kiểu liệu số thực, X biến với kiểu dữ liệu xâu Các phép gán sau có hợp lệ khơng?

a) A:= 4; b) X:= 3242;

c) X:= '3242'; d) A:= 'Ha Noi' Híng dÉn vỊ nhµ.

(30)

Ngày soạn: Ngày dạy :

Tu©n7: TiÕt 13

Bài thực hành : khai báo sử dụng biến

A Mục tiêu :

 Bước đầu làm quen cách khai báo sử dụng biến chương trình

B Chuẩn bị :

1 Giáo viên :

- SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy học máy tính,

- Chuẩn bị phịng thực hành đủ số máy tính hoạt động tốt 2 Học sinh :

- Đọc trước thực hành

- Học thuộc kiến thức lý thuyết tập học

C Tiến trình tiết dạy : I ổn định tổ chức lớp :

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :……

II Kiểm tra cũ :

Kiểm tra trình thực hành III D y b i m i :ạ

Hoạt động : Hướng dẫn ban đầu

G : Đóng điện

G : Phổ biến nội dung yêu cầu chung tiết thực hành viết chương trình để tính tốn.

Hoạt động : Giáo viên yêu cầu HS gõ chương trình phần a program Tinh_tien;

uses crt;

var

soluong: integer;

dongia, thanhtien: real; thongbao: string;

const phi=10000;

begin

clrscr;

thongbao:='Tong so tien phai

Bài 1. Viết chương trình Pascal có khai báo sử dụng biến

(31)

thanh toan : ';

{Nhap don gia va so luong hang} write('Don gia = ');

readln(dongia); write('So luong = ');readln(soluong);

thanhtien:= soluong*dongia+phi; (*In so tien phai tra*)

writeln(thongbao,thanhtien:10:2); readln

end

mua mặt hàng

Hoạt động 3: Hướng dẫn HS làm phần b, c, d.

b) Lưu chương trình với tên TINHTIEN.PAS Dịch chỉnh sửa lỗi gõ, có

c) Chạy chương trình với liệu (đơn giá số lượng) sau (1000, 20), (3500, 200), (18500, 123) Kiểm tra tính kết in d) Chạy chương trình với liệu (1, 35000) Quan sát kết nhận

Hãy thử đốn lí chương trình cho kết sai

Hướng dẫn nhà.

(32)

Ngàysoạn: Ngày dạy: Tuan 7:

Tiết: 14

Bài thực hành 3: khai báo sử dụng biến (T.T)

A Mục tiêu :

 Bước đầu làm quen cách khai báo sử dụng biến chương trình

1 Giáo viên :

- SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy học máy tính,

- Chuẩn bị phịng thực hành đủ số máy tính hoạt động tốt 2 Học sinh :

- Đọc trước thực hành

- Học thuộc kiến thức lý thuyết tập học

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :……

Hoạt động : Hướng dẫn ban đầu

G : Đóng điện

G : Phổ biến nội dung yêu cầu chung tiết thực hành viết chương trình để tính tốn.

(33)

program hoan_doi;

var x,y,z:integer;

begin

read(x,y); writeln(x,' ',y); z:=x;

x:=y; y:=z;

writeln(x,' ',y); readln

end.

Bài 2. Thử viết chương trình nhập số nguyên x y, in giá trị x y hình Sau hốn đổi giá trị x y in lại hình giá trị x y.

Hoạt động : Tìm hiểu thêm cách in liệu hình.

G: hướng dẫn Câu lệnh Pascal writeln(<giá trị thực>:n:m) dùng để điều khiển cách in số thực hình; giá trị thực là số hay biểu thức số thực n, m số tự nhiên n quy định độ rộng in số, m số chữ số thập phân Lưu ý kết in hình thẳng lề phải

Hoạt động : Giáo viên tổng kết nội dung tiết thực hành.

G : Khái quát nội dung cần đạt tiết thực hành (SGK)

H : Đứng chỗ đọc lại

G : Có thể giải thích thêm (nếu cần)

Tổng kết : SGK

2. Kí hiệu phép tốn số học Pascal: +, -, *, /, mod div

3. Các lệnh làm tạm ngừng chương trình:  delay(x) tạm ngừng chương trình

vịng x phần nghìn giây, sau tự động tiếp tục chạy

 read readln tạm ngừng chương trình người dùng nhấn phím Enter

4. Câu lệnh Pascal writeln(<giá trị thực>:n:m) được dùng để điều khiển cách in số thực hình; giá trị thực là số hay biểu thức số thực n, m số tự nhiên n quy định độ rộng in số, m số chữ số thập phân Lưu ý kết in hình thẳng lề phải

Ngàysoạn: Ngày dạy:

(34)

Bµi tËp A Mơc tiªu :

 Cđng cè kiÕn thức kiểu liệu, phép toán với kiểu liệu số, phép so sánh giao tiếp ngời máy

Rèn luyện kĩ sử dụng phép toán ngôn ngữ Pascal B Chuẩn bị :

1 Giáo viên :

- SGK, SGV

- Đồ dùng dạy học 2 Học sinh : - Kiến thức học.

- Lµm bµi tËp sau bµi : Chơng trình máy tính liệu - SGK, Đồ dïng häc tËp, b¶ng phơ

- KiĨm tra viƯc chuẩn bị nhà học sinh III Dạy :

hot ng ca thy trò kiến thức cần đạt

Hoạt động : Chốt lại kiến thức trọng tâm để áp dụng làm tập G : Trong TP có kiểu d liu

cơ ?

G : Đa mẫu bảng tổng kết

Kiểu dữ

liƯu Tªn kiĨu VÝ dơ

Sè

nguyªn Integer 39

H : Đọc ghi nhớ G : Đa mẫu bảng :

Tên phép toán

KÝ hiƯu KiĨu d÷

liƯu VÝ dơ

Céng + Sè

nguyªn, sè thùc

5+7 = 12

H : Đọc ghi nhớ

G : Viết tên lệnh in hình ? H : Viết lên SGK, Đồ dùng học tập, bảng phụ

G : Viết tên lệnh nhập liệu ? H : Viết SGK, Đồ dùng học tập, bảng phụ

G : Yêu cầu H viết lệnh tạm dừng H : Viết SGK, Đồ dùng học tập, bảng phụ

1 Kiểu liệu :

- Interger : Sè nguyªn - Real : Sè thùc

- Char : KÝ tù - String : Xâu kí tự

2 Các phép toán b¶n : - Céng : +

Trõ : Nh©n : * - Chia : /

- Chia lấy phần nguyên, phần d : Div, mod 3 Một số lệnh để giao tiếp giữa

ngời máy.

(35)

G : Nhận xét đa dạng toán

áp dụng c) Chơng trình tạm ngừng

Hot ng : Chữa tập SGK. H : Đọc đề

H : Đọc câu trả lời chuẩn bị nh

H : Nhận xét bạn G : Chèt

H : Đọc đề phần làm nhà

G : Nhận xét đa đáp án

H : Đọc kết làm nhà

G : Nhận xét đa đáp án ỳng

Bài :

Có thể nêu ví dụ sau đây:

a) D liu kiu số liệu kiểu xâu kí tự Phép cộng đợc định nghĩa liệu số, nh-ng khơnh-ng có nh-nghĩa liệu kiểu xâu. b) Dữ liệu kiểu số nguyên liệu kiểu số thực Phép chia lấy phần nguyên phép chia lấy phần d có nghĩa liệu kiểu số ngun, nhng khơng có nghĩa liệu kiểu số thực.

Bµi :

Dãy chữ số 2010 liệu kiểu liệu số nguyên, số thực kiểu xâu kí tự Tuy nhiên, để chơng trình dịch Turbo Pascal hiểu 2010 liệu kiểu xâu, phải viết dãy số cặp dấu nháy đơn (')

var a: real; b: integer; c: string; begin writeln('2010'); writeln(2010); a:=2010; b:=2010; c:=’2010’ end

Bµi :

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 + nh sau: 5+20=25

Bài : Viết lại phép to¸n b»ng TP a) a c

b d ; b) ax2 bx c

  ;

b) ax2 bx c

  ;

c)1 a(b 2) x 5  ; d) (a2 b)(1 c)3

 

a) a/b+c/d;

b) a*x*x+b*x+c ; b) a*x*x+b*x+c ;

c)1/x-a/5*(b+2); d) (a*a+b)*(1+c)*(1+c) *(1+c) d) (a*a+b)*(1+c)*(1+c) *(1+c)

Hoạt động : Chữa tập câu a chuẩn bị cho tiết thực hành G : Yêu cầu H làm câu a

(36)

SGK, Đồ dùng học tập, bảng phụ H : Lµm viƯc theo nhãm

G : NghiƯm thu kết nhóm Nhận xét cho điểm

a) 15 30 12   ; b) 10 18

3 

   ; c)

2

(10 2) (3 1)



 ; d)

2

(10 2) 24 (3 1)  



G : Chốt lại kiến thức trọng tâm cần nắm đợc để ỏp dng lm bi

Tuần 8: Tiết 16

KiĨm tra tiÕt A Mơc tiªu :

 KiĨm tra kiÕn thøc häc sinh vỊ : B Chuẩn bị :

1 Giáo viên :

Chuẩn bị đề kiểm tra 2 Học sinh :

Ôn lại kiến thức học C Tiến trình tiết dạy : I ổn định tổ chức lớp :

8A : 8E : 8B :

(37)

Mức độ

Nội dung Biết Hiểu Vn dng

III Dạy :

Hoạt động : Giáo viên phát đề cho học sinh Đề :

Phần : Trắc nghiệm khách quan : Mỗi câu đợc 0,5 điểm Khoanh trịn vào đáp án nhất.

C©u : Trong tên sau đây, tên hợp lệ ngôn ngữ Pascal

a 8a b tamgiac c program d bai tap

C©u : Để chạy chơng trình Turbo Pascal ta dùng tổ hợp phím ?

a Ctrl F9 b Alt – F9 c F9 d Ctrl – Shitf – F9

Câu : Trong Pascal, khai báo sau cho khai báo biến ?

a Var tb: real; b Type 4hs: integer; c Const x: real; d Var R = 30; Câu : Biểu thức toán học (a2 + b)(1 + c)3 đợc biểu diễn Pascal nh ?

a (a*a + b)(1+c)(1 + c)(1 + c) b (a.a + b)(1 + c)(1 + c)(1 + c) c (a*a + b)*(1 + c)*(1 + c)*(1 + c) d (a2 + b)(1 + c)3

C©u : Writeln ( Ban hay nhap nam sinh ); ‘ ’ Readln (NS);

ý nghÜa cđa hai c©u lệnh :

a Thông báo hình dòng chữ : Ban hay nhap nam sinh b Yêu cầu ngời sử dụng nhập giá trị cho biến

c Thông báo hình dòng chữ : Ban hay nhap nam sinh yêu cầu ngời sử dụng nhập giá trị cho biến NS

d Tt c u sai

Câu : Bốn bạn A, B, C, D đa kết phép chia, phép chia lấy phần nguyên lấy phần d hai số nguyên 14 nh sau :

A 14/5 =2 ; 14 div = ; 14 mod = B 14/5 =2.8 ; 14 div = ; 14 mod = C 14/5 =2.8 ; 14 div = ; 14 mod = D 14/5 =3 ; 14 div = ; 14 mod = Hãy chọn bạn làm

PhÇn : Tự luận

Câu : Viết biểu thức toán sau dới dạng biểu thức Pascal : (1,5 ®iĨm) a 15(4 + 30 + 12)

b

y y

x

   

5 18

) 10

(

Câu : (5 điểm)

Viết chơng trình nhập vào số a, b từ bàn phím, tính trung bình cộng hai số a, b in kết hình

Hoạt động : Nhận đề nghiêm túc làm G : Quan sát nhắc nhở học

(38)

G : Có thể giải thích cần H : Làm yêu cầu giáo viên giải đáp thắc mắc câu hỏi cha hiểu đề

H : Nộp ó lm xong

Tuần : Tiết 17:

Lun gâ bµn phÝm nhanh víi finger break out

A Mơc tiªu :

 Gióp häc sinh hiểu tác dụng chơng trình gõ nhanh xác Giới thiệu cho HS cách vào thành phần chơng trình B Chuẩn bị :

1 Giáo viên : - SGK, SGV, tài liệu, Giáo án - Đồ dïng d¹y häc

2 Häc sinh : - §äc tríc bµi

- SGK, §å dïng häc tập C Tiến trình tiết dạy :

Hoạt động : Giới thiệu phần mềm Finger break out G : Lớp em đợc làm quen

víi phÇn mềm luyện gõ phím ?

H : Trả lêi phÇn mỊm Typing test

G : PhÇn mỊm Typing test giúp em rèn luyện kĩ ?

H : Tr¶ lêi

G : Giới thiệu mục đích phần mềm Finger break out

1 Giíi thiƯu phÇn mỊm.

Mục đích phần mềm luyện gõ bàn phím nhanh xác

Hoạt động : Giới thiệu thành phần hình finger beak out G : Giới thiệu biu tng ca

ch-ơng trình

H : Nờu cách khởi động chơng trình

H : Lên máy chủ thực thao tác khởi động chơng trình

2 Màn hình phần mềm a Khởi động phần mềm

(39)

G : Có thể mở rộng cách khởi động qua nút start làm mẫu G : Nhấn ENTER (OK) để chuyển sang hình phần mềm

H : Quan sát hình để phần biệt thành phần hình

H : Nghiên cứu SGK để nắm đợc chức ngón tay tơng ứng với màu bàn phím

G : Ngón út tay trái gõ phím ?, ngón áp út phải gõ phím ? ngón tay trái gõ phím ? H : Trả lêi theo tõng c©u hái cđa G

G : Khi khởi động khung trống cha hiển thị

G : Mở ô Level giới thiệu mức khó khác trò chơi

H : Quan sát nắm vững cách chọn

G : Chn mức chơi và nhấn start / space bar để bắt đầu G : Theo em muốn dừng chơi làm ? H : Trả lời

G : Muốn thoát khỏi chơng trình làm ?

H : Trả lời

b Giới thiệu hình chính.

- Hỡnh bn 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 trªn 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

c Thoát khỏi phần mềm.

- Muốn dừng chơi, nháy chuột vào nút stop khung bên phải

- Muốn thoát khỏi phần mềm, nháy nút tổ hợp phím ALT+F4

Củng cố kiến thøc.

? Nêu cách khởi động thoát khỏi chơng trình finger break out ? Màn hình finger break out có thành phần ? H : Nhắc lại kiến thức trọng tâm

(40)

- Học thuộc cách khởi động khỏi chơng trình Nắm thành phần chức ngón tay tơng ứng với màu hỡnh bn phớm

(41)

Ngày soạn : Ngày dạy :

Tuần : Tiết 18:

Lun gâ bµn phÝm nhanh víi finger break out

A Mơc tiªu :

 Giúp học sinh nắm đợc quy tắc sử dụng phần mềm  Rèn kĩ gõ phím nhanh xác

1 Giáo viên : - SGK, SGV, tài liệu, Giáo án

- Đồ dùng dạy học nh máy tính, projector, 2 Học sinh : - Đọc trớc bài

I n nh tổ chức lớp : - Kiển tra sĩ số :

II Kiểm tra cũ : III Dạy míi :

hoạt động thày trị kiến thức cần đạt

Hoạt động : HS nắm cách sử dụng phần mềm Finger break out G : Khởi động Finger break out

G : Muèn bắt đầu chơi làm ?

H : Nghiên cứu SGK quan sát hình trả lời

G : Giới chốt bớc để bắt đầu chi

G : Giới thiệu thêm số thông tin hình Finger break out

H : Đọc thầm nghiên cứu SGK

G : Lm để di chuyển ngang bắn cầu lên ?

H : Tr¶ lêi

G : Nhận xét chốt H : Ghi cách chơi

G : Nếu có cầu lớn phải làm ?

G : Khi bị lợt chơi ? Trò chơi thắng ? H : Trả lời

G : Chi thử để xuất vật lạ

H : Quan sát nghiên cứu

3 Hớng dẫn sử dụng :

- Bắt đầu chơi nháy nút Start xt hiƯn

- Nhấn phím space để bắt đầu chi

Cách chơi :

- Gừ cỏc phím ứng với kí tự bên trái bên phải để di chuyển ngang sang trái phải - Gõ kí tự để bắn lên cầu nhỏ

(42)

SGK

G : Giới thiệu vật lạ có chức trò chơi

- mc khú hn s có vật lạ Nếu để vật chạm vào ngang lợt chơi Hoạt động : HS đợc rèn luyện kĩ chơi Finger Break Out.

G : Tổ chức cho nhóm thi xem ghi điểm nhiều H : Từng nhóm đại diện lên chơi thử máy chủ

H : Quan sát ghi nhận số điểm

G : Điều khiển thứ tự thời gian chơi.

H : Tự đánh giá nhóm nhau. G : Là trọng tài nhận xét công bố kết

 Tæ chøc cuéc thi :

Nhóm chiến thắng ?

Củng cố kiến thức.

H : Nhắc lại cách chơi finger Break Out G : Chèt kiÕn thøc träng t©m tiết học Hớng dẫn nhà.

1 Hiểu tác dơng cđa finger Break Out Häc thc lt ch¬i finger Break Out Tự rèn luyện kĩ thành thạo bàn phím finger Break Out

Tuần 10 : TiÕt 19:

Thùc hµnh finger Break Out A Mơc tiªu :

 Luyện tập soạn thảo, chỉnh sửa chơng trình, biên dịch, chạy xem kết hoạt động chơng trình mơi trờng Turbo Pascal

Thực hành với biểu thức số học chơng trình Pascal B Chuẩn bị :

1 Giáo viên : - SGK, SGV, tài liệu, Giáo án

- Đồ dùng dạy học nh m¸y tÝnh, projector,

- Chuẩn bị phịng thực hành đủ số máy tính hoạt động tốt 2 Học sinh : - Đọc trớc thực hành.

- Học thuộc kiến thức lý thuyết tập học C Tiến trình tiết dạy :

(43)

Kiểm tra trình thực hành III Dạy bµi míi :

G : Phổ biến nội dung yêu cầu chung tiết thực hành viết chơng trình để tính tốn.

Hoạt động : Tìm hiểu thêm cách in liệu hình. Hoạt động : Giáo viên tổng kết nội dung tiết thực hành.

(44)

Ngày soạn :

Ngày dạy :

TuÇn 10 : TiÕt 20:

Thực hành finger Break Out A Mục tiêu :

 Luyện tập soạn thảo, chỉnh sửa chơng trình, biên dịch, chạy xem kết hoạt động chơng trình mơi trờng Turbo Pascal

 Thùc hành với biểu thức số học chơng trình Pascal B Chuẩn bị :

1 Giáo viên :

- Chun b phũng thực hành đủ số máy tính hoạt động tốt 2 Hc sinh :

II KiĨm tra bµi cũ :

Kiểm tra trình thực hành III Dạy :

G : Xác nhận kết báo cáo tõng m¸y

G : Phổ biến nội dung yêu cầu chung tiết thực hành viết chơng trình để tính tốn.

Hoạt động : Thực hành choi múc khó hơn,sẽ có vật lạ tuyệt đối không để vật lạ trạm vào ngang Nừu bị vật chạm vào thanh ngang em lợt chơi.

Hoạt động : Giáo viên tổng kết nội dung tiết thực hành. Nhận xét sau tiết thực hành :

(45)

(46)

Ngày soạn :

Ngày dạy :

Tuần 11: Tiết 21

Bài 5: Từ tốn đến chơng trình

A Mơc tiªu :

 Tìm hiểu số toán cụ thể, biết khái niệm toán  Xác định đợc Input, Output toán đơn giản; B Chuẩn bị :

1 Gi¸o viên : - SGK, SGV, tài liệu, Giáo án

- Đồ dùng dạy học nh máy tính, projector, 2 Học sinh : - Đọc trớc bài

I n định tổ chức lớp : - Kiển tra sĩ số :

II Kiểm tra cũ : III Dạy bµi míi :

Hoạt động : Học sinh tìm hiểu khái niệm tốn, thuật tốn G : Mun nh mỏy gii bi

toán em phải làm ?

H : Trả lêi

G : Hãy viết lệnh để giải bi toỏn ny

H : Viết lên bảng phụ

G : Kiểm tra chốt mô hình chơng trình giải toán

1 Bài toán chơng trình Bài toán :

Tớnh tng hai số a b đợc gõ vào bàn phím => Viết chơng trình gồm lệnh sau :

G : Đa tốn lên hình H : Đọc nghiên cứu để tìm cách giải toán

G : Viết lệnh để giải tốn

H : Hoạt động nhóm viết vào bảng phụ nộp kết G yêu cu

G : Nhận xét chốt mô hình

Bài toán :

Tính giá trị cđa biĨu thøc P = (a*b-c)/d víi a, b, c, d số thực tuỳ ý

=> Viết chơng trình gồm lệnh sau : Tính biểu thức ;

Bắt đầu

- Nhập giá trÞ cho a, b, c, d

- Tính tích a*b nhớ kết vào P1

(47)

chơng trình hình Kết thúc H : Nghiên cứu sơ đồ vị trí

r«bèt

H : Viết chơng trình gồm lệnh điều khiển rôbốt

G : Nhận xét chốt mô hinh chơng trình hình

Bài toán :

Hóy iu khin rụbt nht rác theo sơ đồ => Viết chơng trình gồm lệnh sau :

Hoạt động : HS biết xác định tốn gì.

G : Em hiểu toán H : Trả lời khái niệm toán G : Muốn giải toán trớc tiên em phải làm ?

H : Các nhóm - Xác định đầu vào tốn tính diện tích hình tam giác, nấu ăn, vợt qua nút nghẽn giao thụng

G : Thu nhận kết chèt kiÕn thøc

2 Bài toán xác định bi toỏn :

- Bài toán công việc hay nhiệm vụ cần phải giải

- Muốn giải toán trớc hết phải xác định đợc giả thiết kết luận tức đầu vào đầu toán

- Xác định đầu vào đầu tốn tính diện tích hình tam giác, nấu ăn, vợt qua nút nghẽn giao thơng (SGK)

? Nhắc lại khái niệm toán, đầu vào đầu toán ? Thế xác định toán

? Xác định đầu vào đầu tốn : Tính diện tích hình tam giác, nấu ăn, vợt qua nút nghn giao thụng

(48)

Ngày soạn :

Ngày dạy :

Tuần 11 : Tiết 22

Bài 5: Từ tốn đến chơng trình (t.t)

A Mơc tiªu :

 Biết bớc giải toán máy tính;

Biết chơng trình thể thuật toán ngôn ngữ cụ thể Biết mô tả thuật toán phơng pháp liệt kê bớc

 HiĨu tht to¸n tÝnh tỉng cđa N sè tù nhiên đầu tiên, tìm số lớn dÃy số

- Đồ dùng dạy học nh máy tính, projector, 2 Học sinh :

- Đọc trớc

I n định tổ chức lớp : - Kiển tra sĩ số :

? Trình bày khái niệm toán Viết chơng trình g× ?

? Đọc đề tốn xác định đầu vào đầu tốn III Dạy :

Hoạt động : Học sinh biết bớc giải tốn máy tính. G :Giải tốn máy tính nghĩa

g× ?

H : Nghiên cứu SGK trả lời

G : Em hiểu thuật toán ? H : Trả lời

G : Để nhờ máy giải toán ta phải thực bớc ?

H : Nghiên cứu SGK (hình 4) viết bảng nhóm

3 Quỏ trỡnh gii bi toỏn máy tính * Các bớc để nhờ máy giải toán :

 Bớc : Xác định tốn xác định

(thơng tin vào - INPUT) kết cần xác định (thông tin -OUTPUT)

 Bíc : ThiÕt lËp ph¬ng án giải (xây

dựng thuật toán) tìm, lựa chọn thuật toán mô tả ngôn ngữ thông thờng

Bớc : Viết chơng trình (lập trình) diễn

(49)

G : Thu kết nhận xét chốt bớc

G : Em hiểu thực chất chơng trình ?

H : Nghiên cứu SGK tr¶ lêi

Hoạt động : HS biết mơ tả thuật toán phơng pháp liệt kê bớc. G : Chỉ bớc cần thiết để pha tr

mới khách ?

H : Nghiên cứu SGK trả lời G : Mô tả thuật toán ? H : Trả lời theo ý hiểu

G : Chốt nhấn mạnh cách mô tả thuật toán

G : Đa ví dụ toán giải pt ax+b= hình

H : Nghiên cứu SGK

H : Mô tả thuật toán bớc G : Đa ví dụ toán chuẩn bị trứng tráng

G : Đa mô tả thuật toán b-ớc bị xáo trén

H : Nghiên cứu xếp lại theo trình tự để giải tốn

G : Ph¸t biĨu kh¸i niƯm tht to¸n ? H : Trả lời

G : Chốt khái niệm H ghi

4 Thuật toán mô tả thuật to¸n

- Mơ tả thuật tốn liệt kê bớc cần thiết để giải toán

a Ví dụ :

Bài toán giải phơng trình bậc dạng tổng quát bx + c =

(SGK) b VÝ dô :

Bài toán Chuẩn bị trứng tráng (SGK)

Thuật toán dãy thao tác cần thực theo trình tự xác định để thu đợc kết cần tìm từ điều kiện cho trớc

5 Mét sè vÝ dơ vỊ tht to¸n a VÝ dơ : TÝnh diƯn tÝch cđa hình

(SGK)

* Mô tả thuật toán :

Bíc 1: G¸n SUM  1; i  Bíc 2: G¸n i  i +

Bíc 3: NÕu i ≤ 100, th× SUM  SUM + i chuyển lên bớc Trong trờng hợp ngợc lại (i > 100), kết thúc thuật toán

c Ví dụ : Cho hai số thực a b Hãy ghi kết so sánh hai số đó, chẳng hạn “a > b”, “a < b”, “a = b”.

(SGK)

(50)

b VÝ dơ : TÝnh tỉng cđa 100 sè tự nhiên

* Xỏc nh bi toán :

INPUT: Dãy 100 số tự nhiên u tiờn (t n 100)

OUTPUT: Giá trị SUM = + + + 100

Qua tiết học em nắm đợc kiến thức ? H : Nhắc lại kiến thức

G : Chốt kiến thức trọng tâm tiết học : Híng dÉn vỊ nhµ.

1 Học thuộc khái niệm : Giải tốn gì, bớc để giải tốn, thuật tốn gì, cách mơ tả thuật tốn nh

2 Mơ tả thuật tốn để tính P = (a x b - c)/d Đọc trớc phần SGK

Bài tập A Mục tiêu :

 Tìm hiểu số tốn cụ thể, biết khái niệm toán  Xác định đợc Input, Output toán đơn giản;  Biết bớc giải tốn máy tính;

 Biết chơng trình thể thuật toán ngôn ngữ cụ thể Biết mô tả thuật toán phơng pháp liệt kê bớc

Hiểu thuật toán tính tổng N số tự nhiên đầu tiên, tìm số lớn dÃy số

1 Giáo viên : - SGK, SGV

(51)

- Kiểm tra việc chuẩn bị nhà học sinh

III Dạy :(Học sinh lên bảng làm(Trả lời) lấy điểm miệng) A.Ôn lại cũ:

GV hỏi:hÃy nêu trình giẩi toán máy tính ? HS :Trả lời

B Bµi tËp

1. Hãy INPUT OUTPUT toán sau: a) Xác định số học sinh lớp mang họ Trần

b) Tính tổng phần tử lớn dãy n số cho trớc c) Tìm số số có giá trị nhỏ n số cho

2. Giả sử x y biến số H·y cho biÕt kÕt qu¶ cđa viƯc thùc hiƯn tht to¸n sau:

 Bíc x  x + y  Bíc y  x - y  Bíc x  x - y

Xem lại kiến thức học tập chữa, tiết sau kiểm tra tiết

Hêng dÉn tr¶ lêi 1.

a) INPUT: Danh s¸ch hä cđa c¸c häc sinh líp OUTPUT: Sè häc sinh cã hä TrÇn

b) INPUT: D·y n sè

OUTPUT: Tỉng phần tử lớn c) INPUT: DÃy n số

OUTPUT: Số số có giá trị nhỏ

(52)

Tỡm hiểu số toán cụ thể, biết khái niệm toán  Xác định đợc Input, Output toán đơn giản;  Biết bớc giải toỏn trờn mỏy tớnh;

Hiểu thuật toán tính tổng N số tự nhiên đầu tiên, tìm số lín nhÊt cđa mét d·y sè

B Chn bÞ :

- KiĨm tra viƯc chn bị nhà học sinh

GV hỏi:bài tốn xác định bào tốn ? HS :Trả lời

B Bµi tËp

3. Cho trớc ba số dơng a, b c Hãy mô tả thuật tốn giải ghi kết ba số ba cạnh tam giác hay không

4. Cho hai biến x y Hãy mơ tả thuật tốn đổi giá trị biến nói để x y có giá trị tăng dn

(53)

3. Mô tả thuật toán:

INPUT: Ba số dơng a >0, b >0 c >0

OUTPUT: Thông báo a, b c ba cạnh tam giác thông báo a, b c ba cạnh tam giác

Bớc 1: Tính a + b NÕu a + b ≤ c, chuyÓn tíi bíc Bíc 2: TÝnh b + c NÕu b + c ≤ c, chun tíi bíc Bíc 3: TÝnh a + c NÕu a + c ≤ b, chuyển tới bớc

Bớc 4: Thông báo a, b c ba cạnh tam giác kết thúc thuật toán

Bớc 5: Thông báo a, b c ba cạnh tam giác kết thúc thuật toán

4. Có thể giải toán cách sử dụng biến phụ không dùng biÕn phơ

Tht to¸n Sư dơng biÕn phơ z. INPUT: Hai biÕn x vµ y

OUTPUT: Hai biến x y có giá trị tăng dần Bớc 1: NÕu x ≤ y, chun tíi bíc

Bíc 2: z  x Bíc 3: x  y. Bíc 4: y  z.

Bíc 5: KÕt thúc thuật toán.

Bài tập A Mơc tiªu :

(54)

 Biết chơng trình thể thuật toán ngôn ngữ cụ thể Biết mô tả thuật toán phơng pháp liệt kê bớc

- SGK, §å dïng häc tËp C TiÕn trình tiết dạy :

I n nh t chức lớp : - Kiển tra sĩ số :

- KiĨm tra việc chuẩn bị nhà học sinh

GV hỏi:Nêu trình giảI toán máy tính ? HS :Trả lời

B Bài tập

5. Cho ba biến x, y z Hãy mô tả thuật tốn đổi giá trị biến nói để x, y z có giá trị tăng dần Hãy xem lại Ví dụ để tham khảo

6. HÃy mô tả thuật toán tính tổng phÇn tư cđa d·y sè a1, a2, , an cho tríc

Hêng dÉn tr¶ lêi

5. Trớc hết, cần, ta hoán đổi giá trị hai biến x y để chúng có giá trị tăng dần Sau lần lợt so sánh z với x z với y, sau thực bớc hốn đổi giá trị cần thiết (xem lại Ví dụ Bài 5, SGK)

INPUT: Ba biÕn x, y vµ z

OUTPUT: Ba biÕn x, y vµ z cã giá trị tăng dần Bớc 1: Nếu x y, chun tíi bíc

Bíc 2: z  x, x  y, y  z (Sau bíc nµy x y có giá trị tăng dần.) Bớc 3: Nếu y ≤ z , chun tíi bíc

Bớc 4: Nếu z < x, t  x , x  z z  t, (với t biến trung gian) chuyển đến bớc

Bíc 5: t  y , y  z vµ z  t. Bíc 6: KÕt thóc tht to¸n.

6. Thuật toán tính tổng phần tử dÃy số A = {a1, a2, , an} cho tríc

INPUT: n vµ d·y n sè a1, a2, , an

OUTPUT: Tæng S = a1 + a2 + + an

(55)

Bíc 2: i  i + 1.

Bíc 3: NÕu i ≤ n, S S + ai quay lại bớc

Bớc 4: Thông báo S kết thúc thuật toán.

 HiĨu tht to¸n tÝnh tỉng cđa N sè tù nhiên đầu tiên, tìm số lớn dÃy số

1 Giáo viªn : - SGK, SGV

(56)

GV hỏi:Thuật toán gì, mô tả thuật toán ? HS :Trả lời

B Bài tập

7. HÃy mô tả thuật toán nhập n số a1, a2, , an từ bàn phím ghi hình

số nhỏ số Số n đợc nhập từ bàn phím 8. Hãy mơ tả thuật tốn gii cỏc bi toỏn sau:

a) Đếm số sè d¬ng d·y sè A = {a1, a2, , an} cho trớc

b)HÃy mô tả thuật toán tính tổng số dơng dÃy số A = {a1, a2, , an} chotríc

Hêng dÉn tr¶ lêi

7. Thuật toán tìm số nhỏ dÃy n sè a1, a2, , an cho tríc Tht to¸n nµy

tơng tự nh thuật tốn tìm giá trị lớn dãy n số cho (xem Ví dụ 6, Bài 5) Điều khác biệt thêm bớc nhập số n dãy n số a1, a2, , an

OUTPUT: Min = Min{ a1, a2, , an}

Bíc 1: NhËp n vµ d·y n sè a1, a2, , an

Bíc 2: G¸n Min  a1; i  1. Bíc 3: i  i + 1.

Bớc 4: Nếu i > n, chuyển đến bớc 5.

Bíc 5: NÕu ai < Min, gán Min ai quay lại bớc Trong trờng hợp ngợc lại,

quay lại bớc

Bớc 6: Ghi giá trị Min hình kết thúc thuật toán. 8. a) Đếm số số d¬ng d·y sè A = {a1, a2, , an} cho tríc

OUTPUT: Soduong = Sè c¸c sè ai >

Bíc 1: G¸n Soduong  0. Bíc 2: i  i + 1.

Bớc 3: Nếu i > n, chuyển đến bớc 5.

Bíc 4: NÕu ai > 0, g¸n Soduong  Soduong +1 quay lại bớc Trong trờng

hợp ngợc lại, quay lại bớc

Bớc 5: Thông báo giá trị Soduong kết thúc thuật toán.

b) Tính tổng số dơng dÃy số A = {a1, a2, , an} cho tríc

OUTPUT: S = Tỉng c¸c sè ai > d·y a1, a2, , an

Bíc 1: S  0; i  0. Bíc 2: i  i + 1.

Bíc 3: NÕu ai > 0, S  S + ai; ngợc lại, giữ nguyên S

Bớc 4: Nếu i n, quay lại bớc

(57)

Ngày soạn: Ngày dạy:

Tuan 14 Tiết: 27

TÌM HIỂU THỜI GIAN VỚI PHẦN MỀM SUN TIMES I MụcTiêu:

HS hiểu chức phần mềm, sử dụng phần mềm để quan sát thời gian địa phương vị trí khác trái đất

Hs tự thao tác thực số chức phần mềm

Thơng qua phần mềm HS hiểu biết thêm thiên nhiên, trái đất, từ nâng cao ý thức bảo vệ mơi trường sng

1 Giáo viªn : - SGK, SGV

- SGK, §å dïng häc tËp C Tiến trình tiết dạy :

I n nh tổ chức lớp : - Kiển tra sĩ số :

III/ Tiến trình dạy – học:

Hoạt động giáo viên Nội dung ghi bảng Trờn đồ cú cỏc vựng sỏng, tối

khác Vùng sáng cho biết vị trí thuộc vùng thời điểm thời ban ngày Ngược lại, vùng tối vị trí thuộc vùng ban đêm

-Giữa vùng sáng tối có đường vạch liền, ranh giới ngày đêm Tại vùng có đường thời gian Mặt Trời lặn mọc đường chân trời Chúng ta gọi đường đường phân chia thời gian sáng/tối -Trên đồ có vị trí

1 Giới thiệu phần mềm

Phần mềm Sun Times giúp em nhìn tồn cảnh vị trí, thành phố thủ nước tồn giới với nhiều thông tin liên quan đến thời gian Ngồi ra, phần mềm cịn cung cấp nhiều chức hữu ích khác liên quan đến thời gian Mặt Trời mọc, Mặt Trời lặn, nhật thực, nguyệt thực,

2 Màn hình phần mềm a) Khởi động phần mềm

Nháy đúp vào biểu tượng để khởi động phần mềm

(58)

đánh dấu Đó thành phố thủ quốc gia Khi nháy chuột lên vị trí em nhìn thấy thơng tin chi tiết liên quan đến thành phố khung nhỏ phía hình

Màn hình phần mềm đồ nước giới Hãy quan sát kĩ để hiểu nhận biết thơng tin mà đồ mang lại

c) Tho¸t khái phÇn mỊm

Muốn khỏi phần mềm thực lệnh FileExit nhấn tổ hợp phím Alt+F4

Tuan 14 Tiết: 28

(59)

HS hiểu chức phần mềm, sử dụng phần mềm để quan sát thời gian địa phương vị trí khác trái đất

Hs tự thao tác thực số chức phần mềm

Thơng qua phần mềm HS hiểu biết thêm thiên nhiên, trái đất, từ nâng cao ý thức bảo vệ mơi trường sống

GV : giới thiệu phần mềm sum times ,nêu cách thoát khái phÇn mỊm ?

III/ Tiến trình dạy – học:

(60)

Muốn phóng to vùng hình chữ nhật đồ em dùng cách sau:

Trên đồ có vùng sáng, tối khác cho biết thời gian vùng ngày hay đêm Tại ranh giới phân chia ngày đêm, thời điểm chuyển giao đêm-ngày (Mặt Trời mọc) ngày-đêm (Mặt Trời lặn)

chúng ta thấy Mặt Trời chuyển động từ Đông sang Tây Trên đồ, ta thấy vùng tối "chuyển động" theo hướng từ phải sang trái Bây em tìm hiểu kĩ địa điểm, thành phố Trái Đất:

Em quan sát vùng có màu đen đồ Đó vùng có thời gian ban đêm Xung quanh vùng có giải phân cách sáng - tối, vùng đệm ngày đêm

Thời gian chuyển động, thấy khối màu đen dịch chuyển từ phải sang trái

Lần chạy phần mềm, thời gian đồ sẽđược tính

3 Hướng dẫn sử dụng

a) Phóng to quan sát vùng đồ chi tiết Nhấn giữ nút chuột phải kéo thả từ đỉnh đến đỉnh đối diện hình chữ nhật Một cửa sổ xuất hiển thị vùng đồ đánh dấu phóng to

b) Quan sát nhận biết thời gian: ngày đêm Chúng ta biết Trái Đất tự quay quay quanh Mặt Trời tạo ngày đêm Theo chuyển động Trái Đất

c) Quan sát xem thông tin thời gian chi tiết của một địa điểm cụ thể

d) Quan sát vùng đệm ngày đêm

Quan sát kĩ vùng cho em nhiều thông tin thú vị



e) Đặt thời gian quan sát

Vùng đệm chuyển ngày đêm:

sáng sớm Vùng đệm

chuyển ngày đêm:

(61)

theo thời gian hệ thống máy tính Tuy nhiên, em thay đổi thời gian nút lệnh công cụ

 Vào mùa hè, tháng 6, 7, 8, khối màu đen

 Vào cuối năm, tháng 11, 12, tháng

Khối đen đồ che khuất hình ảnh quốc gia thành phố Để vùng tố i-sáng này, vào bảng chọn Options  Maps và huỷ chọn mục Show Sky Color Khi đó đồ giới với múi có dạng sau:

Bằng cách nháy chuột lên nút lệnh thời gian em đặt lại thời gian Ngày, Tháng, Năm, Giờ, Phút Giây

Nháy nút để lấy lại trạng thái thời gian hệ thống máy tính

Bằng cách thay đổi thời gian, em quan sát phát nhiều điều thú vị:

Ngày 12 tháng 7: Hiện tượng "đêm trắng" điểm cực Bắc của

Trái Đất

Ngày 12 tháng 12: Hiện tượng "đêm trắng"

xuất điểm cực Nam Trái Đất, cực Bắc là "ngày đen".

4 Một số chức khác

(62)

Để thay đổi trạng thái thay đổi thông tin này, em thực lệnh Options  Maps và huỷ chọn mục Hover Update Khi thơng tin thời gian thay đổi nháy chuột địa điểm

Một chức phần mềm cho phép tìm địa điểm khác Trái Đất có thơng tin thời gian ngày giống

Ví dụ, xem hơm có

những địa điểm giới có thời gian Mặt Trời mọc Hà Nội, Việt Nam Các bước thực hiện:

1. Chọn vị trí ban đầu (Hà Nội) 2. Thực lệnh Options  Anchor Time To và chọn mục Sunrise để tìm theo thời gian Mặt Trời mọc (hoặc Sunset - Mặt Trời lặn)

Với phần mềm Sun Times em biết thời điểm xảy nhật thực tương lai khứ địa điểm Trái Đất

Để hiển thị màu bầu trời em cần chọn lại Show Sky Color lệnh Options  Maps

b) Cố định vị trí thời gian quan sát

c) Tìm địa điểm có thơng tin thời gian ngày giống nhau

Ngày tháng năm 2008, địa điểm đường liền này sẽ có thời gian Mặt Trời mọc giống Hà Nội, Việt Nam, vào

lúc 31 phút 56 giây.

Ngày tháng 11 năm 2008, vị trí đường liền sẽ có thời gian Mặt Trời mọc giống Hà Nội, Việt Nam, vào lúc

6 phút 44 giây.

d) Tìm kiếm quan sát nhật thực Trái Đất Cách thực sau:

1. Chọn địa điểm muốn tìm nhật thực 2 Thực lệnh View  Eclipse

(63)

Nháy nút Find (Future) để tìm nhật thực tương lai nút Find (Past) để tìm nhật thực khứ Em thấy thời gian chuyển động (đến tương lai hay quay lại khứ) dừng lại tìm thấy nhật thực

Trong ví dụ trên, ta thấy Hà Nội xảy nhật thực phần vào 17 58 phút 17 giây ngày 01 tháng năm 2008 Cửa sổ Eclipse hiện rõ hình ảnh nhật thực quan sát từ Hà Nội

Phần mềm có chức đặc biệt cho phép thời gian chuyển động với vận tốc nhanh chậm Em quan sát chuyển động ngày vàđêm vùng khác Trái Đất

Hãy quan sát nút lệnh sau cơng cụ:

Trong hình trên, Madrid thủ đô Tây Ban Nha xảy nhật thực phần vào 30 phút 43 giây sáng ngày tháng năm 2011

e) Quan sát chuyển động thời gian

Để thời gian chuyển động nháy chuột vào nút Muốn dừng nháy chuột vào nút

Tuần 15 : TiÕt 29 :

B i 6a : CÂU LỆNH ĐIỀU KIỆN

A.Mục tiêu:

 Biết cần thiết câu trúc rẽ nhánh lập trình

 Biết cấu trúc rẽ nhánh được sử dụng để chỉ dẫn cho máy tính thực

thao tác phụ thuộc vào điều kiện.

 Hiểu cấu trúc rẽ nhánh có hai dạng : Dạng thiếu dạng đủ.

 Biết ngơn ngữ lập trình có câu lệnh thể cấu trúc rẽ nhánh.

 Hiểu cú pháp, hoạt động câu lệnh điều kiện dạng thiếu dạng đủ

trong Pascal.

(64)

B.Chuẩn bị :

 Gv : tranh vẽ hình 32.

 Hs : chuẩn bị cũ thật tốt, xem trước mới.

C.Tiến trình dạy học :

Hảy mơ tả thuật tốn tìm giá trị lớn hai số ?

 Bước : Max:= a (hoặc Max:=b);

 Bước : Nếu a < b gán Max = b viết giá trị lớn hai số l

Max.

III Dạy :

NỘI DUNG – HOẠT ĐỘNG CỦA GV -HS

NỘI DUNG – HOẠT ĐỘNG CỦA GV

1 Hoạt động phụ thuộc vào điều kiện

Cho ví dụ hoạt động phụ thuộc điều kiện ?

Nếu chiều trời không mưa, em chơi bóng

Nếu em bị ốm, em nghỉ học Từ “nếu” câu

được dùng để “điều kiện” hoạt động sau phụ thuộc vào điều kiện

Nêu điều kiện hoạt động phụ thuộc điều kiện ví dụ

Các điều kiện : chiều trời không mưa, em bị ốm

Các hoạt động phụ thuộc điều kiện : em chơi bóng, em nghỉ học

1 Hoạt động phụ thuộc vào điều

- Có hoạt động chỉ được thực một điều kiện cụ thể được xảy Điều kiện thường kiện được mô tả sau từ nếu.

2.Tính sai điều kiện

Mỗi điều kiện nói mơ tả dạng phát biểu Hoạt động phụ thuộc vào kết kiểm tra phát biểu hay sai Vậy kiết kiểm tra ?

Điều

kiện Kiểm tra Kết Hoạt động

2.Tính sai điều kiện

 Khi đưa câu điều kiện , kết kiểm tra đúng, ta nói điều kiện thoả mãn, kết kiểm tra sai, ta nói diều kiện khơng thoả mãn

 Ví dụ :

Nếu nháy nút “x” góc trên, bên phải cửa sổ, (thì) cửa sổ đóng lại

Nếu X>5, (thì hãy) in giá trị X hình Nếu nhấn phím Pause/Break, (thì) chương

(65)

tiếp theo Trời

không mưa ?

Buổi chiều nhìn ngồi trời thấy trời không mưa

Đúng

Sai

Đi chơi bóng

Ở nhà Em bị

ốm ? Cảm thấy khoẻ mạnh

Sai Đúng

Ở nhà Đi học

3 Điều kiện phép so sánh

Các phép so sánh có vai trị quan trọng việc mơ tả thuật tốn lập trình Chúng thường sử dụng để biểu diễn điều kiện Phép so sánh cho kết có nghĩa điều kiện thoả mãn ; ngược lại điều kiện không thoả mãn

3.Điều kiện phép so sánh

- Các phép so sánh thường được sử dụng để biểu diễn điều kiện.

- Các phép so sánh cho kết sai.

TuÇn 15 : TiÕt 30 :

B i 6a : CÂU LỆNH ĐIỀU KIỆN

A.Mục tiêu:

 Biết cần thiết câu trúc rẽ nhánh lập trình

 Biết cấu trúc rẽ nhánh được sử dụng để chỉ dẫn cho máy tính thực

thao tác phụ thuộc vào điều kiện.

 Hiểu cấu trúc rẽ nhánh có hai dạng : Dạng thiếu dạng đủ.

 Biết ngơn ngữ lập trình có câu lệnh thể cấu trúc rẽ nhánh.

 Hiểu cú pháp, hoạt động câu lệnh điều kiện dạng thiếu dạng đủ

trong Pascal.

 Bước đầu viết được câu lệnh điều kiện Pascal.

B.Chuẩn bị :

 Gv : tranh vẽ hình 32.

 Hs : chuẩn bị cũ thật tốt, xem trước mới.

(66)

GV: Em nêu ví dụ hoạt động hàng ngày em có phụ thuộc vào iu kin? Phõn tớch?

III Dạy :

NỘI DUNG – HOẠT ĐỘNG CỦA GV -HS

NỘI DUNG – HOẠT ĐỘNG CỦA GV 4.Cấu trúc rẽ nhánh

Ta biết rằng, thực một chương trình, máy tính sẽ thực hiện tuần tự câu lệnh, từ câu lệnh đến câu lệnh cuối cùng Trong nhiều trường hợp, chúng ta muốn máy tính thực hiện một câu lệnh đó, điều kiện cụ thể được thoả mãn; ngược lại, điều kiện không được thoả mãn bỏ qua câu lệnh thực hiện câu lệnh khác

4.Cấu trúc rẽ nhánh

Ví dụ 2. Một hiệu sách thực đợt khuyến mãi lớn với nội dung sau: Nếu mua sách với tổng số tiền 100 nghìn đồng, khách hàng sẽ được giảm 30% tổng số tiền phải thanh tốn Hãy mơ tả hoạt động tính tiền cho khách.

Ta mơ tả hoạt động tính tiền cho khách hàng bước đây:

Bước 1 Tính tổng số tiền T khách hàng mua sách.

Bước 2. Nếu T ≥ 100000, số tiền phải toán = 70% T

Bước 3. In hoá đơn Tính tiền cho khách hàng

Cách thể hoạt động phụ thuộc vào điều kiện được gọi cấu trúc rẽ nhánh dạng thiếu

5 câu lệnh điều kiện

4.Đưa lệnh : if ….then….else có hai dạng lưu ý

1 Với dạng expl lệnh thi hành

2 Với dạng expl lệnh thực ngược lại thực lệnh

Đưa lưu đồ cho dạng

5 câu lệnh điều kiện

 Lệnh If … Then … Else Dạng

If < Điều kiện > then Lệnh;

Dạng

If < Điều kiện > then Lệnh

Else

Lệnh ;

Trước else khơng có dấu chấm phẩy

Trong Expl biểu thức logic Cách thi hành lệnh sau:

 Với dạng expl lệnh thi hành

(67)

Dạng 2

5.Hãy viết chương trình tìm giá trị lớn hai số nguyên

Hãy viết lại tập sử dụng câu lệnh dạng if ….then……else

Dạng 1

Ví dụ :Hãy viết chương trình tìm giá trị lớn hai số nguyên

Giải :

Program GTLN; Uses crt;

Var a, b, Max : Integer; Begin

Clrscr;

Write (‘a=’) ; Readln(a); Write (‘b=’) ; Readln(b); Max: =a;

If a < b then Max : = b;

Writeln (‘ gia tri lon nhat cua hai so a, b la :’, Max) ;

Readln; End

Cách khác : Program GTLN; Uses crt;

Var a, b, Max : Integer; Begin

Clrscr;

Write (‘a=’) ; Readln(a); Write (‘b=’) ; Readln(b); If a < b then

Max : = b Else

Max : = a;

Writeln (‘ gia tri lon nhat cua hai so a, b la :’, Max) ;

Readln; End

(68)

Nắm vững hai dạng câu lệnh điều kiện Biết vẽ lưu đồ hai câu lệnh điều kiện.

Làm tập sách chuẩn bị thực hành.

4> Chó ý:

1.Câu lệnh if <điều kiện> then <câu lệnh> thực sau:

2. Trước tiên điều kiện kiểm tra, điều kiện thoả mãn, câu lệnh thực chuyển đến lệnh Nếu điều kiện không được thoả mãn, câu lệnh bị bỏ qua chuyển đến lệnh

3.Khi thực câu lệnh:

if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

trước tiên điều kiện kiểm tra, điều kiện thoả mãn, câu lệnh thực hiện, câu lệnh bị bỏ qua chuyển đến câu lệnh Nếu điều kiện không thoả mãn, câu lệnh bị bỏ qua, câu lệnh thực hiện, sau chuyển đến câu lệnh

4.Có thể sử dụng câu lệnh if…then lồng

5.Sử dụng từ khố and kết hợp nhiều phép so sánh đơn giản thành phép so sánh phức hợp Giá trị phép so sánh tất cả phép so sánh thành phần Ngược lại, có giá trị sai.

Ví dụ: (a > 0) and (a ≤ 5)

(69)

Ngày soạn; Ngày dạy:

Tuần 16: Tiết 31

B i Thùc hµnh sè a : S D NG C U LÖNH IF Ư U Â ….THEN

A Mục đích, yêu cầu :

 Luyện tập sử dụng câu lệnh if … Then

 Rèn luyện kĩ ban đầu đọc chương trình đơn giản hiểu được ý

bghĩa thuật toán sử dụng chương trỡnh

- Chun b phịng thực hành đủ số máy tính hoạt động tốt 2 Hc sinh :

- Đọc trớc thực hµnh

II Néi dung

Hoạt động giáo viên học sinh

Nội dung

Program sapxep; Uses crt;

Var : a, b : integer; Begin

Clrscr;

Write (‘a=’) ; readln(a);

Bài : Viết chương trình nhập hai số nguyên a b từ bàn phím in hai số đó hình theo thứ tự khơng giảm .

(70)

Write (‘b=’) ; readln(b);

If a < b then write (a, ‘ ‘, b) else write (b, ‘ ‘, a);

Readln; End.

program Ai_cao_hon;

uses crt;

var Long, Trang: Real;

begin

clrscr;

write('Nhap chieu cao cua Long:'); readln(Long);

write('Nhap chieu cao cua Trang:'); readln(Trang);

If Long>Trang then

writeln('Ban Long cao hon');

If Long<Trang then

writeln('Ban Trang cao hon')

else writeln('Hai ban cao

bang nhau'); readln

end.

Bài 2. Viết chương trình nhập chiều cao hai bạn Long Trang, in ra hình kết so sánh chiều cao hai bạn, chẳng hạn "Bạn Long cao hơn" Tham khảo thuật tốn ví dụ 5, bi 5.

* Về ôn lại bài

(71)

Ngày dạy:

Tuần 16: Tiết 32

B i th c h nh s a ư a ô : S D NG C U L£NH IF Ư U Â ….THEN

A Mục đích, yêu cầu :

 Luyện tập sử dụng câu lệnh if … Then

 Rèn luyện kĩ ban đầu đọc chương trình đơn giản hiểu được ý

bghĩa thuật tốn sử dụng chương trình

B Chn bị : 1 Giáo viên :

- SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy häc

- Chuẩn bị phòng thực hành đủ số máy tính hoạt động tốt 2 Học sinh :

- Hc thuc kiến thức lý thuyết tập học C Tiến trình tiết dạy :

II Néi dung

Hoạt động giáo viên học sinh

Nội dung

Program Ba_canh_tam_giac;

uses crt;

Var a, b, c: real;

Begin

Clrscr;

write('Nhap ba so a, b va c:'); readln(a,b,c);

If (a+b>c) and (b+c>a) and (c+a>b)

then

writeln('a, b va c la canh cua mot tam giac!')

else writeln('a, b, c khong la canh cua tam giac!');

end

Bài 3. Dưới chương trình nhập ba số dương a, b, c từ bàn phím, kiểm tra in hình kết kiểm tra ba số độ dài cạnh tam giác hay không ý tưởng: Ba số dương a, b, c độ dài cạnh tam giác a + b > c, b + c > a c + a > b

TuÇn 17: TiÕt 33

(72)

 BiÕt chơng trình thể thuật toán ngôn ngữ cụ thể Biết mô tả thuật toán phơng pháp liệt kê bớc

Tìm hiểu cách khai báo biến trơng trình

Tìm hiểu phép toán phép so sánh Pascal B Chuẩn bị :

- dùng dạy học 2 Học sinh : - Kiến thức học.

II Kiểm tra cũ : III Dạy bµi míi :

Hoạt động giáo viên hc sinh Ni dung

-Nhắc lại phép toán pascal kiểu liệu Pascal

Ví dụ Bảng dới liệt kê số kiểu liệu cơ ngôn ngữ lập trình Pascal:

Viết lại phép toán TP a) a c

b d ;

a) a/b+c/d;

b) a*x*x+b*x+c ;

Néi dung «n tËp

+ Từ khoá tên chơng trình Pascal

+ Cấu trúc chung chơng trình

+ Dữ liệu kiểu liệu + Các phép toán víi kiĨu d÷ liƯu sè

+ Sư dơng biÕn chơng trình Pascal

+ Thuật toán mô tả thuật toán

+ Câu lệnh điều kiện (IFThen Else)

VD:

Tên kiểu Phạm vi giá trị

integer Số nguyên khoảng

15 đến 215  1.

real

Số thực có giá trị tuyệt đối khoảng 2,910-39 đến 1,71038 và số 0.

char Mét kÝ tù bảng chữ

(73)

b) ax2 bx c

  ;

b) ax2 bx c

  ;

c)1 a(b 2) x 5  ; d) (a2 b)(1 c)3

 

b) a*x*x+b*x+c ;

c)1/x-a/5*(b+2); d)

(a*a+b)*(1+c)*(1+c)*(1+c)

d)(a*a+b)*(1+c)*(1+c)*(1+c)

**: Chú ý ôn tập va xem dạng bai tập

Tuần 17: TiÕt 34

ĐỀ KIỂM TRA HỌC KỲ I MÔN : TIN HỌC Thời gian : 45 phút Lớp:

Đề : 1,2

Phần 1: Trắc nghiệm khách quan(2.5 §iĨm ) : Hãy chọn đáp án

Câu Trong tên sau đây, tên hợp lệ ngôn ngữ Pascal: (0.5 điểm)

a 8a b tamgiac c program d bai tap

Câu Để chạy chương trình ta sử dụng tổ hợp nào: (0.5 điểm)

a Ctrl – F9 b Alt – F9 c F9 d Ctrl – Shitf – F9

Câu Trong Pascal, khai báo sau đúng? (0.5 điểm)

(74)

Câu 4: Muốn in lên hình sòng chữ Toi la Hs lop ta sử dụng câu lệnh sau

A Toi la Hs lop := integer; B Read(‘Toi la Hs lop 8’); C Writeln (‘Toi la Hs lop 8’); D Var Toi la Hs lop 8:String

Câu Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn Pascal ?

(0.5 điểm)

a (a*a + b)(1+c)(1 + c)(1 + c) b (a.a + b)(1 + c)(1 + c)(1 + c) c (a*a + b)*(1 + c)*(1 + c)*(1 + c) d (a2 + b)(1 + c)3

Câu 6: Writeln (‘Ban hay nhap nam sinh’); (0.5 điểm) Readln (NS);

Ý nghĩa hai câu lệnh là:

a Thơng báo hình dịng chữ: “Ban hay nhap nam sinh” b Yêu cầu người sử dụng nhập giá trị cho biến NS

c Thông báo hình dịng chữ: “Ban hay nhap nam sinh” yêu cầu người sử dụng nhập giá trị cho biến NS

d Tất sai II PhÇn tù luËn: (DÒ 1)

Câu 6: Viết biĨu thức tốn sau dạng biểu thức Pascal: (2 điểm) a 15x2 +30(x+2)

b

y y

x

   

5 18

) 10

(

Câu 7: Viết chơng trình giảI phơng trình bậc AX+B=0(Sư dơng lƯnh ifthen – else §iĨm)

III Phần tự luận (Đề 2):

Cõu 7: Viết biĨu thức tốn sau dạng biểu thức Pascal: (2 điểm) a (a3 + b)(1 + c3)

b (2 )2

x x y

y

   



Câu 8: (5 điểm)

Viết chương trình nhập vào số từ bàn phím, kiểm tra xem tổng hai số số chẵn hay lẻ.

Đáp án:

Phn 1: Trc nghim khch quan đề 2(2.5 Điểm) : Hóy ch n ỏp ỏn ỳng nh tọ đ đ ấ

C©u

Đáp án

ỳng B A A C C C

Phần II: Phần tự luận.đề 1 Câu 7:

a 15*x*x + 30*(x+2)

(75)

Program GIAI_PHUONG_TRINH_BAC_NHAT; Var a,b,x:real;

Begin

Clrscr;

Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); '); Write ('Nhap a= '); readln(a);

Write ('Nhap b='); readln(b); If(a=0) then If(b=0) then

Writeln(' Phuong trinh co vo so nghiem') Else

Writeln(‘Phuong trinh vo nghiem’) Else

Writeln('Phuong trinh co nghiem x=',-b/a); Readln;

End

Phần III: Phần tự luận.đề 2 Câu 7:

c (a*a*a + b)* (1 + c*c*c)

b (2*x+y)*(2*x+y) +1/3 – (4*x +5)/(6*y + 7); C©u 8:

Program kiemtra_chan_le; Var a,b,p :Integer;

Begin

Writeln(‘ Chuong trinh kiem tra tong so ’); Write(‘ Nhap hai so tu ban phim : ’);

Readln(a,b); P:=a+b;

If ( p mod = 0) then

Writeln(‘ Tong hai so la so chan ’ ) Else

Writeln(‘ Tong hai so la so le ’); Readln;

(76)

Ngàysoạn: 20/12/2008 Ngày dạy:

Tuan 18:

Tiết: 35

Bµi thùc hành A Mục tiêu :

Thc hin đợc thao tác khởi động/kết thúc TP, làm quen với hình soạn thảo TP  Thực đợc thao tác mở bảng chọn chọn lệnh

 Biết cách dịch, sửa lỗi chơng trình, chạy chơng trình xem kết  Biết cần thiết phải tuân thủ quy định ngôn ngữ lp trỡnh

- SGK, SGV, tài liệu, Giáo ¸n

- Chuẩn bị phòng thực hành đủ số máy tính hoạt động tốt 2 Học sinh :

- Hc thuc kiến thức lý thuyết học

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :……

(77)

Viêt sửa lỗi viết chơng trình cho chúng chạy kiểm tra kết quả Bài : Viết

chương trình nhập vào số từ bàn phím, kiểm tra xem tổng hai số số chẵn hay lẻ.

Bµi : Viết chơng trình giảI phơng trình bậc AX+B=0(Sư dơng lƯnh ifthen – else §iĨm

Bµi 1:

Program kiemtra_chan_le; Var a,b,p :Integer;

Begin

Writeln(‘ Chuong trinh kiem tra tong so ’); Write(‘ Nhap hai so tu ban phim : ’); Readln(a,b);

P:=a+b;

If ( p mod = 0) then

Writeln(‘ Tong hai so la so chan ’ ) Else

Writeln(‘ Tong hai so la so le ’); Readln;

End Bµi :

Program GIAI_PHUONG_TRINH_BAC_NHAT; Uses crt;

Var a,b,x:interger; Begin

Clrscr;

Writeln('GIAI PHUONG TRINH BAC NHAT); '); Write ('Nhap a= '); readln(a);

Write('Nhapb=');readln(b); If(a=0) then

If(b=0) then

Writeln(' Phuong trinh co vo so nghiem') Else

Writeln(‘Phuong trinh vo nghiem’) Else

Writeln('Phuong trinh co nghiem x=',-b/a); Readln;

(78)

Ngµy soạn : 20/12/2008 Ngày dạy :

Tuần 18 : Tiết 36:

Bài 7: câu lệnh lặp

A 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

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 B Chuẩn bị :

1 Giáo viên : - SGK, SGV, tài liệu, Giáo án - Đồ dùng dạy học

2 Học sinh : - Đọc trớc bài

- SGK, Đồ dùng học tập C Tiến trình tiết dạy :

Hoạt động : 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 để

1> Các công việc phảI thực nhiều lần - Trong sống hàng ngày, nhiều hoạt động đợc thực lắp lặp lại nhiều lần

- Có hoạt động mà thực lặp với số lần định biết trớc, công việc số lần khơng biết trớc

VD

+ sè lÇn lặp biết trứơc:

Cỏc ngy tun cỏc em lặp lặp lại hoạt động buổ sáng đến trờng buổi tra trở nhà + Số lần lặp trớc:

(79)

thực phép tính định

Hoạt động : Câu lệnh lặp – lệnh thay cho nhiều lệnh 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)

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

Gv: Mơ tả thuật tốn bảng

Gv: Mơ tả thuật tốn tính tổng số tự nhiên từ 1→ 100

2/ Cõu lệnh lặp – lệnh thay cho nhiều lệnh VD1: giả sử cần vẽ hình vng có cạnh đơn vị nh sau

Mỗi hình vng ảnh hình bên trái dịch chuyển khoảng đơn vị

Bớc 1: vẽ hình vng(vẽ liên tiếp cạnh trở đỉnh ban đầu)

Bớc 2: Nếu số hình vng đợc vẽ , di chuyển bút vẽ bên phải đơn vị trở lại bớc 1; ngợc lại kết thúc thuật toỏn

VD2

Riêng với toán vẽ hình vuông thao tác vẽ bốn canhj nhau,hay lặp lại lần thao tác vẽ đoạn th¼ng

Thuật tốn mơ tả bước để vẽ hình vng 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 Vd3: 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 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

IV: Cñng cè kiÕn thøc:

1/ Các công việc phải thực nhiều lần ?

2/ Câu lệnh lặp câu lệnh thay thÕ cho nhiỊu lƯnh Hướng dẫn nhà

Học xem lại ví dụ, chuẩn bị thực hành V: Híng dÉn vỊ nhµ:

(80)

- Chuẩn bị học cho tiết sau (học tiếp câu lệnh lặp)

Ngày soạn : 25/12/2008 Ngày dạy :

TuÇn 19 : TiÕt 37:

Bài 7: câu lệnh lặp

A 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

Hiểu lệnh ghép Pascal Thái độ nghiêm túc cẩn thận B ChuÈn bÞ :

- SGK, Đồ dùng học tập C Tiến trình tiết d¹y :

(81)

II KiĨm tra bµi cũ :

HS :Nêu công việc phải thực nhiều lần, nêu vd III Dạy :

Hoạt động : Ví dụ câu lệnh lặp 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 đếm giá trị cuối 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

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> do <câu lệnh>

trong đó:

+ for, to, từ khóa

+ 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 đếm giá trị cuối 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

Vd 1: Chuong trình in hình thứ tự lần lặp Program lap;

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.

(Delay (200)là hàm khai báo thời gian rơI nhanh hay chËm cđa ch÷ O)

*Lưu ý: Cõu lệnh đơn giản Writeln(‘O’)

Delay(200) đợc đặt từ khoá BEGIN AND để tạo thành câu lệnh ghép PASCAL

Hoạt động : Tính tổng tích câu lệnh lặp Gv: trỡnh bày đoạn chương trỡnh

tính tổng N số tự nhiên, với N

(82)

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?

Gv: Mơ tả thuật tốn tính tổng số tự nhiên từ 1→ 100

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;

end.

*Kiểu longint có phạm vi từ -231 đến 231 – 1. 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. IV: Cñng cè kiÕn thø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?

V: Híng dÉn vỊ nhà:

- Học bài, xem lại lấy thêm ví dụ

(83)

Tuần 19: Tiết38

Bit nhu cầu cần có cấu trúc lặp ngơn ngữ lập trình

Hiểu lệnh ghép Pascal Thái độ nghiêm túc cẩn thn B Chuẩn bị :

1 Giáo viên : - SGK, SGV, tài liệu, Giáo án - §å dïng d¹y häc

2 Häc sinh : - Đọc trớc bài

HS :Nêu cấu chúc câu lệnh lặp pascal III Dạy :

Bài tập:

1. Cho vài ví dụ hoạt động đợc thực lặp lại sống hàng ngày! 2. Hãy mơ tả bớc thuật tốn để vẽ hình a) b) sau đây:

(84)

Thao tác lặp cần thực để có hình điều kiện để kết thúc thao tác

3. H·y cho biÕt tác dụng câu lệnh lặp!

4. 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

for <biến đếm> := <giá trị đầu> to <giá trị cui> do <cõu lnh>;

của Pascal, điều kiện cần phải kiểm tra gì? Giải:

1. Cú th nêu nhiều vài ví dụ hoạt động lặp Dới số ví dụ: 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

2. 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 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 nửa đờng trịn “cong hớng A” (hình ) Ta xét A 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 + = 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 Khi mơ tả bớc thuật tốn để vẽ hình a) nh sau:

H×nh H×nh

Có thể mơ tả bớc thuật tốn để vẽ hình a) nh sau: Bớc Xác định điểm bắt đầu vẽ X

Bớc Đặt i = đặt hớng = lên trên. Bớc Vẽ nửa đờng tròn theo hớng đặt Bớc i = i +

Bớc Nếu i > 4, chuyển bớc 6; ngợc lại, đặt hớng = hớng + quay lại bớc 3. Bớc Kết thúc thuật tố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.

3. 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!

4. 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

for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <cõu lnh>;

(85)

Tuần 20: Tiết39

Bit nhu cầu cần có cấu trúc lặp ngơn ngữ lập trình

Hiểu lệnh ghép Pascal Thái độ nghiêm túc cẩn thận B ChuÈn bÞ :

(86)

- Đồ dùng dạy học 2 Học sinh : - Đọc trớc bài

HS :Nêu cấu chúc câu lệnh lặp pascal III Dạy :

Bài tập:

5. Chơng trình Pascal sau thực hoạt động nào?

var i: integer; begin

for i:=1 to 1000 do; end.

6. Hãy mô tả thuật tốn để tính tổng sau (n số tự nhiên đợc nhập vào từ bàn phím): A = ) ( 1    n n

7. Các câu lệnh Pascal có hợp lệ không, 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’);

d) for i:=1 to 10 do; writeln(’A’);

e) var x: real; for x:=1 to 10 writeln(’A’);

8. Một số ngơn ngữ lập trình, ví dụ Pascal, khơng có sẵn hàm tính lũy thừa Hãy mơ tả thuật tốn sử dụng câu lệnh lặp với số lần xác định trớc để viết chơng trình Pascal tính lũy thừa bậc n số nguyên X

9. Viết chơng trình Pascal nhập n số ngun từ bàn phím ghi hình số lớn số Số n đợc nhập vào từ bàn phím (Xem mơ tả thuật tốn Ví dụ 6, Bài 5.)

10.Viết chơng trình Pascal nhập n số nguyên từ bàn phím ghi hình số số dơng số Số n đợc nhập vào từ bàn phím (Xem Bài tập 5a, Bài 5.)

Gi¶i:

5. Tuy có vịng lặp 1000 lần, nhng chơng trình Pascal nói khơng thực hoạt động Tuy nhiên câu lệnh hợp lệ

6. ThuËt to¸n tÝnh tæng A = ) ( 1     n n

Bíc G¸n A  0, i  Bíc A 

( 2)

i i Bíc i  i +

Bíc NÕu i ≤ n, quay l¹i bíc

Bớc Ghi kết A kết thúc thuËt to¸n.

(87)

lệnh writeln(’A’)mời lần, ngợc lại câu lệnh hợp lệ; e) Biến 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

8. Tht to¸n:

Bíc NhËp số n x

Bớc A  1, i  (A lµ biÕn lu lịy thõa bËc n cđa x) Bíc ii + 1, A  A.x

Bíc NÕu i < n, quay lại bớc

Bớc Thông báo kết A lũy thừa bậc n x kết thúc thuật toán. Chơng trình Pascal có thÓ 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 A:=A*X;

writeln(x,' mu ',n,' bang ',A); end.

9. Tht to¸n:

Bíc NhËp sè n

Bíc A 32768 (g¸n sè nhỏ số kiểu nguyên cho A), i1

Bớc Nhập số thứ i gán giá trị vào biến A. Bớc Nếu Max < A, Max  A

Bíc ii + 1.

Bíc NÕu i ≤ n, quay lại bớc

Bớc Thông báo kết Max số lớn kết thúc thuật toán. Chơng trình Pascal 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 Bài tập 6, Bài 9)

10.Lời giải tơng tự nh lời giải Bài Xem thuật toán lời giải Bài tập 5a, Bài Chơng trình Pascal cã thÓ nh sau:

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;

(88)

else writeln('n phai > 0!'); end.

Tuần 20: Tiết40

Bài tập A Mục tiªu :

Hiểu lệnh ghép Pascal B ChuÈn bÞ :

- SGK, §å dïng häc tËp C TiÕn trình tiết dạy :

I n nh t chức lớp : - Kiển tra sĩ số :

HS :Nêu cấu chúc câu lệnh lặp pascal III Dạy míi :

Bµi tËp:

Bµi 2: SGK (T60)

- Câu lệnh lặp có tác dụng dẫn cho máy tính thực lặp lại câu lệnh hay nhóm câu lệnh với số lần nh

- Câu lệnh lặp làm giảm nhẹ công sức ngời viết chơng trình Bài SGK (T60)

- Điều kiện cần kiểm tra câu lệnh lặp for … giá trị biến đếm phải nằm đoạn [giá trị đầu, giá trị cuối ], thoả mãn điều kiện câu lệnh đợc thực hiện, không thoả mãn câu lệnh bị bỏ qua

Bµi SGK (T61)

Tất câu lệnh khơng hợp lệ vì: a) giá trị đầu lớn giá trị cuối

b) giá trị đầu giá trị cuối có kiểu số thực không kiểu với biến đếm c) sai cấu trúc câu lệnh

d) sai cÊu tróc c©u lƯnh

e) biến đếm có kiểu kiểu số thực nên không hợp lệ Bài SGK (T61)

(89)

Bµi SGK (T 61) - Mô tả thuật toán Bớc 1: nhập n A<-0, i<-1 Bíc 2: A<- 2\i(i+2) Bíc 3: i<-i+1

Bíc 4: nÕu i<=n quay vỊ bíc

Bíc 5: ghi kết A hình kết thúc thuật toán

Ngyson: 2/2/2009 Ngy dy:

Tuần 21:

Giảng ngày: Tiết 41: Bài thực hành 5:

sư dơng lƯnh lỈp for do A Mơc tiªu :

1 Kiến thức Vận dụng kiến thức vòng lặp for… do, câu lệnh ghép để vit chng trỡnh

2 Kỹ

(90)

Rèn luyện kỹ đọc hiểu chơng trình có sử dụng vịng lặp for …

3 Thái độ: Thái độ học tập nghiêm túc, tích cực làm tập thực hành. B Chuẩn bị :

1 Giáo viên :

- Chun b phũng thực hành đủ số máy tính hoạt động tốt 2 Hc sinh :

- Học thuộc kiến thức lý thuyết học

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :……

Kiểm tra trình thực hành

III Dạy :

Hoạt động giáo viên Hoạt động học sinh

Hoạt động 1: Viết chơng trình cho tập cho nhà (15’) - GV: yêu cầu dãy gõ

vµo

- 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

- Sau kt qu chy 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

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;

End

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;

(91)

-NhËn xÐt, rót kinh nghiƯm tiết thực hành

IVCủng cố:

- Giáo viên hệ thống lại toàn nội dung học - NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh

-V.H íng dÉn vỊ nhµ:

- 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

-o0o -Ngàysoạn: Ngy dy: Tuần 22:

Giảng ngày: Tiết 43: Bài thực hành 5:

sử dụng lệnh lặp for do A Mơc tiªu :

1 Kiến thức Vận dụng kiến thức vòng lặp for… do, câu lnh ghộp vit chng trỡnh

2 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 …

3 Thái độ: Thái độ học tập nghiêm túc, tích cực làm tập thực hành. B Chuẩn bị :

1 Giáo viên :

- Chun b phũng thc hành đủ số máy tính hoạt động tốt 2 Học sinh :

- Học thuộc kiến thức lý thuyết học

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :……

Kiểm tra trình thực hành

III Dạy :

(92)

- GV: Đa nội dung toán - HS: Nghiên cứu toán, tìm input

và output

GV: Đa nội dung chơng trình lên bảng, yêu cầu học sinh đọc hiểu

- GV: §a nội dung toán - HS: Nghiên cứu toán, tìm input

và 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

Vit chng 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è:

- Giáo viên hệ thống lại toàn nội dung bµi häc - NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh

V H íng dÉn vỊ nhµ:

(93)

Ngyson: Ngy dy: Tuần 22:

Giảng ngµy: TiÕt 44: Bµi thùc hµnh 5:

sư dụng lệnh lặp for do I/ Mục tiêu:

1 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

2 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;

Rốn luyn k nng c hiểu chơng trình có sử dụng vịng lặp for … 3 Thái độ: Thái độ học tập nghiêm túc, tích cực làm thực hành. II/ Chuẩn bị:

- Sách giáo khoa, giáo án, tài liệu tin học có liên quan Phòng máy - Đọc tài liƯu ë nhµ tríc

III Tiến trình lên lớp: 1 ổn định tổ chức lớp :

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :…… KiĨm tra

- KiĨm tra sù chn bÞ cđa häc sinh Bµi míi :

Hoạt động 1: Làm đẹp hình kết lệnh gotoxy, where (20’) - Giáo viên cho chạy kết qu ca bi

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 v đa nhận xét - ? Có cách để khong cỏch gia

các 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

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

a) Chỉnh sửa chơng trình nh sau:

Program Bang_cuu_chuong;

Uses crt;

Var i, n: integer; Begin

Clrscr;

(94)

quả 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

Writeln;

For i:=1 to 10 begin

gotoxy(5, wherey);

Writeln(n,’x’,i:2,’=’,n*i:3); Readln;

End

Hoạt động 2: sử dụng lệnh For lồng for (28’) - 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 vµ lÜnh héi - GV: đa nội dung chơng trình

thc hnh lên hình, yêu cầu học sinh đọc chơng trình, tìm hiểu hoạt độ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 lun

- GV: cho chạy chơng trình - HS : quan sát kết

hình

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

For<biến đếm 2:=giá trị đầu> to<giátrị cuố>do

< 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

Hoạt động 3: kết thúc (2’)

HS: tắt chơng trình ứng dụng, tắt máy, tắt nguồn

3 Củng cố:

- Giáo viên hệ thống lại toµn bé néi dung bµi häc 4 H íng dÉn vỊ nhµ:

- 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

(95)

Giảng ngày: Tiết 45: Bài tập 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 biết trớc câu lệnh ghép 2 Kỹ năng: Vận dụng vòng lặp for …… …….to câu lệnh ghép viết số toán đơn giản

3 Thái độ Thái độ học tập nghiêm túc, tích cực làm dạng tập ứng dụng. 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 lên lớp: 1. Tổ chức.

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :…… 2. KiÓm tra

- KiÓm tra sù chuÈn bị học sinh 3. Bài :

Hoạt động 1:Bài tập vận dụng - Giáo viên đa nội dung tập,

- HS ph©n tích toán tìm hớng giải

- Gv: hớng dẫn học sinh cách làm viết chơng trình lên bảng yêu cầu học sinh đọc hiểu

- HS: đọc lại chơng trình giáo viên viết bảng tìm hiểu câu lệnh

- GV: yêu cầu học sinh đứng vị trí diễn tả ý nghĩa ch-ơng trình thơng qua diễn tả công việc lệnh chơng trình

- GV: diễn tả lại lần để học sinh hiểu sâu chơng trình

- Giáo viên đa nội dung tập, - HS phân tích toán tìm hớng giải

Bài tập : Nhập vào n số nguyên từ bàn phím, t×m sè lín nhÊt d·y sè võa nhËp

Program tim_max; Uses crt;

Var i, n, smax, A : integer; Begin

Clrscr;

Writeln(‘nhap vao n’); readln(n); Smax:=-23768;

For i:= to n Begin

Writeln(‘nhap vao so thu ’,i); readln(A); If smax<A then smax:=A;

End;

(96)

quyÕt

- GV: §a c«ng thøc tÝnh day thõa: day thõa = 1*2*3*4*5*.*n

4. Củng cố:

- Giáo viên hệ thống lại toàn nội dung học

- Nhấn mạnh ý nghĩa công dụng, cách sử dụng vòng lặp for - Nhận xét, rut kinh nghiƯm bi häc

-5. H íng dÉn vỊ nhµ:

- 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

Ngyson: Ngy dy: Tuần 23:

Giảng ngày: Tiết 46: Bài tập

I/ Mục tiêu:

1 Kin thức Củng cố kiến thức vòng lặp với số lần biết trớc câu lệnh ghép 2 Kỹ năng: Vận dụng vòng lặp for …… …….to câu lệnh ghép viết số toán đơn giản

3 Thái độ Thái độ học tập nghiêm túc, tích cực làm dạng tập ứng dụng. 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 lên lớp: ổn định tổ chức lớp :

(97)

KiÓm tra.

- KiĨm tra sù chn bÞ cđa häc sinh Bµi míi:

Hoạt động 1:Bài tập vận dụng - HS: dựa vào tập Hôm trớc viết

chơng trình cho toán (viết theo nhóm)

- Đại diện nhóm đứng lên bảng trình bày kết Các nhóm khác nhận xét, rút kinh nghiệm

- GV: Kết luận kết cuối - Yêu cầu học sinh lên máy

chớnh gừ chng trình vào máy, lớp sửa lỗi có, cho chơng trình chạy thử, học sinh quan sát kết - HS: chép lại chơng trình chạy

vµo vởi

Bài tập Viết chơng trình tính day thừa n số tự nhiên

Program tinh_day_thua; Uses crt;

Var i, n : integer; kq: longint; Begin

Clrscr;

Writeln(‘nhap vao n’); readln(n); Kq:=1;

For i:= to n Kq:=kq*i;

Writeln(‘ket qua la’,kq); readln End

IV.Cđng cè:

- Gi¸o viên hệ thống lại toàn nội dung học V.H íng dÉn vỊ nhµ:

- 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

Ngàysoạn: 15/2/2009 Ngày dạy:

TuÇn 24:

Giảng ngày: Tiết 47: học vẽ hình với phần mền geogebra

I/ Mục tiêu:

- Hs hiểu đối tượng hình học phần mềm quan hệ chúng

- Thông qua phần mềm học sinh biết hiểu ứng dụng phần mềm toán học, thiết lập quan hệ toán học đối tượng

- Biết cách sử dụng phần mềm để vẽ hình học chương trình lớp - Hs ý thức việc ứng dụng phần mềm học tập

II/ Chn bÞ:

(98)

- Đọc tài liệu nhà trớc III Tiến trình lên lớp: ổn định tổ chức lớp :

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :…… KiĨm tra.

- KiĨm tra sù chn bÞ cđa häc sinh Bµi míi:

Hoạt động 1: E biết Geogebra

Hs đọc sgk

Hoạt động 2: Làm quen với phần mềm Geogebra tiếng viết

Nhấp đúp vào biểu tượng

Hoặc vào menu Start \ All Programs\ GeoGebra \ GeoGebra

Giới thiệu hình Hs thực

cho biết thành phần màm hình

Bảng chọn Thanh cơng cụ Cơng cụ di chuyển

có thể chọn nhiều đối tượng cách nào?

Hs : Nhấn phím CTRL chọn

Khi sử dụng công cụ khác chuyển công cụ di chuyển cách ? Hs : nhấn phím ESC

GV : lưu có cách

- Nhấn Ctrl + S chọn Hồ sơ - > lưu

Mở?

- Nhấn Ctrl + O chọn Hồ sơ - > mở

Thoát khởi phần mềm?

- Hồ sơ - > mở Alt + F4

1Em biết Geogebra?

2 Làm quen với phần mềm Geogebra tiếng Việt

a) Khởi động

b) Giới thiệu hình Geogebra tiếng Việt - Bảng chọn

- Thanh công cụ

c) Giới thiệu công cụ làm việc - Công cụ di chuyển

- Các công cụ liên quan đến đối tượng điểm

Thao tác : Chọn cơng cụ sau chọn đối tượng

- Các công cụ liên quan đến đoạn, đường thẳng

Thao tác : Chọn công cụ sau chọn đối tượng

- Các cơng cụ tạo mối quan hệ hình học

(99)

Chú ý : Thay đổi tên điểm , đường thẳng , chọn công cụ di chuyển ,lick dúp vào đối tượng cần thay đổi

- Các công cụ liên quan đến hình trịn

Thao tác : Chọn cơng cụ sau chọn đối tượng

- Các cơng cụ biến đổi hình học

d) Các thao tác với tệp - Lưu

- Mờ

e) Thoát phn mm

IV.Củng cố:

- Giáo viên hệ thống lại toàn nội dung học V.H íng dÉn vỊ nhµ:

(100)

Ngàysoạn: 15/02/2009 Ngy dy:

Tuần 24:

Giảng ngày: Tiết 48: học vẽ hình với phần mền geogebra

I/ Mục tiªu:

- Hs hiểu đối tượng hình học phần mềm quan hệ chúng

- Thông qua phần mềm học sinh biết hiểu ứng dụng phần mềm toán học, thiết lập quan hệ toán học đối tượng

- Biết cách sử dụng phần mềm để vẽ hình học chương trình lớp - Hs ý thức việc ứng dụng phần mềm học tập

II/ Chn 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 lên lớp: ổn định tổ chức lớp :

8A : …… 8B :…… 8C :…… 9A : …… 9B :…… 9C :…… KiÓm tra.

- Kiểm tra chuẩn bị học sinh Bài míi:

Hoạt động 1: E biết Geogebra

Hs đọc sgk

Hoạt động : Đối tượng hình học

Hs nêu khái niệm

3 Đối tượng hình học

a) Khái niệm đối tượng hình học

b) Đối tượng tự đối tượng phụ thuộc Nằm (thuộc về)

Đi qua

Giao hai đối tượng

c) Danh sách đối tượng hình Hiển thị  Hiển thị danh sách đối tượng d) Thay đổi thuộc tính đối tượng - Ẩn đối tượng :

B1 chọn đối tượng

B2 hủy chọn “ Hiển thị đối tượng “trong bảng hiển thị

- Ẩn tên đối tượng B1 chọn đối tượng

B2 hủy chọn “ Hiển thị đối tên” bảng hiển

- Thay đổi tên đối tượng

B1 nháy nút chuột phải lên đối tượng B2 chọn đổi tên

(101)

B1 nháy nút chuột phải lên đối tượng B2 chọn “ Mở dấu vết di chuyển Để xóa vết nhấn tổ hợp phím Ctrl + F - Xóa đối tượng : thực cách

C1 dùng nhấn Delete

C2 nháy nút chuột phải lên đối tượng, chọn xóa

C3 chọn cơng cụ , chọn đối tượng xóa

IV.Cđng cố:

- Giáo viên hệ thống lại toàn néi dung bµi häc V.H íng dÉn vỊ nhµ:

- Học theo sách giáo khoa ghi, Ôn lại kiến thức học luyện vit, lm i lm li nhiu ln

Ngày soạn : 20/2/2009

(102)

Ngày dạy :

8A : 8B :

8C : 8D : 8E :

TuÇn 25 TiÕt 49:

Bài 8: LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC

I.Mục tiêu: 1.Kiến thức

- 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;

2 Kĩ năng

- Nhận biết đâu hoạt động lặp với số lần chưa biêt trước

3 Thái độ

- 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 1 Ổn định lớp

2 Kiểm tra củ

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 i  i +

Bước Nếu i ≤ 100, SUM  SUM + i quay lại bước Bước Thông báo kết kết thúc thuật toán.

3 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).

(103)

+ 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 + G : Xét ví dụ

Chúng ta biết rằng, n

lớn 1000? Giải :

Kí hiệu S tổng cần tìm ta có thuật toán sau:

+ Bước S  0, n 

+ Bước Nếu S ≤ 1000, n  n + 1; ngược lại chuyển tới bước

+ Bước 3.S  S + n 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 toá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>; đó:

- đ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 1.

Ví dụ

Với giá trị n ( n>o )

n < 0.005

1

n < 0.003? Chương trình tính số n nhỏ

(104)

lớn

n nhỏ,

luôn lớn Với giá trị n

n < 0.005

1

n <

0.003 ?

( Gv đưa phim ví dụ ) + Hs : Đọc ví dụ ( Phim trong)

+ G : giới thiệu chương trình mẫu sgk ( Giáo viên in chương trình mẫu phim ) + Hs : quan sát

+ G : Chạy tay cho học sinh xem

+ Hs : ý nghe tự chạy tay lại

+ G : 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

nhất để

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 dobegin 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

V Hướng dẫn nhà: - Học

- Nghiên cứu trước ni dung cỏc phn cũn li

Ngày soạn :20/2/2009

Ngày dạy : 8A : 8B :

(105)

TuÇn 25 TiÕt 50:

Bài 8: LẶP VỚI SỐ LẦN CHƯA BIẾT TRƯỚC

(Tiếp theo) I.Mục tiêu:

1 Kiến thức:

- Biết câu lệnh lặp với số lần chưa biết trước while do… Pascal

2 Kĩ năng:

- Lấy vị cụ cụ thể câu lệnh lặp với số lần chưa biết trước

3 Thái độ:

- Nghiêm túc trình hcọ tập rèn luyện

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 1 Ổn định:

2 Kiểm tra cũ:

3 B i m ià

Hoạt động GV HS Nội dung

+ G : ta tiếp tục xét ví dụ mà chương trình có câu lệnh với số lần lặp chưa biết trước

Xét ví dụ

+ G : Cho học sinh quan sát phim chương trình

+ Hs : quan sát

+ G : Chạy tay cho học sinh xem + Hs : ý nghe tự chạy tay lại + G : 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 : chạy chương trình này, ta nhận giá trị ntn?

+ Hs : Nếu chạy chương trình ta nhận n = 45 tổng lớn 1000 1034

+ G : giới thiệu ví dụ sgk Viết chương trình tính tổng

Ví dụ 4. Chương trình Pascal thể thuật tốn tính số n ví dụ 2:

var S,n: integer;

begin

S:=0; n:=1;

while S<=1000 do

begin n:=n+1; S:=S+n end;

writeln('So n nho nhat de tong > 1000 la ',n);

writeln('Tong dau tien > 1000 la ',S);

end

Ví dụ Viết chương trình tính tổng 1

1 100

T     

Giải :

(106)

1 1

2 100

T     

+ G : Cho học sinh quan sát phim chương trình

+ Hs : quan sát

+ G : Chạy tay ( hai chương trình ) cho học sinh xem

+ Hs : ý nghe tự chạy tay lại + G : so sánh kết chạy hai chương trình

+ Hs : Kết

+ G : Ví dụ cho thấy sử dụng câu lệnh while…do thay cho câu lệnh for…do

+ G : Giới thiệu phần

+ G : Khi viết chương trình sử dụng cấu trúc lặp cần ý tránh tạo nên vịng lặp khơng kết thúc + Hs : Chú ý nghe

+ G : Chẳng hạn, chương trình lặp lại vơ tận:

var a:integer;

begin

a:=5;

while a<6 writeln('A');

end.

+ Hs : Quan sát

+ G : Trong chương trình trên, giá trị biến a luôn 5, điều kiện a<6 luôn nên lệnh writeln('A') thực Do vậy, thực vòng lặp, điều kiện câu lệnh phải thay đổi để sớm hay muộn giá trị điều kiện chuyển từ sang sai Chỉ chương trình khơng "rơi" vào "vịng lặp vơ tận" + Hs : Chú ý nghe

Để viết chương trình tính tổng 1

1 100

T      ta sử dụng lệnh lặp với số lần lặp biết trước for…do:

T:=0;

for i:=1 to 100 T:=T+1/i; writeln(T);

Nếu sử dụng lệnh lặp while…do, đoạn chương trình cho kết quả:

T:=0; i:=1;

while i<=100 begin T:=T+1/i; i:=i+1 end;

writeln(T);

* Nhận xét : Ví dụ cho thấy sử dụng câu lệnh while…do thay cho câu lệnh for… do

3 Lặp vơ hạn lần – Lỗi lập trình cần tránh

Khi viết chương trình sử dụng cấu trúc lặp cần ý tránh tạo nên vịng lặp khơng kết thúc

4 Củng cố:

- Ghi nhớ sgk

(107)

5 Hướng dẫn nhà:

- Học làm lại tập - Nghiờn cu trc bi thc hnh

8C : 8D : 8E :

(108)

Tuần 26 Tiết 51:

BàI thực hµnh 6: Sư dơng lƯnh LẶP WHILE A Mơc tiªu:

- Viết đợc chơng trình Pascal có sử dụng vịng lặp While - Biết sử dụng câu lệnh ghép

- Rèn kỹ đọc hiểu chơng trình có sử dụng vịng lặp while

B Phơng pháp

1 Phng phỏp: Thuyết trình, nêu vấn đề, vấn đáp Phơng tiện: Mỏy tớnh,

C Chuẩn bị:

1 Giáo viên:

- Chuẩn bị số thuật toán chơng trình - Chuẩn bị máy tính,

2 Häc sinh:- Thùc hiƯn nhiƯm vơ vỊ nhµ cđa tiÕt trớc

D Tiến trình dạy:

I n nh lp (1 phỳt)

II.Kiểm tra cũ (không kiểm tra) III.Giảng mới:

HĐ GV hs Néi dung

H§ 1: Bài 1

Gv: Viết đề

Gv: Em h·y cho biÕt input output toán?

Gv: Chúng ta cần tính TBC số? Gv: Nêu cách tính trung b×nh céng sè Hs:

4

x x x x

Gv: VËy tÝnh TBC n sè ta lµm ntn? Hs: x1 x2 x3 xn

n

   

Gv: TÝnh x1x2x3 xn  S ntn? Hs: S S + x;

Gv: để có S = S cũ + x Hs: S 0 (b1)

Gv: qluật S S + x; đến dừng? Hs: Khi dem > n  phát iu

kiện lặp Whiledo

Gv: Dựa vào hệ thống câu hỏi Lần lợt hình thành thuật toán

Hs: Dựa vào thuật toán trình bày chơng trình hoµn chØnh

Bài 1: Viết chơng trình Pascal sử dụng câu lệnh While…do để tính trung bình cộng n số thực nhập từ bàn phím (n, n số thc c nhp t bn phớm)

a Mô tả thuật toán.

INPUT: Nhập n, nhập n số nguyên OUTPUT: Kết TBC n số nguyên

B1: Nhập giá trị n( tính TBC số); dem0; S0;

B2: Trong dem <= n làm

Nhập số thứ (1,2,3.n) (cho x) SS+x; demdem +1;

B3: TÝnh TB S/n;

B4: In kết TB, kết thúc chơng trình

b Viết chơng trình. Program tinhTB; Uses Crt;

Var n,dem: integer; x, S, TB: real; BEGIN

ClrScr;

(109)

H§ cđa GV hs Nội dung

Gv: Quan sát, chỉnh sửa câu lệnh Hs

lên bảng trình bày dem:= 0; S:=0;

While dem <= n Begin

Write(‘Nhap so thu’, dem, ‘ = ‘ );readln(x); S:= S + x; dem:= dem + 1;

End; TB:= S/n;

Write(‘ Vay trung binh cong ’, n, ‘so la: ‘, TB:6:2); Readln

END

IV. Híng dÉn vỊ nhµ (2 phót)

- Ghi nhí cú pháp ý nghĩa câu lệnh lặp while ,

- Đọc tìm hiểu chơng trình Đọc thêm – Tính gần số Pi

8C : 8D : 8E :

BàI thùc hµnh 6: Sư dơng lƯnh LẶP WHILE A Mơc tiªu:

B Phơng pháp

1 Phng pháp: Thuyết trình, nêu vấn đề, vấn đáp Phơng tiện: Máy tính,

(110)

C ChuÈn bị:

1 Giáo viên:

- Chuẩn bị số thuật toán chơng trình - Chuẩn bị m¸y tÝnh,

2 Häc sinh:- Thùc hiƯn nhiƯm vơ nhà tiết trớc

D Tiến trình d¹y:

I. ổn định lớp (1 phút)

II.Kiểm tra cũ (không kiểm tra) II. Giảng mới:

HĐ GV hs Nội dung

Gv: Viết chương trình lên bảng

Hs: Ghi vào

Gv: Cho Hs tìm hiểu ý nghĩa câu lệnh

-Tác dụng: While n mod i <> i:= i + 1;

Hs: Lần lượt trả lời

Gv: Chương trình có tác dụng gì?

Hs: Mục đích nhận dạng số có số nguyên tố hay không? Hs: S S + x;

Gv: để có S = S cũ + x Hs: S 0 (b1)

Gv: qluật S S + x; đến dừng?

Hs: Khi dem > n phát điều kiện lặp Whiledo

Gv: Dựa vào hệ thống câu hỏi Lần lợt hình thành thuật toán

Hs: Dựa vào thuật toán trình bày ch-ơng trình hoàn chỉnh

Gv: Quan sát, chỉnh sửa câu lệnh Hs lên bảng trình bày

Bài 2: Đọc tìm hiểu ý nghĩa câu lệnh sau

Uses Crt;

Var n,i : integer; BEGIN

ClrScr;

Write(‘Nhap vao mot so nguyen: ‘);Readln(n);

If n<=1 Then Writeln(‘N khong la so nguyen to’);

Else Begin i:=2;

While n mod i <> i:= i + 1; If i = n Then Writeln(n,’ la so nguyen to’)

Else Writeln(n,’ khong la so nguyen to’);

End; Readln

END SS+x; demdem +1;

IV.Híng dÉn vỊ nhµ (2 phót)

(111)

- Đọc tìm hiểu chơng trình Đọc thêm – Tính gần số Pi

(112)

Ngµy soạn :8/3/2009

8C : 8D : 8E :

TuÇn 27 TiÕt 53:

BÀI TẬP

A Mơc tiªu:

- Viết đợc chơng trình Pascal có sử dụng vòng lặp While - Biết sử dụng câu lệnh ghép

B Phơng pháp

1 Phng phỏp: Thuyt trình, nêu vấn đề, vấn đáp Phơng tiện: Máy tớnh,

C Chuẩn bị:

1 Giáo viên:

- Chuẩn bị số thuật toán chơng trình - Chuẩn bị máy tính,

2 Học sinh:- Thùc hiƯn nhiƯm vơ vỊ nhµ cđa tiÕt tríc

Bài 1.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, câu lệnh lặp với số lần lặp cha biết trớc, điều kiện tổng quát nhiều, kiểm tra giá trị số thực, điều kiện tổng quát khác, ví dụ nh số có chia hết cho hay không,

c) 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 đợc thực Do có trờng hợp câu lệnh hồn tồn khụng c thc hin

Bài 2.Mô tả thuật toán:

Bớc Đặt i = R (i bán kính đờng trịn vẽ)

Bớc Nếu i > 1.5, vẽ đờng trịn bán kính i; ngợc lại, chuyển đến bớc 4. Bớc i  i  1/2 quay lại bớc

Bíc KÕt thóc tht to¸n.

Bài 3.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;

(113)

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 S = 10 kết thúc thuật toán Đoạn 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);

Nhận xét: Trong thuật tốn chơng trình trên, điều kiện đợc kiểm tra trớc bớc lặp đợc thực Do điều kiện khơng đợc thỏa mãn từ đầu, bớc lặp bị bỏ qua Điều đặc biệt câu lệnh lặp

while do.

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; c) Thiếu từ khóa begin end trớc sau lệnh n:=n+1; S:=S+n, vịng lặp trở thành vơ tận

Bài 6.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 luỹ thừa bậc n 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 HÃy so sánh với thuật toán tập 8, Thuật toán:

Bớc Đọc giá trị x n Bớc A 1, k 

Bíc NÕu k > n, chun xng bíc Bíc A = A.x, k k + quay lại bớc

Bớc Thông báo kết A 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.

Bài 7.Tính tích N số tự nhiên với số lần lặp không xác định (với N số tự nhiên đợc nhập vào từ bàn phím)

Bớc Đọc giá trị N Bớc T  1, k 

Bíc NÕu k N, T = T.k; ngợc lại, chuyển xuống bíc 5. Bíc k  k + vµ quay l¹i bíc

Bíc KÕt thóc thuật toán. Bài 8.Thuật toán:

Bớc Đọc giá trÞ n Bíc S  0, i 

Bíc NÕu i > n  1, chun xng bíc

Bíc NÕu n chia hÕt cho i, S  S + i, i i + quay lại bớc 3. Bớc Ghi giá trị S kết thúc thuật toán.

Chơng trình nh sau:

(114)

var n,i,S: integer;

begin

write('Cho so tu nhien n= '); readln(n); i:=2; S:=0;

while i<=n-1 do

begin

if (n mod i)=0 then S:=S+i; i:=i+1;

end;

write('Tong cac uoc so thuc su cua ',n,' la: ',S); readln;

end

Bài 9.Chơng trình nh sau: Uses CRT;

Var A, sum: real; i: integer;

Begin

Write('cho so A: '); readln(A); i:=1; sum:= 0;

While (sum<=A) do

Begin

sum:= sum+1/i; i:= i+1;

end;

Write('Gia tri N bang ', i:6); Readln;

End

8C : 8D : 8E :

TuÇn 27 TiÕt 54:

BÀI TẬP

A Mơc tiªu:

- Rèn kỹ đọc hiểu chơng trình có sử dụng vũng lp while

B Phơng pháp

1 Phơng pháp: Thuyết trình, nêu vấn đề, vấn đáp Phơng tiện: Máy tính,

C Chn bÞ:

1 Giáo viên:

(115)

2 Học sinh:- Thùc hiƯn nhiƯm vơ vỊ nhµ cđa tiÕt tríc

Bi 1: Lp trình tính tổng dùng lệnh lặp While Trong đú n số tự nhiên đợc nhập từ bàn phím.

1 1

1 ( )

A n Z

n

    

GIẢI Program tinhA;

Uses CRT; Var i, n: integer; tong: real;

BEGIN Clrscr;

write('cho so tu nhien n: '); Readln(n); tong:=0; i:=1;

while i<= n Begin

tong:= tong+ 1/i; i: = i+1;

End;

writeln(' Tong can tim la: ', tong:12:6); Readln;

END

Bài 2: Viết chương trình tìm ƯCLN(a,b) Biết a, b nhập từ bàn phím a,bZ Giải

Program timUCLN; Uses Crt;

Var a,b,r,a1,b1: integer; BEGIN

ClrScr;

Write(‘Nhap so thu nhat, a= ‘); Readln(a); a1:= a; Write(‘Nhap so thu hai, = ‘); Readln(b); b1:= b; While a mod b <>

Begin

r:= a mod b; a: = b; b: = r; End;

Write (‘ Vay UCLN(‘, a1, ‘;’,b1,’)=’,b:2); Readln

END

Bài 3: Viết chương trình tìm BCNN(a,b) Biết a, b nhập từ bàn phím a,bZ Giải

Program timBCNN; Uses Crt;

Var a,b,n,min,max,max1: integer;

(116)

BEGIN ClrScr;

Write(‘Nhap so thu nhat, a= ‘); Readln(a); a1:= a; Write(‘Nhap so thu hai, = ‘); Readln(b); b1:= b; If a>b then

Begin max: = a; min:=b; End Else Begin max:=b; min:= a; End; n:= 2; max1:=max;

While max mod <> Do Begin

max:= max1*n; inc(n); {n:=n+1} End;

Write (‘ Vay BCNN(‘, a, ;,b,)=,max:2); Readln

END

8C : 8D : 8E :

TuÇn 28 TiÕt 55:

KIÓm tra tiÕt

Trêng THCS Kim Lò

Đề kiểm tra 45 phút học kỳ 2(Khúi 8)

Họ tên học sinh: Lớp:

Phần I(Trắc nghiệm)-khoanh trũn ch cỏi đứng trước kết đúng Câu : Phát biểu sau ? (0,5 ®)

A Cấu trúc lặp sử dụng để thị cho máy tính thực lặp lại vài hoạt động điều kiện thoả mãn

B Chỉ ngơn ngữ lập trình Pascal có câu lệnh lặp để thể cấu trúc lặp C Ngôn ngữ Pascal thể cấu trúc lặp với số lần lặp cho trước câu lệnh

for…do

Câu 2: Lệnh lặp sau đúng? (0,5 ®)

(117)

B For <biến đếm>:= <giá trị đầu> to <giá trị cí> <câu lệnh>

C For <biến đếm>:= <giá trị cí> downto <giá trị đầu> <câu lệnh> D For <biến đếm>: <giá trị cí> downto <giá trị đầu> <câu lệnh> Câu 3: Câu lệnh pascal sau hợp lệ? (0,5 ®)

A For i:=100 to writeln(‘A’); B For i:=1.5 to 10.5 writeln(‘A’); C For i= to 10 writeln(‘A’);

D For i:= to 10 writeln(‘A’);

Câu 4: Pascal sử dụng câu lệnh lặp sau để lặp với số lần chưa biết trước? (0,5 ®)

A For…do; B While…do;

C If then;

D If…then…else;

Câu 5: Câu lệnh lặp while…do có dạng là: (0,5 ®) A While <điều kiện> <câu lệnh> do;

B While <câu lệnh> <câu lệnh> do; C While <điều kiện> <câu lệnh>;

D While <điều kiện> <câu lệnh>;

Câu : Em học vẽ hình với phần mềm nào? (0,5 ®) A Pascal;

B Geogebra;

C Mario;

D Finger Break out;

Câu 7:Chương trình pascal sau in hình nội dung gì? (1,5 ®)

Program vidu; Var i: integer; BEGIN

For i:=1 to 10 do

Writeln(‘Day la lan lap thu ‘,i); Readln;

END.

A câu “Day la lan lap thu i”; B câu “Day la lan lap thu ‘, i”; C 10 “Day la lan lap thu ‘, i”;

D 10 câu Day la lan lap thu i” với i theo thứ tự từ 1->10;

Câu 8: Các câu lệnh Pascal sau đợc viết hay sai? (nếu sai chỗ sai) 1,5 đ

a. if x:=7 then a=b;

b if x>5; then a:=b;

(118)

c if x>5 then; a:=b;

phần tự luận (4 đ)

Viết chơng trình tính tổng số ngun từ 10 đến 20

Trêng THCS Kim Lò

Đề kiểm tra 45 phút học kỳ 2(Khói 8)

Họ tên học sinh: Lớp:

Phần I(Trắc nghiệm)-khoanh trũn ch cỏi ng trc kết đúng Câu : Phát biểu sau ? (0,5 ®)

D Cấu trúc lặp sử dụng để thị cho máy tính thực lặp lại vài hoạt động điều kiện thoả mãn

E Chỉ ngơn ngữ lập trình Pascal có câu lệnh lặp để thể cấu trúc lặp F Ngôn ngữ Pascal thể cấu trúc lặp với số lần lặp cho trước câu lệnh

for…do

Câu 2: Lệnh lặp sau đúng? ((0,5 ®)

E For <biến đếm>= <giá trị đầu> to <giá trị cí> <câu lệnh>

F For <biến đếm>:= <giá trị đầu> to <giá trị cí> <câu lệnh>

G For <biến đếm>:= <giá trị cí> downto <giá trị đầu> <câu lệnh> H For <biến đếm>: <giá trị cí> downto <giá trị đầu> <câu lệnh> Câu 3: Câu lệnh pascal sau hợp lệ? (0,5 ®)

E For i:=100 to writeln(‘A’); F For i:=1.5 to 10.5 writeln(‘A’); G For i= to 10 writeln(‘A’);

H For i:= to 10 writeln(‘A’);

Câu 4: Pascal sử dụng câu lệnh lặp sau để lặp với số lần chưa biết trước? (0,5 ®)

(119)

F While…do;

G If then;

H If…then…else;

Câu 5: Câu lệnh lặp while…do có dạng là: (0,5 ®) E While <điều kiện> <câu lệnh> do;

F While <câu lệnh> <câu lệnh> do; G While <điều kiện> <câu lệnh>;

H While <điều kiện> <câu lệnh>;

Câu : Em học vẽ hình với phần mềm nào? (0,5 ®) E Pascal;

F Geogebra;

G Mario;

H Finger Break out;

Câu 7: Xem ví dụ sau pascal:(1,5®)

Uses crt; Var i:integer; Begin

Clrscr; I:=1

while i<15 do begin

Writeln(‘0’); i:=i+1

End; Readln; End.

Ví dụ ghi hình chữ số 0? E 1;

F 15; G 115;

H 14;

Câu 8: Các câu lệnh Pascal sau đợc viết hay sai? (nếu sai chỗ sai) 1,5đ

a. if x:=7 then a=b;

b if x>5; then a:=b;

c if x>5 then; a:=b;

(120)

phÇn tự luận (4 đ)

Viết chơng trình tính tổng n số tự nhiên , với n số tự nhiên nhập vào từ bàn phím

Ngày d¹y : 8A : 8B :

8C : 8D : 8E :

TuÇn 28 TiÕt 56:

Bài 9: Lµm viƯc víi d·y sè

A Mơc tiªu :

- Học sinh 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; - Hiểu thuật tốn tìm số lớn nhất, nhỏ dãy số

- Thái độ học tập nghiêm túc, tích cực làm tập thc hnh. B Chun b :

1 Giáo viên :

- Tài liệu, GA

- Đồ dùng dạy học nh máy tính kết nối projector, 2 Học sinh :

- Đọc trớc

C Phương pháp:

Vấn đỏp, thuyết trỡnh, hoạt động nhóm D Tiến trình tiết dạy :

I ổn định tổ chức lớp :

KiÓm tra sÜ sè : 8A: 8B: 8C 8D 8E II Kiểm tra cũ :

Câu lệnh đợc thực nh nào? Kiểm tra điều kiện

Nếu điều kiện sai, câu lệnh bị bỏ qua chuyển sang câu lệnh chơng trình Nếu điều kiện thực câu lệnh quay lại bớc III Dạy :

GV nhËn xÐt :

- Khai báo nhập liệu câu lệnh tương ứng với điểm HS:

(121)

Var Diem_1, Diem_2, Diem_3, … : real; Read (Diem_1) ; Read (Diem_2) ; Read (Diem_3) ; …

- sử dụng quy luật tăng hay giảm “số thứ tự” vài câu lệnh lặp để xử lí liệu cách đơn giản:

+ Với i = đến 100: Hãy nhập Diem_i; + Với i = đến 100: Hãy so sánh Max với Diem_i;

GV nhËn xÐt :

- Cách khai báo biến mảng ngơn ngữ lập trình khác nhau, ln cần rõ: tên biến mảng, số lượng phần tử, kiểu liệu chung phần tử.

- Dùng câu lệnh lặp, thay nhiều câu lệnh nhập in liệu hình

- Để so sánh điểm HS với giá trị đó, ta cần câu lệnh lặp

- Để xử lí đồng thời loai điểm mơn học, ta khai báo nhiều mảng

- Khi mảng khai báo, làm việc với phần tử như: gán giá trị, đọc giá trị thực tính tốn với giá trị

* Dữ liệu kiểu mảng:Là tập hợp hữu hạn phần tử có thứ tự

+ Mọi phần tử có kiểu liệu gọi kiểu phần tử.

Việc xếp thứ tự thực cách gán cho phần tử số:

+ Biến mảng: Là khai báo biến có kiểu liệu kiểu mảng

+ Giá trị biến mảng mảng (tức dãy số: nguyên - thực có thứ tự)

2.Ví dụ biến mảng:

Ví dụ: (SGK)/ Tr 76

* Cách khai báo mảng Pascal: Tên mảng : array [<chỉ số đầu> <chỉ số cuối>]of <kiểu liệu >;

Trong đó:

+ Chỉ số đầu số cuối: số nguyên biểu thức nguyên (Chỉ số đầu  số cuối );

+ Kiểu liệu: integer real * Ví dụ 2: (SGK)/ Tr 76

- Khai báo biến mảng Diem sau:

Var Diem : array [1 50] of real;

- Dùng câu lệnh lặp

For i:= to 50 do readln ( Diem [ i ] ); - Để so sánh điểm HS với giá trị

For i:= to 50 do

If Diem [ i ] > 8.0 then writeln ( ‘ Gioi ‘ );

- Để xử lí đồng thời loai điểm => khai báo nhiều mảng:

Var DiemToan : array [1 50] of real;

Var DiemVan : array [1 50] of real;

Var DiemLi : array [1 50] of real; hoặc:

Var DiemToan, DiemVan, DiemLi :

array [1 50] of real;

(122)

tính tốn với giá trị A[ ]:= 5; A[ ]:= 8;

hoặc nhập liệu từ bàn phím câu lệnh: For i:= to do readln ( A [ i ] ); Cñng cè - Lưu ý: Sử dụng cấu trúc For … do phù hợp, dễ hiểu cấu trúc

While…do vì biết trước số lần lặp - Làm BT 1, 2/ SGK/ Tr 79

Ngµy soạn :22/3/2009

8C : 8D : 8E :

Bi 9: Làm việc víi d·y sè

A Mơc tiªu :

- Học sinh 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; - Hiểu thuật toán tìm số lớn nhất, nhỏ dãy số

- Thái độ học tập nghiêm túc, tích cực làm tập thực hành. B Chuẩn bị :

1 Giáo viên :

- Tài liệu, Giáo án

- Đồ dùng dạy học nh m¸y tÝnh kÕt nèi projector, 2 Häc sinh :

- Đọc trớc

C Phng phỏp:

KiÓm tra sÜ sè : 8A: 8B: 8C 8D 8E II KiĨm tra bµi cũ :

không kiểm tra III Dạy míi :

- GV hướng dẫn HS tìm hiểu lại thuật tốn tìm giá trị lớn nhất, nhỏ dãy số nguyên ( học Bài )

+ GV giải thích thuật tốn tìm giá trị lớn dãy số nguyên … Sau cho HS nhắc lại

+ Cho HS thảo luận, chỉnh sửa

3 Tìm giá trị lớn nhỏ dãy số:

Tìm giá trị lớn ( Max ) dãy số nguyên nhập từ bàn phím

Thuật tốn

Bước 1: Nhập N dãy A1, … , An;

Bước 2: Max  A1;

(123)

thuật toán để tìm số nhỏ

- GV cho HS đọc ví dụ 3:

+ Để nhập số nguyên nhập vào, trước hết ta phải làm ?

+ Sau khai báo N, biến lưu số nhập vào phần tử biến mảng A Ngoài ra, cần khai báo thêm biến ?

- GV: Trình bày phần khai báo chương trình …

- HS đọc ví dụ

+ HS: …trước hết ta khai báo biến N

+ Cần khai báo thêm biến i làm biến đếm cho lệnh lặp, biến Max và Min để lưu số lớn nhất, nhỏ

- HS theo dõi

- GV cho HS đọc phần ghi nhớ

< A1 Max  Ai;

Bước 4: Đưa hình giá trị Max kết thúc

Ví dụ 3: (SGK)/ Tr 78 chương trình

Program MaxMin;

Uses crt;

Var i, n, Max, Min : integer; A : array [1 100] of integer;

{Phần thân chương trình tương tự đây:}

Begin

Clrscr;

Write ( ‘ Hay nhap dai cua day so, N = ‘); readln (n);

Writeln ( Nhap cac phan tu cua day so: m’);

For i:= to n do

Begin

Write ( ‘ a[ , i , ] = ‘); readln (a[ i ] ); End;

Max:= a[1]; Min:= a[1];

For i:= to n do

Begin if Max < a[ i ] then Max:= a[ i ]; if Min < a[ i ] then Min:= a[ i ]; End;

Write ( ‘ So lon nhat la Max = ‘ Max); Write ( ‘ So nho nhat la Min = ‘ Min); readln (n);

End

GHI NHỚ: (SGK)/ Tr 79

Cñng cè - NhËn xÐt rót kinh nghiƯm giê học VỊ nhµ - Häc sinh vỊ nhµ ơn

- Làm Câu hỏi BTcòn lại: sgk/ Tr 79; - Chuẩn bị tit sau: Bi

(124)

8C : 8D : 8E :

TuÇn 29 Tiết 58: bài tập A Mục tiêu :

- Học sinh cñng cè khái niệm mảng chiều:

khai báo mảng, nhập, in, truy cập phần tử mảng;

- Rèn kỹ năngxây dựng thuật toỏn tỡm số lớn nhất, nhỏ dóy số - Thái độ học tập nghiêm túc, tích cực làm tập thực hnh.

- Tài liệu, GA điện tử

- Đọc trớc

Không KT III Dạy :

Cú th xem bin mảng biến đợc tạo từ nhiều biến có kiểu, nhng dới tên nhất.” Phát biu ú ỳng hay sai?

HÃy nêu lợi ích việc sử dụng biến mảng chơng trình?

Các khai báo biến mảng sau Pascal hay sai:

varX:Array[10,13] Of Integer; var X: Array[5 10.5] Of Real; varX:Array[3.4 4.8]OfInteger; var X: Array[10 1] Of Integer; var X: Array[4 10] Of Real; Câu lệnh khai báo mảng sau có đợc máy tính thực không?

var N: integer;

A: array[1 N] of real;

1. §óng

2. Lợi ích việc sử dụng biến mảng rút gọn việc viết chơng trình, sử dụng câu lệnh lặp để thay nhiều câu lệnh Ngoài cịn lu trữ xử lí nhiều liệu có nội dung liên quan đến cỏch hiu qu

3. Đáp án a) Sai Phải thay dấu phảy hai dấu chấm;

b) c) Sai, giá trị nhỏ lớn của số mảng phải số nguyên;

d) Sai, giá trị đâu số mảng phải nhỏ số cuối;

e) §óng

4. Khơng Giá trị nhỏ lớn số mảng phải đợc xác định phn khai bỏo chng trỡnh

5. Chơng trình có thÓ nh sau: uses crt;

var N, i: integer;

A: array[1 100] of real; begin

(125)

Viết chơng trình Pascal sử dụng mảng để nhập từ bàn phím phần tử dãy số Độ dài dãy đợc nhập từ bàn phím

Đoạn chơng trình sau dùng để xếp lại dãy số đợc ghi mảng A[i], i = 1,2, , N, theo thứ tự tăng dần:

For i:=1 to N For j:=i to N If A[i] > A[j] then

Begin Tg:=A[i]; A[i]:=A[j]; A[j]:=Tg; End;

Hãy kiểm tra tính đắn đoạn chơng trình

Hãy viết chơng trình nhập số ngn từ bàn phím ghi hình số lớn số theo hai cách: không sử dụng biến mảng sử dụng biến mảng

Viết chơng trình sử dụng biến mảng để tính giá trị trung bình tổng N số nguyên đợc nhập vào từ bàn phím

write(’Nhap so phan tu cua mang, n= ’); readln(n);

for i:=1 to n begin

write(’Nhap gia tri ’,i,’cua mang, a[’,i,’]= ’); read(a[i])

end; end 6. §óng

7. a) Nếu không sử dụng biến mảng, chơng trình cã thĨ dµi nh sau:

uses crt;

var So_1, So_2, So_3, So_4, So_5, Max: integer; begin

clrscr;

write('Nhap so thu nhat: '); readln(So_1); write('Nhap so thu hai: '); readln(So_2); write('Nhap so thu ba: '); readln(So_3); write('Nhap so thu tu: '); readln(So_4); write('Nhap so thu nam: '); readln(So_5); Max:=So_1;

If Max<So_2 then Max:=So_2; If Max<So_3 then Max:=So_3; If Max<So_4 then Max:=So_4; If Max<So_5 then Max:=So_5; writeln('So lon nhat: ',Max); end

b) NÕu sư dơng biÕn mảng, chơng trình ngắn gọn nh sau:

uses crt;

var i, Max: integer;

A: array[1 5] of integer; begin

clrscr;

for i:=1 to

begin write('Nhap so thu ',i,':'); readln(A[i]) end;

Max:=a[1];

for i:=2 to If Max<a[i] then Max:=a[i]; writeln('So lon nhat: ',Max);

end 8/

uses crt;

var N, i: integer; TB: real;

A: array[1 100] of real; begin

clrscr;

write(’Nhap so phan tu cua mang, n= ’); read(n); for i:=1 to n

begin

write(’Nhap gia tri ’,i,’cua mang, a[’,i,’]= ’); readln(a[i])

(126)

Viết chơng trình sử dụng biến mảng để tính giá trị trung bình tổng N số nguyên đợc nhập vào từ bàn phím

Chơng trình nhập n số nguyên từ bàn phím tính tổng số d-ơng:

end; TB:=0;

for i:=1 to n TB:=TB+a[i]; TB:=TB/n;

write(’Trung binh bang ’,TB); end

9/ uses crt;

var n,k,S: integer;

X: array[1 1000] of integer; begin

clrscr;

write('Nhap so tu nhien n: '); readln(n); for k:=1 to n

begin write('Nhap X[',k,']='); readln(X[k]) end; S:=0;

for k:=1 to n

if X[k]>0 then S:=S+X[k]; writeln('Tong cac duong S=',S); readln;

end

Cđng cè - NhËn xÐt rót kinh nghiƯm giê bµi tËp. VỊ nhµ - Häc sinh vỊ nhà ụn bi

8C : 8D : 8E :

TuÇn 30 TiÕt 59: bµi thùc hµnh 7

xư lý d·y số chơng trình (T1) A 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ỏ dãy số, tính tổng dãy số

B Chn bÞ : 1 Giáo viên :

- Đồ dùng dạy học nh máy tính kÕt nèi projector, 2 Häc sinh :

- §äc tríc bµi

(127)

KiÓm tra sÜ sè : 8A: 8B: 8C 8D 8E II KiÓm tra cũ :

Không KT III Dạy míi :

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

write(i,' '); readln(a[i]); 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;

(128)

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 Cđng cè - NhËn xÐt rót kinh nghiƯm giê học

VỊ nhµ - Häc sinh vỊ nhµ ơn bi Ngày soạn :23/3/2009

8C : 8D : 8E :

Tuần 30 Tiết 60: bài thực hành 7

xử lý dÃy số chơng trình (T1) A Mục tiêu :

Thc 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ỏ dãy số, tính tổng dãy s

- Đọc trớc

Không KT III Dạy :

Bài 1:

Program P_Sum;

(129)

Chương trình tính tổng dãy số, in hình dãy số vừa nhập

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

i, n, Sum : 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;

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;

(130)

End 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 gian với phần mềm yenka

8C : 8D : 8E :

TuÇn 31 TiÕt 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ị :

1/ Giáo viên : tài liệu, giáo án 2/ Học sinh :

III phương pháp :

Vấn đáp, thuyết trình, hoạt động nhóm

IV/ Tiến trình tiết dạy :

1/ Ổn định lớp : 2/ Kiểm tra cũ 3/ Bài :

Hoạt động GV – HS Nội dung

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

(131)

a/ khởi động :

b/ Màn hình :

c/Thốt khỏi phần mềm :

Cđng cè - NhËn xÐt rót kinh nghiƯm giê học VỊ nhµ - Häc sinh nhà ụn bi

- Đọc trớc bài: Quan sát hình không gian với phần mềm yenka

8C : 8D : 8E :

TuÇn 31 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 các hình

II Chuẩn bị :

1/ Giáo viên : tài liệu, giáo án 2/ Hoïc sinh :

(132)

III phương pháp :

Vấn đáp, thuyết trình, hoạt động nhóm

IV/ Tiến trình tiết dạy :

1/ Ổn định lớp : 2/ Kiểm tra cũ 3/ Bài :

Hoạt động GV – HS Nội dung 3/ Tạo hình khơng gian : a/ Tạo mơ hình :

Vào hội hội thoại sau :

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ỏ : Hình trụ

(133)

 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 - Ctrl + A Delete

Cñng cè - NhËn xÐt rót kinh nghiƯm giê học VỊ nhµ - Häc sinh nhà ụn bi

Ngày d¹y : 8A : 8B :

8C : 8D : 8E :

TuÇn 32 TiÕt :63

BÀI TẬP

A Mơc tiªu:

- Viết đợc chơng trình Pascal có sử dụng Biến mảng - Biết sử dụng câu lệnh ghép

- Rèn kỹ đọc hiểu chơng trình có sử dụng vịng lp while

B Phơng pháp

C Chn bÞ:

1 Giáo viên:

- Chuẩn bị số thuật toán chơng trình

2 Học sinh:- Thực hiƯn nhiƯm vơ vỊ nhµ cđa tiÕt tríc

Hot ng ca giao viờn học sinh Hoạt động giáo viên

(134)

Sử dụng biến mảng chiều để viết chơng trình sau

Bµi 1: Viết chương trình nhập dãy số,

in dãy số hình

Bµi 2: Viết chương trình nhập dãy số,

in dãy số hình, tính tổng của các phần tử danh sách

Bµi 1:

program nhap_inds;

var a:array[1 100] of integer;

i,n:integer; begin

write('nhap n: ');readln(n); for i:=1 to n do

begin

write('nhap so thu ',i,':'); readln(a[i]);

end;

for i:=1 to n do write(a[i],' '); readln;

end. Bµi 2:

program tong_ds;

var a:array[1 100] of integer;

i,n,s:integer; begin

write('nhap n: ');readln(n); for i:=1 to n

begin

write('nhap so thu ',i,':'); readln(a[i]);

end;

for i:=1 to n write(a[i],' '); s:=0;

for i:=1 to n s:=s+a[i];

write('tong',n:3,' so mang la',s:4);

readln; end

E Cñng cố:

- Giáo viên hệ thống lại toàn néi dung bµi häc - NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh

F.H íng dÉn vỊ nhµ:

- Học theo sách giáo khoa ghi, Ôn lại kiến thức học luyện vit, lm i lm li nhiu ln

(135)

TuÇn 32 TiÕt :64

BÀI TẬP

A Mơc tiªu:

B Phơng pháp

C Chuẩn bị:

1 Giáo viên:

- Chuẩn bị số thuật toán chơng tr×nh

Hoạt động giao viên học sinh Hoạt động giáo viên Sử dụng biến mảng chiu vit cỏc

ch-ơng trình sau

Bài 1: Viết chương trình nhập dãy số, in số lẻ hình, tính tổng số lẻ có danh sách

Bµi 2: Viết chương trình nhập dãy số, in số chẳn hình, tính tổng số chẳn có danh sách

Bµi 1: program tong_ds;

i,n,s:integer; begin

begin

end;

if a[i] mod 2<>0 then write(a[i],' ');

s:=0;

if a[i] mod 2<>0 then s:=s+a[i];

write('tong cac so le mang la',s:4);

readln; end.

Bµi 2:

program tong_ds;

i,n,s:integer; begin

(136)

begin

end;

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); s:=0;

for i:=1 to n do if a[i] mod 2=0 then s:=s+a[i];

write('tong cac so chan trong mang la',s:4); readln;

end.

E Cñng cè:

- Giáo viên hệ thống lại toàn nội dung bµi häc - NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh

- Học theo sách giáo khoa ghi, Ôn lại kiến thức học luyện viết, làm i lm li nhiu ln

8C : 8D : 8E :

TuÇn 33 TiÕt :65

BÀI TẬP

A Mơc tiªu:

- Rèn kỹ đọc hiểu chơng trình có sử dụng vòng lặp while

(137)

C Chn bÞ:

1 Giáo viên:

- Chuẩn bị số thuật toán chơng trình

2 Học sinh:- Thực hiƯn nhiƯm vơ vỊ nhµ cđa tiÕt tríc

Hot ng ca giao viờn học sinh Hoạt động giáo viên Sử dụng bin mng chiu vit cỏc

ch-ơng trình sau

Bµi 1: Viết chương trình nhập dãy số, in dãy số hình, tìm số nhỏ có danh sách

Bµi 2: Viết chương trình nhập dãy số, in dãy số hình, tìm số lớn có danh sách

Bµi 1: program tong_ds;

var a:array[1 100] of integer; i,n,min:integer;

begin

end;

for i:=1 to n do write(a[i],' '); min:=a[1];

if a[i]<min then min:=a[i]; write('so lon nhat mang la',min:4);

Bµi 2:

program tong_ds;

var a:array[1 100] of integer; i,n,max:integer;

begin

end;

for i:=1 to n do write(a[i],' '); max:=a[1];

if a[i]>max then max:=a[i]; write('so lon nhat mang la',max:4);

E Củng cố:

- Giáo viên hệ thống lại toàn bé néi dung bµi häc

(138)

- NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh F.H íng dÉn vỊ nhµ:

- 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 ln

8C : 8D : 8E :

TuÇn 33 TiÕt :66

BÀI TẬP

A Mơc tiªu:

B Phơng pháp

C Chuẩn bị:

1 Giáo viên:

- Chuẩn bị số thuật toán chơng tr×nh

Hoạt động giao viên học sinh Hoạt động giáo viên Sử dụng biến mảng chiu vit cỏc

ch-ơng trình sau

Bài 1: Viết chương trình nhập dãy số, in hình số nhỏ nhất, lớn tính giá trị trung bình ptử danh sách

Bµi 1: program ln_nn_tb;

var a:array[1 100] of integer; i,n,s,max,min:integer;

begin

end; s:=0;

max:=a[1]; min:=a[1];

for i:=1 to n begin

if a[i]>max then max:=a[i]; if a[i]<max then min:=a[i]; s:=s+a[i];

end;

writeln('gia tri nho nhat la', min:4);

writeln('gia tri lon nhat la', max:4);

(139)

Bµi 2: Viết chương trình nhập dãy số, in hình dãy số đó, xếp dãy số theo thứ tự giảm dần

end Bµi 2:

program ds;

var a:array[1 100] of integer; i,n,sau,vt,tg

:integer; begin

begin

end;

write('day so chua sap xep: '); for i:=1 to n

write(a[i],' ');

write('day so sap xep giam dan:');

for vt:=1 to n-1 for sau:=vt+1 to n if a[vt]<a[sau] then begin

tg:=a[vt]; a[vt]:=a[sau]; a[sau]:=tg; end;

for i:=1 to n write(a[i],' '); readln;

end readln; end

E Cñng cè:

- Giáo viên hệ thống lại toàn nội dung häc - NhËn xÐt, rót kinh nghiƯm tiÕt thùc hµnh

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

Định dạng
Số trang	139
Dung lượng	6,84 MB