Giao an Tin hoc 8 full

a) Như tên gọi của nã, câu lệnh lặp với số lần lặp cho trước chỉ thị cho máy tính thực hiện một lệnh hoặc một nhãm lệnh với số lần đã được xác định từ trước, còn với câu lệnh lặp với số [r]

(1)

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

TUẦN 1 Tiết :

BÀI 1: MÁY TÍNH VÀ CHƯƠNG TRÌNH MÁY TÍNH

A MỤC TIÊU :

 Biết người 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

- 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 cũ : III Dạy :

HOẠT ĐỘNG CỦA THÀY VÀ 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 cái gì ?

Để máy tính thực cơng việc theo mong muốn mình, người phải đưa dẫn thích hợp cho máy tính

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 quét nhà HS : Quan sát nghiên cứu SGK

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

HS : Trả lời

(2)

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

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

HS : Nhắc lại 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 bên trái hình)

Hướng dẫn nhà.

(3)

Ngày soạn : Ngày dạy : Tiết 2:

BÀI 1: MÁY TÍNH VÀ 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 toá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 dịch

- 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 : II Kiểm tra cũ :

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

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)

tính Vì việc viết nhiều lệnh hợp lại chương trình giúp người điều 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

nhau 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 lệnh cho máy tính làm việc

4 Chương trình ngơn ngữ lập trình ? Thơng tin đưa vào 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

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

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

GV : 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 một tốn cụ thể

3 Ngôn ngữ dùng để viết chương trình máy tính gọi ngơn ngữ lập trình

(5)

1 Em cho biết soạn thảo văn yêu cầu máy tính tìm kiếm thay (Replace), thực chất ta yêu cầu máy thực lệnh ? Ta thay đổi thứ tự chúng khơng?

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 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?

(6)

Tuần 2 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 trùng với các từ khoá.

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

2 Học sinh :

- Đọc trước

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 GV : Đưa ví dụ chương

trình đơn giản viết môi trường Pascal

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

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

1 Ví dụ chương trình

* Ví dụ chương trình đơn giản viết Pascal

(7)

HS : Trả lời theo ý hiểu hình dịng chữ Chao cac ban HOẠT ĐỘNG : Học sinh hiểu ngôn ngữ lập trình gồm gì GV : 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 ghép theo quy tắc ngữ pháp hay không ? HS : Đọc câu hỏi suy nghĩ trả lời

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

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

GV : 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,

Ví dụ 1: Hình chương trình đơn giản viết ngơn ngữ lập trình Pascal Sau dịch, kết chạy chương trình dòng chữ "Chao Cac Ban" in hình

HOẠT ĐỘNG : HS tìm hiểu từ khố tên chương trình. GV : Đưa ví dụ chương trình

như phần trước HS : Nghiên cứu

GV : Theo em từ chương trình từ khoá HS : Trả lời theo ý hiểu

GV : Chỉ từ khố chương trình

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

HS : Trả lời theo ý hiểu GV : Tên ?

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

HS : Nghe ghi

3 Từ khoá tên

- Từ khố ngơn ngữ lập trình

từ dành riêng, khơng dùng từ khố 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 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 trùng với từ khoá. Củng cố kiến thức.

(8)

? 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 bắt đầu chữ số không 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ệ, cịn tên Lop em, 10A, tên không hợp lệ

(9)

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

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

2 Học sinh :

- Đọc trước

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

2 Thế từ khố 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 GV : Đưa ví dụ chương trình

GV : Cho biết chương trình có phần ?

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

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

HS : Đọc

GV : Giải 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 buộc phải có

- Phần khai báo có khơng Tuy nhiên, có phần khai báo phải đặ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 GV : Khởi động chương trình T.P

để xuất hình sau :

(10)

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

HS : Quan sát lắng nghe

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

- Màn hình T.P xuất

- 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 được 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ì?

(11)

Tuần 3 :

TIẾT

BÀI THỰC HÀNH 1 : LÀM QUEN VỚI TURBO PASCAL A MỤC TIÊU :

 Thự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 thao tác mở bảng chọn chọn lệnh

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

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

- Đọ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ừ khố chương trình

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

III Dạy :

HOẠT ĐỘNG : Hướng dẫn ban đầu GV : Đóng điện

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

GV : 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.

HS : Khởi động kiểm tra tình trạng máy tính => Báo cáo tình hình cho G HS : ổ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. GV : Giới thiệu biểu tượng

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

(12)

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

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

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

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

HS : Quan sát

GV : Giới thiệu 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

HS : Làm theo máy quan sát lệnh menu

GV : Giới thiệu cách thoát khỏi TP HS : Làm thử máy tính

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

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ư mục 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 hình

d Nhấn phím F10 để mở bảng chọn, sử dụng phím mũi tên sang trái sang phải ( ) để di chuyển qua lại bảng chọn e Nhấn 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. HS : Gõ chương trình phần a

sgk

GV : Mở chương trình chuẩn bị sẵn từ máy chủ

HS : Đọc hiểu ý sgk

HS : Làm theo cách bước b, c, d sgk

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

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

Bài Soạn thảo, lưu, 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

(13)

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

HOẠT ĐỘNG : Giáo viên hướng dẫn H làm hình lớn. HS : Làm theo bước yêu cầu

trong SGK

GV : Thường xuyên máy kiểm tra, theo dõi hướng dẫn cụ thể

GV : Làm bước a, b máy chủ giải thích số lỗi cho H hiểu

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

HOẠT ĐỘNG : Giáo viên tổng kết nội dung tiết thực hành.

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

HS : Đọc phần đọc thêm SGK

GV : Có thể giải thích thêm

Tổng kết : SGK

Nhận xét sau tiết thực hành :

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

(14)

Ngày dạy :

TIẾT :

BÀI THỰC HÀNH 1 : LÀM QUEN VỚI TURBO PASCAL

A MỤC TIÊU :

- 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ừ khố chương trình

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

III Dạy :

HOẠT ĐỘNG : Hướng dẫn ban đầu GV : Đóng điện

GV : Xác nhận kết báo cáo 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.

HS : Làm theo bước yêu cầu SGK

GV : Thường xuyên máy kiểm tra, theo dõi hướng dẫn cụ thể

GV : Làm bước a, b máy chủ giải thích số lỗi cho H hiểu

(15)

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

HOẠT ĐỘNG : Giáo viên tổng kết nội dung tiết thực hành. GV : Đưa lên hình nội dung

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

HS : Đọc lại

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

(16)

Tuần 4 :

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 :

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 cũ : III Dạy :

HOẠT ĐỘNG CỦA THÀY 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. GV : Nêu tình để gợi

ý liệu kiểu liệu GV : Đưa lên hình ví dụ SGK

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

GV : Ta thực phép tốn với liệu kiểu ?

HS : Nghiên cứu SGK trả lời với kiểu số

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

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ữ lập trình định nghĩa sẵn số kiểu liệu

(17)

GV : Theo em có kiểu liệu ? Lấy ví dụ cụ thể kiểu liệu

HS : Nghiên cứu SGK trả lời SGK, Đồ dùng học tập, bảng phụ

GV : Chốt hình kiểu liệu giải thích thêm

GV : Trong ngơn ngữ lập trình có kiểu liệu hay cịn nhiều ?

GV : Đưa lên hình ví dụ SGK để giới thiệu tên số kiểu liệu NNLT pascal GV : Đọc tên kiểu liệu Integer, real, char, string HS : Đọc lại

HS : Viết tên ý nghĩa kiểu liệu TP

GV : Đưa ví dụ : 123 ‘123’

HS : Đọc tên hai kiểu liệu

GV : Đưa ý kiểu liệu char string

trong thư viện,

 Số thực, ví dụ chiều cao bạn Bình, điểm trung bình mơn Tốn,

 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 liệt kê số kiểu liệu ngôn ngữ lập trình Pascal:

Chú ý: Dữ liệu kiểu 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ố. GV : 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 ?

HS : Viết giơ bảng phụ có hiệu lệnh G GV : Đư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

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

- Bảng 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.

(18)

HS : Quan sát để hiểu cách viết ý nghĩa phép toán ghi

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

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

GV : Đưa phép tốn viết dạng ngơn ngữ tốn học :

8  xy 

x

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

HS : Viết giơ bảng phụ có hiệu lệnh G GV : Yêu cầu H viết lại phép toán x y (x 2)2

a b 

 

 

bằng ngôn ngữ TP HS : Làm bảng phụ GV : Nhận xét đưa bảng ví dụ SGK

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

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

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

3

  

 ? HS : Viết SGK, Đồ dùng học tập, bảng phụ

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

5 div = 2; 12 div = 2 mod = 1; 12 mod = 2

- Ta 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ữ tố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 biểu thức số học:

 Các phép toán ngoặ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ư thực trước;  Phép cộng phép trừ 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 {} toán học

HS : Nhắc lại kiến thức cần đạt

Kí hiệu Phép tố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

(19)

GV : Chốt lại kiến thức trọng tâm Hướng dẫn nhà.

1 Học lý thuyết, làm tập 1, 2, 3, Đọc trước phần 3,4

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 phép tốn so sánh ngơn ngữ lập trình

 Biết khái niệm đ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 :

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

- Đọc trước

- SGK, Đồ dùng học tập, bảng phụ C TIẾN TRÌNH TIẾT DẠY :

(?) Nêu số kiểu liệu mà em 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 kiểu liệu, phép tốn khơng có nghĩa kiểu liệu

(?) Dãy chữ số 2010 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 GV : Đưa lên hình bảng kí hiệu

các phép tốn so sánh toán học

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

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

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 tốnhọc

= Bằng =

<> Khác ≠

(20)

GV : Đưa ví dụ : a)  = b) 15 + > 20  c) + x ≤ 10

HS : Viết bảng phụ kết so sánh a, b, c

GV : Theo em phép so sánh viết ngơn ngữ TP có giống tốn học khơng ?

HS : Trả lời theo ý hiểu GV : Đưa lên hình bảng

<= Nhỏ ≤

> Lớn >

>= Lớn ≥ Ví dụ: 3*2 > 4; 5=5; 5<>6; … => kết

5*2=9, 22>17, … => kết sai

HOẠT ĐỘNG : HS làm quen với số dạng hình giao tiếp với máy tính

GV : Đưa ví dụ bảng thơng báo kết

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

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

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

HS : Trả lời theo ý hiểu GV : Nhận xét giải thích

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

GV : Giải thích tình

HS : Lắng nghe để hiểu

GV : Đưa ví dụ hộp thoại HS : 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 tố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 :

(21)

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

1 Làm tập 5,

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

(22)

Tuần 5: Tiết:9

Bài thực hành 2: Viết Chương Trình Để Tính Tố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:

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'); 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 -Gv: nhận xét, ghi điểm

Hs: làm 1a

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

(23)

- Gv lưu ý thêm: dùng dấu ngoặc đơn để nhóm phép tốn - Gv: trong 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 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ò:

(24)

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

Tiết:10

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

I/ Mục tiêu:

- Giúp hs tiếp tục làm quen cách soạn thảo, chỉnh sửa, biên dịch chạy chương trình

- Giúp hs làm quen với biểu thức số học chương trình Pascal II/ Chuẩn bị:

- Gv: phòng máy, tập thực hành - Hs: kiến thức cũ, sgk

III/ Tiến trình dạy – học: 1 ổn định lớp:

2 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

- 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

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

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

Hs: thực hành

Hs: thực hành, nhận xét kết câu Hs: thêm lệnh delay (5000) vào sau câu lệnh writeln chương trình

(25)

rút nhận xét với kết nhận

- Gv: câu c yêu cầu điều gì?

- Gv: yêu cầu hs quan sát kết rút nhận xét

- Gv: yêu cầu hs tiếp tục thực hành bt3/ 23

- Gv: em cần mở lại bt CT2.pas lưu chỉnh sữa lại theo yêu cầu bt3, xem kết khác điểm nào? - Gv: từ rút nhận xét

- Gv: chủ yếu giúp em hiểu phân biệt phép div, mod Và hiểu thêm cách in liệu hình

- Gv: theo dõi uốn nắn thêm cho hs

Hs: thực hành 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

(26)

Ngày dạy:

Tuần 6: Tiết 11:

BÀI : SỬ DỤNG BIẾN TRONG CHƯƠNG TRÌNH

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 máy tính, projector, 2 Học sinh :

- Đọc trước

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 Viết 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 vào từ bàn phím

III Dạy :

HOẠT ĐỘNG CỦA THÀY VÀ TRÒ

KIẾN THỨC CẦN ĐẠT 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

1 Biến cơng cụ lập trình.

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

- Dữ liệu biến lưu trữ 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 :

(27)

thế 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 tích

* Ví dụ :

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

 100 50

5 

hình Cách làm :

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 ví dụ khai báo biến 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 : Viết dạng tổng 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 ;

(28)

2 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 đâ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 nhập vào từ bàn phím).

b) Tính kết c 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.

đáp án : a) Var S, a, h: integer b) Var a, b: integer; c, d: real;

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ụ

(29)

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

Tuần :

TIẾT 12 :

BÀI 4: SỬ DỤNG BIẾN TRONG 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 :

II Kiểm tra cũ :

1 Biến dùng để làm chương trình ? Lệnh Readln(x) có tác dụng ?

2 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 biến, muốn

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 ?

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

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 tốn với giá trị 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);

(30)

hoạt động lệnh gán

G : Đưa hình bảng ví dụ lệnh gán

Lệnh ý nghĩa

X:=12;

Gán giá trị lưu biến nhớ Y vào biến nhớ X X:=(a+b)/2;

Tăng giá trị biến nhớ

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

H : Điền vào ô trống lệnh ý nghĩa lệnh

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

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

- Ví dụ :

Lệnh ý nghĩa

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

Yvào biến nhớX

X:=(a+b)/2; Thực phép tốn tính trung bình cộng hai giá trị nằm hai biến nhớa vàb Kết gán vào biến nhớX

X:=X+1; Tăng giá trị biến nhớXlê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 để hiểu

hằng cách khai báo ?

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

H : Trả lời

G : Viết cách khai báo số ví dụ cụ 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 ?

H : N/c sgk trả lời

4 Hằng

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

- Cách khai báo :

Const tên =giá trị ; Ví dụ :

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

1. Giả sử A khai báo biến với kiểu liệu số thực, X biến với kiểu 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'

(31)

(32)

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,

- 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 : II Kiểm tra cũ :

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

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

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 viết chương trình để tính tốn.

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

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 toan : ';

{Nhap don gia va so luong hang}

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

(33)

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

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à.

(34)

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

Tuần 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 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,

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

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

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

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

(35)

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 Thử viết chương trình nhập số nguyên x y, in giá trị x y hình Sau hoá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)

đượ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

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)

2. Kí hiệu phép toá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

(36)

TIẾT 15: 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 tố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 tập sau : Chương trình máy tính liệu - SGK, Đồ dùng học tập, bảng phụ

C TIẾN TRÌNH TIẾT DẠY : I Ổn định tổ chức lớp :

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

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 liệu

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 ?

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 tốn :

- Cộng : + Trừ : Nhân : * - Chia : /

- Chia lấy phần nguyên, phần dư : Div, mod

(37)

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ụ

G : Nhận xét đưa dạng tốn áp dụng

a) Th«ng báo kết tính toán b) Nhập liệu

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

Bài :

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

a) Dữ liệu kiểu số liệu kiểu xâu kí tự Phép cộng định nghĩa liệu số, nhưng 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ố nguyên, 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 ra hình xâu kí tự '5+20' tổng 20 + sau: 5+20=25

Bài : Viết lại phép toán 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;

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

(38)

(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

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

Viết biểu thức toán học sau dạng biểu thức Pascal

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

3 



  ;

c) (10 2)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 để áp dụng làm tập

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 : B CHUẨN BỊ :

1 Giáo viên :

(39)

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

II Ma trận đề : Mức độ

Nội dung

Biết Hiểu Vận dụng

III Dạy :

KIẾN THỨC CẦN ĐẠT 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 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 biểu diễn Pascal ?

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 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 Tất 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 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

(40)

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

b xy y

   

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

sinh không nghiêm túc

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 chưa hiểu đề

H : Nộp làm xong

Tuần : TIẾT 17:

LUYỆN 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 :

(41)

KIẾN THỨC CẦN ĐẠT HOẠT ĐỘNG : Giới thiệu phần mềm Finger break out

G : Lớp em 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 biểu tượng

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 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 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 câu hỏi G

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

G : Mở Level giới thiệu mức khó khác trị

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

- Kích đúp vào biểu tượng

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

- Hình bàn phím vị trí trung tâm với phím có vị trí bàn phím Các phím tơ màu ứng với ngón tay gõ phím

- Khung trống hình bàn phím khu vực chơi

(42)

chơi

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

G : Chọn 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 khỏi chương trình làm ?

H : Trả lờ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

? Nêu cách khởi động 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

G : Nhận xét chốt kiến thức Hướng dẫn nhà.

- Học thuộc cách khởi động thoát 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 bàn phím

(43)

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

Tuần :

TIẾT 18:

LUYỆN GÕ BÀN PHÍM NHANH VỚI FINGER BREAK OUT

A MỤC TIÊU :

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

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, projector, 2 Học sinh : - Đọc trước bài

I Ổn định tổ chức lớp : II Kiểm tra cũ : III Dạy :

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 chơi

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 : Làm để 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 ?

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

- Bắt đầu chơi nháy nút Start xuất

- Nhấn phím space để bắt đầu chơi

Cách chơi :

- Gõ 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ỏ

(44)

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

H : Trả lời

G : Chơi thử để xuất vật lạ

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

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

- Ở mức khó có vật lạ Nếu để vật chạm vào ngang lượt chơi HOẠT ĐỘNG : HS 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 quả.

 Tổ chức thi :

Nhóm chiến thắng ?

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 finger Break Out Học thuộc luật 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 :

(45)

 Thực hành với biểu thức số học chương trình Pascal B CHUẨN BỊ :

- Đồ dùng dạy học 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 :

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

HOẠT ĐỘNG : Hướng dẫn ban đầu G : Đóng điện

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

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.

(46)

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 :

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

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

HOẠT ĐỘNG : Hướng dẫn ban đầu G : Đóng điện

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

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 :

(47)

(48)

Ngày soạn :

Ngày dạy :

Tuần 11: Tiết 21

BÀI 5: TỪ BÀI TỐN ĐẾN CHƯƠNG TRÌNH

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 Input, Output toán đơn giản; B CHUẨN BỊ :

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

I Ổn định tổ chức lớp : II Kiểm tra cũ : (không) III Dạy :

KIẾN THỨC CẦN ĐẠT HOẠT ĐỘNG : Học sinh tìm hiểu khái niệm tốn, thuật toán G : Muốn nhờ máy giải

tốn em phải làm ?

H : Trả lời

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

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

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

1 Bài tốn chương trình Bài tốn :

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

G : Đưa toán lên hình

H : Đọc nghiên cứu để tìm cách giải tốn

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

H : Hoạt động nhóm viết vào

Bài tốn :

Tính giá trị 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

(49)

bảng phụ nộp kết G yêu cầu

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

- Tính hiệu P1 – c nhớ kết vào P2 - Tính thương P2/d nhớ kết vào P - In giá trị P 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 tốn :

Hãy điều khiển rôbốt nhặt 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 tố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 toán :

- Bài tố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 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 nghẽn giao thơng

(50)

Ngày soạn :

Ngày dạy :

Tuần 11 : TIẾT 22

BÀI 5: TỪ BÀI TỐN ĐẾN CHƯƠNG TRÌNH (T.T)

A MỤC TIÊU :

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

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

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

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

- Đọc trước

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

? Đọ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ì ?

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 Q trình giải tốn máy tính * Các bước để nhờ máy giải toán :

 Bước : Xác định toá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 quyết

(xây dựng thuật tốn) tìm, lựa chọn thuật tốn mơ tả ngơn ngữ thơng thường

(51)

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

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

diễn đạt thuật toán ngơn ngữ lập trình cho máy tính hiểu thực

HOẠT ĐỘNG : HS biết mơ tả thuật tốn phương pháp liệt kê bước. G : Chỉ bước cần thiết để pha

trà khách ?

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

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

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

H : Nghiên cứu SGK

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

G : Đưa mơ tả thuật tố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 thuật toán ? H : Trả lời

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

4 Thuật tốn mơ tả thuật tốn

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

a Ví dụ :

Bài tốn giải phương trình bậc dạng tổng qt bx + c =

(SGK) b Ví dụ :

Bài tố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 kết cần tìm từ điều kiện cho trước 5 Một số ví dụ thuật tốn

a Ví dụ : Tính diện tích hình

(SGK)

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

Bước 1: Gán SUM  1; i  1. Bước 2: Gán i  i + 1.

Bước 3: Nếu i ≤ 100, 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 tốn.

(52)

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)

b Ví dụ : Tính tổng 100 số tự nhiên

* Xác định toán :

INPUT: Dãy 100 số tự nhiên (từ đến 100)

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

Qua tiết học em nắm 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 nhà.

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

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

Tuần 12: TIẾT 23

BÀI TẬP 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 Input, Output toán đơn giản;  Biết bước giải toán máy tính;

(53)

 Biết mơ tả thuật toán phương pháp liệt kê bước

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

- 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 q trình giẩi tố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 việc thực thuật

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ọ học sinh lớp OUTPUT: Số học sinh có họ Trần

(54)

OUTPUT: Tổng phần tử lớn

c) INPUT: Dãy n số.

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

2 Sau ba bước, x có giá trị ban đầu y y có giá trị ban đầu x, tức giá trị của hai biến x y hoán đổi cho nhau.

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

(55)

GV hỏi:bài toán xác định bào toá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 dần

Hường dẫn trả lời 3 Mơ tả thuật tố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 5. Bước 2: Tính b + c Nếu b + c ≤ c, chuyển tới bước 5. Bước 3: Tính a + c Nếu a + c ≤ b, chuyển tới bước 5.

Bước 4: Thơng báo “a, b c ba cạnh tam giác” kết thúc thuật tố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 tốn cách sử dụng biến phụ không dùng biến phụ

Thuật toán Sử dụng biến phụ z. INPUT: Hai biến x y.

OUTPUT: Hai biến x y có giá trị tăng dần. Bước 1: Nếu x ≤ y, chuyển tới bước 5.

(56)

Bước 5: Kết thúc thuật toán.

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

(57)

GV hỏi:Nêu trình giảI tố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 trên

để 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 tốn tính tổng phần tử 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 so sánh z với x z với y, sau thực bước hoán đổi giá trị cần thiết (xem lại Ví dụ Bài 5, SGK)

INPUT: Ba biến x, y z.

OUTPUT: Ba biến x, y z có giá trị tăng dần. Bước 1: Nếu x ≤ y, chuyển tới bước 3.

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

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 z  t. Bước 6: Kết thúc thuật tốn.

6 Thuật tốn tính tổng phần tử dãy số A = {a1, a2, , an} cho trước INPUT: n dãy n số a1, a2, , an

OUTPUT: Tổng S = a1 + a2 + + an Bước 1: S  0; i  0.

Bước 2: i  i + 1.

(58)

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

B Bài tập

7. Hãy mơ tả thuật tốn nhập n số a1, a2, , an từ bàn phím ghi hình số nhỏ số Số n nhập từ bàn phím.

(59)

a) Đếm số số dương dãy số A = {a1, a2, , an} cho trước

b) Hãy mô tả thuật tốn tính tổng số dương dãy số A = {a1, a2, , an} cho trước

Hường dẫn trả lời

7 Thuật tốn tìm số nhỏ dãy n số a1, a2, , an cho trước Thuật toán tương tự thuật toá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 INPUT: n dãy n số a1, a2, , an

OUTPUT: Min = Min{ a1, a2, , an} Bước 1: Nhập n 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 < 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 INPUT: n dãy n số a1, a2, , an

OUTPUT: Soduong = Số 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 > 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 INPUT: n dãy n số a1, a2, , an

OUTPUT: S = Tổng số > dãy a1, a2, , an Bước 1: S  0; i  0.

Bước 2: i  i + 1.

Bước 3: Nếu > 0, S  S + ai; ngược lại, giữ nguyên S Bước 4: Nếu i ≤ n, quay lại bước 2.

(60)

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

Tuần 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 sống

I Ổn định tổ chức lớp : II Kiểm tra cũ : 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ó 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í đá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

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

b) Màn hình chính

(61)

c) Thốt khỏi phần mềm

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

(62)

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

(63)

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 đồ tính theo thời gian hệ thống máy tính Tuy nhiên, em thay đổi thời gian nút lệ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

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,

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

sáng sớm Vùng đệm chuyển

(64)

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 huỷ chọn mục Show Sky Color Khi đồ giới với múi có dạng sau:

Để thay đổi trạng thái thay đổi thông tin này, em thực lệnh

Options  Maps huỷ chọn mục Hover Update Khi thơng tin thời

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

a) Hiện khơng hình ảnh bầu trời theo thời gian

(65)

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ó đị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 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

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

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

Cửa sổ nhỏ sau xuất

(66)

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 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 đêm vùng khác Trái Đất

Hãy quan sát nút lệnh sau công cụ:

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 : CÂU LỆNH ĐIỀU KIỆN

A.Mục tiêu:

 Biết cần thiết câu trúc rẽ nhánh lập trình

 Biết cấu trúc rẽ nhánh 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 rẽ 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 rẽ 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âu lệnh điều kiện Pascal. B.Chuẩn bị :

 Gv : tranh vẽ 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);

(67)

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̉ thực một điều kiện cụ thể xảy Điều kiện thường kiện 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 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

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

(68)

3 Điều kiện phé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 phép so sánh

- Các phép so sánh thường sử dụng để biểu diễn điều kiện.

- Các phép so sánh cho kết sai.

Tuần 15 : TIẾT 30 :

Bài : CÂU LỆNH ĐIỀU KIỆN

A.Mục tiêu:

 Biết cần thiết câu trúc rẽ nhánh lập trình

 Biết cấu trúc rẽ nhánh 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 rẽ 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 rẽ 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âu lệnh điều kiện Pascal. B.Chuẩn bị :

 Gv : tranh vẽ 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 :

GV: Em nêu ví dụ hoạt động hàng ngày em có phụ thuộc vào điều kiện? Phân tích?

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 rẽ nhánh

Ta biết rằng, thực một chương trình, máy tính thực hiện 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ể thoả mãn; ngược

4.Cấu trúc rẽ nhánh

Ví dụ 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 giảm 30% tổng số tiền phải thanh toán Hãy mơ tả hoạt động tính tiền cho khách.

(69)

lại, điều kiện không thoả mãn bỏ qua câu lệnh thực hiện câu lệnh khác

Bước Tính tổng số tiền T khách hàng mua sách.

Bước Nếu T ≥ 100000, số tiền phải toán = 70%  T

Bước In hố đơ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 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

Dạng 2

5.Hãy viết chương trình tìm giá trị lớn hai số nguyên

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

 Với dạng expl lệnh thực ngược lại thực lệnh

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;

Điều kiện

Lệnh Lệnh

Lệnh Điều kiện

(70)

Hãy viết lại tập sử dụng câu lệnh dạng if ….then……else

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

3 Hướng dẫn học nhà :

Nắm vững hai dạng câu lệnh điều kiện Biết vẽ 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 được 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

(71)

Ví dụ: (a > 0) and (a ≤ 5)

Từ khoá or sử dụng để kết hợp nhiều phép so sánh đơn giản Giá trị của phép so sánh sai tất phép so sánh thành phần sai Ngược lại, có giá trị đúng.

(72)

Tuần 16: Tiết 31

Bài Thực hành số : SỬ DỤNG CÂU LệNH IF ….THEN

A Mục đích, yêu cầu :

 Luyện tập sử dụng câu lệnh if … Then

 Rèn luyện kĩ ban đầu đọc chương trình đơn giản hiểu ý bghĩa thuật toán sử dụng chương trình

I Ổn định tổ chức lớp : 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); Write (‘b=’) ; readln(b);

If a < b then write (a, ‘ ‘, b) else write (b, ‘ ‘, a);

Readln; End.

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 .

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

Bài Viết chương trình nhập chiều

(73)

writeln('Ban Long cao hon'); If Long<Trang then

writeln('Ban Trang cao hon') else writeln('Hai ban cao bang nhau');

readln end.

* VỀ ÔN LẠI BÀI

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

Tuần 16: Tiết 32

Bài thữc hành số : SỬ DỤNG CÂU LÊNH IF ….THEN

A Mục đích, yêu cầu :

 Luyện tập sử dụng câu lệnh if … Then

 Rèn luyện kĩ ban đầu đọc chương trình đơn giản hiểu ý bghĩa thuật tốn sử dụng chương trình

(74)

2 Học sinh :

I Ổn định tổ chức lớp :

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 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 chỉ a + b > c, b + c > a c + a > b

Tuần 17: TIẾT 33

ÔN TẬP A MỤC TIÊU :

 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

(75)

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

Viết lại phép toán 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;

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 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.

(76)

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)

a Var tb: real; b Type 4hs: integer; c const x: real; d Var R = 30;

Câu 4: Muốn in lên hình sịng chữ “Toi la Hs lop 8” 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

(77)

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 toán sau dạng biểu thức Pascal: (2 điểm) a 15x2 +30(x+2)

b xy y

   

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 if- then – else Điểm)

III Phần tự luận (Đề 2):

Câu 7: Viết biểu thức toán sau dạng biểu thức Pascal: (2 điểm) a (a3 + b)(1 + c3)

b (2 )2

3

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:

Phần 1: Trắc nghiệm khách quan đề 2(2.5 Điểm) : Hãy ch n áp án úng nh tọ đ đ ấ

Câu

Đáp án

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)

b (10 + x)*(10 + x)/(3 + y) – 18/(5+y) Câu 8:

Program GIAI_PHUONG_TRINH_BAC_NHAT; Var a,b,x:real;

Begin

Clrscr;

(78)

('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;

(79)

Tuan 18: Tiết: 35

BÀI THỰC HÀNH

A MỤC TIÊU :

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

(80)

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 if- then – 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;

(81)

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

I Ổn định tổ chức lớp : II Kiểm tra cũ : III 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 để thực phép tí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 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 trước

VD

+ số lần lặp biết trứơc:

Các ngày tuần em lặp lặp lại hoạt động buổ sáng đến trường buổi trưa trở nhà + Số lần lặp trước:

(82)

đị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ị 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 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 vng 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 cho nhiều lệnh Hướng dẫn nhà

(83)

- Học bài, xem lại lấy thêm ví dụ

- Chuẩn bị học cho tiết sau (học tiếp câu lệnh lặp)

Tuần 19 : TIẾT 37:

BÀI 7: CÂU LỆNH LẶP

A MỤC TIÊU :

(84)

- Đồ dùng dạy học 2 Học sinh : - Đọc trước bài

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ó cùng kiểu với biến đếm giá trị cuối phải lớn hơ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 chữ O)

(85)

Delay(200) đặ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 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

Vd 1: chương trình tính tổng N số tự nhiên đầu tiên, với N số tự nhiên nhập từ bàn phím

S = 1+2+3+ … + N program Tinh_tong; var N,i:integer;

S:longint; begin

write(‘Nhap so N = ‘); readln(N);

S:= 0;

for i:= to N do S:= S+i;

writeln(‘Tong cua’, N, ‘so tư nhien dau tien S = ‘, S); readln;

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ụ

(86)

Tuần 19: TIẾT38

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 thực lặp lại sống hàng ngày!

(87)

Hình a) Hình b)

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 một điều kiện Với lệnh lặp

for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>; Pascal, điều kiện cần phải kiểm tra gì?

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 xác định trước

c) Mỗi lần 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ự quy định trước

2 a) Có thể thấy, để vẽ 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 các 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 +1 = sang phải, sang phải +1 = lên Khi mơ tả bước thuật tốn để vẽ hình a) sau:

Hình Hình

Có thể mơ tả bước thuật tốn để vẽ hình a) 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 +

(88)

Bước Kết thúc thuật toán

Lưu ý Khi trình bày thuật tốn lần cho học sinh khơng nên định nghĩa phép tốn với hướng mà nên liệt kê đủ bốn hướng thuật toán b) Thuật toán tương tự 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 một điều kiện Với lệnh lặp

for <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

(89)

Tuần 20: TIẾT39

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 nhập vào từ bàn phím):

A = ( 1)

5

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’);

(90)

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 toá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ố nguyên từ bàn phím ghi hình số lớn số Số n 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ố ngun từ bàn phím ghi hình số các số dương số Số n 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, chương trình Pascal nói khơng thực hiện hoạt động Tuy nhiên câu lệnh hợp lệ

6 Thuật tốn tính tổng

A = ( 1)

5 1     n n

Bước Gán A  0, i  Bước A  i i ( 12) 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.

7 Trừ d), tất câu lệnh không hợp lệ: a) Giá trị đầu phải nhỏ giá trị cuối; b) Các giá trị đầu giá trị cuối phải số nguyên; c) Thiếu dấu hai chấm khi gán giá trị đầu; d) Thừa dấu chấm phảy thứ nhất, ta muốn lặp lại câu lệnh writeln(’A’)mười lần, ngược lại câu lệnh hợp lệ; e) Biến x khai báo biến có liệu kiểu số thực dùng để xác định giá trị đầu giá trị cuối câu lệnh lặp

8 Thuật toán:

Bước Nhập số n x

Bước A  1, i  (A biến lưu lũy thừa bậc n x) Bước ii + 1, A  A.x

Bước Nếu i < n, quay lại bước 3.

Bước Thông báo kết A lũy thừa bậc n x kết thúc thuật tốn. Chương trình Pascal 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 Thuật toán:

Bước Nhập số n

(91)

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 3.

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 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.

Lưu ý Trong chương trình sử dụng hai biến A Max để giải bà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ị nhập vào, cần biến để lưu 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ự 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ể 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; writeln('So cac so duong = ',SoDuong) end

else writeln('n phai > 0!'); end.

Tuần 20: TIẾT40

(92)

Hiểu lệnh ghép Pascal B CHUẨN BỊ :

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 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)

Giá trị j sau lần lặp tăng thêm đơn vị 2, 4, 6, 8, 10, 12

Bài SGK (T 61) - Mơ tả thuật tố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: i<=n quay bước

(93)

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 để viết chương trình

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;

Rèn luyện kỹ đọc hiểu chương trình cã sử dụng vòng lặp for …

(94)

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA 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 kết chạy chương trình đúng, gv yêu cầu học sinh chữa làm nhà cho theo chương trình chạy

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;

(95)

End

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

Tuần 22:

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 để viết chương trình

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;

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 :

(96)

- GV: Đưa nội dung toán - HS: Nghiên cứu tố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 tố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

Viết chương trình in hình bảng nhân số từ đến 9, dừng hình để cã thể 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ố:

V Hướng dẫn nhà:

(97)

Tuần 22:

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

1 Kiểm tra

- Kiểm tra chuẩn bị học sinh 2 Bà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

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

Bài sgk (T63)

a) Giới thiệu lệnh gotoxy(), wherex - Gotoxy(a,b)

(98)

- HS: quan sát đưa nhận xét - ? Cã cách để khoảng cách

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 so sánh với kết chương trinh chưa dùng lệnh gotoxy(5, wherey)

- HS: quan sát nhận xét

cột a hàng b

- Wherex: cho biết số thứ tự cột, wherey cho biết số thứ tự hàng

* Lưu ý: 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 sau: Program Bang_cuu_chuong;

Uses crt;

Var i, n: integer; Begin

Clrscr;

Writeln(‘Nhap vao so n’); readln(n); Writeln(‘Bang nha’,n);

Writeln;

For i:=1 to 10 begin

gotoxy(5, wherey);

Writeln(n,’x’,i:2,’=’,n*i:3); Readln;

End

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 lĩnh hội - GV: đưa nội dung chương trình

thực hành 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 luận

- 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;

(99)

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 nội dung học 4 Hướng dẫn nhà:

Tuần 23:

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…….do 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.

2 Kiểm tra

- Kiểm tra chuẩn bị học sinh 3 Bài mớ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 tố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

Bài tập : Nhập vào n số nguyên từ bàn phím, tìm số lớn 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;

(100)

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 tốn tìm hướng

giải

- GV: Đưa cơng thức tính day thừa:

day thừa = 1*2*3*4*5*….*n

Begin

Writeln(‘nhap vao so thu ’,i); readln(A); If smax<A then smax:=A;

End;

Writeln(‘so lon nhat la’,A); readln End

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 buổi học

-5 Hướng dẫn nhà:

(101)

Tuần 23:

Giảng ngày: Tiết 46: 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…….do 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Ị:

III TIẾN TRÌNH LÊN LỚP: Ổn định tổ chức lớp :

Kiểm tra.

- Kiểm tra chuẩn bị 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õ chương 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ố:

(102)

V.Hướng dẫn 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

(103)

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/ CHUẨN BỊ:

-Kiểm tra.

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ơ - >

1 Em 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

(104)

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

học

Thao tác : Chọn cơng cụ sau chọn đối tượng

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 khởi phần mềm

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 nhà:

Ngàysoạn: 15/02/2009 Ngày dạy:

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

(105)

II/ CHUẨN BỊ:

Kiểm tra.

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

- Đặt / hủy vết chuyển động đối tượng. 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 học V.Hướng dẫn nhà:

(106)

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 Kĩ 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 độ

(107)

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 toán tính tổng 100 số tự nhiên 1,2,3,…,99,100 Trả lời

Bước SUM  0; i  0. Bước i  i + 1.

Bước Nếu i ≤ 100, SUM  SUM + i quay lại bước 2. 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ụ + 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 toá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

1 Các hoạt động lặp với số lần chưa biết trước

a/ Ví dụ 1(sgk).

b/ Ví dụ : Nếu cộng n số tự nhiên đầu tiên (n = 1, 2, 3, ), Cần cộng số tự nhiên để ta nhận tổng Tn nhỏ lớn 1000?

Giải :

Kí hiệu S tổng cần tìm ta có thuật tốn sau:

+ Bước S  0, n  0.

+ Bước Nếu S ≤ 1000, n  n + 1; ngược lại chuyển tới bước

+ Bước S  S + n quay lại bước 2.

+ Bước In kết : S n số tự nhiên nhỏ nhất cho S > 1000 Kết thúc thuật toán. * Ta có sơ đồ khối :

(108)

+ 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

n nhỏ, ln

luôn lớn Với giá trị của n 1

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

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 ) 1

n < 0.005

1

n < 0.003? Chương trình tính số n nhỏ

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 begin n:=n+1; x:=1/n end;

writeln('So n nho nhat de 1/n < ',sai_so:5:4, 'la ',n);

(109)

sai_so = 0.003 thành 0.002 ; 0.001 ; 0.005 ;

+ Hs : thực 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 nội dung phần lại

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

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 Kĩ 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

Ví dụ Chương trình Pascal đây thể thuật tốn tính số n ví dụ 2:

var S,n: integer; begin

(110)

+ 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 sẽ 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

1 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 3

+ 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ị

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

1

2 100

T     

Giải :

Để viết chương trình tính tổng

1 1

1

2 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

(111)

của 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

4 Củng cố:

- Ghi nhớ sgk

- Làm tập 2,3a,bài SGK/71 5 Hướng dẫn nhà:

(112)

TUẦN 26 TIẾT 51:

BÀI THỰC HÀNH 6: SỬ DỤNG LỆNH LẶP WHILE DO A MỤC TIÊU:

- Viết 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 Phương 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 tốn chương trình - Chuẩn bị máy tính,

2 Học sinh:- Thực nhiệm vụ nhà tiết trước.

D TIẾN TRÌNH BÀI DẠY:

I ổn định lớp (1 phút)

II.Kiểm tra cũ (không kiểm tra) III Giảng mới:

HĐ CỦA GV VÀ HS NỘI DUNG

HĐ 1: Bài 1

Gv: Viết đề

Gv: Em cho biết input output toán?

Chúng ta nghiên cứu lý thuyết vòng lặp While để biết vòng lặp chạy hơm vào tiết thực hành

Gọi Hs đọc toán nêu yêu cầu toán

? Dữ liệu đầu vào (Input) tốn

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ố thực nhập từ bàn phím)

a Mơ tả thuật tố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

(113)

? Dữ liệu đầu (Output) toán

Gv: Nêu cách tính trung bình cộng số

Hs:

4

x x x x

Gv: Làm để tính trung bình n số thực x1, x2, , xn

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 điều kiện lặp While…do

Gv: Dựa vào hệ thống câu hỏi Lần lượt hình thành thuật toán

Gọi Hs nêu thuật toán

Gv nhận xét đưa thuật toán ? Dựa vào việc thuật toán trên, theo em cần khai báo biến cho chương trình tốn

Gv kết luận đưa chương trình trình Sgk

? Tìm hiểu ý nghĩa câu lệnh. Gv mơ hoạt động chương trình với n =

Yêu cầu Hs hoạt động nhóm để thực công việc sau:

+ Gõ lưu chương trình với tên Tinh_TB

+ Dịch sửa lỗi có chạy với số liệu tuỳ ý đề kiểm tra kết nhận

+ Thử viết lại chương trình cách sử dụng câu lệnh For thay cho câu lệnh while

? Khi ta dùng câu lệnh For do ta dùng câu lệnh While Gv: Chúng ta cần tính TB số?

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;

Write(‘Muon tinh TB bao nhieu so n=’); Readln(n); 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

(114)

câu lệnh lặp While

IV. Hướng dẫn 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

(115)

TUẦN 26 TIẾT 52:

BÀI THỰC HÀNH 6: SỬ DỤNG LỆNH LẶP WHILE DO A MỤC TIÊU:

- Viết 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

C CHUẨN BỊ:

1 Giáo viên:

I. ổn định lớp (1 phút)

II.Kiểm tra cũ (không kiểm tra) II. Giảng mới:

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ó

là 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 While…do

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’)

(116)

HĐ CỦA GV VÀ HS NỘI DUNG Gv: Dựa vào hệ thống câu hỏi Lần

lượt hình thành thuật tốn

Hs: Dựa vào thuật tốn trình bày chương trình hồn chỉnh

Gv: Quan sát, chỉnh sửa câu lệnh Hs lên bảng trình bày

End; Readln

END SS+x; demdem +1;

IV.Hướng dẫn nhà (2 phút)

- Ghi nhớ cú pháp ý nghĩa câu lệnh lặp while ,

(117)

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

TUẦN 27 TIẾT 53:

BÀI TẬP

A MỤC TIÊU:

- Viết 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

C CHUẨN BỊ:

1 Giáo viên:

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 chưa 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 xác định từ trước, với câu lệnh lặp với số lần lặp chưa biết trước số lần lặp chưa 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 giá trị lớn hay chưa, câu lệnh lặp với số lần lặp chưa biết trước, điều kiện tổng quát nhiều, cã thể kiểm tra giá trị số thực, cã thể điều kiện tổng quát khác, ví dụ 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 thực một lần, sau kiểm tra điều kiện Trong câu lệnh lặp với số lần chưa xác định trước, trước hết điều kiện kiểm tra Nếu điều kiện thoả mãn, câu lệnh thực Do cã thể cã trường hợp câu lệnh hồn tồn khơng thực

Bµi 2.Mơ tả thuật tố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

(118)

Bµi 3.a) Thuật tốn 1: 10 vịng lặp thực Khi kết thúc thuật toán S = 5.0. Đoạn chương trình Pascal tương ứng:

S:=10; x:=0.5;

while S>5.2 S:=S-x; writeln(S);

b) Thuật tốn 2: Khơng vịng lặp thực từ đầu điều kiện đã không thỏa mãn nên bước bị bỏ qua S = 10 kết thúc thuật tố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 kiểm tra trước bước lặp thực Do điều kiện không 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 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 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 kết thúc sau hữu hạn bước Để làm đ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 và end trước sau lệnh n:=n+1; S:=S+n,

vòng lặp trở thành vơ tận

Bµi 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, chuyển xuống bước 5. 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 tố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 nhập vào từ bàn phím)

(119)

Bước Nếu k  N, T = T.k; ngược lại, chuyển xuống bước 5. Bước k  k + quay lại bước

Bước Kết thúc thuật tố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, chuyển xuống bước 5.

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 tốn.

Chương trình cã thể sau:

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 cã thể 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.

TUẦN 27 TIẾT 54:

BÀI TẬP

A MỤC TIÊU:

(120)

C CHUẨN BỊ:

1 Giáo viên:

Bài 1: Lập trình tính tổng dùng lệnh lặp While Trong n số tự nhiên nhập từ bàn phím.

1 1

1 ( )

2

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;

(121)

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; 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

TUẦN 28 TIẾT 55:

KIỂM TRA TIẾT

TRƯỜNG THCS TRỰC THANH ĐỀ KIỂM TRA 45 PHÚT HỌC KỲ

ĐỀ

HỌ VÀ TÊN HỌC SINH: LỚP:

PHẦN I(Trắc nghiệm)-khoanh tròn chữ đứ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

(122)

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 đ)

A For <biến đếm>= <giá trị đầu> to <giá trị cí> <câu lệnh> 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 viết hay sai? (nếu sai chỗ sai) 1,5 đ

a if x:=7 then a=b;

(123)

c if x>5 then; a:=b;

PHẦN TỰ LUẬN (4 đ)

Viết chương trình tính tổng số nguyên từ 10 đến 20

TRƯỜNG THCS TRỰC THANH ĐỀ KIỂM TRA 45 PHÚT HỌC KỲ

ĐỀ

HỌ VÀ TÊN HỌC SINH: LỚP:

PHẦN I(Trắc nghiệm)-khoanh tròn chữ đứng trước 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 đ)

(124)

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 đ)

E For…do; 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 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;

(125)

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

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 thực hành. B Chuẩn bị :

1 Giáo viên :

- Tài liệu, GA

- Đồ dùng dạy học 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 :

(126)

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:

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 rất 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,

1 Dãy số biến mảng: Ví dụ 1: (SGK)/ Tr 75

* 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 readln ( Diem [ i ] ); - Để so sánh điểm HS với giá trị

For i:= to 50

If Diem [ i ] > 8.0 then writeln ( ‘ Gioi ‘ );

- Để xử lí đồng thời loai điểm => khai báo nhiều mảng:

(127)

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ị

hoặc:

Var DiemToan, DiemVan, DiemLi : array [1 50] of real;

- Khi mảng khai báo, : gán giá trị, đọc giá trị thực các 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 readln ( A [ i ] ); Củng cố - Lưu ý: Sử dụng cấu trúc For … phù hợp, dễ hiểu cấu trúc While…do biết trước số lần lặp.

(128)

TUẦN 29 TIẾT 57:

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 thực hành. B Chuẩn bị :

1 Giáo viên :

- Tài liệu, Giáo án

I Ổn định tổ chức lớp : II Kiểm tra cũ : không kiểm tra III Dạy :

- 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 thuật tốn để tìm số nhỏ

- GV cho HS đọc ví dụ 3:

3 Tìm giá trị lớn nhỏ dãy số: Tìm giá trị lớn ( Max ) dãy số ngun 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;

Bước 3: Với i từ đến N thực hiện: Nếu Max < A1 Max  Ai;

(129)

+ Để 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 Min để lưu số lớn nhất, nhỏ

- HS theo dõi

- GV cho HS đọc phần ghi nhớ

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

Begin

Write ( ‘ a[ , i , ] = ‘); readln (a[ i ] ); End;

Max:= a[1]; Min:= a[1]; For i:= to n

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 học Về nhà - Học sinh nhà ôn bài

(130)

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ỹ xây dựng 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 thực hành.

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

- Tài liệu, GA điện tử

Không KT III Dạy :

“Cã thể xem biến mảng biến tạo từ nhiều biến cã kiểu, tên nhất.” Phát biểu 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;

1 Đúng.

2 Lợi ích việc sử dụng biến mảng là rút gọn việc viết chương trình, cã thể sử dụng câu lệnh lặp để thay nhiều câu lệnh Ngồi cịn cã thể lưu trữ xử lí nhiều liệu cã nội dung liên quan đến cách hiệu

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.

(131)

Câu lệnh khai báo mảng sau cã máy tính thực không?

var N: integer;

A: array[1 N] of real;

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 nhập từ bàn phím

Đoạn chương trình sau dùng để xếp lại dãy số ghi trong 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ố ngyên 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

báo chương trình

5 Chương trình cã thể sau: uses crt;

var N, i: integer;

A: array[1 100] of real; begin

clrscr;

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

uses crt;

var i, Max: integer;

A: array[1 5] of integer; begin

clrscr;

for i:=1 to

(132)

Viết chương trình sử dụng biến mảng để tính giá trị trung bình của tổng N số nguyên nhập vào từ bàn phím

Chương trình nhập n số ngun từ bàn phím tính tổng số dương:

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])

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

(133)

Tuần 30 Tiết 59:

BÀI THỰC HÀNH 7

XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (T1) A Mục tiêu :

(134)

 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ố

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

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 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;

(135)

GV gợi ý:

- Dùng câu lệnh if…then…

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

Begin

if a[i] >= 8.0 then G:= G + 1; if a[i] <5.0 then K:= K + 1;

if (a[i] <8.0 ) and (a[i] >=6.5) then Kh:= Kh + 1;

if (a[i] >= ) and (a[i] < 6.5) then TB:= TB + 1;

end;

writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha ');

writeln(TB, ' ban hoc trung binh'); writeln(K, ' ban hoc kem ');

readln; End Củng cố - Nhận xét rút kinh nghiệm học

Về nhà - Học sinh nhà ôn bài Ngày soạn :

Ngày dạy :

Tuần 30 Tiết 60:

BÀI THỰC HÀNH 7

XỬ LÝ DÃY SỐ TRONG 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ố

(136)

2 Học sinh :

Chương trình tính tổng dãy số, in hình dãy số vừa nhập

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

Bài 1:

Program P_Sum; Var

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 Sum:= Sum + a[i]; write('Day so vua nhap la: '); for i:=1 to n 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

(137)

HS chia nhãm làm thực hành 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; End. Củng cố - Nhận xét rút kinh nghiệm học Về nhà - Học sinh nhà ôn bài

- Đọc trước bài: Quan sát hình khơng gian VỚI PHẦN MỀM YENKA

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

(138)

Crocodile tiếng

- Chức phần mềm giúp học sinh thiết kế mơ hình hình khối kiến trúc khơng gian dựa hình khơng gian c/ nhu hình trụ, lăng trụ, hình chóp, hình hộp

2/ Giới thiệu hình làm việc a/ khởi động :

b/ Màn hình :

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

(139)

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

- HS thực kĩ thay đổi, di chuyển, thay đổi kích thước, thay 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

3/ Tạo hình khơng gian : a/ Tạo mơ hình :

(140)

Chọn hình kéo thả đối tượng vào khu vực tạo đối tượng

 Xoay mơ hình khơng gian 3D : - Nháy vào biểu tượng xoay

- Đưa trỏ chuột lên mơ hình

 Phóng to , thu nhỏ :

 di chuyển khung mơ hình :

b/ lệnh tạo mới, lưu, mở tệp mô hình :

c/ Xóa đối tượng :

- Nhấp chuột vào mơ hình cần xóa - Ctrl + A Delete

Hình trụ

hình chóp Hình lăng

trụ

(141)

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

TUẦN 32 TIẾT :63

BÀI TẬP

A MỤC TIÊU:

- Viết chương trình Pascal cã sử dụng Biến mảng - Biết sử dụng câu lệnh ghép

C CHUẨN BỊ:

1 Giáo viên:

- Chuẩn bị số thuật tốn chương trình

D TIẾN TRÌNH BÀI DẠY:

(142)

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

F.Hướng dẫn nhà:

(143)

TUẦN 32 TIẾT :64

BÀI TẬP

A MỤC TIÊU:

C CHUẨN BỊ:

1 Giáo viên:

Hoạt động giao viên học sinh Hoạt động giáo viên 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 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;

var a:array[1 100] of integer; i,n,s:integer;

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;

var a:array[1 100] of integer; i,n,s:integer;

begin

(144)

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 mang la',s:4);

readln; end.

E Củng cố:

- Học theo sách giáo khoa ghi, Ôn lại kiến thức học luyện viết, làm làm lại nhiều lần

TUẦN 33 TIẾT :65

BÀI TẬP

A MỤC TIÊU:

(145)

- Biết sử dụng câu lệnh ghép

C CHUẨN BỊ:

1 Giáo viên:

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]; for i:=1 to n do

if a[i]<min then min:=a[i];

write('so lon nhat mang la',min:4); readln;

end.

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]; for i:=1 to n do

if a[i]>max then max:=a[i];

write('so lon nhat mang la',max:4); readln;

(146)

E Củng cố:

Ngày soạn : Ngày dạy : TIẾT :66

BÀI TẬP

A MỤC TIÊU:

C CHUẨN BỊ:

1 Giáo viên:

- Chuẩn bị số thuật toán chương trình

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

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;

(147)

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

writeln('gia tri lon nhat la', max:4); writeln('gia tri tb la',s/n:5:1); readln;

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

Định dạng
Số trang	147
Dung lượng	6,65 MB