Giao an Tin 9

- GV nhËn xÐt, rót kinh nghiÖm bµi thùc hµnh cña c¸c nhãm.. Híng dÉn vÒ nhµ:.[r]

(1)

Chơng i

ngôn ngữ lập trình turbo pascal

tiÕt :

giíi thiƯu chung ngôn ngữ lập trình pascal

NS: / / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS nắm đợc khái niệm ngôn ngữ lập trình Turbo Pascal - Nắm đợc lịch sử phát triển, ý nghĩa Turbo Pascal

- Hiểu đợc cách khởi động chơng trình biết áp dụng vào trờng hợp cụ thể máy

- Giáo dục học sinh có thái độ học tập tự giác, tích cc

II/ Chuẩn bị tài liệu, thiết bị dạy học.

- Giáo viên:

o Tài liệu, sách giáo khoa

o Soạn, su tầm giảng điện tử

o Chuẩn bị phòng máy, mạng Netop Scholl - Học sinh:

o Đọc trớc

III/ Tiến trình tổ chức dạy.

1 Tổ chøc:

Líp 9A 9B 9C 9D 9E

SÜ số

2 Kiểm tra cũ:

Kết hợp dạy Dạy- học

Hot động thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu Turbo Pascal

- GV: Giới thiệu Turbo Pascal Tác giả, lịch sử ph¸t triĨn, ý nghÜa cđa nã

- Häc sinh theo dâi - GV? Em h·y cho biÕt:

? Tác giả ngôn ngữ lập trình Pascal ai?

? Lịch sử phát triển nó

- Học sinh trả lời câu hỏi - GV: Nhận xét đa kết luận Hoạt động 2:Tìm hiểu vài nét lịch sử phát triển TP.

1 Giới thiệu tác giả ngôn ngữ lập trình Turbo Pascal

- Giáo d Niklaus Wirth tác giả ngôn ngữ lập trình Pascal

- Sinh năm 1943 Thuỵ Sĩ

- Năm 1963-1967 ông giảng dạy trờng ĐH Tổng hợp Stanford

- Năm 1967 ông trở nớc giảng dạy trờng Tổng hợp Zurich

2 Vài nét lịch sử phát triển.

- Năm 1968 ông bắt tay nghiên cứu

(2)

- GV: Nêu vài mốc phát triển TP

- HS: Quan sát theo dõi

thiết kế ngôn ngữ lập tr×nh Pascal

- Năm 1970 chơng trình dịch Pascal u tiờn c hon thnh

- Đầu năm 1971 mô tả ngôn ngữ viện công nghệ Liên Bang Thuỵ Sĩ đ-ợc công bố số tạp chí Acta Information

- Hiện sử dụng hai phiên Paslcal

+ TP For Dos: Chạy môi trờng DOS

+ TP For Win: Chạy môi trờng Winddows

4 Củng cố, luyện tập:

- Giáo viên khắc sâu kiến thức cho học sinh tác giả, lịch sử phát triển ngôn ngữ lập trình Turbo Pascal

- Nhấn mạnh hoàn cảnh lịch sử phát triển Pascal

5 Híng dÉn vỊ nhµ:

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung vë ghi tiÕt :

giíi thiƯu chung vỊ ngôn ngữ lập trình pascal

NS: / / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS nắm đợc ý nghĩa, điểm bật ngôn ngữ lập trỡnh Turbo Pascal

- Yêu cầu phần mềm dïng Turbo Pascal

- Hiểu đợc cách khởi động chơng trình biết áp dụng vào trờng hợp cụ thể máy

- Giáo dục học sinh có thái độ học tập tự giác, tích cực

- Giáo viên:

o Học cũ

o Đọc trớc

(3)

1 Tỉ chøc:

SÜ sè

2 KiÓm tra cũ:

? Ai ngời phát triển lên ngôn ngữ lập trình Pascal, nêu vài nét tác giả? ? Lịch sử phát triển Turbo Pascal nh nào?

3 Dạy- học

Hoạt động thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu số đặc

®iĨm nỉi bËt cđa Turbo Pascal

- GV: Giới thiệu số đặc điểm bật Turbo Pascal

- Häc sinh theo dâi - GV? Em h·y cho biÕt:

? Một vài đặc điểm bật Turbo Pascal.

- HS: Thảo luận trả lời câu hỏi - GV: Nhận xét đa kết luận Hoạt động 2:Yêu cầu phần cứng để sử dụng Turbo Pascal.

- GV: Giới thiệu vài cấu hình cần thiết để sử dụng đợc hai TP

- HS: Quan s¸t theo dâi

1 Một số đắc điểm Turbo Pascal

- TP kết hợp hài hoà toán học công nghệ lập trình

- Đáp ứng nhu cầu s phạm - Chặt trẽ cáu tróc

- TP đợc coi nh khởi đầu kỷ ngun lập trình có cấu trúc

- §a cấu trúc giữ liệu kiểu liệu phong phú

2 Yêu cầu phần cứng.

- Hiện TP đợc sử dụng hai phiên For Dos For Win

- Cấu hình máy tính cần thiết để chạy hai phiên là:

+ Đối với For Dos: Máy tính có phần cứng từ Pentium I tốc độ 133 trở lên + Đối với For Win: Máy tính cần có phần cứng cài đợc HĐH Windows tức từ Pentium II tốc độ 333 trở lên

4 Cđng cè, lun tËp:

- Giáo viên khắc sâu kiến thức cho học sinh số đặc điểm bật ngơn ngữ lập trình Turbo Pascal

- NhÊn m¹nh yêu cầu phần cứng máy tính chạy Pascal

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung vë ghi tiÕt :

giíi thiƯu chung c¸c thành phần ngôn ngữ lập trình turbo pascal

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

(4)

I/ mơc tiªu:

- HS:Nắm đợc ký tự, từ khố, tên chuẩn, câu lệnh đợc sử dụng ngơn ngữ lập trình Turbo Pascal

- Hiểu đợc cách dử dụng ký tự, tên chuẩn, câu lệnh biết áp dụng vào trờng hợp cụ thể lập trình máy

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tỉ chøc:

SÜ sè

2 KiĨm tra bµi cị:

? Trình bày số đặc điểm bật ngơn ngữ lập trình Pascal? ? Trình bày u cầu phần cứng sử dụng phần mềm?

3 Dạy- học

Hot ng ca thy v trị Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu ký tự đợc

sư dơng Turbo Pascal

- GV: Giíi thiƯu bé ký tù mµ Turbo Pascal cã thĨ dïng

- Häc sinh theo dõi - GV?

- Bộ chữ Latin gồm bao nhiêu chữ? Lấy ví dụ?

- HS: Thảo luận trả lời câu hỏi - GV: Nhận xét đa kết luận Hoạt động 2:Tìm hiệu từ vựng trong Turbo Pascal.

- GV: Giới thiệu nêu khái niệm từ vựng, từ khoá, tên, qui tắc đặt tên Pascal

1 Bé ký tù.

Bé ký tù cña Pascal bao gồm: a/ Bộ chữ cái:

- Gồm chữ Latin hoa hay thờng dấu gạch thấp "_"

Vd: A,a,B,b Z,z

b/ Các chữ số thập phân: 0,1,2 c/ Các ký hiệu khác: +,-,*,/ {,}

2 Tõ vùng:

- Tập hợp ký tự tạo thành từ, đợc phân cách dấu cách

a/ Tõ kho¸:

- Là dãy ký tự mà ngời dùng phải sử dụng đứng nh đợc định nghĩa

(5)

- GV?

Thế từ khoá, cho vÝ dơ? LÊy vÝ dơ vỊ tªn TP?

Thế tên chuẩn? Ta có thể định nghĩa dùng lại tên chuẩn hay không?

Khi đặt tên cho tập ta cần chú ý điểm gỡ?

- HS: Thảo luận trả lời câu hỏi - GV: NhËn xÐt rót kh¸i niƯm

Pascal, không đợc sùng vào việc khác đặt tên trùng với từ khoá Các từ khoá viết chữ thờng hay chữ hoa

- Tõ kho¸ chung: Program, Begin, End

- Từ khoá để khai báo: Constan,Var, Integer

- Tõ kho¸ c¸c lƯnh: If then For to

b/ Tên- qui tắc đặt tên:

- Tên dãy ký tự liên tiếp dùng để xác địng hằng, biến, kiểu, thủ tục, hàm

- Tên bắt buộc phải bắt đầu chữ cái, chữ số hay ký tự lạ khác

- Độ dài tối đa tên không 255 ký tự, tên không sử dụng dấu cách c/ Tên chuẩn (Standard)

- Một số tên nh tên kiểu liệu, ch-ơng trình con, hàm (sin,cos ) đợc Pascal định nghĩa sẵn đợc gọi tên chuẩn hay tên đợc định nghĩa trớc Ngời dùng dùng tên chuẩn, nhng định nghĩa lại theo nội dung toán cụ thể dùng tên chuẩn vào việc khác

VÝ dơ: Boolean, char,type

- Giáo viên khắc sâu kiến thức cho học sinh : + Bộ ký tự đợc sử dụng lập trình TP

+ Từ khóa, tên, qui tắc đặt tên, tên chuẩn lập trình TP - Nhấn mạnh tên, qui tắc đặt tên TP

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung vë ghi tiết :

giới thiệu chung thành phần ngôn ngữ lập trình turbo pascal

NS: …/ / 9A 9B 9C 9D 9E

NG:… / /

…

(6)

I/ môc tiªu:

- HS: Nắm đợc số câu lệnh, hằng, biến đợc sử dụng lập trình Turbo Pascal

- Hiểu đợc cấu trúc đơn giản chơng trình TP, thành phần chơng trình TP

II/ Chn bÞ tài liệu, thiết bị dạy học.

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tổ chøc:

SÜ sè

? Trình bày ký tự đợc sử dụng lập trình Pascal? Lờy ví dụ?

? Cần ý điểm đặt tên, lấy ví dụ vài tên sử dụng đ-ợc, vài tên khơng hp l TP.

? Thế tên chuẩn, cho ví dụ?

3 Dạy- học

Hoạt động thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Biến gì?

- GV: Giới thiệu khái niệm biến

- Häc sinh theo dâi - GV?

- Trong toán học biến gì?

- HS: Thảo luận trả lời câu hỏi - GV: Nhận xét đa kÕt luËn

1 BiÕn.

- Biến vị trí nhớ để lu giữ giá trị giá trị thay đổi trình thực chơng trình, biến phải có tên phải tuân thủ theo qui tắc đặt tên Mỗi biến nhận giá trị định tơng ứng với kiểu - Biến phải khai báo tên, kiểu trớc sử dụng đợc gán cho giá trị ban đầu

VÝ dơ: x1,x2 lµ nghiƯm cđa PT bËc

tríc sư dơng ta ph¶i khai b¸o tríc

Var x1,x2:Longint;

x1::=0;x2:=0;

2 H»ng:

(7)

Hoạt động 2:Hằng gì?

- GV: Giới thiệu nêu khái niệm h»ng?

- HS: Quan s¸t theo dâi - GV?

? Giá trị có thay đổi đợc khơng q trình tính tốn?

- HS: Th¶o luận trả lời câu hỏi - GV: Nhận xét rút khái niệm

Hot ng 3:Dữ liệu gì?

- GV: Giíi thiƯu nêu khái niệm liệu kiểu liệu?

- HS: Quan sát theo dõi - GV?

? Dữ liệu gì?Lấy ví dụ?

?Các giữ liệu có kiểu định nghĩa ta gọi l gỡ?

- HS: Thảo luận trả lời câu hái - GV: NhËn xÐt rót kh¸i niƯm thÕ liệu kiểu liệu

Hot động 4:Tìm hiểu cấu trúc ch-ơng trình TP.

- GV: Giới thiệu cấu trúc đơn giản chơng trình TP

- HS: Quan s¸t theo dõi - GV?

? Thế chơng trình TP? ? Một chơng trình TP thờng gồm mấy phần chính?

- HS: Thảo luận trả lời câu hái - GV: NhËn xÐt rót cÊu tróc mét chơng trình TP

- L mt loi bin c biệt có giá trị ban đầu khơng đổi suốt trình thực chơng trình

- Hằng đợc đực trng tên giá trị ban đầu Giá trị xác định kiểu cho

- Hằng phải đợc khai báo tên giá trị trớc sử dụng

Ví dụ: Khai báo

Const n=100,dem=10; 3 Dữ liệu kiểu liệu:

- D liu tất thơng tin mà mã hố đợc máy tính

- Dữ liệu máy tính đợc biểu diễn d-ới dạng nhị phân (0 1)

- Một tập hợp giá trị thơng tin tính chất đợc gọi kiểu liệu

4 CÊu tróc chơng trình TP:

- Chơng trình TP dãy lệnh thị cho máy thực nhằm hoàn thành nhiệm vụ theo thứ tự định

- Cấu trúc chơng trình TP gồm phần chÝnh

+ Phần tiêu đề: Đặt tên cho chơng trỡnh

+ Phần khai báo: Các Unit, hằng, biến, kiểu liệu, chơng trình

+ Phần thân chơng trình: Chứa lệnh thực thuật giải

- Giáo viên khắc sâu kiến thức cho học sinh khái niƯm : + ThÕ nµo lµ biÕn?

+ ThÕ hằng?

+ Thế liệu, kiểu liệu?

(8)

- Nhấn mạnh cấu trúc chơng trình TP

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung vë ghi

Nhận xét Ngày tháng năm 2008.

tiết :

hệ thống từ khoá, tên chuẩn thêng dïng turbo pascal

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc số từ khoá, tên chuẩn thờng dùng lập trình Turbo Pascal

- Hiểu đợc cú pháp, cách sử dụng tên chuẩn, từ khố lập trình - HS biết áp dụng vào toán cụ thể

II/ Chn bÞ tài liệu, thiết bị dạy học

- Giáo viên:

o Học cũ

o Đọc trớc

III/ Tiến trình tổ chức dạy

1 Tổ chøc:

SÜ số

2 Kiểm tra cũ:

? Trình bày số khái nịêm lấy ví dụ về: +Biến?

+ Hằng?

+Dữ liệu kiểu liƯu?

? Cấu trúc chơng trình Tp gồm phần? Kể tên phần đó?

3 D¹y- häc bµi míi

(9)

Hoạt động thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Giới thiệu số từ khoá

chung TP.

- GV: Giới thiệu tên, cấu trúc, vị trí thờng dùng từ khoá này, lấy ví dụ minh hoạ cụ thể cho từ khoá

- Häc sinh theo dâi

- GV cho häc sinh tËp lÊy vÝ dơ - HS: Th¶o ln lÊy vÝ dơ

- GV: NhËn xÐt ®a cÊu trúc, ý nghĩa câu lệnh

Hot ng 2:Gii thiệu số từ khoá dùng để khai báo.

- GV: Giới thiệu nêu cấu trúc, ý nghĩa, cách sư dơng mét sè tõ kho¸ th-êng dïng khai b¸o cho chơng trình TP

- HS: Quan sát theo dâi

- GV để học sinh tự lấyví dụ minh hoạ cho lệnh

- HS: Th¶o ln, lÊy vÝ dơ

- GV: NhËn xÐt ®a khái niệm , cấu trúc từ khóa

Hoạt động 3: Giới thiệu số từ khoá dùng lệnh.

- GV: Giíi thiƯu nªu kh¸i niƯm, cÊu tróc, c¸ch sư dơng mét sè tõ kho¸ c¸c lƯnh

1 Tõ kho¸ chung:

- Program: Đặt tên cho chơng trình Vd: Program Baitap1;

Program PT_bac_hai; - Begin: Bắt đầu chơng trình - End : Kết thúc chơng trình

2 T khoỏ khai bỏo:

- Var: Bắt đầu thủ tục khai b¸o - Const: Khai b¸o h»ng

Vd: Const: n=10, m=100;

- USES: Khai báo th viện sử dụng phiên TP

Vd: USES Wincrt; (m«i trêng Windows)

USES Crt;(m«i trêng DOS) - Array: Khai báo mảng

Vd: Array A:[1 100] of Integer;

- String: Khai b¸o kiĨu ký tù

Vd: Key: String(100) (độ dài biến Key 100)

- Procedure: Khai báo chơng trình Vd: Procedure Tinh_tong;

- Function: Khai báo hàm ngời dùng tự định nghĩa

Vd:Function SNT(x:Longint):Boolean;

- Type: Khai báo biến có kiểu liệu

Vd: Type A: Array[1 100]of Longint;

3 Tõ kho¸ c¸c lƯnh:

- If Then Else: LƯnh kiĨm tra điều kiện (nếu ngợc lại)

Vd: If (a >0) then a số dơng Else a la sè ©m

- For To Do: Vòng lặp xác định (chạy

(10)

- GV cho häc sinh tù lÊy vÝ dô minh hoạ cho lệnh

- HS: Thảo luận lấy vÝ dơ minh ho¹

- GV: NhËn xÐt rót kh¸i niƯm, cÊu tróc, ý nghÜa, vÝ dơ thĨ tõng lƯnh

Hoạt động 4: Giới thiệu số từ khoá dùng biểu diễn toán tử.

- GV: Giíi thiƯu kh¸i niƯm, ý nghÜa, cÊu tróc cđa mét sè tõ kho¸ biĨu diƠn to¸n tư

- GV cho học sinh tự lấy ví dụ minh hoạ cho từ khoá biểu diễn toán tử

- HS: Thảo ln lÊy vÝ dơ minh ho¹

- GV: NhËn xÐt rót ý nghÜa, cÊu tróc mét sè tõ khoá biểu diễn toán tử

từ đâu tới đâu)

Vd: For i:=1 to 10

(i lần lợt nhận giá trị từ tới 10) - While Do: Vịng lặp khơng xác định Vd: While n<100

Begin

Tg:=Tg+n; Inc(n); End;

(Nếu n nhỏ 100 thực hiện các lệnh sau Do)

4 Từ khoá biểu diễn toán tử: - AND: Liên kết điều kiện

Vd: If (a>0)and(b>0) then a*b lín h¬n 0;

(Lệnh sau Then đợc thực hai điều kiện a>0 b>0 ỳng)

- OR: Hoặc (sử dụng liên kết điều kiện)

Vd: If (a=0)OR(b=0) then a*b b»ng

(Lệnh sau Then đợc thực cần 1 trong hai điều kiện a=0 hặc b=0 sảy ra) - DIV: Lệnh lấy phần nguyên phép chia

Vd: 10 DIV =3; 20 div =2;

-MOD: LÊy phÇn d cđa phÐp chia VÝ dô:10 MOD = 1;

20 MOD = 6;

- Gi¸o viên khắc sâu kiến thức cho học sinh kh¸i niƯm, ý nghÜa, cÊu tróc, c¸ch dư dơng, vÝ dơ mét sè tõ kho¸ :

+ Dïng chung + Khai b¸o + Trong c¸c lƯnh + BiĨu diƠn toán tử

- Nhấn mạnh cấu trúc ý nghĩa loại từ khoá

Híng dÉn vỊ nhµ:

(11)

Bµi tËp:

Lấy ví dụ minh họa từ khố đến ví d tit :

hệ thống từ khoá, tên chuÈn thêng dïng turbo pascal

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc số tên chuẩn thờng dùng lập trình Turbo Pascal - Hiểu đợc cú pháp, cách sử dụng tên chuẩn lập trình

- HS biÕt ¸p dơng vµo tõng bµi to¸n thĨ

- Giáo dục học sinh có thái độ học tập tự giỏc, tớch cc

II/ Chuẩn bị tài liệu, thiết bị dạy học

- Giáo viên:

o Chuẩn bị phòng máy, mạng Netop Scholl - Häc sinh:

o Häc bµi cị

o Đọc trớc

III/ Tiến trình tỉ chøc giê d¹y

1 Tỉ chøc:

SÜ sè

? Trình bày số khái nịêm lấy ví dụ về: +Từ khoá chung?

+ Từ khoá để khai báo? +Từ khoá lệnh? +Từ khoá biểu diễn toán tử?

3 Dạy- học

Hot ng ca thy v trò Nội dung kiến thức cần đạt Hoạt động 1:Giới thiệu số tên

chuÈn TP.

- GV: Bật mạng Netop Scholl, chuẩn bị số tập mẫu để biểu diễn ý nghĩa, cú pháp số tên thờng dùng

- Giíi thiƯu tªn - Giíi thiƯu cÊu tróc

1 Mét sè tªn chn.

- Boolean: Khai báo kiểu liệu Logic Vd: a,b: Boolean;

N,p,q: Boolean;

- Char: Khai báo kiểu liệu ký tự Vd: s: Char;

- Integer:Khai báo kiểu liệu số

(12)

- Vị trí thờng dùng tên chuẩn

- Ly vớ d minh ho cụ thể cho tên chuẩn

- Häc sinh theo dâi

- GV cho häc sinh tËp lÊy vÝ dơ - HS: Th¶o ln lÊy vÝ dơ

- GV: NhËn xÐt ®a cÊu tróc, ý nghÜa mét sè tªn chuÈn

nguyªn

- Real: KiĨu d÷ liƯu sè thùc

- Maxint: Kiểu liệu số lớn sô nguyên

- ABS(x): Lấy giá trị tuyệt đối x Vd: ABS(10)=10

ABS(-20)=20

- COS(x): LÊy Cos cña x Vd: Cos(0)=1;

Cos(60)= ;

- SIN(x): LÊy Sin cña x Vd: Sin(90)=1;

Sin(30)=

;

- RUOND(x,n): Lµm tròn số x tới n chữ số thập phân

Vd: Round(3.12456,3)=3.12 Round(2.5467,2)=2.54

- TRUNC(x): Làm tròn số x đến số gần

Vd: Trunc(3.257)=2.3 Trunc(7.233)=7.2

- SQR(x): Lấy bình phơng số x Vd: SQR(3)=9

SQR(9)=81

- SQRT(x): Lấy bậc hai cña x Vd: Sqrt(25)=5

Sqrt(36)=6

- INC(x): Tăng giá trị x thêm đơn vị

Vd: Inc(10) -> KQ =11;

- READL(x):Đọc vào giá trị x từ bàn phím

- READLN(x): Đọc vào giá trị x từ bàn phím sau suống dòng

- WRITE( Thong bao ):‘ ’ Viết hình dòng thông báo

Vd: Write(‘ Bai tap 1’);

- WRITELN( Thong bao ):‘ ’ Viết hình dịng thơng báo sau

(13)

sng dßng

Vd: Writeln(‘ Bai tap 2’);

- Giáo viên khắc sâu kiến thức cho học sinh vỊ c¸c kh¸i niƯm, ý nghÜa, cÊu tróc, c¸ch dư dơng, vÝ dơ mét sè tªn chn :

- Nhấn mạnh ý nghĩa vị trí thờng sử dụng từ khoá

Bµi tËp:

Lấy ví dụ minh họa tên chuẩn từ đến ví dụ tiết :

các kiểu liệu chuẩn

NS: / / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc số kiểu liệu chuẩn thờng dùng lập trình Turbo Pascal

- Hiểu đợc cách sử dụng kiểu liệu lập trình - HS biết áp dụng vào toán cụ thể

II/ Chn bÞ tài liệu, thiết bị dạy học

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tổ chøc:

SÜ số

? Trình bày số khái nịêm lấy ví dụ về:Một sè tªn chuÈn thêng dïng trong TP?

3 Dạy- học

Hot ng ca thy v trò Nội dung kiến thức cần đạt

(14)

Hoạt động 1:Tìm hiểu kiểu số nguyên (Integer)

- GV: Bật mạng Netop Scholl, chuẩn bị số vÝ dơ vỊ kiĨu d÷ liƯu Integer

- GV t cõu hi

? Thế số nguyên, lÊy vÝ dô?

? Theo em TP kiểu số ngun Integer có đợc dùng nh trong tốn học khơng?

? Ta áp dụng đợc những phép toán với kiểu số nguyên này?

- HS thảo luận trả lời câu hỏi - HS khác nhận xét, bổ sung - Giáo viên nhận xét đa khái niện kiểu số Integer?

? Những số sau thuộc và không thuộc kiểu số nguyên (Integer)

5; -8; 1067; 2,15; 6; -48,125; -47345; 57213

Hoạt động 2: Giới thiệu số phép tốn sử dụng với kiểu liệu Integer

- GV? Ta thêng sö dụng những phép toán số học nào?

Ta cú thể dự đốn xem với kiểu số ngun Integer phép tốn nào có thể sử dụng đợc?

- HS thảo luận xây dựng bài, học sinh khác nhËn xÐt, bỉ sung

- GV: NhËn xÐt vµ ®a kÕt ln

1 KiĨu sè nguyªn (Integer).

- Kiểu số nguyên đợc định nghĩa sẵn với tên chuẩn Integer tập tập hợp số nguyên, biểu diễn đợc máy Thứ tự xếp theo giá trị số nguyên Kiểu đợc biểu diễn bằn chữ số từ đến theo hệ số 10 có dấu đầu hay khơng

- Các số nguyên thuộc kiểu Integer đợc giới hạn khoảng từ -215 đến 215 -1 (từ

-32768 đến +32767).

- Số +32767 đợc TP định nghĩa sẵn dới tên chuẩn: MaxInt.(số nguyên cực đại)

- Gần TP định nghĩa thêm số kiểu đơn giản để dùng rễ sử dụng

KiĨu Ph¹m vi biĨu diƠn

Byte 0…255

Shortint -128…127

Word 0…65635

Longint -2147483648 2147483647

2 Các phép toán sử dụng với kiểu dữ liƯu Integer.

a/ C¸c phÐp to¸n sè häc: Vd: 234+123=357

12*3=36 50/2=25 10-8=2

b/ C¸c phÐp to¸n Div, Mod Vd: 10 Div 3=3;

10 mod 4=2 c/ C¸c phÐp to¸n so s¸nh:

- Cã phÐp to¸n so s¸nh (>,<,=,>=,<=)

Vd: 5>3 4<9 3=3 8>=8 5<=5

d/ Các hàm áp dụng với đối số có kiểu Integer

- Cho giá trị tuyệt đối: Abs(x); - Cho giá trị bình phơng: Sqr(x)

(15)

- Cho giá trị bậc hai: Sqrt(x)

- Cho giá trị hàm lợng giacs: Sin(x), Cos(x), Tag(x)

- Giáo viên khắc sâu kiến thức cho học sinh kiểu liệu số nguyên (Integer)

- Nhấn mạnh ý nghĩa cách khai báo kiểu liệu sử dụng để tiết kiệm nhớ, tăng thời gian chạy Test

Bµi tËp:

LÊy vÝ dơ minh häa cho kiểu liệu tiết :

các kiểu d÷ liƯu chn

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- Hiểu đợc cách sử dụng kiểu liệu lập trình - HS biết áp dụng vào toán cụ thể

- Giáo dục học sinh có thái độ học tập tự giác, tớch cc

- Giáo viên:

o Häc bµi cị

o Đọc trớc

III/ Tiến trình tổ chøc giê d¹y

1 Tỉ chøc:

SÜ sè

? Trình bày số khái nịêm kiểu liệu Integer?

?Các phép toán cã thĨ sư dơng kiĨu d÷ liƯu Integer, cho ví dụ?

3 Dạy- học

Hot động thầy trò Nội dung kiến thức cần đạt

(16)

Hoạt động 1:Tìm hiểu kiểu số nguyên (Integer)

- GV: BËt m¹ng Netop Scholl, chuẩn bị số ví dụ kiểu liệu Real

- GV đặt câu hỏi

? Thế số thực, lấy ví dụ? ? Theo em TP kiểu số ngun Real có đợc dùng nh trong tốn học khơng?

? Ta áp dụng đợc những phép toán với kiểu số nguyên này?

- HS th¶o luËn tr¶ lêi câu hỏi - HS khác nhận xét, bổ sung

- Giáo viên nhận xét đa khái niện kiểu số Integer?

? Những số sau thuộc và không thuộc kiểu số thực (Real)

5; -8; 1067; 2,15; 6; -48,125; -47345; 57213

Hoạt động 2: Giới thiệu số phép tốn sử dụng với kiểu liệu Integer

- GV? Ta thờng sử dụng những phép toán số học nào?

1 Kiểu số thực (Real). a/ Định nghĩa:

- Là tập hợp số thực biểu diễn máy, đợc ký hiệu Real

- Thứ tự xếp vào giá trị số thực

- Kiu đợc biểu diễn số từ tới có dấu đầu

- Giới hạn biểu diễn số tuỳ thuộc vào máy chơng trình dịch

Vd: Vi TP 3.0 giới hạn từ -1.7*10-38 đến 1.7*1038

b/ Phân loại:

* Dng thp phõn bỡnh thờng: Phần nguyên phần thập phân đợc viết nh bình thờng cịn dấu chấm để ngăn cách giữ chúng

- Khi viết cần viết đủ phần nguyên, dấu chấm,phần thập phân Khi phần thập phân ta bỏ dấu chấm phần thập phân Không đợc dùng dấu chấm thiếu hai phần

- Dấu phẩy đựoc viết cố định nên đợc gọi dấu phẩy tĩnh.

Vd: Viết 3.1; 6.78 Viết sai: 55; 67

* Dạng số mũ: Dạng gồm phần định trị phần số mũ đợc viết sau chữ E (số mũ số 10) , hai phần có dấu kèm

- Phần định trị đợc viết nh dạng thập phân bình thờng

- Dấu phẩy phụ thuộc vào phần thập phân định trị nên đợc gọi dấu phẩy động

Vd: -4.789E-02 578.2345E+04

2 C¸c phÐp toán sử dụng với kiểu dữ liệu Real.

a/ C¸c phÐp to¸n sè häc:

Vd: 234.23+23.24=257.47 6.4*3=19.2

(17)

Ta dự đốn xem với kiểu số thực Real phép tốn có th s dng c?

- HS thảo luận xây dựng bài, học sinh khác nhận xét, bổ sung

- GV: Nhận xét đa kết luận

5.4/2=2.7 4.2-8=-3.8 b/ C¸c phÐp to¸n Div, Mod

Vd: 10.01 Div 3=3; 10.3 mod 4=0.3 c/ C¸c phÐp to¸n so s¸nh:

- Cã phÐp to¸n so s¸nh (>,<,=,>=,<=)

Vd: 5.3>2.3 4<9.56 3.3=3.3 8.1>=8.1 5<=5

d/ Các hàm áp dụng với đối số có kiểu Integer

- Cho giá trị tuyệt đối: Abs(x); - Cho giá trị bình phơng: Sqr(x) - Cho giá trị bậc hai: Sqrt(x)

- Cho gi¸ trị hàm lợng giacs: Sin(x), Cos(x), Tag(x)

- Hàm làm tròn: Trunc, Round

- Giáo viên khắc sâu kiến thøc cho häc sinh vỊ kiĨu d÷ liƯu sè thùc (Real)

- Nhấn mạnh ý nghĩa cách sử dụng hàm có sắn TP với kiểu số thùc

Bµi tËp:

LÊy vÝ dụ minh họa cho kiểu liệu Real? Cách biểu diễn số thực hai dạng

Các phép toán sư dơng tÝnh to¸n víi sè thùc

tiết :

các kiểu liệu chuẩn

NS: / / 9A 9B 9C 9D 9E

NG:… / /

…

(18)

I/ mơc tiªu:

- Hiểu đợc cách sử dụng kiểu liệu lập trình - HS biết áp dụng vào tốn cụ thể

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tỉ chøc:

SÜ sè

? Trình bày số khái nịêm kiểu liệu Real?

? Em h·y biĨu diƠn sè thùc sau ë hai dậng biĨu diƠn cđa nã: -0.00000345 ?C¸c phÐp toán sử dụng kiểu liệu Real, cho ví dụ?

3 Dạy- học

Hoạt động thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu kiểu liệu

Logic Boolean

- GV: BËt m¹ng Netop Scholl, chuẩn bị số ví dụ kiểu liệu Boolean

? ThÕ phép toán quan hệ, lấy ví dụ?

? Theo em TP liệu Boolean có sử dụng đợc phép toán số học nh hai kiểu liệu trên khơng?

- HS th¶o ln trả lời câu hỏi - HS khác nhận xét, bổ sung

- Giáo viên nhận xét đa khái niện kiểu liệu Boolean?

1 Kiểu Logic Boolean. a/ Định nghĩa:

- Trong phép toán so sánh (phép toán quan hệ) với số thực, số nguyên thu đợc hai kết sai Tập hợp hai giá trị kiểu liệu đợc định nghĩa sẵn với tên chuẩn Boolean Hai giá trị có tên đợc định nghĩa sẵn True (đúng) False (sai) đợc xếp theo thứ tự False< True

b/ C¸c phÐp to¸n víi kiĨu Logic

- Các phép tốn cho kết quảlà kiểu logic Boolean nên sử dụng toán tử logic sau

+ NOT: Phủ định (logic đảo): Chỉ làm

(19)

Hoạt động 2: Giới liệu kiểu ký tự-Character.

- GV: Bật mạng Netop Scholl, chuẩn bị sè vÝ dơ vỊ kiĨu d÷ liƯu Character

? Những liệu đợc coi là kiểu ký tự, lấy ví dụ?

? Theo em TP liệu Character có sử dụng đợc các phép toán số học nh hai kiểu dữ liệu khơng?

- HS th¶o ln trả lời câu hỏi - HS khác nhận xét, bổ sung

- Giáo viên nhận xét đa khái niện kiểu liệu ký tự?

việc với toán hạng đứng sau NOT cho giá trị ngợc lại toán hạng logic

Vd: NOT a>2 -> KQ a<2

+ AND: Và (logic kết hợp):Cho kết

True v hai toán hạng

True

Vd: (a>0)AND(a=0)

+ OR: Hoặc (logic đại diện): Cho kết False hai tốn hạng False

Ta cã b¶ng biĨu diƠn sau:

X Y X and Y X or Y

False False False False False True False True

True False False True

True True True False

2 Kiểu ký tự Character a/ Định nghĩa:

- Là dạng liệu kiểu chữ viết nh văn Tập hợp tất ký tự tạo nên chữ viết Pascal tạo thành kiểu liệu đợc định nghĩa sẵn với tên chuẩn CHAR b/ Các phép tốn:

- C¸c phÐp to¸n so sánh (quan hệ) thực tơng tự nh số nguyên dựa mÃ ASCII ký tự

- Có thể thực phép tốn số học sau chuyển đổi kiểu Char sang kiểu Integer thông qua hàm ORD(ch)

c/ Các hàm liên quan đến kiểu ký tự:

- Cho sè thø tù (giá trị mÃ): Ord(ch) Vd: Ord(a)=15

- Cho ký tự có giá trị số nguyên n Ord(n)

- Cho ký tự đứng trớc ch : Pred(ch) - Cho ký tự đứng sau ch: Succ(ch)

- Cho ký tự chữ hoa ch: Upcase(ch) - Cho ký tự phím đợc bấm bàn phím: Readkey

(20)

- Giáo viên khắc sâu kiến thức cho học sinh kiểu liệu logic kiểu ký tự - Nhấn mạnh ý nghĩa cách sử dụng hàm có sắn TP với kiểu liệu

Hớng dẫn nhà:

Bµi tËp:

LÊy vÝ dơ minh häa cho kiĨu d÷ liƯu Boolean, Character?

(21)

tiÕt 10 :

d÷ liƯu cã cÊu tróc

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc kiểu liệu có cấu trúc dùng lập trình Turbo Pascal

- Hiểu đợc cách sử dụng kiểu liệu - HS biết áp dụng vào toán cụ thể

- Giáo viên:

o Học cũ

o Đọc trớc

III/ Tiến trình tổ chức d¹y

1 Tỉ chøc:

SÜ sè

2 KiĨm tra bµi cũ:

? Trình bày số khái nịêm kiểu liệu Logic?

? Các phép toán sử dụng với kiểu liệu Logic này?

3 Dạy- học

Hot ng ca thy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu cấu trúc dữ

liƯu

- GV: Bật mạng Netop Scholl, chuẩn bị số ví dơ vỊ kiĨu d÷ liƯu cã cÊu tróc

? ThÕ nµo lµ kiĨu liệu có cấu trúc?

- HS thảo luận trả lời câu hỏi - HS khác nhận xét, bổ sung

- Giáo viên nhận xét đa khái niện kiểu liệu có cấu trúc?

I Khái niệm cấu trúc liệu.

- Là kiểu liệu đợc tạo cách tổ chức phần tử có kiểu đơn giản theo qui cách định

- Cã hai đăch trng kiểu liêu có cấu trúc là:

+ Kiểu phần tử

+ Phơng pháp tổ chức kiểu liệu - Có kiểu liệu có cấu trúc: + Mảng: Array

+ Tập hợp: Set + Bản ghi: Record + File

(22)

Hoạt động 2: Tìm hiểu liệu kiểu xâu ký tự.

-GV: Nêu định nghĩa kiểu liệu xâu ký tự

- HS quan s¸t, theo dâi

- GV lÊy vÝ dơ minh hoạ cho kiểu liệu

?GV cho học sinh tự lấy vài ví dụ kiểu liƯu nµy.

-GV học sinh tìm hiểu di ca String

Vd: Ten HS= Nguyễn Văn Anh

? Theo em biến TénH có độ dài bằng bao nhiêu?

? Độ dài tìm đợc cách nào?

?GV cho hs nhận xét, trả lời lấy ví dụ độ dài String.

-HS: Quan sát lấy ví dụ minh hoạ -GV: Nhận xét, đa khái niệm, cách xác định độ dài String(xâu)

GV vµ häc sinh cïng tìm hiểu phép toán với kiểu String

?Thế phép gán, lấy ví dụ?

? Lấy vài ví dụ phép công xâu?

? Ta nhân, chia, trừ xâu không?

? Hai xâu muốn biết đợcvề ký tự xâu, độ lớn xâu ta thực hiện đợc phép toán gỡ?

? Thế gọi xâu con, hai xâu giống nhau?

-GV: Đa ví dụ vỊ phÐp céng

II/ KiĨu x©u ký tù: 1/ §Þnh nghÜa:

- Là dãy ký tự liên tiếp có độ dài tối đa xác định trớc Kiểu liệu đợc mô tả từ khố STRING tiếp sau độ dài tối đa xâu ký tự đặt ngoặc vuông nh sau:

STRING[độ dài tối đa xâu]; - Việc khai báo kiểu xâu ký tự thờng đợc mô tả trực tiếp sau từ khoá Var

VD: Ten: String[8]; Ho_dem:String[15]

2/ Độ dài String.

- Là số ký tự bao gồm ký tự trống, tính từ ký tự bắt đầu bên phải đến ký tự cuối bên trái

- Độ dài String nhỏ hặc độ dài tối đa mà biến nhận

Vd: BiÕn Tªn :String[8] Độ dài Tên<= ký tự

3/ C¸c phÐp to¸n víi kiĨu String. a/ PhÐp g¸n:

- Ta gán trực tiếp biÕn String b»ng mét s©u ký tù

Vd: Ten:="Nguyen Văn Anh

b/ Phép cộng.

- Ta thc phép cộng để ghép sâu ký tự lại với tạo xâu ký tự chung -Vd: Ten:="Anh"

Ho_dem:="Nguyễn Văn" Ho_ten:=Ten+Ho_dem

Lúc Ho_ten=" Nguyễn Văn Anh" Chó ý:

- Nếu độ dài xâu sau ghép lớn hơn độ dài tối đa String nững ký tự đứng sau bị mất.

(23)

xâu, phép gán, phép so sánh - HS th¶o luËn, tr¶ lêi

-GV: NhËn xÐt đa kết luận

- Không có phép trừ, nhân, chia String c/ So sánh String.

- Các String đem so sánh với với nguyên tắc là:

+ Cỏc phn t String so sánh với đôi theo thứ tự

+ Nếu String có phần tử giống String có độ dài nhỏ gọi xâu

+ Hai String đợc coi String có phần tử giống độ dài giống

- Giáo viên khắc sâu kiến thức cho học sinh kiểu liệu có cấu trúc - Nhấn mạnh ý nghĩa cách sử dụng phép toán với kiểu liệu

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung ghi Với phép toán ta láy vµi vÝ dơ

Bµi tËp:

LÊy vÝ dơ minh häa cho kiĨu d÷ cã cÊu tróc.?

tiÕt 11 :

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- Hiểu đợc cách sử dụng kiểu liệu - HS biết áp dụng vào toán cụ thể

- Giáo dục học sinh có thái độ học tập t giỏc, tớch cc

- Giáo viên:

o Học cũ

(24)

o Đọc trớc

1 Tỉ chøc:

SÜ sè

? Trình bày khái niệm cấu trúc liệu ?

?Thế kiểu xâu ký tự, độ dài sâu đợc tính ntn??

Hoạt động thầy trị Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu cấu trúc dữ

liƯu

- GV: BËt m¹ng Netop Scholl, chuẩn bị số ví dụ hàm, thủ tục chuẩn áp dụng với kiểu liệu String

- GV giíi thiƯu hµm Length

? Hàm Length có chức gì?

- HS thảo luận trả lời câu hỏi

-GV giới thiệu, lấy ví dụ hàm Copy

?Hàm Copy có chức gì? - HS thảo luận trả lời

- GV giới thiệu hàm Concat

?Muốn nối xâu lại với ta làm ntn?

HS thảo luận trả lời

? Để kiểm tra vị trí bắt đầu của xâu xâu mẹ ta sử dụng hàm nào?

Gv giới thiệu thủ tục TP

1 Các hàm, thủ tục chuẩn áp dụng với kiểu String

a/ Các hàm:

- Cho kt độ dài xâu ký tự:

Length(St)

Vd: Cho x©u ký tù sau:

S=" Trêng THCS Thái Hòa" Ta có: Length(S)=20

(Ta núi dài xâu 20)

- Copy(S,n,m): Cho xâu ký tự đợc cắt từ xâu S ban đầu có độ dài m, từ ký tự thứ n tr i

Vd: S=" Trờng THCS Thái Hòa"

Copy(S,8,12)

Kết cho xâu mới: "THCS Thái Hòa" - Concat(S1,S2,S3,…,Sn): Cho xâu ký tự đợc ghép từ xâu: S1,S2,…Sn Vd: S1="Trờng"

S2="THCS" S3="Thái" S4="Hòa"

Concat(S1,S2,S3,S4)

Cho xâu S="Trờng THCS Thái Hòa" - Pos(S1,S): Trả giá trị gặp xâu S1 xuất xâu mẹ S Vd: Cho S="Trờng THCS Thái Hòa"

S1="THCS"

Pos(S1,S): Cho giá trị

(Ti v trớ th sâu S1 đợc xuất trong xâu S)

b/ Các thủ tục:

(25)

?Để loại bá bít ký tù x©u ta sư dơng thđ tục nào?

Để chèn thêm xâu vào xâu cị ta lµm ntn?

?Muốn đổi số xâu, xâu số ta tiến hành nh nào?

HS: Theo dõi, thảo luận trả lời câu hỏi

HS kh¸c nhËn xÐt, bỉ xung

GV nhËn xÐt, đa cú pháp, cách sử dụng hàm

Hoạt động 2: Tìm hiểu cách ứng dụng, sử dụng hàm, thủ tục chơng trình TP.

GV: Đa ví dụ hàm, thủ tục

HS lấy ví dụ, viết chơng trình hoàn chỉnh

1

- Delete(S,n,m): Lo¹i bá m ký tù tõ ký tự thứ n trở

Vd: Cho xâu S="Trờng THCS Thái Hòa"

Delete(S,4,8)

Thu c xõu S’="Trờng Thái

Hßa"

- Insert(S1,S2,n): ChÌn thêm xâu ký tự vào vị trí n xâu ký tự 2)

Vd: S1="THCS"

S2="Trờng Thái Hßa" Insert(S1,S2,8)

Ta đợc xâu S nh sau:

S="Trờng THCS Thái Hòa"

- Val(S1,V,Code): Đổi xâu S1 thµnh sè Vd: Cho S1="12567"

Val(S1,V,Code)

Cho kết là: V=12567 Chú ý: Code:Integer.

- STR(biểu thức số,S):Đổi biểu thức số xâu ký tự S

Vd: STR(123456,S)

Cho kết xâu S="123456"

2/ Các ví dụ:

Viết đoạn chơng trình :

- Tính độ dài xâu: - Ghép hai xõu

- Tìm vị trí bắt đầu x©u x©u mĐ

Program Vd; Uses Wincrt;

Var S,S1,S2:String[100] Code:Integer; Begin

Write(‘NhËp x©u S1=’);Readln(S1); Write(‘NhËp xâu S2=);Readln(S2); L:=Length(S1);

Write(Độ dài xâu S1 là:,L); S:=Concat(S1,S2);

Write(‘ Xâu đợc ghép là:’,S); Vt:=Pos(S1,S2);

Write(‘VÞ trí bắt đầu xâu

(26)

trong xâu mẹ là:,Vt); End

- Giáo viên khắc sâu kiến thức cho học sinh hàm, thủ tục hay sử dụng TP víi kiĨu d÷ liƯu String

- NhÊn mạnh ý nghĩa cách sử dụng phép toán với kiểu liệu

Hớng dẫn vỊ nhµ:

- GV: Híng dÉn häc sinh häc tập nhà theo nội dung ghi Với phép toán ta láy vài ví dụ

Bài tËp:

Viết chơng trình: Ghép xâu, tìm độ dài xâu, xoá bớt xâu tiết 12 :

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- Hiểu đợc cách sử dụng liệu kiểu mảng - HS biết áp dụng vào toán cụ thể

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tỉ chøc:

SÜ sè

? Trình bày, lấy ví dụ số hàm String ? ?Trình bày, lấy ví dụ thủ tục String?

3 Dạy- học bµi míi

Hoạt động thầy trị Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu liệu kiểu II Kiểu mảng.

(27)

m¶ng.

- GV: Bật mạng Netop Scholl, chuẩn bị số ví dụ liệu kiểu mảng, ví dụ liệu kiểu mảng

- HS quan sát, trả lời câu hỏi

? Mảng g×?

? Cách khai báo mảng. ?Cách đọc, duyệt mng.

?Cáchchép mảng A cho mảng B.

HS th¶o ln tr¶ lêi

GV: NhËn xÐt, rót kÕt luËn

Hoạt động 2: Tìm hiểu số ví dụ về dữ liệu kiểu mảng.

GV lấy ví dụ đoạn mã lệnh dùng để chép hai mảng cho nhau.

HS: Theo dâi, th¶o luËn trả lời câu hỏi

HS khác nhận xét, bổ xung

GV nhận xét, đa cú pháp, cách sử dụng hàm

a/ Định nghĩa

- Là tập hợp hữu hạn phần tử có kiểu liệu đợc tổ chức thành hay nhiều chiều

b/ Khai b¸o:

- Có ph¸p:

Tên mảng:Array[kiểu dẫn] Of kiểu phần tử.

Vd: A:Array[1 100] Of Integer; A: Tên mảng

1 100: Chỉ dẫn mảng gồm 100 phần tử

Kiểu phần tử kiểu số nguyên

c/ Truy nhập, gán, đọc liệu kiểu mảng.

- NhËp từ bàn phím phần tử cho mảng Writeln( Nhập dl cho m¶ng’); For i:=1 to 10

Begin

Write(‘A[‘,i,’]=’); Readln(A[i]); End;

- ViÕt d÷ liƯu tõ m¶ng ra: Writeln(‘ In du lieu’): For i:=1 to 10

Writeln(A[i]); 2/ Mét sè vÝ dơ vỊ m¶ng. a/ ChÐp m¶ng.

- ChÐp m¶ng A sang m¶ng B cã cïng kiĨu d÷ liƯu

Vd: A={2,5,6,7,2,6,8} ta chÐp m¶ng A sang m¶ng B

k:=1;

- Giáo viên khắc sâu kiến thức cho học sinh liệu kiểu mảng

- Nhấn mạnh ý nghĩa cách sử dụng phép toán với kiểu liệu

(28)

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung ghi Với phép toán ta láy vài ví dụ

Bài tập:

Viết chơng trình: Đọc, xuất, gán mảng cho

tiết 13 :

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- Hiểu đợc cách sử dụng liệu kiểu mảng - HS biết áp dụng vào toán cụ thể

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tỉ chøc:

SÜ sè

? Trình bày khái niệm mảng, ?

?Trình bày cách khai báo mảng nhiều chiều.

3 Dạy- học

Hot ng thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu tốn chép

m¶ng.

- GV: Bật mạng Netop Scholl, cho chạy chơng trình ó c chun b trc

1/ Bài toán chép m¶ng.

- ChÐp m¶ng A sang m¶ng B cã kiểu liệu

Vd: A={2,5,6,7,2,6,8} ta chép mảng A

(29)

?Bi toỏn ó lm uc vic gỡ?

Đặt câu hỏi với lệnh

? A: Array[1 30] ß Ineger; ? ?Writeln(); ?

?Để vào liệu cho mảng ta phải làm gì?

? Tại sau For ta phải sử dụng vòng Begin End;?

- HS quan sát trả lời câu hỏi, xây dựng

- GV nhận xét đa kết luận, thuật toán hoàn chỉnh toán

Hot ng 2: Tỡm hiu thut toỏn tìm Min mảng.

GV: Cho chạy chơng trình mạng Netop School để học sinh quan sát, tìm hiểu kết tốn

- GV HS xây dựng thuật toán thông qua câu hỏi?

? Muồn tìm Min dÃy các số hạng ta thờng làm nh nào?

? Biến Min thuật toán có vai trò nh nào, thuộc dạng nào?

? Biến i có vùng giá trị nằm trong khoảng nào?

- HS thảo luận xây dựng toán - GV nhận xét, đa nội dung thuật toán để HS quan sát, tìm hiểu cấu trúc chơng trình

sang m¶ng B

* Ta tiến hành chuyển phần tử mảng A sang mảng B theo vị trí phần tử * Thuật toán:

Program Chep-mang;

Var A,B:Array[1 30]of Integer; i:Integer;

Begin

(NhËp d÷ liƯu cho mảng)

Writeln(' Vào liệu cho mảng'); For i:=1 to 30

Begin

Write('A[',i,']='); Readln(A[i]);

End;

(Chuyển liệu từ mảng A sang mảng B)

For i:=1 to 30 B[i]:=A[i]; End

2/ Tìm phần tử nhỏ mảng.

Vd: A={3,5,8,2,9,10} Tìm Min(A)

* Để tìm phần tử nhỏ mảng, Lấy phần tử A[1] phần tử nhỏ Đem so sánh với phần tử mảng -Nếu Min thoả mÃn Min phần tử nhỏ

- Ngc li gỏn Min phần tử vừa tìm đợc * Thuật tốn:

Program Tim-Min;

Var A:Array[1 30]of Integer; I,Min:Integer;

Begin

(Nhập liệu cho mảng)

Writeln(' Vào liệu cho mảng); For i:=1 to 30

Begin

Write('A[',i,']='); Readln(A[i]);

End;

(Tìm Min cua mảng)

Min:=A[1];

(30)

For i:=2 to 30

If Min<A[i] then Min:=A[i]

(In Min)

Writeln(' Giá trị nhá nhÊt lµ:', Min); End

4 Cđng cè, lun tập:

- Giáo viên khắc sâu kiến thức cho học sinh thao tác xây dựng hai thuật toán

- Cho vài HS nói lại ý nghĩa số câu lệnh thuật toán

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung ghi

Bài tập:

Viết chơng trình: Đọc, xuất, gán mảng cho

Viết chơng trình: Tìm Max, hiển thị giá trị Min, Max mảng

(31)

(32)

(33)

tiÕt 14 :

cấu trúc chung chơng trình

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ môc tiªu:

- HS: Nắm đợc cấu trúc chung chơng trình Turbo Pascal - Hiểu đợc thành phần chơng trình TP đơn giản - HS biết áp dụng vào toán cụ thể

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tổ chức:

SÜ sè

? Trình bày khái niệm mảng, ?

?Trình bày cách khai báo mảng nhiều chiều.

3 Dạy- học míi

Hoạt động thầy trị Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu cấu trỳc

của chơng trình TP

- GV: Bật mạng Netop Scholl, giới thiệu chơng trình c chun b trc

?Một chơng trình TP gồm mấy phần?

- HS quan sát trả lời câu hỏi, xây dựng

- GV nhn xột a kết luận Hoạt động 2: Tìm hiểu phần tiêu đề của chơng trình TP.

1/ CÊu tróc:

- Một chơng trình TP đơn giản gồm phần

+ Phần tiêu đề + Phần khai báo

+ Phần thân chơng trình

2/ Phn tiờu đề.

- Đợc sử dụng để đặt tên cho chơng

(34)

GV: Giới thiệu phần tiêu đề chơng trình TP mạng Netop Scholl để HS quan sát

? Tên chơng trình có thể đặt theo qui tắc nào

? LÊy vÝ dụ

- HS thảo luận xây dựng toán

- GV nhận xét đa kết luận Hoạt động 3: Tìm hiểu phần khai báo chơng trình.

- GV đa vài ví dụ phần khai báo cho chơng trình TP

- GV ? Các đối tợng đợc khai báo tuân theo trình t no?

? Yêu cầu học sinh nhắc lại c¸c kh¸i niƯm:

? Unit ? Const ? Type. ? Var

? Procedure ? Function

LÊy vÝ dụ thành phần khai báo.

- HS thảo luận trả lời câu hỏi - GV nhận xét, đa cấu trúc ví dụ đối tợng khai báo

Hoạt động 4: Tìm hiểu phần thõn chng trỡnh TP

- Giáo viên giới thiệu phần than chơng trình cụ thể

- ?Trong phần thân chơng trình em thấy bao gồm gì?

- HS thảo luận, trả lời

- GV nhËn xÐt, ®a kÕt luËn

trình - Cấu trúc:

Program <Tên chơng trình>

- Trong đó:

+ Program: Tõ kho¸

+ Tên chơng trình: Đặt theo qui tắc đặt tên TP

VÝ dô:

Program Tim_Min; Program Tim_Max

3/ Phần khai báo:

- Khai bỏo cỏc Unit, hằng, biến, kiểu liệu mới, chơng trình con, hàm…sẽ đợc sử dụng chơng trình

- Cấu trúc khai báo đối tợng: USES:Khai báo Unit CONST:Khai báo

TYPE:Khai báo kiểu liệu ngời dùng định nghĩa

VAR:Khai b¸o c¸c biÕn

PROCEDURE:Khai báo chơng trình

FINCTION:Khai báo hàm Ví dô:

Program Tim_Max; Uses WinCrt;

Const n=4,m=5;

Type A:Array[1 n]of Integer; Var x,y,i,j,max:Integer;

B,C:A;

4/ Phần thân chơng trình.

- Phn thõn ca chng trình đợc đặt hai từ khố BEGIN v

END.

- Phần chứa tập hợp lệnh vào liệu, câu lệnh tính toán, hàm, thủ tục có sử dụng chơng trình

(35)

- Giáo viên khắc sâu kiến thức cho học sinh cấu trúc chơng trình TP

- Lấy ví dụ cụ thể chơng trình Tim_Min, Tim_Max, để HS phần chơng trình TP

Bµi tËp:

Xây dựng cấu trúc chơng trình: Tim_Min, Tim_Max, Đọc m¶ng xuÊt m¶ng tiÕt 15 :

các câu lệnh đơn khai báo,gán phép toán biến

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc số câu lệnh khai báo chơng trình Turbo Pascal - Hiểu đợc phép toỏn gỏn

- HS biết áp dụng vào toán cụ thể

- Giỏo dc hc sinh có thái độ học tập tự giác, tích cực

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tỉ chøc:

SÜ sè

? Trình bày cấu trúc chơng trình TP gồm phần, ? ?Trình bày phần chơng trình TP

3 Dạy- học

Hoạt động thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu số câu

lệnh đơn sử dụng để khai báo.

1/ Các câu lệnh đơn khai báo.

*USES:Khai b¸o Unit

(36)

- GV: BËt m¹ng Netop Scholl, giới thiệu câu lệnh khai báo ch-ơng trình TP

- HS quan sát, lấy ví dụ - HS thảo luận xây dựng toán - GV nhận xét đa kết luận

?Khai b¸o Unit ?Khai b¸o Const ?Khai b¸o Type. ? Khai b¸o Var

?Khai b¸o Procedure ?Khai b¸o Function

- HS th¶o ln lÊy vÝ dơ

- GV nhận xét, đa cấu trúc ví dụ đối tợng khai báo

Hoạt động 4: Tìm hiểu câu lệnh gán. - Giáo viên giới thiệu ví dụ thể câu lệnh gán

- ?ThÕ phép gán.

-? Lấy vài ví dụ phép gán

- HS thảo luận, trả lêi

- CÊu tróc: USES <c¸c unit sư dơng> - VÝ dơ:

USES Crt; (giao tiÕp gi÷a ngời máy tình)

USES Print; (sử dụng xuất liệu ra máy in)

* CONST:Khai báo

- Cấu trúc: CONST <Tên hằng=giá trị>; - VÝ dô:

CONST n=8;m=10;

* TYPE:Khai báo kiểu liệu ng-ời dùng định nghĩa

- CÊu tróc: TYPE <kiĨu d÷ liƯu míi> - VÝ dơ:

TYPE Mang:Array¬1 100]of (0,1); * VAR:Khai báo biến

- Cấu trúc: Var Tên biÕn: KiĨu biÕn; - VÝ dơ:

Var n,m,i,j,max: Integer; B,C,A: Mang;

* PROCEDURE:Khai báo chơng trình

- PROCEDURE <Tên chơng trình con>; - Ví dụ:

PROCEDURE Tinh_tong; * FUNCTION:Khai báo hàm

- CÊu tróc: FUNCTION <Ten hµm: KiĨu hµm>;

- VÝ dụ:

Function SoNT(x:Integer):Boolean;

2/ Câu lệnh gán:.

- Lệnh gán giá trị, kết biểu thøc tÝnh to¸n… cho biÕn

- Có ph¸p:

< Biến> := <Giá trị, biểu thức> - Ví dụ:

Tong:= Tong+i; x1 :=

2

b a

  ; x

2 :=

2

b a

 

(37)

- Giáo viên khắc sâu kiến thức cho học sinh cách khai báo, sử dụng số câu lệnh khai báo TP

- Yêu cầu HS lấy ví dụ khác

Hớng dẫn nhà:

Bµi tËp:

Lấy ví dụ câu lệnh đơn khai báo, gán tiết 16 :

các câu lệnh đơn khai báo,gán phép toán biến

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc số phép toán biến sử dụng chơng trình Turbo Pascal

- HiĨu, lÊy vÝ dơ cho phÐp to¸n víi biÕn - HS biết áp dụng vào toán cụ thể

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tổ chức:

SÜ sè

? Trình bày , lấy ví dụ số câu lệnh dùng để khai báo ? ?Trình bày, lấy vị dụ minh hoạ cho cõu lnh gỏn?.

3 Dạy- học

Hoạt động thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu số phộp

toán số học sử dụng biến

1/ C¸c phÐp to¸n sè häc.

* PhÐp céng:

(38)

- GV: BËt m¹ng Netop Scholl, giíi thiƯu mét sè c¸c phÐp to¸n sè häc

- HS quan sát, lấy ví dụ minh hoạ cho c¸c phÐp to¸n:

?PhÐp céng. ?PhÐp trõ. ?PhÐp nhân. ? Phép chia.

- HS thảo luận lấy vÝ dô

- GV nhận xét, đa cấu trúc ví dụ đối tợng khai báo

Hoạt động 2: Tìm hiểu số phép tốn khỏc ỏp dng trờn bin

- Giáo viên giới thiƯu có ph¸p, mét sè vÝ dơ thĨ hiƯn cho phép toán khai phép toán so sánh

- HS th¶o luËn, tr¶ lêi

- GV nhËn xét, đa kết luận

- Cú pháp:

BiÕn nhí:= biĨu thøc 1+biĨu thøc 2+… - VÝ dụ:Tính tổng 5,9 gán vào biến Tg

Tg:=5+9; *PhÐp trõ: - Có ph¸p:

BiÕn nhí:=biĨu thøc 1-biĨu thøc - … - VÝ dơ: TÝnh hiƯu cđa 9,5 lu vµo biÕn H

H:=9-5; * PhÐp nhân: - Cú pháp:

Biến nhớ:=biểu thức * biĨu thøc *… - VÝ dơ: TÝnh tÝch cđa 9,5 lu vµo biÕn Tc

Tc:=9*5; * PhÐp chia: - Có ph¸p:

BiÕn nhí:=biĨu thøc / biĨu thøc -VÝ dơ: TÝnh th¬ng 9,5 lu vào biến Th

Th:= 9/5;

2/ Các phép toán khác:.

* Khai căn: - Cú pháp:

BiÕn nhí:= SQRT(biĨu thøc);

- VÝ dơ: Khai 25 lu vào biến Ca Ca:= SQRT(25);

* Lấy giá trị tuyệt đối: - Cú pháp:

BiÕn nhí:=ABS(sè);

- Ví dụ: Lấy giá trị tuyệt đối -23 GT:=ABS(3) -> Kq=3;

GT:=ABS(-23); -> Kq=23; * PhÐp to¸n so s¸nh:

- Ta sử dụng đợc phép tốn so sánh biến:

- Có ph¸p:

BiÕn (so s¸nh víi) BiÕn -VÝ dô: n>m;

n>0; n<100;

(39)

- Giáo viên khắc sâu kiến thức cho học sinh phép toán sử dụng biến nh:

+ PhÐp to¸n sè häc + PhÐp to¸n so s¸nh…

- Yêu cầu HS lấy ví dụ minh hoạ lại phép toán

Hớng dẫn nhµ:

Bµi tËp:

LÊy vÝ dơ vỊ c¸c c¸c phÐp to¸n ¸p dụng biến

(40)

tiết 17 :

bµi thùc hµnh sè

thùc hµnh vỊ khai báo kiểu liệu

NS: / / 9A 9B 9C 9D 9E

NG:… / /

I/ mục tiêu:

- HS ôn tập l¹i kiÕn thøc vỊ:

+ Cú pháp khai báo kiểu liệu sử dụng Turbo Pascal + Biết cách viết chơng trình đơn giản sử dụng kiểu liệu - Giáo dục học sinh có thái độ học tập tự giác, tích cực

- Giáo viên:

o Tài liệu, sách giáo khoa o Chuẩn bị thực hành

o Đọc lại học

o Chuẩn bị thực hành

1. Tỉ chøc:

SÜ sè

? Có kiểu liệu chuẩn đợc sử dụng TP, trình bày cụ thể? ?Nêu cú pháp khai báo kiểu liệu chuẩn?

Hoạt động thầy trị Nội dung kiến thức cần đạt Hoạt động 1:Thông báo nhiệm v:

- GV: Bật máy, mạng Netop School giới thiƯu mét sè cÊu tróc, có ph¸p vỊ c¸c lƯnh khai báo kiểu liệu chuẩn

GV? Yêu cầu h/s nhắc lại số kiểu liệu chuẩn.

+KiÓu sè +KiÓu ký tù. +KiÓu Logic

Hoạt động 2: Yêu cầu đạt đợc bài thực hành.

- GV: Đa số tập mẫu đợc chuẩn bị sẵn để h/s quan sát

1 Néi dung thùc hµnh

- Khởi động máy tính, phần mềm Turbo Pascal

- Thùc hiƯn khai b¸o kiểu liệu chuẩn sử dụng Turbo Pascal

- áp dụng vào viết toán cụ thể có sử dụng kiểu liệu

+ Bài toán nhân, chia, cộng, trừ số + Bài toán tìm Min, Max mảng

2 Yêu cầu:

- Khởi động Turbo pascal

- Thùc hiÖn lệnh khai báo kiểu liệu chuẩn TP

(41)

- GV: Yêu cầu tiêu chuẩn toán

+ Khai bỏo, s dụng kiểu liệu

+ Viết cú pháp, cách sử dụng câu lệnh khai báo, hàm, hằng, biến,…

Hoạt động 3: Học sinh thực hành theo nhóm.

- GV: Chia nhãm thùc hµnh, nhóm 2->3 h/s

- GV: Đa tập thực hành - HS thảo luận làm thực hành theo nhóm

- Yêu cầu học sinh ghi lại thực hành máy

- GV nhận xét hớng dẫn nhóm thực tập

- Đánh giá thực hành học sinh

- Viết tập sử dụng câu lệnh khai báo

3 Bài tập:

3.1 Viết câu lệnh khai báo kiểu số 3.2 áp dụng làm tập sau:

+ Tìm Max mảng số nguyên A + Tìm Min mảng sè thùc B + TÝnh tÝch cđa m¶ng A

+ Tính tổng mảng B

+ Tìm phần tử mảng A chia hết cho

+ Tìm phần tử âm mảng B

- Giáo viên cho vài h/s thực chạy thực hành - GV nhận xét, rút kinh nghiệm thực hành nhóm - GV nhận xét, đánh giá cho điểm thực hành

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung vë ghi - Làm tiếp thực hành

- Chuẩn bị thực hµnh tiÕt 18 :

thực hành khai báo kiểu liệu

NS:… …/ / 8A 8B 8C 8D

NG:… / /

…

I/ mơc tiªu:

- HS ôn tập lại kiến thức về:

+ Cú pháp khai báo kiểu liệu sử dụng Turbo Pascal + Biết cách viết chơng trình đơn giản sử dụng kiểu liệu - Giáo dục học sinh có thái độ học tập tự giỏc, tớch cc

- Giáo viên:

o Chuẩn bị phòng máy, mạng Netop Scholl

(42)

- Học sinh:

1 Tổ chøc:

Líp 8A 8B 8C 8D

SÜ sè 2 KiĨm tra bµi cị:

? Có kiểu liệu chuẩn đợc sử dụng TP, trình bày cụ thể? ?Nêu cú pháp khai báo kiểu liu chun?

3 Dạy- học

Hot động thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Thông báo nhiệm vụ:

- GV: Bật máy, mạng Netop School giới thiệu số cấu tróc, có ph¸p vỊ c¸c lƯnh khai b¸o c¸c kiĨu liệu chuẩn

GV? Yêu cầu h/s nhắc lại mét sè kiĨu d÷ liƯu chn.

+KiĨu sè +KiĨu ký tù. +KiÓu Logic

- GV: Đa số tập mẫu đợc chuẩn bị sẵn h/s quan sỏt

+ Khai bỏo, s dụng kiểu liệu

- GV: Chia nhãm thùc hµnh, nhóm 2->3 h/s

- Đánh giá thực hành học

- Thùc hiƯn khai báo kiểu liệu chuẩn sử dụng Turbo Pascal

- áp dụng vào viết toán cụ thể có sử dụng kiểu liệu

+ Bài toán nhân, chia, cộng, trừ số + Bài toán tìm Min, Max mảng

2 Yêu cÇu:

- Thùc lệnh khai báo kiểu liệu chuẩn TP

- Viết tập sử dụng câu lệnh khai báo

3 Bài tập:

3.1 Viết câu lệnh khai báo kiểu ký tự, logic

3.2 áp dụng làm tập sau:

Viết chơng trình nhập vào xâu ký tù S1 vµ S2

+ Đếm độ dài xâu xâu ký tự + Ghép hai xâu lại thành sâu

+ Cắt bớt xâu S1 để đợc xâu S3

+ ChÌn x©u S3 vào xâu S2

(43)

sinh + Tìm ký tự giống xâu S1 vµ S2

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung vë ghi - Làm tiếp thực hành

- Chuẩn bị thực hành tiết 19 :

các câu lệnh rẽ nh¸nh If…then - case …of

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc cấu trúc, ý nghĩa, cách sử dụng câu lệnh If…then để rẽ nhánh chơng trình

- Hiểu, lấy ví dụ đợc câu lệnh điều kiện - HS biết áp dụng vào toán cụ thể

- Giáo viên:

o Häc bµi cị

o Đọc trớc

1 Tỉ chøc:

SÜ sè

2 KiÓm tra bµi cị:

KiĨm tra bµi häc.

3 Dạy- học

Hot ng ca thy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu câu lệnh rẽ

nh¸nh If…then

- GV: Bật mạng Netop Scholl, giới

1/ Câu lệnh rẽ nhánh: IFThen a/ Cấu trúc

IF (Điều kiƯn) THEN

(44)

thiƯu mét sè c¸c vÝ dơ cã sư dơng lƯnh rÏ nh¸nh IF…THEN

- HS quan s¸t có ph¸p lƯnh, c¸ch thùc hiƯn lệnh

-GV?

?Nêu cú pháp lệnh.

?Giải thích hoạt động lệnh.

- HS thảo luận trả lời câu hỏi - GV nhận xét, ®a cÊu tróc c¸ch thøc thùc hiƯn lƯnh

-GV cho học sinh mô tả lệnh lu đồ thuật tốn

Hoạt động 2: Tìm hiểu số ví dụ sử dụng lệnh IF THEN

- Gi¸o viªn giíi thiƯu mét sè vÝ dơ thĨ sư dụng câu lệnh rẽ nhánh

- GV?

?Mun thực đợc phép chia ta cần có điều kiện gì?

?Khi b=0 ta kÕt luËn ntn?

? Để tìm Max sô ta phải thực phép toán nào?

? Khi a max, b max?

LƯnh 1 ELSE

LƯnh 2;

- Mơ tả hoạt động lệnh: Lệnh kiểm tra điều kiện

Nếu điều kiện (True) lệnh đợc thực hiện, ngợc lại điều kiện sai

(False) lệnh đợc thực => Chú ý:

- Sau từ khố ELSE khơng đợc dùng dấu (;)

- NÕu sau tõ khoá THEN ELSE

mun thc hin nhiu lnh nhóm lệnh phải đợc đặt từ khố BEGIN

END;

- Có thể khơng sử dụng từ khố ELSE. b/ Mơ tả lệnh IF…THEN lu đồ:

2/ Mét sè ví dụ:

2.1 Viết đoạn chơng trình thực hiƯn phÐp to¸n chia a cho b

If b<>0 then thuong:=a/b; Else

Writeln(‘ Khong thuc hien duco phep chia cho so 0’);

2.2 Viết đoạn chơng trình tìm Max sè a,b

If a>b then

Writeln(‘ Gia tri lon nhat la :’,a) Else

Writeln(‘ Gia tri lon nhat la :’,b);

® 44

Begi n

§iỊu kiƯn

LƯnh LƯnh

End

(45)

4 Cđng cố, luyện tập:

- Giáo viên khắc sâu kiến thức cho học sinh câu lệnh rẽ nhánh + Cã tõ kho¸ ELSE

+ Khi thùc hiƯn nhiỊu lệnh lúc

- Yêu cầu HS lấy ví dụ minh hoạ lại câu lệnh

Bài tập:

Viết chơng trình thực việc sau: 19.1 Tìm thơng x y;

19.2 T×m Max, Min cđa a,b;

19.3 Đổi đơn vị đo từ độ C sang độ F

-tiết 20 :

các câu lệnh rẽ nh¸nh If…then - case …of

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc cấu trúc, ý nghĩa, cách sử dụng câu lệnh CASE…OF để rẽ nhánh chơng trình

- Hiểu, lấy ví dụ đợc câu lệnh điều kiện - HS biết áp dụng vào toán cụ thể

- Giáo viên:

o Häc bµi cị

o Đọc trớc

1 Tỉ chøc:

SÜ sè

? Nêu cấu trúc lệnh IFTHEN, lÊy vÝ dô?

(46)

? Vẽ lu đồ mô tả lệnh IF…THEN? ? Bài tập: 19.1;19.2;19.3.

3 Dạy- học

Hot ng ca thy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu câu lệnh rẽ

nh¸nh Case…of

- GV: BËt m¹ng Netop Scholl, giíi thiƯu mét sè c¸c vÝ dơ cã sư dơng lƯnh rÏ nh¸nh CASE…OF

- HS quan s¸t có ph¸p lƯnh, c¸ch thùc lệnh

-GV?

- HS thảo luận trả lời câu hỏi - GV nhận xét, đa cấu trúc cách thức thực lệnh

Hoạt động 2: Tìm hiểu số ví dụ s dng lnh CASEOF

- Giáo viên giới thiệu mét sè vÝ dơ thĨ tÝnh sè ngµy cđa tháng sử dụng câu lệnh rẽ nhánh

- GV?

?Những tháng có 30 ngày? ?Những tháng có 31 ngày? ?Có phải tháng có 28 ngày?

?Thế năm nhuËn?

- GV nhận xét, đa kết luận

1/ Câu lƯnh rÏ nh¸nh: Case…of a/ CÊu tróc

CASE ( biến) OF

Danh sách giá trị 1: Lệnh 1; Danh sách giá trị 2: Lệnh 2; Danh sách giá trị 3: Lệnh 3;

Danh sách giá trÞ n: LƯnh n ELSE

LƯnh n+1; END;

- Mô tả hoạt động lệnh:

Lệnh kiểm tra biến biến nhận giá trị danh sách lệnh t-ơng ứng với danh sách đợc thực Ngợc lại biến khơng nhận giá trị danh sách lệnh n+1 đợc thực

=> Chó ý:

- Sau từ khố ELSE khơng đợc dùng dấu (;)

- Cã thĨ kh«ng sư dơng tõ kho¸ ELSE.

2/ Mét sè vÝ dơ:

2.1 Viết đoạn chơng trình thực tính số ngày tháng đợc nhập vào từ bàn phím

CASE thang OF

4,6,9,11: Songay:=30;

2 : IF (nam MOD 4 =0)AND(nam mod 100 <>0) then

Songay:=29

ELSE songay:=28 ELSE songay:=31;

END;

(47)

- Giáo viên khắc sâu kiến thức cho học sinh câu lệnh rÏ nh¸nh + Cã tõ kho¸ ELSE

+ Khi thực nhiều lệnh lúc

Bài tập:

Viết chơng trình thùc hiƯn c¸c viƯc sau:

20.1 TÝnh sè ngày tháng, năm nhập vào từ bµn phÝm

20.2 Viết chơng trình nhập vào giá trị số trả lại cho ta cách đọc s ú

Ví dụ: Nhập vào trả lại : Mot; : hai

3 : ba

4 : bon

NhËn xÐt Ngày tháng năm 2007.

(48)

tiết 21 :

các câu lệnh lặp for-while-repeat

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc cấu trúc, ý nghĩa, cách sử dụng câu lệnh lặp FOR

- Hiểu, lấy ví dụ đợc câu lệnh lặp

- HS biÕt ¸p dụng vào toán cụ thể

- Giỏo dục học sinh có thái độ học tập tự giác, tớch cc

- Giáo viên:

o Häc bµi cị

o Đọc trớc

1 Tỉ chøc:

SÜ sè

? Nêu cấu trúc lệnh IF…THEN, lấy ví dụ? ? Nêu cấu trúc lệnh CASE-OF, lấy ví dụ? ? Vẽ lu đồ mơ tả lệnh IF…THEN?

? Bài tập: 20.1;20.2.

3 Dạy- học míi

Hoạt động thầy trị Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu câu lệnh lặp

FOR TO DO

- GV: BËt mạng Netop Scholl, giới thiệu số ví dụ cã sư dơng lƯnh lawpj FORR TO DO

- HS quan s¸t có ph¸p lƯnh, c¸ch thùc hiƯn cđa lệnh

-GV?

?Gii thích hoạt động lệnh.

- HS th¶o luận trả lời câu hỏi

1/ Câu lệnh rẽ lỈp: FOR TO DO a/ CÊu tróc

FOR biÕn ®k :=gt ®Çu TO gt ci DO LƯnh ;

Hay:

FOR biÕn ®k:= gt cuèi DOWNTO Gt đầu DO

Lệnh;

- Mụ t hoạt động vịng lặp:

Khi nhóm lệnh đựơc lặp lặp lại số lần xác định chơng trình ta

(49)

- GV nhận xét, đa cấu trúc cách thức thùc hiƯn lƯnh

Hoạt động 2: Tìm hiểu số ví dụ sử dụng lệnh FOR TO DO

- Giáo viên giới thiệu số ví dụ cụ thể tính tổng 100 số tự nhiền

- GV?

?§Ĩ tÝnh tỉng cho n sè TN đầu tiên theo em ta tính ntn?

- GV nhËn xÐt, đa kết luận Vd2: Viết đoạn chơng trình tÝnh tæng cho d·y sau:

S=1 1

2 10

  

?Để tính tổng em có cách nào để tính nhanh c?

? Tổng khác tổng trớc ntn? theo em ta tÝnh ntn?

thay nhóm lệnh lệnh lặp có bớc lặp xác định Lệnh lặp ta gọi vòng lặp Ta xét vòng lặp FOR, co hai dạng:

+ FOR biến đk:=gt đầu TO gt cuối DO Biến điều khiển đợc tăng từ giá trị đầu đến giá trị cuối lần tăng lại thực hịên lệnh đứng sau DO

+FOR biến đk:=gt cuối DOWNTO Gt đầu DO

Biến điều khiển giảm từ giá trị cuối giá trị đầu, lần giảm lại thực lệnh sau DO mét lÇn

=> Chó ý:

- Sau từ khoá DO ta thực đợc lệnh, muốn thực nhóm lệnh ta phải đa nhóm lệnh vào Begin…End;

2/ Một số ví dụ:

2.1 Viết đoạn chơng trình thực tính tổng 100 số tự nhiên

Procedure Ttong;

Var i,Tg:Longint; Begin

Tg:=0;

For i:=1 to 100 Tg:=Tg+i; End;

2.2 Viết đoạn chơng trình thực tÝnh tæng cho d·y sau:

S=1 1

2 10

  

Procedure Tday;

Var i:Integer; Tong:Real; Begin

Tong:=0;

For i:=10 downto Tong:= Tong+1/i;

Writeln(‘ Tong la:’, Tong:6:2);

(50)

End;

4 Cñng cè, luyện tập:

- Giáo viên khắc sâu kiến thức cho học sinh câu lệnh lặp, thực nhiều lệnh lúc sau DO

Bài tập:

21.1 TÝnh tỉng n số tự nhiên nhập từ bàn phím 21.2 Viết chơng trình tính tổng sau:

1 1

)1

3

1 1

)1

2

a

n b

n

   

 

-tiÕt 22 :

các câu lệnh lặp for-while-repeat

NS: …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc cấu trúc, ý nghĩa, cách sử dụng câu lệnh lặp WHILE

- HS biÕt ¸p dơng vào toán cụ thể

- Giỏo dc học sinh có thái độ học tập tự giác, tích cc

- Giáo viên:

o Häc bµi cị

o Đọc trớc

III/ Tiến trình tổ chức giê d¹y

1 Tỉ chøc:

SÜ sè

(51)

? Nêu cấu trúc lệnh lặp FOR, lấy ví dụ? ? Bài tập: 21.1;21.2.

3 Dạy- học

Hot ng ca thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu câu lệnh lặp

WHILE DO

- GV: BËt m¹ng Netop Scholl, giíi thiƯu mét sè c¸c vÝ dơ cã sư dơng lƯnh lawpj FORR TO DO

- HS quan s¸t có ph¸p lƯnh, cách thực lệnh

-GV?

?Nêu cú ph¸p lƯnh.

- HS thảo luận trả lời câu hỏi - GV nhận xét, đa cấu trúc cách thức thực hiƯn lƯnh

Hoạt động 2: Tìm hiểu số ví dụ sử dụng lệnh WHILE DO

- Gi¸o viên giới thiệu ví dụ cụ thể tìm 50 số tự nhiền chia hết cho

- GV?

?Muèn kiÓm tra tÝnh chia hÕt ta sư dơng lƯnh nµo?

? Chia hÕt cho ta có thể kiểm tr với số nào?

Vd2: Viết đoạn chơng trình tìm số n để:

S=1 1

2 n

>3

1/ Câu lệnh rẽ lặp: WHILE DO a/ CÊu tróc

WHILE biĨu thøc boolean DO LƯnh ;

- Mơ tả hoạt động vòng lặp:

Lệnh kiểm tra điều kiện đứng sau WHILE thực lệnh đứng sau DO, biểu thức Boolean mang giá trị (True) lệnh cịn đợc thực Số lần lặp khơng đợc xác định trớc

=> Chó ý:

- Sau từ khoá DO ta thực đợc lệnh, muốn thực nhóm lệnh ta phải đa nhóm lệnh vào Begin…End;

2/ Mét sè vÝ dô:

2.1 Viết đoạn chơng trình thực việc tìm đa hình 50 số tự nhiên chia hÕt cho vµ

Procedure Timso;

Var i,dem:Longint; Begin

Dem:=0;i:=30;

WHILE dem<50 DO

If (i mod 5=0)and(i mod 7=0) then Begin

Write(i:6); Inc(dem) Inc(i); End; End;

2.2 Viết đoạn chơng trình thực việc tìm số n để dãy:

S=1 1

2 n

   >3

(52)

?Để tính tổng em có cách nào để tớnh nhanh c?

? Tổng khác tổng trớc ntn? theo em ta tÝnh ntn?

- HS th¶o luận, trả lời

- GV nhận xét, đa kÕt luËn

Procedure Timn;

Var i,n:Integer; Tong:Real; Begin

Tong:=0;

WHILE Tong<3 DO Begin

Tong:= Tong+1/i; Inc(i);

Inc(n); Begin

Writeln(‘ So n phai tim laf:’, n); End;

- Giáo viên khắc sâu kiến thức cho học sinh câu lệnh lặp WHILE , thực nhiều lệnh lúc sau DO

Bài tập:

22.1 Cho số tiền x gửi vào ngân hàng với lãi xuất h tìm số tháng cần thiết để thu đợc số tiền y x,h,y đợc nhập từ bàn phím

(53)

tiết 23 :

các câu lệnh lỈp for-while-repeat

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc cấu trúc, ý nghĩa, cách sử dụng câu lệnh lặp REPEAT

- Giáo dục học sinh có thái độ học t giỏc, tớch cc

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tổ chức:

SÜ sè

? Nêu cấu trúc lệnh lặp WHILE, lấy ví dụ? ? Bài tập: 22.1.

3 Dạy- học

Hot ng thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu câu lệnh lặp

REPEAT UNTIL

- GV: BËt m¹ng Netop Scholl, giíi thiƯu số ví dụ có sử dụng lệnh lặp REPEAT…UNTIL

- HS quan s¸t có ph¸p lƯnh, c¸ch thực lệnh

-GV?

?Nêu cú pháp lƯnh.

1/ Câu lệnh rẽ lặp: REPEAT UNTIL a/ CÊu tróc

REPEAT LƯnh ;

LÖnh 2; .

……

LÖnh n;

UNTIL ®iỊu kiƯn=true;

- Mơ tả hoạt động vòng lặp:

Vòng lặp thực lệnh đứng sau REPEAT sau kiểm tra điều kiện Nếu điều kiện khỏi vịng lặp, điều kiện sai lại quay lại thực

(54)

Hoạt động 2: Tìm hiểu số ví dụ s dng lnh REPEAT

- Giáo viên giới thiệu ví dụ cụ thể việc tìm số n thoả mÃn S>4;

- GV?

Vòng lặp kiểm tra biến Tg biến Tg cha vợt tăng giá trị i làm lại tính toán Khi vòng lặp kiểm tra Tg vợt qua dừng vòng lặp in kết

Vd2: Vit on chơng trình tìm số n để:

S=1 .1 1

2  n >3

- GV nhËn xÐt thuËt to¸n

Khi giá trị biến Tich Tich cha lớn tiếp tục tăng giá trị i biến đếm Khi giá trị biến Tich vợt dừng vịng lặp in giá trị số n

c¸c lƯnh

Số lần lặp khơng đợc xác định trớc

2.1 Viết đoạn chơng trình thực việc tìm số n để :

S=1 1

2 n

   >4

Procedure Timson;

Var i,dem:Longint; Tg:Real; Begin

Dem:=0;i:=1;Tg:=0; REPEAT

Tg:=Tg+1/i I:=i+1;

Dem:=Dem+1; UNTIL Tg>4;

Writeln(‘ So n phai tim la:’,Dem); End;

2.2 Viết đoạn chơng trình thực việc tìm số n để dãy:

S=1 .1 1

2  n >3

Procedure Timson;

Var i,dem:Longint; Tich:Real; Begin

Dem:=0;i:=1;Tich:=0; REPEAT

Tich:=Tich*1/i i:=i+1;

Dem:=Dem+1; UNTIL Tich>3;

Writeln(‘ So n phai tim la:’,Dem); End;

- Giáo viên khắc sâu kiến thức cho học sinh câu lệnh lặp REPEAT - Yêu cầu HS lấy ví dụ minh hoạ lại câu lệnh

(55)

Bµi tËp:

Viết chơng trình thực việc sau:

22.1 Cho số tiền x gửi vào ngân hàng với lãi xuất h tìm số tháng cần thiết để thu đợc số tiền y x,h,y đợc nhập từ bàn phím Sử dụng vòng lặp REPEAT UNTIL

(56)

tiÕt 24 :

thực hành câu lệnh rẽ nhánh, lƯnh lỈp

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mục tiêu:

- HS ôn tập lại kiến thức vÒ:

- Giáo viên:

1 Tổ chức:

SÜ sè

? Trình bày cấu trúc mô tả cách thực câu lƯnh lỈp?

?Nêu cú cấu trúc mơ tả cách thức hoạt động câu lệnh rẽ nhánh?

3 Dạy- học

Hot ng ca thy trò Nội dung kiến thức cần đạt Hoạt động 1:Thụng bỏo nhim v:

- GV: Bật máy, mạng Netop School giíi thiƯu mét sè cÊu tróc, có ph¸p lệnh khai báo kiểu liệu chuẩn

GV? Yêu cầu h/s nhắc lại thao tác khởi động, cấu trúc chung ch-ơng trình TP?

+Khai báo.

+Thủ tục, chơng trình con

- GV: Đa số tập mẫu

- Thực lập trình để giải tốn cụ thể nh cho ví dụ cụ thể

2 Yêu cầu:

- Khi ng Turbo pascal

- Thực lập trình chạy chơng trình máy, ghi nhận xét kế đạt

(57)

đợc chuẩn bị sẵn để h/s quan sỏt

+ Khai bỏo, s dng ỳng kiu liệu

- GV: Chia nhóm thực hành, nhóm 2->3 h/s

c

3 Bài tập:

19.4 Tìm Max, Min a,b;

20.3 Tính số ngày tháng, năm bất kú nhËp vµo tõ bµn phÝm

19.5 Viết chơng trình nhập vào giá trị số trả lại cho ta cách đọc số

21.2 ViÕt chơng trình tính tổng sau:

1 1

)1

3

1 1

)1

2

a

n b

n

   

 

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung vë ghi - Lµm tiÕp bµi thùc hµnh

NhËn xét Ngày tháng năm 2007.

-tiết 25:

thùc hµnh vỊ câu lệnh rẽ nhánh, lệnh lặp

NS: / / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

+ Cú pháp khai báo kiểu liệu sử dụng Turbo Pascal

(58)

+ Biết cách viết chơng trình đơn giản sử dụng kiểu liệu - Giáo dục học sinh có thái độ học t giỏc, tớch cc

- Giáo viên:

1 Tổ chức:

SÜ sè

? Trình bày cấu trúc mô tả cách thực câu lệnh lỈp?

3 Dạy- học

Hot ng ca thy v trị Nội dung kiến thức cần đạt Hoạt động 1:Thơng bỏo nhim v:

- GV: Bật máy, mạng Netop School giíi thiƯu mét sè cÊu tróc, có ph¸p vỊ lệnh khai báo kiểu liệu chuẩn

+Khai báo.

Hot động 2: Yêu cầu đạt đợc bài thực hành.

+ Khai báo, sử dụng kiểu liệu

- Thực lập trình để giải toán cụ thể nh cho cỏc vớ d c th

2 Yêu cầu:

- Thực lập trình chạy chơng trình máy, ghi nhận xét kế đạt đợc

3 Bµi tËp:

22.1 Cho số tiền x gửi vào ngân hàng với lãi xuất h tìm số tháng cần thiết để thu đợc

(59)

- GV: Chia nhãm thực hành, nhóm 2->3 h/s

- Đánh giá thực hành häc sinh

số tiền y x,h,y đợc nhập từ bàn phím Sử dụng vịng lặp While

22.1 Cho số tiền x gửi vào ngân hàng với lãi xuất h tìm số tháng cần thiết để thu đợc số tiền y x,h,y đợc nhập từ bàn phím Sử dụng vịng lặp REPEAT UNTIL

(60)

tiÕt 26 :

c©u lƯnh write,writeln-read,readln

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ môc tiªu:

- HS: Nắm đợc cấu trúc, ý nghĩa, cách sử dụng câu lệnh Write Writeln Hiểu, lấy ví dụ đợc câu lệnh

- HS biÕt ¸p dơng vµo tõng bµi to¸n thĨ

- Giáo viên:

o Häc bµi cị

o Đọc trớc

III/ Tiến trình tỉ chøc giê d¹y

1 Tỉ chøc:

SÜ sè

KiĨm tra giê häc.

3 Dạy- học

Hot ng ca thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu câu lệnh

Write,Writeln

- GV: Bật mạng Netop Scholl, giới thiệu số ví dụ có sử dụng lệnh Write, writeln để đa thơng tin hình chạy chơng trình

- HS quan s¸t có ph¸p lƯnh, c¸ch thùc hiƯn lệnh

-GV?

- HS thảo luận trả lời câu hỏi - GV nhận xét, ®a cÊu tróc c¸ch thøc thùc hiƯn lƯnh

1/ C©u lƯnh Write,Writeln a/ CÊu tróc

Write( Nội dung cần thông báo );

Write(biến cần in ra);

Lệnh Write giúp ta đa thông tin hình ( thơng tin dịng thơng báo, giá trị biến đó)

- Thơng tin đợc đa hình chạy chơng trình đợc đặt dấu nháy VD: Write(‘ Lập trình Pascal’);

Khi chạy chơng trình dịng chữ: Lập trình Pascal đợc đa hình.

- Giá trị biến đa hình khơng cần đặt dấu ngoặc kép

(61)

Hoạt động 2: Tìm hiểu số ví về Write writeln.

- Giáo viên giới thiệu số ví dụ cụ thể để đa thông tin cá nhân hình

- HS quan sát, nhận xét - GV đặt câu hỏi?

? Để đa đợc thông tin hình nh mẫu ta sử dụng lnh no?

- HS thảo luận, trả lời câu hỏi - GV nhận xét, đa cách làm,

cách cài đặt mã lệnh

VD: Write(a);

Khi chạy chơng trình giá trị biến a sẽ đợc đa hình.

=> Chó ý:

- Để đa thông tin chơng trình tự động suống dịng ta sử dụng lệnh

Writeln.

2.1 Viết chơng trình đa thông tin cá nhân hình

Vd: Họ tên: Nguyễn Văn Anh Lớp: 9A

Trờng THCS Thái Hòa Program TTCN;

Uses Wincrt; Begin

Writeln( Họ tên: Nguyễn Văn Anh ): ’

Writeln( Líp: 9A );‘ ’

Writeln( Tr ờng THCS Thái Hòa );

End. 4 Củng cố, luyện tập:

- Giáo viên khắc s©u kiÕn thøc cho häc sinh vỊ c©u lƯnh Write + Write

+ Writeln

Bµi tËp:

Viết chơng trình Tp :

1 In hình thông tin cá nhân mình? In hình khổ thơ?

-tiết 27 :

câu lÖnh write,writeln-read,readln

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc cấu trúc, ý nghĩa, cách sử dụng câu lệnh Read, Readln

(62)

- Hiểu, lấy ví dụ đợc câu lệnh trờn

- HS biết áp dụng vào to¸n thĨ

- Giáo viên:

o Học cũ

o Đọc trớc

1 Tỉ chøc:

SÜ sè

Nêu cấu trúc, ý nghĩa, khác lƯnh Write vµ Writeln? Lµm bµi tËp ë bµi trớc?

3 Dạy- học

Hot ng thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu câu lệnh

Read, Readln

- GV: Bật mạng Netop Scholl, giới thiệu số ví dụ có sử dụng lệnh Write, writeln để đa thơng tin hình chạy chơng trình

- HS quan s¸t có ph¸p lƯnh, c¸ch thực lệnh

-GV?

?Nêu cú pháp lƯnh.

1/ Câu lệnh Read Readln a/ Cấu tróc

Read;

Read(tªn biÕn); Readln(tªn biÕn);

Lệnh Read cho phép ta tạm dừng chơng trình để xem bớc chạy chơng trình hay thao tác nhập liệu vào từ bàn phím cho biến

- VÝ dơ:

+ Read: Dừng chơng trình + Read(a): Dừng chơng trình

Nhập liệu cho biến a +Readln(a): Dừng chơng trình

Nhập liệu cho biÕn a Xng dßng

=> Chó ý:

- Lệnh Readln việc dừng chơng trình, nhập liệu mà sau suống dịng

(63)

Hoạt động 2: Tìm hiểu số ví dụ sử dụng lệnh CASE…OF

- Gi¸o viên giới thiệu số ví dụ cụ thể áp dơng lƯnh Read vµ Readln

- GV?

? Để nhập vào giá trị cho 3 biến a,b,c ta sư dơng lƯnh nµo?

? lƯnh Readln(a); Readln(b); Readln(c);

Nhằm mục đích gì?

- HS thảo luận, trả lời câu hỏi - GV nhận xét giải thích ý

nghĩa câu lệnh

2/ Mét sè vÝ dơ:

2.1 ViÕt ch¬ng trình nhập vào số tự nhiên a,b,c đa hình tích chúng Vd: Nhap vao so a,b,c

a= b=4 c=5

TÝch cua chung la: 60

Program TTich; Uses Wincrt;

Var a,b,c,tich: Longint; Begin

Writeln( Nhap vao so a,b,c ):‘ ’

Write( a= ); Readln(a);‘ ’

Write( b= ); Readln(b);‘ ’

Write( c= ); Readln(c);‘ ’

Tich:=0; Tich:=a*b*c;

Writeln( Tich so la: ,Tich);‘ ’

End. 4 Cđng cè, lun tËp:

- Giáo viên khắc sâu kiến thức cho học sinh câu lệnh Read Readln; - Yêu cầu HS lấy ví dụ minh hoạ lại câu lệnh

Bài tập:

1 Lập trình nhập vào từ bàn phím số a,b,c tính tổng, hiệu, thơng cđa chóng

tiÕt 28 :

d÷ liƯu kiĨu file văn

NS: / / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc cấu trúc, ý nghĩa, cách sử dụng liệu kiểu File văn - Hiểu đợc khái niệm, định nghĩa, phân loi, cỏch ly, c d liu file

văn

- HS biết áp dụng vào to¸n thĨ

(64)

- Giáo viên:

o Häc bµi cị

o Đọc trớc

III/ Tiến trình tổ chức giê d¹y

1 Tỉ chøc:

SÜ sè

Nêu cấu trúc, ý nghĩa, khác lệnh Read Readln? Làm tập trớc?

3 Dạy- học

Hoạt động thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu liệu kiểu

File

- GV: Bật mạng Netop Scholl, giới thiệu số ví dụ có sử dụng liệu kiểu File để HS quan sát

- HS quan s¸t có ph¸p lƯnh, c¸ch thùc hiƯn cđa lệnh, ý nghĩa, tiện lợi sử dụng liƯu kiĨu file

-GV?

?Theo em thÕ nµo File? ? Nh liệu kiểu File dữ liệu ntn?

?Khi sử dụng liệu kiểu file ta có thuận lợi liệu?

- HS thảo luận trả lời câu hỏi - GV nhận xét, đa khái niệm liệu kiểu file vµ lÊy vÝ dơ thĨ

Hoạt động 2: Tìm định nghĩa liệu kiểu file.

- Giáo viên nêu định nghĩa cách khai báo, cấu trúc liệu kiểu file

HS quan s¸t, ghi nhí

LÊy vÝ dơ vỊ mét sè kiĨu khai báo

1/ Khái niệm:

- File tập hợp liệu có kiểu, liên quan với nhau, nhóm lại với thành dÃy

- File kiểu liệu có cấu trúc - Sử dụng liệu kiểu File giúp ta nhập lại liệu chạy chơng trình, liệu đợc tính tốn đợc lu lại File tiện cho ta xem quản lý

-> Xét ví dụ sau để thấy vai trò liệu kiểu File Giả sử ta lập chơng trình để tính điểm cho học sinh trờng THCS Thái Hịa Mỗi lần thử chơng trình ta lại phải nhập lại liệu cho 600 H/S nh rễ nhầm lâu Nừu ta sử dụng liệu kiểu File cơng việc ta việc nhp nht ln

2/ Định nghĩa:

- Một kiểu File với phần tử kiểu đợc định nghĩa phần khai báo kiểu liệu sau từ khố TYPE nh sau:

TYPE Tªn kiểu file=File OF Tên kiểu các phần tử;

(65)

file d÷ liƯu

HS tập lấy ví dụ kiểu file liệu, khai báo định nghĩa kiểu liệu

Các phần tử kiểu File kiểu đơn giản hay có cấu trúc nhng thiết không phải kiểu File.

- Biến kiểu File cúng đợc khai báo trực tiếp phần khai báo biến sau từ khoá Var

VAR Tªn biÕn kiĨu file: File OF Tªn kiĨu phần tử;

Ví dụ:

TYPE (định nghĩa kiểu file)

Fnguyen=FILE OF Integer; Fthuc=FILE OF Real;

VAR (khai b¸o biÕn file)

F1,F2:Fnguyen; F3,F4:Fthuc;

- Giáo viên khắc sâu kiến thức cho häc sinh vỊ d÷ liƯu kiĨu file

- HS nắm đợc vai trò, thuận lợi, khái niệm, định nghĩa kiểu file liệu - Yêu cầu HS lấy ví dụ minh hoạ

- GV: Híng dÉn häc sinh häc tËp ë nhµ theo néi dung vë ghi -tiÕt 29 :

dữ liệu kiểu file văn

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS: Nắm đợc cấu trúc, ý nghĩa, cách sử dụng liệu kiểu File văn - Hiểu đợc khái niệm, định nghĩa, phân loại, cách lấy, đọc d liu file

văn

- Giáo viên:

o Chuẩn bị phòng máy, m¹ng Netop Scholl - Häc sinh:

(66)

o Học cũ

o Đọc trớc

1 Tỉ chøc:

Sĩ số

Trình bày khái niệm liệu kiểu file?

Trỡnh bày định nghĩa, lấy ví dụ liệu kiểu file?

3 Dạy- học

Hot ng thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu cấu trúc dữ

liƯu kiÓu File

- GV: Bật mạng Netop Scholl, giới thiệu cấu trúc liệu kiểu File để HS quan sỏt

- HS quan sát cấu trúc liệu kiĨu file

-GV? Lấy ví dụ để mơ liệu kiểu file cho rễ hình dung

- GV cho häc sinh th¶o luËn lÊy vÝ dụ minh hoạ

- GV nhận xét, đa cấu trúc ví dụ liệu kiểu file

Hoạt động 2: Cách phân loại liệu kiểu file

- Giáo viên bật mạng Netop nêu cách phân loại loại liệu kiểu file

HS quan s¸t, ghi nhí

1/ CÊu tróc:

- Các phần tử file khơng có tên mà đợc xếp thành dãy Tại thời điểm chơng trình truy nhập vào phần tử file thông qua giá trị biến đệm Vị trí truy nhập cịn đợc gọi cửa sổ file Có lệnh làm dịch chuyển vị trí biến đệm tức dịch cửa sổ sang vị trí khác để lấy giá trị khác file

Ta hình dung file nh quận fiml chụp ảnh, lần chụp ta chụp đợc pô“ ”

sau lên phim lại chụp tiếp đợc.

-File có đầu file cuối file, cuối file đợc định nghĩa từ khố EOF(F) báo cho chơng trình biết cửa sổ file nằm cuối dừng việc truy nhập vào file

- Ta mô phòng File nh sau:

EOF(F) Cửa sổ đầu file

EOF(F) Cưa sỉ ë ci file

2/ Phân loại:

- Cú hai loi file, tu thuc vào cách bố trí phần tử file nhớ ngồi từ qui định hai kiểu truy nhập nh sau:

- Lo¹i 1: File có cấu trúc có kiểu truy nhËp tn tù Cơ thĨ mn lÊy mét phÇn tử vị trí phải qua

(67)

LÊy vÝ dơ vỊ mét sè cách truy nhập vào liệu file

Theo kiĨu tn tù. Theo kiĨu trùc tiÕp.

- GV nêu phận loại cụ thể loại liƯu kiĨu file

tất phần tử đứng trc nú

Vdụ: Muốn làm việc với phần tử thứ 5 trong file phải qua phÇn tư tríc nã.

- Loại 2: Là loại file cho phép ta truy nhập vào vị trí mảng cách, truy nhập nh truy nhập trực tiếp tới phần tử Tuy nhiên phần tử phải đợc đánh số vị trí nh địa

- Giáo viên khắc sâu kiến thức cho học sinh liệu kiểu file - HS nắm đợc cấu trúc, phân loại kiểu file liệu

- Các truy nhập vào file đờng đờng trực tiếp - Yêu cầu HS lấy ví dụ minh hoạ

- GV: Hớng dẫn học sinh học tập nhà theo nội dung ghi - Yêu cầu hs đọc trớc

(68)

tiÕt 30:

kiÓm tra tiÕt

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mục tiêu:

- HS ôn tập, hệ thèng l¹i kiÕn thøc vỊ:

+ Cú pháp khai báo kiểu liệu sử dụng Turbo Pascal + Biết cách viết chơng trình đơn giản sử dụng kiểu liệu + Đánh giá đợc trình học tập học sinh

- Giáo viên:

o Ti liu, sách giáo khoa o Chuẩn bị đề

o Chuẩn bị kiểm tra

III/ Tiến trình tổ chức d¹y. 1 Tỉ chøc:

SÜ sè

Không

3 Dạy- học mới.

bi

A: Phần lý thuyết:

Câu 1: Nêu cÊu tróc, ý nghÜa, lÊy vÝ dơ minh ho¹ cho lệnh Read? HÃy phân tích khác Read(a) Readln(a)?

Câu 2: Nêu cấu trúc, ý nghĩa, lấy ví dụ minh hoạ cho lệnh Write? HÃy phân tích khác lệnh Write(a) Writeln(a);

B: Bài tập:

Câu 1: Lập trình đa hình dòng thông tin thân?

Câu 2: Lập trình giải tốn tìm max cho số a,b đợc nhập vào từ bàn phím? Câu 3: Lập trình để tính tổng cho 50 chữ số t nhiờn u tiờn?

Đáp án A: Lý thuyết (4 đ)

Câu 1: (2đ): - Cấu trúc: Read(biến);

- ý nghĩa: Tạm dừng chơng trình để xem, nhập liệu cho biến - Ví dụ: Read(a);

(69)

Read;

- Sự khác Read Readln là:

+ Read(a): Tạm dừng chơng trình, xem ,nhập liệu

+ Readln(a): Tạm dừng chơng trình, xem, nhập liệu, xuống dòng Câu 2: (2đ): - Cấu trúc: Write(Nội dung dòng thông báo);

Write(bien);

- ý nghĩa: Đa dịng thơng báo hình, đa giá trị biến hình

- VÝ dơ: Write(‘ Day la mon tin hoc’); Write(a);

- Sù kh¸c Write(a); Writeln(a);

Writeln(a) sau đa hình giá trị biến a Writeln cho phép ta xuống dòng

B: Bài tập (6đ)

C©u 1:

Program TTCN; Uses Wincrt; Begin

Writeln(‘ Ten em la: Nguyen Van A’); Writeln(‘ Hoc sinh lop : 9A’);

Writeln(‘ Truong THCS Thai Hoa’); End

C©u 2:

Program TimMax; Uses Wincrt;

Var Max,a,b:Longint; Begin

Writeln(‘ Nhap vao so a,b’); Write(‘a=’);reeadln(a);

Write(‘b=’);reeadln(b); If a>b then

Max:=a Else

Max:=b;

Writeln(‘ Gia tri lon nhat so ‘,a,’,’,b,’ la:’,Max); End

C©u 3:

Program TT; Uses Wincrt; Var I,Tg:Longint;

(70)

Begin

Tg:=0;

For i:=1 to 50 Tg:=Tg+I;

Writeln(“ Tong cua 50 so tu nhien dau tien la:’,Tg); End

- Giáo viên thu bài, nhËn xÐt, rót kinh nghiƯm giê kiĨm tra

- GV: Híng dÉn häc sinh nhà ôn tập - Làm tiếp tËp

-tiÕt 31:

bµi thùc hµnh số

thực hành giảI toán máy tính

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- Giáo viên:

1 Tổ chức:

SÜ sè

? Trình bày cấu trúc mô tả cách thực câu lƯnh lỈp?

3 Dạy- học

Hot ng ca thy trò Nội dung kiến thức cần đạt

(71)

Hoạt động 1:Thông báo nhiệm vụ: - GV: Bật máy, mạng Netop School giới thiệu số cấu trúc, cú pháp lệnh khai báo kiểu liệu chuẩn

GV? Yêu cầu h/s nhắc lại thao tác khởi động, cấu trúc chung ch-ng trỡnh TP?

+Khai báo.

+Thủ tục, chơng tr×nh con

- GV: Đa số tập mẫu đợc chuẩn bị sẵn để h/s quan sỏt

+ Khai bỏo, s dng ỳng kiểu liệu

Hoạt động 3: Học sinh thực hành theo nhúm.

2 Yêu cầu:

3 Bµi tËp:

31.1 Tính tổng cho tất số lẻ dãy số từ tới n Với n đợc nhập vào từ bàn phím

32.2 Tính tổng cho tất số chia hết cho mà không chia hết cho dãy số từ tới n với n đợc nhập vào từ bàn phím

-tiÕt 32:

bµi thực hành số

thực hành giảI toán m¸y tÝnh

(72)

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

+ Cỳ pháp khai báo kiểu liệu sử dụng Turbo Pascal + Biết cách viết chơng trình đơn giản sử dụng kiểu liệu - Giáo dục học sinh có thái độ học tập tự giác, tớch cc

- Giáo viên:

III/ Tiến trình tổ chức giê d¹y.

1 Tỉ chøc:

SÜ sè

KiĨm tra giê häc.

3 Dạy- học

Hot ng ca thy v trị Nội dung kiến thức cần đạt Hoạt động 1:Thơng bỏo nhim v:

- GV: Bật máy, mạng Netop School giíi thiƯu mét sè cÊu tróc, có ph¸p vỊ lệnh khai báo kiểu liệu chuẩn

+Khai báo.

Hot động 2: Yêu cầu đạt đợc bài thực hành.

+ Khai báo, sử dụng kiểu

2 Yêu cầu:

(73)

liÖu

3 Bài tËp:

32.1 Tính tổng cho tất số lẻ dãy số a1,a2 an Với đợc nhập vào từ bàn

phÝm

32.2 Tính tổng cho tất số chia hết cho mà không chia hết cho dãy số a1,a2 an Với đợc nhập vào từ bàn phím

4 Cđng cè, luyÖn tËp:

-tiÕt 33:

thực hành giảI toán máy tính

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mục tiêu:

- Giáo viên:

(74)

1 Tỉ chøc:

SÜ sè

Kiểm tra học.

3 Dạy- học míi

Hoạt động thầy trị Nội dung kiến thức cần đạt Hoạt động 1:Thông báo nhiệm vụ:

- GV: Bật máy, mạng Netop School giới thiệu mét sè cÊu tróc, có ph¸p vỊ c¸c lƯnh khai báo kiểu liệu chuẩn

GV? Yờu cu h/s nhắc lại thao tác khởi động, cấu trúc chung ch-ơng trình TP?

+Khai b¸o.

Hot ng 2: Yờu cầu đạt đợc bài thực hành.

- GV: Đa số tập mẫu đợc chuẩn bị sn h/s quan sỏt

+ Khai bỏo, sử dụng kiểu liệu

- GV: Chia nhãm thùc hành, nhóm 2->3 h/s

- Thực lập trình để giải tốn cụ thể nh cho ví dụ cụ thể

2 Yêu cầu:

- Khi ng Turbo pascal

3 Bµi tËp:

33.1 Nhập vào số a,b,c viết chơng trình kiểm tra xem có phải số đo cạnh tam giác hay khơng? Và tam giác tam giác gì?

33.2.1 Viết chơng trình giải phơng trình bậc ẩn

33.3 Viết chơng trình giải phơng trình bậc hai

(75)

-tiÕt 34

«n tËp häc kú

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS ơn tập lại tồn kiến thức học kỳ phần Turbo Pascal số chơng trình đơn giản

+ Cú pháp khai báo kiểu liệu sử dụng Turbo Pascal + Biết cách viết chơng trình đơn giản sử dụng kiểu liệu - Giáo dục học sinh có thái độ học tập t giỏc, tớch cc

- Giáo viên:

o Tài liệu, sách giáo khoa o Chuẩn đề cơng ôn

III/ Tiến trình tỉ chøc giê d¹y.

1 Tỉ chøc:

SÜ sè

KiĨm tra giê häc. 3 Dạy- học mới.

Hot ng ca thy trò Nội dung kiến thức cần đạt Hoạt động 1:Hớng dẫn học sinh ôn tập

theo đề cơng quát phần lý thuyết. - GV: Bật máy, mạng Netop School giới thiệu số cấu trúc, cú pháp lệnh khai báo kiểu liệu chuẩn, cỏc vũng lp, cỏc cõu lnh

Đề cơng ôn tËp I Lý thuyÕt.

1. CÊu tróc, ý nghÜa, vÝ dơ minh häa cho: + LƯnh Read

+ Lệnh Write

(76)

vào liệu,

GV? Yêu cầu h/s nhắc lại cú pháp, ý nghĩa, lấy ví dụ minh hoạ cho các câu lệnh trên.

+Khai báo.

Hoạt động 2Nội dung ôn tập phần thực hành

+ Khai báo, sử dụng kiểu liệu

+ Viết cú pháp, cách sử dụng câu lnh khai bỏo, hm, hng, bin,

- Giáo viên gợi ý, giao tập cho học sinh tự làm

2 Hằng, biến, thủ tục, chơng trình gì? Lấy ví dụ minh hoạ

3 Mụ tả hoạt động, cấu trúc, lấy ví dụ minh hoạ cho vòng lặp sau :

+ For… …to + While.Do + Repeat Until

4 Mô tả, viết cấu trúc, lấy ví dụ minh hoạ cho lÖnh sau:

+ IF …then + Case…Of

II Bài tập:

Lập chơng trình thực công việc sau :

34.1 Đa thông tin cá nhân hình

34.2 Tớnh tng cho n chữ số tự nhiên liên tiếp với n đợc nhập vào từ bàn phím

34.3 TÝnh tỉng cho số thoả man điều kiện cho trớc

34.4 Tìm min, max cho số, số cho dÃy nhập vào từ bàn phím

34.5 Giải phơng trình bậc ẩn 34.6 Giải hệ phơng trình

34.7 Giải phơng trình bậc

34.8 Nhập vào số a,b,c kiểm tra xem có phải số đo cạnh tam giác hay khơng? Và tam giác gì?

34.9 Viết chơng trình in n chữ số nguyên tố với n đợc nhập từ bàn phím

4 Cđng cố, luyện tập:

- Giáo viên hớng dẫn học sinh ôn tập phần lý thuyết - GV hớng dẫn em làm tập

5 Hớng dẫn nhµ:

- GV: Hớng dẫn học sinh ơn tập ơt nhà theo nội dung đề cơng thực hành lý thuyt

- Làm tiếp tập

(77)

tiÕt 35

«n tËp häc kú

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- HS ơn tập lại toàn kiến thức học kỳ phần Turbo Pascal số chơng trình đơn giản

- Giáo viên:

o Ti liu, sỏch giỏo khoa o Chuẩn đề cơng ơn tập

o Chn bÞ phòng máy, mạng Netop Scholl - Học sinh:

1 Tỉ chøc:

SÜ sè

Kiểm tra học. 3 Dạy- học mới.

Hoạt động thầy trò Nội dung kiến thức cần đạt

Hoạt động 1:Hớng dẫn học sinh ôn tập theo đề cơng

- GV: Bật máy, mạng Netop School giới thiệu số tập mẫu để học sinh quan sát, theo dõi tham khảo cách khai báo, phân tích tốn cu trỳc lp trỡnh

GV? Đặt câu hỏi?

+ThÕ nµo lµ sè chia hÕt cho 5?

+ThÕ số chia hết cho 3?và không chia hết cho 3?

- HS thảo luận trả lời câu hái

Mét sè bµi tËp mÉu

1 Bµi tËp 1:

TÝnh tỉng c¸c sè chia hÕt cho mà không chia hết cho đoạn 1000

* Phân tích toán:

- Với toán ta lần lợt duyệt số từ tới 1000 số thoả mÃn điều kiện chia hết cho mà không chia hết cho đem cộng vào biến tổng

* Chơng trình nh sau: Program bt1;

Uses Wincrt;

Var Tg,I,n: Integer; Begin

Tg:=0;

For i:=1 to 1000 do

(78)

- GV tỉng kÕt thÕ noµ số chia hết cho không chia hết cho

Hoạt động Tìm hiểu tốn duyệt mảng so sánh

- GV: Phân tích tốn + Khai báo, sử dụng kiểu liệu

-GV đặt câu hỏi?

+ ThÕ nµo lµ min, max? +Để tìm min, max ta thờng làm ntn?

Từ giáo viên tổng hợp và đa cách xây dựng bài toán cụ thể với trờng hợp.

- Giáo viên giải thích nên sử dụng chơng trình

If (I mod 5=0)and(I mod <> 0) then Tg:=Tg+I;

Writeln( Tong can tinh la: ,Tg);‘ ’ End.

2 Bµi tËp 2:

NhËp vµo n sè (n<10) viết chơng trình tìm Max cho dÃy a1,a2 an

* Phân tích toán:

- Bi toỏn đI tìm max, thực chất tốn ta đem lợt số đem số so sánh với từ tìm đợc Max, ca dóy s

* Chơng trình nh sau: Program Tmax; Uses Wincrt;

Var A:Array[1 100] of Integer; I,Max:Integer;

Procedure NhapDL; Begin

Write( n= );Readln(n);‘ ’ For i:=1 to n do

Begin

Write( A[ ,I, ] );‘ ‘ ’ ‘ Readln(A[i]); End;

End;

Procedure TimMax; Var Max:Integer; Begin

Max:=A[1]; For i:= 1to n do

If Max<A[i] then Max:=A[i];

Writeln( Gia tri max cua mang la: ,Max);‘ ’ End;

BEGIN

NhapDL; TimMax; END.

- Giáo viên hớng dẫn học sinh ôn tập phần lý thuyết - GV hớng dẫn em làm tập

- GV: Hớng dẫn học sinh ôn tập ơt nhà theo nội dung đề cơng thực hành lý thuyết

- ChuÈn bÞ kiĨm tra häc kú

(79)

-tiÕt 36

kiÓm tra häc kú I

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mục tiêu:

- Đánh giá trình học tập cđa häc sinh qua häc k× I

+ Có pháp khai báo kiểu liệu, câu lệnh, vòng lặp sử dụng Turbo Pascal

+ Biết cách viết chơng trình đơn giản sử dụng kiểu liệu, cấu trúc câu lệnh

- Giáo dục học sinh có thái độ học tập tự giác, tích cực Nghiện túc kiểm tra, thi c

- Giáo viên:

o Ti liu, sách giáo khoa o Chuẩn đề cơng ôn tập

III/ Tiến trình tổ chức giê d¹y.

1 Tỉ chøc:

SÜ sè

2 KiÓm tra cũ: Không

3 Dạy- học mới.

Đề bài: Đề 01:

I/ Trc nghim:

Cõu 1: Cho đoạn lệnh sau: For i:=10 to 50 Write(i:4);

Khi thực chương trình đoạn lệnh làm gì? :……….….……….……… …

……… Câu 2: Lệnh Write (Writeln) có ý nghĩa……… ……….……….……… ……… ……… … hình

- Có cấu trúc:……… … - Ví dụ ……… ………

(80)

……….……… - Lệnh Write khác lệnh Writeln là: Sau ……….……….ra hình lệnh Writeln cho phép ta……… …….…cịn lệnh Write khơng ……….……….……

Câu 3: Cho đoạn lệnh sau:

n:=0;T:=0; While n<5 Do Begin

T:=T+n; n:=n+1; End;

Kết đoạn thực đoạn lệnh là: T=… ……… ; n=……… Câu 4: Cho đoạn lệnh sau:

d:=0;

For i:=1 to 20

If i mod =0 then d:=d+1;

Sau thực đoạn lệnh cho kết là: d=…… II/ Tự luận:

Câu 1: Viết chương trình đưa hình dịng chữ: Truong THCS Thai Hoa

Lop: 9A Môn: Tin học

Câu 2: Viết chương trình nhập vào số a,b,c



Câu 3: Viết chương trình để giải biện luận phương trình dạng ax+b=c

-§Ị 02:

I/ Trắc nghiệm:

Câu 1: Cho đoạn lệnh sau: For i:=30 Downto Write(i:4);

Khi thực chương trình đoạn lệnh làm gì? :……….……….……… … ……… ……….……… Câu 2: Lệnh Read (Readln) có ý nghĩa……… ……….……… ……….……… ………

- Có cấu trúc:……….……… …

- Ví dụ ……… ……….……… ……….………

- Lệnh Read khác lệnh Readln là: Sau ……….……, nhập ……… cho biến lệnh Readln cho phép ta………… ……….…cịn lệnh Read khơng ………… ………….…………

Câu 3: Cho đoạn lệnh sau:

n:=0;T:=0; Repeat

(81)

T:=T+n; n:=n+1; Until t=10;

Kết đoạn thực đoạn lệnh là: t=… ……… ; n=……… Câu 4: Cho đoạn lệnh sau:

d:=0;

For i:= 70 Downto 30 If i mod =0 then

d:=d+1;

Sau thực đoạn lệnh cho kết là: d=…… II/ Tự luận:

Câu 1: Viết chương trình đưa hình dịng chữ: Truong THCS Thai Hoa

Lop: 9A Mơn: Tin học

Câu 2: Viết chương trình nhập vào số x,y,z



Câu 3: Viết chương trình nhập vào số a,b,c, kiểm tra xem có phải số đo cạnh tam giác hay khơng? Nếu kiểm tra xem tam giác tam giác gì? (vng, cân, đều)

-đáp án

§Ị 01:

I Tr¾c nghiƯm.

Câu 1:(1đ) In hình số từ 10 đến 50 số cách ký tự Câu 2: (1đ) - Đa dịng thơng bỏo, giỏ tr bin

- Write( Dòng thông báo); Write(biến);

- Write( Đây chơgn trình Pascal): Write(a:3);

- Đa thông tin - Xuống dòng - Xuống dòng Câu 3:(1đ) T=10; n=5; Câu 4:(1đ) d=6;

II Bài tập.

Câu 1: (2đ)

Program bt1; Uses wincrt; Begin

Writeln(‘Truong THCS Thai Hoa’); Writeln(‘ Lop: 9A ’);

Writeln(‘ Môn: Tin học’); End

Câu 2: (2đ)

Program bt2; Uses wincrt;

Var a,b,c,s:Longint;

(82)

Begin

Wrietln(‘Nhap du lieu’); Write(‘a=’);Readln(a); Write(‘b=’);Readln(b); Write(‘c=’);Readln(c); S:=0;

S:=(a*a+b*b*b)*c*c*c; Writeln(‘ Tong dai so la:,S); End

Câu 3: (2đ)

Program bt3; Uses Wincrt; Var a,b,c: Integer;

x:real; Begin

Writeln(‘ Nhap cac so a,b,c’);

Write(‘ a=’);Readln(a);Write(‘ b=’);Readln(b); Write(‘ c=’);Readln(c);

If a=0 then

If c-b=0 then Writeln(‘ PT vo so nghiem’) Else Writeln(‘PT vo nghiem’)

Else Begin

x:=(c-b)/a;

Writeln(‘ Phuong trinh co nghiem la:’,x:4:2); End;

End

§Ị 02:

Nhận xét Ngày tháng năm 2008

(83)

Häc k× II

Chương III HỆ QUẢN TRỊ CƠ SỞ DỮ LIỆU FOXPRO

TiÕt 37

GiíI THIƯU CHUNG VỊ FOXPRO

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

- Học sinh nắm đợc:

+ Những khái niệm hệ quản trị sở liệu Foxpro + Các cách khởi động

+ Các chế độ làm việc Foxpro

Giáo dục học sinh có thái độ học t giỏc, tớch cc

- Giáo viên:

o Tài liệu, sách giáo khoa o Soạn, su tầm giáo án điện tử

o Đọc lại học o Chuẩn bị

1 Tổ chức:

SÜ sè

2 Kiểm tra cũ: Không

3 Dạy- học bµi míi

Hoạt động thầy trị Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu khái nim v h

quản trị sở liệu.

- GV: BËt m¹ng Netop Scholl, giíi thiƯu mét vài ví dụ mô quản trị sở liệu gì?

- HS quan sát ví dơ vµ nhËn xÐt

? Hệ quản trị sở liệu gì? ? Lấy đợc ví dụ

HS sinh thảo luận xây dựng - GV nhận xét, đa khái niệm hệ quản trị sở liệu

1/ Hệ quản trị sở liệu gì?

- H qun tr sở liệu hệ ch-ơng trình đợc soạn sẵn nhằm giúp ngời sử dụng dễ dàng tạo file CSDL thao tác file

- Cho phép ta sửa đổi nội dung, thông tin , cấu trúc, cách xếp, tìm kiếm, lấy đa thơng tin hình hay thiết bị ngoại vi khác

(84)

Hoạt động 2: Tìm hiểu Foxpro gì? - Giáo viên giới thiệu cho HS biết lịch sử đời, khái niệm, vai trị lợi ích Foxpro việc xây dựng chơng trình quản trị sở liệu

-HS quan s¸t theo dâi

Hoạt động 3: Tìm hiểu thao tác khởi động, chế độ làm việc thoát khỏi Foxpro

- Giáo viên bật mạng Netop trình bày thao tác khởi động thoát khỏi Foxpro, chế độ làm việc với Foxpro

- HS quan s¸t, ghi nhí

- GV cho học sinh nhắc thao tác lại bớc thực giáo viên để khởi động Foxpro

? Vậy để khởi động Foxpro ta có mấy cách cụ thể ta khởi động nh thế nào?

?Có chế độ làm việc với Foxpro?

? Thế chế độ hội thoại? ? Thế chế độ lập trình? ? Theo em với chế độ ta có thể lu lại đoạn mã lệnh mà ta mới thực hiện.

? Muèn tho¸t khái Foxpro ta cã mÊy c¸ch, trình bày cách.

- HS thảo luận trả lời

- GV nhận xét đa kết luận

2/ Foxpro gì?

- Foxpro l phần mềm hãng Microsoft xây dựng sử dụng để quản lý sở liệu cách dễ dng, hiu qu m n gin

- ta thao tác, sử dụng phên bản: Foxpro 2.6 For Window tức phiên 2.6 sử dụng môi trờng hệ điều hành Window

- Vi giao diện thân thiện, dễ sử dụng cho phép ta tạo bảng CSDL nhanh tróng, khả kết nối sở liệu nhỏ để quản lý CSDL mơi tr-ờng Window

3 Tìm thao tác khởi động thoát khỏi Foxpro

a/ Khởi động chế độ làm việc - Ta có cách khởi động sau:

(chó ý biểu tợng Foxpro có hình dạng đầu con cáo)

+ Vào Start/Programs/MS Foxpro + Nháy chuột phải vào biĨu tỵng Foxpro råi chän Open

+ Click đúp chuột trái vào biểu tợng Foxpro

- Foxpro có chế độ làm việc: Hội thoại lập trình

+ Chế độ hội thoại: Là chế độ thông dịch ta lệnh cửa sổ lệnh Foxpro dịch thi hành + Chế độ lập trình: Là chế độ biên dịch câu lệnh Foxpro đợc viết tệp đợc gọi tệp chơng trình có phần mở rộng *.Prg Khi thực chơng trình Foxpro lần lợt dịch thực lệnh chơng trình

=> Chú ý: Với chế độ lập trình ta có thể lu lại lệnh sau thực hiệ thốt khỏi chơng trình.

-b/ Tho¸t khái Foxpro

+ Tại cửa sổ lệnh ta gõ vào : Quit vµ nhÊn

(85)

Enter

+ Vµo File chän Exit

- Giáo viên khắc sâu kiến thức cho học sinh hệ quản trị sở liệu phần mềm Foxpro 2.6 For Winddow

- HS nắm đợc cách khởi động, chế độ làm việc với Foxpro - Yêu cầu HS lấy ví dụ minh hoạ

(86)

Tiết 38

Yêu cầu phần cứng, phần mềm dïng foxpro

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

+ Những yêu cầu phần cứng, phần mềm sử dụng hệ quản trị sở liÖu Foxpro 2.6 for winddow

+ Một số điểm cần lu ý sử dụng phần mềm Foxpro 2.6 Giáo dục học sinh có thái độ học tập tự giỏc, tớch cc

- Giáo viên:

III/ Tiến trình tổ chøc giê d¹y.

1 Tỉ chøc:

SÜ sè

? Thế noà hệ quản trị CSDL?

? Foxpro gì? Vai trò, chức nó?

? Trỡnh by cỏc cỏch động, mô tả chế độ làm việc Foxpro?

3 Dạy- học

Hot ng ca thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu u cầu phần

cøng sư dông Foxpro.

- GV: Bật mạng Netop Scholl, giới thiệu cấu hình tối thiểu để sử dụng đợc Foxpro 2.6 Ngoài yêu cầu phần mềm kèm theo để làm việc đợc

- HS quan sát ví dụ nhận xét

? Cấu hình tối thiểu để chạy đợc bản Foxpro 2.6?

? Yêu cầu phần cứng.

1/ Yêu cầu phần cứng sử dụng Foxpro.

Để chạy đợc sử dụng tốt phần mềm Foxpro 2.6 ta cần có máy tính với cấu hình tối thiu sau:

- Yêu cầu tối thiểu:

+ Máy tính từ vi sử lý Pentium II tốc độ 730 MHZ

+ Bộ nhớ đệm: (RAM) 32MB + ổ đĩa cứng: (HDD): 2GB

(87)

HS sinh thảo luận xây dựng - GV nhận xét, đa yêu cầu cụ thể

Hot ng 2: Tìm hiểu yêu cầu phần cứng, phần mềm sử dụng Foxpro. - Giáo viên giới thiệu cho HS biết phần mềm cần thiết để sử dụng đợc tốt phần mềm Foxpro 2.6

- HS quan s¸t, ghi nhí

- GV ? Vởy để chạy sử dụng hiệu chơng trình Foxpro 2.6 yêu cầu phần mềm ta cần có phần mềm no?

- HS thảo luận, xây dựng - GV nhận xét đa yêu cầu tối thiĨu ph¶i cã

2/ u cầu phần mềm tối thiểu để sử dụng đợc Foxpro 2.6

Để đảm bảo cho việc sử dụng Foxpro phần mềm tối thiuphi cú l:

- Hệ điều hành Window 98

- Phần mềm phông chữ tiếng việt: ABC Vietkey

- Giáo viên khắc sâu yêu cầu cần thiết để sử dụng đợc phần mềm Foxpro 2.6 For Winddow

- HS nắm đợc đặc tính càn phải có máy tính muốn chạy đợc Foxpro 2.6

- Yêu cầu HS lấy ví dụ minh hoạ

Tiết 39

Các kiểu liệu foxpro

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ mơc tiªu:

+ Những kiểu liệu chuẩn thờng đợc sử dụng hệ quản trị Foxpro + Một số điểm cần lu ý sử dụng kiểu liệu

- Giáo viên:

o Chuẩn bị phòng máy, mạng Netop Scholl

(88)

- Häc sinh:

o §äc lại học o Chuẩn bị

1 Tổ chức:

SÜ sè

?Máy tính cần có cấu hình nh để sử dụng đợc phiên Foxpro 2.6 For Window?

? Ta cần phải có phần mềm để chạy đợc Foxpro 2.6 For Window?

3 Dạy- học

Hot ng ca thy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu khái niệm dữ

liƯu vµ kiĨu liệu.

- GV: Bật mạng Netop Scholl, lấy ví dụ minh hoạ liệu, kiểu d÷ liƯu

Ví dụ: Một số, ký tự, một đoạn văn, tranh, tin dự báo thời tiết … đợc coi liu.

- HS tìm hiểu ví dụ nhận xét

? Dữ liệu gì?

? Thế kiểu liệu?

HS sinh tho lun xây dựng - GV nhận xét, đa khái niệm Hoạt động 2: Tìm hiểu số kiểu dữ liệu thờng đợc sử dụng hệ quản trị Foxpro.

- Giáo viên giới thiệu cho HS biết số kiểu liệu

- HS quan sát, ghi nhớ, trả lời câu hỏi

?Lấy ví dụ giải thích nào là?

+ Kiểu số? + Kiểu ký tự? + Kiểu ngày tháng? + Kiểu Logic? + Kiểu văn bản?

1/ Dữ liệu gì?Thế kiểu liệu?

- Dữ liệu thông tin, số liệu, ký tự, hình ảnhmà ta đa vào hệ trị Foxpro

- Trong tất thông tin ta đa vào máy tính để q trình làm việc, lý dễ dàng ngời ta phân thành nhiều loại khác nh: Số liệu, ký tự, hình ảnh, âm thanh…và loại đợc gọi chung kiểu liệu Nói cách khác liệu đa vào có dạng tơng tự giống đợc gọi kiểu liệu

2/ Các kiểu liệu thờng đợc sử dụng trong Foxpro.

- Trong qua trình quản trị CSDL ngời ta chia liệu thành kiểu sau:

+ Kiểu ký tù: (C-Character)

+ KiÓu sè: (N-Numeric)

+ Kiểu ngày tháng: (D-Date)

+ Kiểu Logic: (L-Logical)

+ Kiểu văn bản: (M-Memo)

(89)

- HS thảo luận, xây dựng - GV nhận xét giới thiệu kiểu liệu

Hot ng 3: Tìm hiểu dữ liệu kiểu ký tự.

- Giáo viên giới thiệu, lấy ví dụ minh hoạ cho liệu kiểu ký tự

- HS quan sát, ghi nhớ, trả lời câu hỏi?

?Thế kiểu liệu dạng ký tự?

? Lấy ví dụ minh hoạ.

- HS thảo luận xây dựng - GV: Nhận xét đa khái niệm, ví dụ cho kiểu liệu dạng số

3/ ThÕ nµo lµ kiĨu ký tù:

- Dữ liệu kiểu ký tự liệu bao gồm chữ thờng hay hoa, chữ số c¸c ký tù kh¸c

- Để viết liệu kiểu C (Character) biểu thức ta phải đặt chúng cặp dấu nháy đơn (') hay cặp dấu nháy kép (")

- VÝ dô:

"A", "B", "Cong ty"…

- Dữ liệu kiểu C đem so sánh, xếp đợc dựa theo giá trị ký tự bảng mã ASCII, ghép chúng lại với

- Ví dụ: Ta ghép ký tự trờng họ, tên đệm với trờng tên để đợc hoàn chỉnh họ, tên đệm, tên đối tợng nào đó

- Giáo viên yêu cầu học sinh nhắc lại khái niệm liệu kiểu liệu - Nhắc lại số kiểu liệu thờng đợc sử dụng Foxpro

- HS nắm đợc liệu dạng ký tự, lấy đợc ví dụ minh hoạ

-Tiết 40

Các kiểu liệu foxpro

NS:… …/ / 9A 9B 9C 9D 9E

NG:… / /

…

I/ môc tiªu:

+ Những kiểu liệu chuẩn thờng đợc sử dụng hệ quản trị Foxpro + Một số điểm cần lu ý sử dụng kiểu liệu

- Giáo viên:

(90)

1 Tổ chức:

SÜ sè

? ThÕ nµo liệu, kiểu liệu?

?ảTình bày, lấy ví dụ minh hoạ cho liệu kiểu ký tự?

3 Dạy- học

Hot ng ca thầy trò Nội dung kiến thức cần đạt Hoạt động 1:Tìm hiểu liệu kiểu số

(N-Numeric)

- GV: BËt m¹ng Netop Scholl lÊy vÝ dơ vỊ liệu kiểu số:

- HS quan sát ví dụ nhận xét

? Dữ liệu kiểu số gì?

? Trong liệu kiểu số có những loại số nào?

HS sinh thảo luận xây dựng - GV nhận xét, đa khái niệm thĨ

Hoạt động 2: Tìm hiểu liệu kiểu ngày tháng.- Giáo viên giới thiệu, lấy ví dụ minh hoạ cho liệu kiểu ngày tháng - HS quan sát, ghi nhớ, trả lời câu hỏi?

? Thế liệu kiểu ngày tháng?

? Ta thờng gặp liệu kiểu ngày tháng trờng hợp nào?

? Ta có chuẩn biểu diễn kiểu ngày tháng?

- HS thảo luận, xây dựng - GV nhận xét đa khái niệm, nội dung học

1/ Thế liệu kiểu số:

Ví dụ: +/ 10 +/ -20 +/ 5.234

- VËy d÷ liƯu kiểu số liệu gồm tất số, sè nguyªn lÉn sè thùc

- Kiểu đợc trình bày nh bình thờng , số thực phải dùng dấu chấm

"." để phân cách phần nguyên phần thập phân

- Dữ liệu kiểu số thực đợc phép tính so sánh, xếp phép tính số hc: (+,-,*,/)

2/ Thế liệu kiểu ngày tháng.

- Ví dụ: +/ 20/11/1983 +/ 11/20/1983

- Vậy liệu kiểu ngày tháng thông tin biểu diễn giá trị ngày tháng tuân thủ lịch ngày, tháng, năm

- Trong Foxpro ngày tháng đợc biểu diễn theo dạng sau:

* Kiểu Mỹ: mm/dd/yy * Kiểu Anh: dd/mm/yy * Kiểu Pháp: dd/mm/yy * Kiểu Italia: dd-mm-yy * Kiểu Đức: dd.mm.yy Trong đó:

- d: BiĨu diƠn giá trị ngày

(91)

Hot ng 3: Tìm hiểu liệu kiểu Logic.

- GV bật mạng Netop School giới thiệu cho HS quan sát khái niệm, ví dụ liệu kiểu Logic

- HS quan sát, ghi nhớ, trả lời câu hỏi xây dựng

?Thế liệu kiểu Logic? ? Ta thờng gặp liệu kiểu Logic trong trờng hợp nào?

?Dữ liệu kiểu logic có giá trị?

- HS tho lun, xõy dựng - GV nhận xét, đa khái niệm Hoạt động 4: Tìm hiểu liệu kiểu Memo

- GV giíi thiƯu, lÊy vÝ dơ minh ho¹ cho kiĨu d÷ liƯu kiĨu Memo

?Làm để lu giữ đợc những thơng tin có dung lợng lớn?

- HS thảo luận, xây dựng - GV nhËn xÐt, ®a kÕt ln

- m: BiĨu diễn giá trị tháng - y : Biểu diễn giá trị năm

3/ Dữ liệu kiểu Logic.

- Ví dụ: Nếu giới tính nam đánh số 1 cịn nữ đánh sơ khơng.

Nam: 1 N÷: 0.

-Vậy liệu kiểu Logic kiểu liệu mang hai giá tr l ỳng hoc sai:

+ Đúng mang giá trị: + Sai mang giá trị :

- Dữ liệu dạng sử dụng cho phép toán Logic

4/ Dữ liệu kiểu memo.

- Ví dụ: Đoạn thơng tin nhận xét quá trình học tập, phấn đấu học sinh nào đó.

- Vậy liệu kiểu memo kiểu đặc biệt thờng dùng để lu giữ thông tin dạng văn có dung lợng lớn

- Giáo u cầu học sinh nắm đợc kiểu liệu thờng đợc sử dụng Foxpro

- Biết đợc ý nghĩa, cách sử dụng, lấy ví dụ minh hoạ cho kiểu liệu - u cầu HS lấy ví dụ minh hoạ

- GV: Hớng dẫn học sinh học tập nhà theo nội dung ghi - Yêu cầu hs c trc bi mi

Nhận xét Ngày tháng năm 2008