Giao An Tin 11 Tron Bo

Trong quá trình làm việc trên máy với các loại dữ liệu đã học nếu xảy ra sự cố về nguồn điện vậy sau khi khởi động lại hệ thống chúng ta có còn thấy được kết quả mà chương trình đã c[r]

Bài 1: khái niệm lập trình ngôn ngữ lập trình Tiết Ngày soạn 20 tháng 08 năm 2011

I/ Mục Tiêu bài dạy: 1 Về kiến thức:

- Cho häc sinh biÕt có ngôn ngữ lập trình mức ngôn ngữ lập trình: Ngôn ngữ máy, hợp ngữ ngôn ngữ bậc cao

- Biết vai trò chơng trình dịch - Biết khái niệm biên dịch thông dịch

2 V Thỏi :

- Hiểu cần thiết, lợi ích việc lập trình máy tính đời sống ngành khoa học xã hội

3 Về kỹ năng:

BiÕt mét nh÷ng nhiƯm vơ quan träng chơng trình dịch phát lỗi cú pháp chơng trình ngồn

II/ Phơng tiệndạy học:

- Phơng tiện máy chiếu, máy tính , Phông chiếu, b¶ng

III/ Phơng pháp giảngdạy trọng tâm bài học: - Thuyết trình , vấn đáp

- Phân biệt đợc khái niệm thông dịch biên dịch

IV/ Néi dung:

1.ổn định tổ chức lớp:

KiĨm tra bµi cũ: Không kiểm tra 3.Nội dung mới:

Hoạt động GV HS Nội dung

Trong chơng trình Tin học lớp 10 em đợc biết đến số khái niệm ngôn ngữ lp trỡnh v ch-ng trỡnh dich

GV: Đặt câu hỏi : Em hày cho biết bớc giải thuật toán máy tính?

HS: Suy nghĩ trả lời câu hỏi

GV: Phõn tớch cõu trả lời học sinh tổng hợp lại bớc giải tốn máy tính học lớp 10

- Bớc : Xác định toán

- Bíc 2: Lùa chän vµ thiÕt kÕ tht toán - Bớc 3: Viết chơng trình

- Bớc 4: HiƯu chØnh - Bíc 5: ViÕt tµi liƯu

GV: Đặt câu hỏi : Em hÃy cho biết có loại ngôn ngữ lập trình ?

HS: Suy nghĩ trả lời câu hỏi. GV: Phân tích câu trả lời học sinh.

Mi loại máy có ngơn ngữ riêng, thờng ngơn ngữ viết cho loại máy chạy đợc máy

Khi viết chơng trình ngơn ngữ lập trình bậc cao để chạy đợc loại máy cúng ta phải chuyển chơng trình sang ngơn ngữ máy máy

GV: Đặt câu hỏi : Làm để chuyển ngôn ngữ bậc cao sang ngôn ngữ máy?

Ví Dụ : Bạn ngời khơng biét tiếng Anh ta phải làm để nói chuyện với ngời Anh đó?Hay để đọc đợc sỏch ting Anh?

- Vởy phải cần có ngời Dịch ngời dịch phải dịch c©u ngêi nãi chun

- Cịn muốn dịch sách sang tiếng việt cúng ta cần phải dịch tồn sách để ngời khác đọc đợc

Vëy th× tin häc th× chóng ta cịng sÏ cã khái niệm Thông dịch Biên Dịch

- Biên dịch : Sử dụng ngơn ngữ lập trình PASCAL để dịch chơng trình viết sẵn thi hành ch-ơng chình để học sinh quan sát

- Thông dịch : Sử dụng lệnh command promt để sử dụng số lệnh DOS Hoặc s

Khái niệm lập trình:

Lập trình sử dụng cấu trúc liệu câu lệnh ngơn ngữ lập trình cụ thể để mơ tả diễn đạt thuật tốn

- Trả lời câu hỏi : Có loại NN lập trình : Ngôn ngữ máy , Hợp ngữ, Ngôn ngữ bậc cao

+ Chơng trình viết ngôn ngữ máy nạp vào máy thi hµnh

+ Chơng trình Viết ngơn ngữ bậc cao nói chung khơng phụ thuộc vào loại máy.Muốn thi hành đc phải chuyển đợc sang ngơn ngữ máy

 cần phải có chơng trình dịch viết ngơn ngữ lập trình bậc cao để chuyển sang ngơn ngữ máy để máy co thể thi hành đ-ợc

Ch¬ng trình có loại Biên dịch thông dịch

- Thông Dịch : (interpreter) Dịch lần lợt câu lệnh thực câu lệnh

Thông dich việt lặp lại bớc sau:

 kiểm tra tính đắn của câu lệnh chơng trình nguồn

dụng Ngôn ngữ FOXPRO để thực số lệnh quản trị liệu, để học sinh dễ dàng nhận việc thơng dịch

§i kÌm víi chơng trình dịch thờng có công cụ soạn thảo chơng trình nguồn , Lu trữ, tìm kiếm , phát lỗi thông báo lỗi Thờng ngôn ngữa lập trình thờng chứa tất công cụ

câu lệnh ngôn ngữ m¸y

 Thực lệnh ngơn ngữ máy va chuyn c

- Biên Dịch: (Compiler) Thực bớc sau: Duyệt ,Kiểm tra, Phát lỗi vµ kiĨm tra tÝnh

đúng đắn câu lệnh chơng trình nguồn

 Dịch tồn chơng trình nguồn thành chơng trình dịch (hay ngơn ngữ máy) để thực máy lu trữ lại để sử dụng cần

V/ Củng cố, dặn dò : - Nhắc lại số kh¸i niƯm míi

- Nhắc HS nhà đọc thêm phần Bài đọc thêm trang SGK

VI / Bµi tËp vỊ nhµ

Bµi 2: thành phần ngôn ngữ lập trình Tiết Ngày 24 tháng 08 năm 2011

I/ Mục Tiêubài dạy:

1 V kin thc:Cho học sinh biết có ngôn ngữ lập trình có thành phần : Bảng chữ cái, Cú pháp ngữ nghÜa

- Hiểu phân biệt đợc thành phn ny

- Biết thành phần Pascal : bảng chữ , Tên chuẩn, từ khoá, biến

2 V Thỏi :- Hiu cần thiết , lợi ích việc lập trình máy tính đời sống ngành khoa học xã hội

3 Về kỹ năng: Phân biệt đợc tên, biến - Biết đặt tờn ỳng

II/ Phơng tiệndạy học:Phơng tiện máy chiếu, máy tính , Phông chiếu, bảng

III/ Phng phỏp giảngdạy trọng tâm bài học: - Thuyết trình , vấn đáp

- Phân biệt đợc khái niệm thông dịch biên dịch

IV/ Néi dung:

1.ổn định tổ chức lớp:

Kiểm tra cũ: Không kiểm tra 3.Néi dung bµi míi:

Hoạt động GV v HS Ni dung

GV: Các ngôn ngữ lập trình nói chung thờng có 1 số thành phần nh :

Dùng ký hiệu mào để viết chơng trình, viết theo quy tắc nào, viết nh có ý nghĩa nh Mỗi ngơn ngữ lập trình có quy định riêng nhừng thành phn ny

Ví dụ : Bảng chữ ngôn ngữ lập trình khác có khác : chẳng hạn nh ngôn ngữ Pascal không s dụng dấu ! nhng ngôn ngữ C++ lại sử dụng ký hiƯu nµy

- Cú pháp ngơn ngữ lập trình khác có khác Chẳng hạn nh Pascal s dụng cú pháp Begin – End để gộp nhiều lệnh thành nhng C++ lại sử dụng cặp ký hiệu {} - Mối ngôn ngữ khác có cách xác định

ng÷ nghĩa khác HS: Lắng nghe ghi chép.

GV: Đa ví dụ ngơn ngữ tự nhiên có bảng chữ cái.ngũ pháp cú pháp nghĩa câu,từ GV: Trong ngơn ngữ lập trình nói chung, các đối tợng sử dụng chơng trình phải đặt tên để tiện cho việc sử dụng Việc đặt tên ngôn ngữ khác khác nhau, có ngơn ngữ phân biệt chữ hoa có ngơn ngữ phân biệt chữ thờng Có nhng ngơn ngữ khơng phân biệt chũ hoa hay chữ thờng

GV : Lờy ví dụ cụ thể giới thiệu cách đặt tên Pascal

Ví dụ : Tên đặt Pascal :a, b, c, x1, x2, _ten

Còn đặt : abc, 2x, a&b sai GV: Ngơn ngữ có loại tên này nhiên tuỳ theo ngôn ngữ mà tên có ý nghĩa khác ngôn ngữ khác

- Trong soạn thảo chơng trình, ngơn ngữ lập trình thờng hiển thị tên dành riêng (ay từ khoá ) với màu chữ khác hẳn với tên lại giúp ngời lập trình phân biệt đợc đâu từ khố , Trong ngơn ngữ Pascal từ khố th-ờng hiển thị màu trắng

GV: Giáo viên mở chơng trình viết Pascal để học sinh quan sát cách hiển thị số từ khố chơng trình

- ngơn ngữ lậpt tình thờng cung cấp s n

1, thành phần :

- ngôn ngữ lập trình thờng có thành phần : Bảng chữ cái, cú pháp ngữ nghĩa

a) Bng ch cỏi : tập ký hiệu dùng đẻ viết chơng trình

- Trong ngơn ngữ Pascal bảng chữ gồm chũ bảng chữ tiếng anh, chữ số từ – số ký tự đặc biệt.(SGK 9)

b) Cú pháp : quy tắc dùng để viết chơng trình c) Ngữ nghĩa : Xác định ý nghĩa thao tác cần đợc thực ứng với tổ hợp ký tự dựa vào ngữ cảnh - Cú pháp cho biết cách viết chơng trình hợp lệ, Ngữ nghĩa xác định ý nghĩa tổ hợp ký tự chơng trình

- lỗi cú pháp đợc chơng trình dịch phát lỗi thơng báo cho ngời lập trình Chơng trình khơng cịn lỗi cú pháp dịch chơng trình sang ngơn ngữ máy

- Các lỗi ngữ nghĩa khó phát hơn,và thơng đợc phát chạy chơng trình

2 Một số khái niệm: a) Tên :

Mọi đối tợng chơng trình cần phải đợc đặt tên theo quy tắc ngôn ngữ lập trình chơng trình cụ thể

Trong ngôn ngữ Turbo Pascal tên dẫy liên tiếp không 127 ký tự bao gồm chữ , chữ số, dấu gạch dới, bắt đầu chữ dấu gạch dới

Trong Pree Pascal , Tên có đến tối đa 255 ký t

Ngôn ngữ lập trình Pascal không phân biệt chữ hoa hay chữ thờng nhng số ngôn ngữ khác lai phân biệt chữ hoa chữa thêng

- Ngơn ngữ lập trình thờng có loại tên bản: tên dành riêng , tên chuẩn tên ngời lập trình tự đặt

- Tên dành riêng :

Tờn dnh riờng hay cũn gọi thuật ngữ chuyên ngành từ khoá, tên đợc ngơn ngữ lập trình quy định với ý nghĩa xác định mà ngời lập trình khơng thể dùng với ý nghĩa khác

VÝ dô :

Trong Pascal :Program; Var; Uses; Begin; End; Type; Const;

vị chơng trình có sẵn th viện chơng trình giúp ngời lập trình có thĨ thùc hiƯn nhanh sè thao t¸c thêng dïng

- Giáo viên cho HS biết số tiêu chuẩn ngôn ngữ Pascal

GV: a ví dụ viết chơng trình để giải phơng trình bậc

Ta cần khai báo tên sau:

+ a, b, c tên để lu hệ số phơng trình + x1, x2 tên để lu nghiệm có + Delta tên dùng đ lu giá trị delta

- Hằng thờng có loại đặt tên không đợc dặt tên Hằng không đợc đặt tên giá trị viết trực tiếp viết chơng trình.mối ngơn ngữ lập trình có quy định viết triêng đợc đặt tên có cách đặt tên cho khác

- Biến đối tợng đợc sử dụng nhiều viết chơng trình Biến đại lợng thay đổi đc lên thờng đợc dùng để lu trữ kết qủa, làm trung gian cho tính tốn Mỗi loại ngơn ngữ có loại biến khác cách khai báo khác

- Khi viết chơng trình ngời lập trình thờng có nhu cầu giải thích cho nhứng câu lệnh mà viết để đọc lại đợc thuận tiện ngơif khác đọc dễ hiểu đợc chơng trình viết, ngơn ngữ lập trình thờng cung cấp cho ta cách viết thích vào chơng trình

- Ng«n ngữ khác có cách viết thÝch kh¸c

GV: Mở chơng trình Pascal đơn giản có chứa các thành phần khái niệm học, (sử dụng in sẵn khổ lớn) rõ cho học sinh khái niệm đợc thể chơng trình

Là tên đợc ngơn ngữ lập trình dùng với ý nghĩa th viên ngơn ngữ lập trình, Tuy nhiên với ngời lập trình sử dụng với ý nghĩa khác

Ví dụ: Trong ngôn ngữ Pas : Real, integer, Cos, Sin, Char, String,

Trong Ngôn ngữ C++ : Cin ,Cout, Getchar

- Tên ngời dùng tự đặt:

Tên ngời dùng tự đặt đợc dùng với ý nghĩa riêng, đợc xác định cách khai báo trớc

Tránh đặt tên trùng với từ khố khơng đợc đặt tên trùng

b) H»ng vµ BiÕn

- Hằng : đại lợng không thay đổi xuốt q trình thực chơng trình

Trong ng«n ngữ Pas thờng có loại sau : Hằng số học, sâu Logic

+ Hằng số học : số nguyên số thực + Hằng xâu chuỗi ký tự mã ACSII, đợc đặt dấu nháy (‘ ‘ )hoặc dấu Trong C++ (“ “) + Hằng Logic giá trị (True) sai (False)

- Biến : Là đại lợng đợc đặt tên giá trị đợc thay đổi chơng trình

Biến phải đợc khai báo sử dụng phải đợc khai báo trớc

C¸c ngôn ngữ lập trình có nhiều loại biến khác c) Chó thÝch :

Chú thích ngời dung tự đăt giúp cho nhận biết đợc chơng trình dễ giúp cho ngời khác đọc dễ hiểu khơng làm ảnh hờng đến chơng trình

Trong Pas thích đc đặt dấu {và } (* *)

Trong C++ thích đặt dấu /* */ V/ Củng cố, dặn dị :

- Nh¾c lại số khái niệm

- Nhc HS nhà đọc thêm phần Bài đọc thêm trang 14 SGK - Làm tập nhà SGK 13

VI / Bµi tËp vỊ nhµ

Bµi 3: cÊu trúc chơng trình Tiết Ngày 09 tháng 09 năm 2011

I/ Mục Tiêubài dạy: 1 V kin thc:

- Hiểu chơng trình mô tả thuật toán ngôn ngữ lập trình - Biết cấu trúc chơng trình Pascal: cấu trúc chung thành phần

2 V Thỏi :

- định hình cấu trúc chương trình bắt buộc phải tuân thủ, biết cách viết chương trình hợp lệ

3 Về kỹ năng:

- Nhận biết đc thành phần chng trỡnh n gin

II/ Phơng tiệndạy học:

- Phơng tiện máy chiếu, máy tính , Phông chiếu, b¶ng

III/ Phơng pháp giảngdạy trọng tâm bài học: - Thuyết trình , vấn đáp

- Trọng tâm :cấu trúc chơng trình, cách khai báo đại lợng chơng trình, ý nghĩa thành phần chơng trình pascal đơn giản

IV/ Néi dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: Kiểm tra cũ

3.Néi dung bµi míi:

Hoạt động GV HS Nội dung

GV: Thuyết trình đa cấu trúc chung

HS : lắng nghe ghi chép

GV: Thuyết trình đa kiến thức HS : lắng nghe + ghi chép

GV: Phần khai báo báo cho máy biết chơng trình sử dụng tài nguyên máy GV: ngôn ngữ LT có cách khai báo khác tuỳ thuộc vào chơng trình mà ta xem cần phải khai báo

GV: Khai bỏo hng l việc đặt tên cho để tiện sử dụng tránh việc phải viết lặp lại nhiều lần CT Khai báo tiện lợi cần thay đổi giá trị chơng trình

Khai báo biến xin máy cấp cho CT vùng nhớ để lu trữ sử lý thông tin nhớ

chÝnh nh sau:

<phần đầu chơng trình> <phần khai báo>

<phần thân chơng trình>

2. Các thành phần chơng trình giải thích các câu lệnh chơng trình

a) Các thành phần chơng trình

- Phần đầu chơng trình: khố Program sau khoảng trắng tên ngời dùng tự đặt.cuối kết thúc dấu ( ; )

VD: Program Baitap1; Program tinhtong;

- Phần khai báo : có nhiệm vụ giới thiệu đại l-ợng tham gia chơng trình, ngơn ngữ lập trình có kiểu khai báo riêng ,lập trình ngơn ngữ phải ý cách khai báo ngơn ngữ

+ Khai b¸o sư dơng th viƯn chn :

Trong Pascal có sẵn số hàm thủ tục chuẩn, chúng đợc phân thành nhóm mang tên đặc trng, gọi th viện nh : CRT, Graph, DOS, Printer muốn sử dụng hàm hay thủ tục th viện phải khai báo có sử dụng th viện Lời khai báo phải để sau phần đầu chơng trình theo cú pháp:

Uses danhs¸chthviƯn;

VD nh thđ tơc clrscr n»m th viƯn CRT th× bắt buộc phải khai báo :

Uses CRT;

Sau khai b¸o th viƯn CRT ta dùng lệnh :

CLRSCR; có chức xoá hình chạy lại chơng trình

+ Khai báo biến

Bin l đại lợng có giá trị thay đổi đc ,cịn đại lợng có giá trị khơng đổi chúng đc dùng chơng trình để lu trữ liệu,tham gia biểu thức tính tốn Biến đại lợng khó thiếu chơng trình

VD khai b¸o h»ng :

Trong ví dụ trên: Sau Var Const N = 100;

E = 2.7;

* Khai báo biến : Tất biến sử dụng ch-ơng trình phải khai báo để chch-ơng trình dịch biết để sử lý lu trữ

Biến nhận mang giá trị đc gọi biến đơn (Khai báo biến trình bày 5)

+ Khai báo (định nghĩa) kiểu liệu Ngoài kiểu liệu mà thân ngôn ngữ có sẵn nh kiểu thực, ngun, ký tự, Lơ gíc ngời dùng tự xây dụng lên kiểu liệu phục vụ cho chơng trình nhng phải mơ tả sau từ khố TYPE Khi định nghĩa kiều liệu mới, ta khai báo biến thuộc kiểu VD : Type Mang = Array[1 10] of real;

Var

A, B : Mang; - Phần thân chơng trình:

Đây phần chủ yếu chơng trình

Thõn chng trỡnh bt u từ khoá BEGIN kết thúc từ khoá END (Phải có dấu chấm cuỗi) Giữa khối BEGIN END câu lệnh Mỗi lệnh kết thúc dấu ( ; ) Một lệnh dài viết hay nhiều dịng VD:

Write(‘nhap A : ’); Readln(A);

GV: Mỗi ngôn ngữ lập trình có cách tổ chức ch-ơng trình khác thờng phần thân chứa câu lệnh CT

Chỳng ta nghiờn cu chơng trình cụ thể sau: Viết chơng trình để tính tổng số A B,tính in lên hình kết tổng số đó?

Tổng : S= A+B

Dới chơng tr×nh thĨ:

Program TinhTong;{tinh tong cua chu so} Uses CRT;

Var

A, B, S : Real; Begin

Clrscr;

Write( nhap so A= : );‘ ’ Readln(a);

Write( nhap so B= : );‘ ’ Readln(B);

S:= A+B;

Writeln( Tong cua chu so la S= ,S:8: 2); ‘ ’ End.

Chơng trình mẫu nhà để học sinh phân biệt rõ tng thành phần chơng trình đó:

VD: Chơng trình tính diện tích chu vi hình chữ nhật.in lên hình diện tích chu vi hình chũ nhật

Program tinhdientich_chuvi; Uses CRT;

Var

A, b, S, P : Real; Begin

Clrscr;

Write( nhap chieu dai a= );‘ ’ Readln(a);

Write( nhap chieu rong b= );‘ ’ Readln(b);

S:= a*b; P:= 2*(a+b);

Writeln( Dien tich= , S: 8: 2);‘ ’ Writeln( Chu vi= , P: 8: 2);‘ ’ Readln;

End.

- {tinh tong cua chu so}

đây lệnh thích nêu lên mục đích chơng trình

- Uses CRT;

đây lệnh khai báo cã sư dơng th viƯn chn cđa CRT

- Var a, b, S : Real;

Khai b¸o biÕn a, b,s có kiểu liệu số thực (Real) - Clrscr;

Lệnh xoá hình - Write( nhập ??? );

Lệnh in lên hình câu nhap a b nhằm nhắc ngời dùng nhập vào biến số liệu

- Readln(???);

Lệnh nhập liệu cho biến a,b - S:=a+b;

LƯnh tÝnh tỉng cđa sè

- Writeln( Tong S= , S: 8: 2);‘ ’

Lệnh in lên hình câu ‘tổng S= ’ in giá trị biến S Chỉ thị S:8:2 ấn định dành cột hình để in giá trịn S, cột để in phần thập phân

- Readln;

Lệnh dừng hình để xem kết vừa chạy đợc - End.

KÕt thúc chơng trình

3 Vớ d chng trỡnh n giản

Xem SGK giải thích cho học sinh giúp học sinh qua nhận hai chơng trình thực cơng việc nh-ng viết bằnh-ng nh-ngôn nh-ngữ khác nên hệ thốnh-ng câu lệnh CT khác

Có thể thêm câu lệnh hiển thị xâu vào CT Pascal để thể rõ muốn đa câu thơng báo ta sử dụng lệnh để hiển thị thêm câu lệnh

V/ Củng cố, dặn dò : - Nhắc lại sè kh¸i niƯm míi

- Cho chơng trình mẫu nhà yêu cầu học sinh phân biệt rõ thành phần chơng trình

VI / Bµi tËp vỊ nhµ

Bài 4: số kiểu liệu chuẩn Tiết Ngày 14 tháng năm 2011; Tun 5

I/ Mục Tiêubài dạy:

1 V kin thc:Bit mt số kiểu liệu định sẵn.Xác định đc kiểu cần khai báo liệu đơn giản

2 Về Thái độ: định hình tên kiểu liệu tiêu biểu, biết cách sử dụng linh hoạt xác định miền KDL

3 Về kỹ năng: Xác định đc kiểu cần khai báo liệu đơn giản - Xác định đợc vùng kiểu liu cn khai bỏo

II/ Phơng tiệndạy học:Phơng tiện máy chiếu, máy tính , Phông chiếu, bảng

III/ Phơng pháp giảngdạy trọng tâm bài học: - Thuyết trỡnh , ỏp

- Trọng tâm :Các kiểu liệu

IV/ Nội dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: Kiểm tra cũ

3.Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: Vấn đáp : cần viết chơng trình quản lý học sinh ta cần sử lý thông tin dạng nào? HS: Suy nghĩ trả lời câu hỏi giáo viên? GV: Phân tích câu trả lời học sinh, đa một vài dạng thơng tin nh sau:

- Hä tªn häc sinh thông tin dạng văn dạng ký tự

- điểm học sinh thông tin dạng số thực

- Số thự tự học sinh dạng số nguyên - Một số thông tin khác lại cần biªt chóng

là hay sai

GV: thut trình đa số bổ sung nh sau: - Ngôn ngữ lập trình đa sô

kiểu liệu chuẩn đơn giản từ kiểu đơn giản ta xây dựng thành kiểu liệu phức tạp

- Kiểu liệu có miền giới hạn máy tính khơng thể lu trữ số trục số nhng lu trữ với độ xác cc cao

- Tuỳ thuộc vào ngôn ngữ lập trình mà tên kiểu liệu khác miền liệu kiểu liệu khác - Với kiểu liệu ngời lập trình cần ghi

nh tờn kiu , giá trị số lợng ô nhớ để lu trữ giá trị thuộc ô nhớ

- Trong lập trình nói chung kiểu ký tự th-ờng tập ký tự bảng mẫ ký tự bảng mã ký tự ngời ta quy định có ký tự khác mã ký tự có mã thập phân tơng ứng để lu giá trị ký tự phải lu mã thp phõn tng ng ca nú

GV: Đặt câu hỏi? Em biết bảng mà nào? HS: HS ®a mét sè b¶ng m· nhng GV chó ý em NNLT PASCAL sử dụng bảng mà ASCII cho kiĨu ký tù

- Kiều Logíc kiểu có giá trị sai Mỗi ngơn ngữ khác lại có có

NNLT Pascal cã mét sè kiĨu d÷ liƯu chn sau: 1. KiĨu nguyên

Kiểu Số Byte Miền giá trị

BYTE 255

INTEGER -32768 32768

WORD 65535

LONGINT -2147483648 2147483648 SHORTINT -128 128

Các biên nguyên nhận giá trị số nguyên nằm phạm vi giá trị biến Khi gán cho biến số nguyên nằm phạm vi biến máy báo lỗi : “ Const out of range”

2 KiÓu Thùc

- Có nhiều kiểu cho giá trị số thực nhng hay dïng mét sè kiÓu sau:

KiÓu Sè Byte Miền giá trị

REAL

Single

Double

Extend 10

Comp

3 KiĨu Ký tù - Tªn kiĨu : CHAR

- Miền giá trị: ký tự bảng mà ASCII gồm có 256 ký tự

- Mỗi ký tù cã m· t¬ng øng tõ – 255

- C¸c ký tù cã quan hƯ so s¸nh dựa mà ký tự

VD: Trong bảng mà ASCII ký tự bảng chữ tiếng anh xếp liên tiếp với nhau, Các chữ số cịng xÕp liªn tiÕp, Cơ thĨ nh A m· 65; a m· 97; m· 48

Tuy có 256 ký tự nhng có 128 ký tự đầu hay sử dụng lại ký tự mở rộng Các ký tự có mã từ 0-31 gọi ký tự điều khiển, không in đợc , đc dùng đ điều khiển thiết bị ngoại vi, Chẳng hạn ký tự có mã dùng để tạo tiếng kêu bíp, 13 dùng để chuyển trỏ hình xuống đầu dịng dới

cách mô tả kiểu Logic khác Pas dïng TRUE – FALSE nhng mét sè ng«n ngữ khác lại dùng 0-1,

- Cú ngụn ngữ lại khơng có kiểu Logic mà ng-ời lập trình phả tự tìm cách để thể gí trị dạng

4 KiĨu Logic - Tªn kiĨu : Boolean

- Miền giá trị: Chỉ có giá trị sai : TRUE-FALSE

- Mét số ngôn ngữ có cách mô tả giá trị LOGIC cách khác

- Khi vit chơng trình ngơn ngữ lập trình cần tìm hiều đặc trng các kiểu liệu ngơn ngữ đó.

A Not A

True False

False True

A B A and B A or B A xor B

True True True True False

True False False True True

False True False True True

False False False False False

Các phép tốn Logic gồm có : Not, And, Or, Xor Nừu A B đại lợng Logic Not A , A and B, A or B, A xor B đại lợng Logic có kết cho bảng

Cịng tõ bảng ta rút nhận xét :

- A and B A B đồng thời cần biến A B sai A and B sai

- A or B sai A B đồng thời sai cần biến A B A or B

- A xor B A khác B

Thứ tự thực phép tốn Logic nh sau: Not tính tr-ớc, And, sau Or, Xor

5 Kiểu chuỗi - Tên kiểu : String

- Nt dãy ký tự đc đặt cặp dấu nháy đơn gi l mt hng chui

VD: Ngôn ngữ PASCAL

Các chuỗi ghép nối với nhờ phép cộng chuỗi cộng chuỗi ta đc chuỗi cách ghép chuỗi sau vào cuối chuỗi cuối:

VD: Ngôn ngữ + Pascal = Ngôn ngữ Pascal V/ Củng cố, dặn dò :

- Nhắc lại số khái niệm

VI / Bµi tËp vỊ nhµ

Bµi 5: khai báo biến Tiết Ngày 22 tháng năm 2011; Tun 6

I/ Mục Tiêubài dạy:

1 Về kiến thức:Hiểu đợc cách khai báo biến

2 Về Thái độ: biết quan trọng việc khai báo biến, thành phần khai báo biến 3 Về kỹ năng:

- Khai báo

- Nhận biết đc khai báo sai

II/ Phơng tiệndạy học:

- Phơng tiện máy chiếu, máy tính , Phông chiếu, bảng

III/ Phng phỏp gingdy v trng tâm bài học: - Thuyết trình , vấn đáp

- Trọng tâm :Cờu trúc khai báo biến

IV/ Néi dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: Kiểm tra cũ

3.Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: Khai báo biến chơng trình báo cho máy biết phải dùng tên chơng trình HS : Lắng nghe ghi chép

Ví Dụ:

Để giải PTB2: cần khai báo biến nh sau: Var a, b, c, x1, x2, Delta : Real;

để tính chu vi diện tích hình chữ nhật cần khai báo biến sau:

Var a, b, S, P : Real;

Trong : a, b dùng để lu độ dài cạnh hình chữ nhật

S lµ DiƯn tích, P chu vi

GV: Đặt câu hỏi? Khi khai báo cần ý điều gì?

HS : Suy nghĩ trả lời câu hỏi

GV : Phân tích câu trả lời học sinh

- Trong ngôn ngữ Pascal, Biến đơn đc khai báo nh sau: Var <Danh sách biến> : <Kiểu liệu>;

Trong Var từ khố dùng để khai báo biến

Danh sách biến: Tên biến, cách dấu phẩy. Kiểu liệu: Là kiểu liệu ngơn ngữ Pascal

Sau Var cã thĨ khai b¸o nhiỊu danh s¸ch biÕn có kiểu liệu khác

+ cn đặt tên biến cho gợi nhớ , dễ nhớ đến ý nghĩa

+ Khơng nên đặt tên dài, dễ dẫn đến mắc lỗi dễ hiểu nhầm

+ Khai báo biến cần quan tâm đến phạm vi giá trị V/ Củng cố, dn dũ :

- Nhắc lại số khái niƯm míi

VI / Bµi tËp vỊ nhµ

- Ra tập nhà

Tổ trởng chuyên môn Ngời soạn giáo án

Bài 6: phép toán, biểu thức câu lệnh gán Tiết Ngày 01 tháng 10 năm 2011

I/ Mục Tiêubài dạy: 1 V kin thc:

- Giới thiệu phép toán, biểu thức số học, hàm số học chuẩn biểu thức quan hệ - Phân biệt đc khác lệnh gán (:=) phép so s¸nh b»ng

2 Về Thái độ:

- hiểu quan trọng cấu trúc phép toán biểu thức chương trình 3 Về kỹ năng:

- Viết đc biểu thức số học Logic với phép toán thông dụng

II/ Phơng tiệndạy học:

-Phơng tiện máy chiếu, máy tính , Phông chiÕu, b¶ng

III/ Phơng pháp giảngdạy trọng tâm bài học: -Thuyết trình , vấn đáp

- Trọng tâm :các mục 4, mục 5, mục

IV/ Néi dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: Kiểm tra cũ

3.Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: Dẫn dắt vào bài: Trong viết chơng trình thờng phải thực phép tính tốn, phép so sánh để đa định xem làm việc ? CT ta viết nào? có giống với ngơn ngữ tự nhiên hay khơng? tất ngơn ngữ có sử dụng chúng giống khụng?

GV: Toán học có phép toán nào?

HS: đa số phép toán thờng dïng to¸n häc

GV: Chóng ta cã dïng đc phép toán lập trình không?

số phép dùng đc, số phép phải đc xây dựng từ phép toán khác

VD- Phép Luỹ thừa NNLT viết đc

GV: Mỗi ngôn ngữ khác lại có cách ký hiƯu phÐp to¸n kh¸c

GV: Trong to¸n học biểu thức gì? HS: Đa khái niệm.

GV: Đa khái niệm BT LT.

GV: cách viết biểu thức LT có giống cách viết toán học?

HS: Đa ý kiến mình. GV: Phân tích ý kiến học sinh.

GV: Đa cách viết biểu thức thứ tự thực hiện phép toán lập trình

GV: Cách viết BT phụ thuộc vào cú pháp từng ngôn ngữ LT

Đa số BT toán học yêu cầu em viết Pascal

VD:

- NNLT sủ dụng đến phép toán, Biểu thức, câu lệnh gán

- Ta xét khái niệm ngôn ngữ Pascal

1 PhÐp to¸n

NNLT Pascal sư dơng sè phÐp to¸n sau:

- Víi sè nguyªn: +, - , * , div (Chia lÊy nguyªn), Mode (chia lÊy d)

- Víi sè thùc: +, - , * , /

- Các phép toán quan hệ: > ,< , >= , <= , = , <> (≠): Cho kết gia trị Logic (True False) - Các phép toán LOGIC: Not (Phủ định), OR , AND

: thờng dùng để kết hợp nhiều BT Quan hệ với

2 BiĨu thøc sè häc

- Lµ mét d·y c¸c phÐp to¸n + , - , * , / , Div , Mod tõ c¸c h»ng, biÕn kiĨu sè hàm

- Dựng cp du () quy định trình tự tính tốn

Thø tù thùc phép toán:

- Trong ngoặc trớc ngoặc sau - Nhân chia trớc cộng trừ sau

- Giá trị biểu thức có kiểu kiểu biến có miến giá trị lớn biÓu thøc

HS: gäi vài HS lên bảng viết.

GV t cõu hi? Muốn tính X ta viết nào?² HS: đa X*X

GV: Muèn tÝnh SinX, CosX , ta làm thế nào?

HS: Cha biÕt c¸ch tÝnh

GV: Để tính giá trị cách đơn giản, Ngời ta xây dựng sẳn số đơn vị CT th viện CT giúp ngời LT tính tốn nhanh giá trị thơng dụng

GV: Với hàm chuẩn cần quan tâm đến kiểu đối số kiểu giá trị trả

VD- SinX đc đo độ hay Radian?

3 Hµm sè häc chuÈn

- Các NNLT thờng cung cấp sẵn số hàm số học để tính số giá trị thơng dụng

- Cách viết : Tên_hàm (đối số)

- Kết hàm phụ thuộc vào kiểu đối số - đối số hay nhiều biểu thức số học t

dấu () sau tên hàm

- Bản thân hàm coi biểu thøc sè häc vµ cã thĨ tham gia vµo BT nh toán hạng

Bảng số hàm chuẩn (SGK 26)

V/ Củng cố, dặn dò :

- Nhắc lại số khái niệm

VI / Bµi tËp vỊ nhµ

Lµm BT SGK

Bµi 6: phép toán, biểu thức câu lệnh gán Tiết Ngày tháng 10 năm 2011

I/ Mục Tiêubài dạy: 1 V kin thc:

- Hiểu lệnh g¸n

- Giíi thiƯu phÐp to¸n, biĨu thøc sè häc, hµm sè häc chn vµ biĨu thøc quan hƯ - Phân biệt đc khác lệnh gán (:=) phép so sánh

2 V Thỏi độ:

- hiểu quan trọng cấu trúc phép tốn biểu thức chương trình 3 V k nng:

- Viết đc lệnh gán

- Viết đc biểu thức số học Logic với phép toán thông dụng

II/ Phơng tiệndạy học:

-Phơng tiện máy chiếu, máy tính , Phông chiÕu, b¶ng

III/ Phơng pháp giảngdạy trọng tâm bài học: -Thuyết trình , vấn đáp

- Trọng tâm :các mục 4, mục 5, mục

IV/ Néi dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: Kiểm tra cũ

3.Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: Trong lập trình thờng ta phải so sánh giá trị trớc thực lệnh Biểu thức quan hệ hay gọi biểu thức so sánh đc dùng để so sánh giá trị Cho kết sai(Logic)

VD: > : Cho kÕt qu¶ sai

GV: Đặt câu hỏi? Muốn so sánh nhiều điều kiện đồng thời ta làm nào?

HS: §a ý kiÕn cđa mình. Ta dùng phép Và, Hoặc,

a ví dụ cách viết Pascal ? Chú ý ngơn ngữ có cách viết khác nhau.

GV: Mỗi NNLT có cách viết lệnh gán khác nhau. GV: Cần ý viết lệnh gán nh thế nào?

HS: Đa ý kiến.

GV: Phân tích câu trả lời học sinh sau đó tổng hợp lại: Cần ý đến kiểu biến kiểu biểu thức

GV: Minh ho¹ vài lệnh gán ví dụ trực quan bảng hình

4 Biểu thức quan hƯ Cã d¹ng nh sau:

<BT1> <Phép tốn quan hệ> <BT2> Trong :

- BT1 BT2 phải kiểu

- Kết BT quan hệ True False VD: A<B;

2A >= 4+B 5 BiÓu thøc Logic

- BT Logic đơn giản biến Logic - Thờng dùng để liên kết nhiều BT quan hệ lại với

nhau bëi c¸c phÐp to¸n Logic

VD: số dơng a, b, c độ dài cạnh tam giác biểu thức sau cho giá trị

(a + b > c) and (b + c > a) and (c + a > b) BT ®iỊu kiƯn : <= X <= ®c viÕt nh sau: (X >=0) and (X<= 5)

Câu lệnh gán

- Lnh gỏn cấu trúc ngôn ngữ lập trình, Thờng dùng để gán giá trị cho biến

CÊu tróc: <Tªn biÕn> := <BiĨu thøc>;

- Trong BT phải phù hợp với tên biến Có nghĩa kiểu tên biến phải kiểu với kiểu BT phải bao hàm kiểu BT

- Hoạt động lệnh gán : Tính giá trị biểu thức sau ghi giá trị vào tên biến

VD:

X := (-b sqrt(b*b – 4*a*c))/(2*a);± I:=I+1; J:= J-1;

Trong : Lệnh thứ tăng giá trị I lên đơn vị lệnh thứ giảm giá trị J đơn vị

V/ Cđng cè, dỈn dò :

- Nhắc lại số khái niệm míi

VI / Bµi tËp vỊ nhµ

Lµm BT SGK

Bài 7: thủ tục chuẩn vào đơn giản Tiết Ngày 14 tháng 10 năm 2011

I/ Mục Tiêubài dạy: 1 V kin thc:

- Biết lệnh vào đơn giản để nhập thông tin từ bàn phím đa thơng tin hình - Viết đc số lệnh vào đơn giản

2 Về Thái độ:

- biết chế hoạn động lệnh vào pascal 3 Về kỹ năng:

- Viết đc số lnh vo n gin

II/ Phơng tiệndạy học:

- Phơng tiện máy chiếu, máy tính , Phông chiÕu, b¶ng

III/ Phơng pháp giảngdạy trọng tâm bài học: - Thuyết trình , vấn đáp

- Träng t©m :phần

IV/ Néi dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: Kiểm tra cũ

3.Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: Khi sư dơng c¸c øng dụng ta thờng phải nhập thông tin vào, nh cách ta nhập đc thông tin vào lËp tr×nh?

GV: trớc nghiên cứu ý nghĩa câu lệnh em cho biết câu lệnh dùng để nhập liệu vào cho biến?

HS: Tr¶ lêi c©u hái

GV diễn giải ý nghĩa nguyên tắc hoạt động Read Readln nêu khác lệnh GV: Mỗi NNLT có cách nhập thông tin khác VD: Program VD;

Uses CRT; Var Tuoi : Byte; Begin

Clrscr;

Write( Mêi b¹n cho biÕt ti cđa b¹n : );‘ ‘ Readln(tuoi);

Write( cám ơn tuổi bạn lµ : ,tuoi, Tuoi );‘ ‘ ’ ’ Readln;

End.

- Giải thích việc nhập giá trị cho nhiều biến đồng thời

GV: Ta thấy VD việc ghi hình giá trị a,b,c dính liền ngời sử dụng khó phân biệt đc biến Vởy làm để hiển thị theo ý muốn ngời LT?

GV: Mỗi NNLT có cách đa thông tin hình khác

GV: Giải thích khác lệnh Write Writeln

Ly VD minh hoạ CT để giải thích

Trong NN Pascal thủ tục vào chuẩn viết nh sau: 1 Nhập liệu vào từ bàn phím

- Ta dïng lƯnh chn nh sau: Read hc Readln: Read / Readln(<BiÕn 1>, ,<BiÕn n>);

VD: Read(a); cã ý nghÜa lµ nhËp biÕn

Readln(a,b,c ); câu lệnh nhập nhiều biến chờ gõ phím ENTER Read không ta thờng sử dụng Readln

VD : XÐt CT sau: Program VD; Uses CRT;

Var a, b, c : Integer; Begin

Clrscr;

Write( Mêi b¹n nhËp sè : );‘ ‘ Readln(a,b,c);

Write( B¹n võa nhËp sè : ,a,b,c);‘ ‘ Readln;

End.

ViÖc nhËp giá trị cho nhiều biến giá trị biến cách dấu cách dấu Enter, Máy gán giá trị cho biến theo thứ tự nh lệnh nhập t-ơng ứng

2 Đa liệu hình

- a liệu hình vị trí trỏ ta dùng lệnh Write Writeln với cấu trúc :

Write / Writeln(<giá trị 1>, <giá trị 2>, , <giá trị n>); - Trong gái tri cú th l tờn bin, tờn hng,

giá trị cụ thể, biểu thức tên hàm VD: Write(nhập a, b, c = );

Writeln(giá trị S = ,S); V/ Củng cố, dặn dò :

- Nhắc lại số khái niệm

VI / Bµi tËp vỊ nhµ

Bài 8: Soạn thảo, Dịch, thực hiệu chỉnh chơng trình Tiết 10 Ngày 20 tháng 10 năm 2011

I/ Mục Tiêubài dạy: 1 V kin thc:

- Biết bớc soạn thảo,dịch, thực hiƯu chØnh CT - BiÕt sè c«ng cđa m«i trêng Pascal

- Bớc đầu sủ dụng đc CT dch phỏt hin li

- Bớc đầu chỉnh sửa đc CT dựa vào thông báo lỗi CT dịch tính hợp lý kết thu ®c

2 Về Thái độ:

- Biết số công cụ môi trường làm việc Pascal Cơ chế hoạt động chương trình dịch

3 Về kỹ năng:

- sủ dụng đc CT dịch để phát lỗi

- chØnh sưa ®c CT dựa vào thông báo lỗi CT dịch tính hợp lý kết thu đc

II/ Phơng tiệndạy học:

- Phơng tiện máy chiếu, máy tính , Phông chiếu, bảng

III/ Phng phỏp gingdy v trọng tâm bài học: - Thuyết trình , vấn đáp

- Trọng tâm :Cờu trúc khai báo biÕn

IV/ Néi dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: Kiểm tra cũ

3.Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: Giới thiệu số tập tin cần thiết để turbo Pascal chạy đc, hớng dẫn HS khởi động pascal máy tính

Turbo.exe (file ch¹y) Turbo.tpl (file th viƯn) Turbo.tph (file híng dÉn)

GV: giới thiệu số thao tác thờng dùng trong môi trờng soạn thảo Turbo Pascal

GV: thc hin vài thao tác để HS nhận thấy mức độ tiện lợi soạn thảo nh chạy CT

GV: ViÕt CT vÝ dơ vµ thùc hiƯn thao tác sửa lỗi

Màn hình làm việc ngôn ngữ Pascal xem SGK Một số thao tác thêng dïng Pascal - Xuèng dßng : Enter

- Ghi nhớ File vào đĩa: F2 - Mở File có : F3 - Biên dịch CT : Alt + F9 - Soát lỗi CT : F9 - Chạy CT: Ctrl + F9 - Đóng Cửa số CT: Alt + F3

- Chuyển qua lại cửa sổ : F6 - Xem lại hình kết quả: Alt +F5

- Tho¸t khái TP : Alt + X V/ Củng cố, dặn dò :

- Nhc lại hoạt động Write/ Writeln, Read/ Readln

VI / Bài tập nhà

Các tập cuối học

Tổ trởng chuyên môn Ngời soạn giáo án

Phạm hồng Quân BI TẬP THUC HANH 1

Tiết 11 ; Ngày 28 tháng 10 năm 2011 I Mục tiêu:

1 Về kiến thức:Củng cố nội dung đạt tiết thực hành

2 Về kĩ năng: Biết sử dụng thủ tục chuẩn vào/

3 Về thái độ: Có thái độ đắn, cẩn thận, tỉ mỉ lập trình

II Phương pháp, phương tiện dạy học & trọng tâm:

2 Phương pháp: Hướng dẫn học sinh cách làm tập học sinh chủ động đưa đáp án

3 Trọng tâm: Câu + 5+ + + + 10;

III Tiến trình giảng:

1 Ổn định lớp 2 Kiểm tra cũ

Câu hỏi: Trình bày có pháp thủ tục chuẩn vào/ đơn giản? 3 B i gi ng:à ả

Hoạt động GV Hoạt động HS - Gợi ý học sinh làm tập, gọi học sinh

trả lời câu hỏi lên bảng chữa tập

Bài 1: Trong Pascal, biến nhận giá trị nguyên phạm vi từ 10 đến 25532 biến khai báo kiểu liệu nào?

Bài 2: Biến P nhận giá trị 5; 10; 15; 20; 30; 60; 90 biến X nhận giá trị 0.1; 0.2; 0.3; 0.4; 0.5 Khai báo khai báo sau đúng?

a Var X,P: byte; b Var P,X: Real; c Var P: Real; d Var X: Real; X: byte; P: byte;

- Yêu cầu học sinh đọc tập sách giáo khoa T35

- Yêu cầu học sinh làm tâp, hướng dẫn học sinh đưa đáp án xác

- Yêu cầu học sinh đọc tập sách giáo khoa T35 trả lời câu hỏi

- Yêu cầu học sinh đọc tập sách giáo khoa T36 trả lời câu hỏi?

- Nhận xét câu trả lời học sinh Tương tự 8?

Bài SGK- T36

- Phân tích cho học sinh hiểu tính diện tích phần gạch chéo tính ½ diện tích hình trịn

Bài 10 SGK- T36

- Phân tích cho học sinh hiểu để tự viết chương trình

- Theo dõi nhận xét học sinh chữa

- Nghe giảng, gợi ý GV, chuẩn bị tập để trả lời

TL: Có thể khai báo kiểu Integer, Word, Longint Nhưng khai báo tốt kiểu Word

TL: Đáp án b,d đáp án tốt d tiết kiệm nhớ

Bài 3:

TL: Đáp án b,c,d đáp án c tốn nhớ

TL: (1 + z) * ((x + y/z)/( a –(1/(1 + x*x*x)))

- Nghiên cứu SGK

- TL: a, a : b x 2; b, a x b x c: 2; c, 1: (a x b: c) ; d, b:

TL: a BT= (y= abs(x) and (y<=1))

b BT= (abs(x)<=1) and (abs(y)<=1) - Viết chương trình:

Program dtht; Uses crt;

Var a: Integer; Begin

Clrscr;

Write(‘Nhap vao giá trị a(a>0)=’); Readln(a);

Write(‘Dien tich cua phan gach cheo la:’,a*a*pi/2:8:2);

Program dtht; Uses crt; Const g= 9.8; Var v,h: Real; Begin

Clrscr;

Write(‘Nhap vao cao cua vat h =’); Readln(h);

V:= sqrt(2*g*h);

Write(‘Van toc cham dat la v= ‘,v:8:2,’m/s);

Readln End

4.Củng cố:

- Nhắc lại nội dung chương

- Yêu cầu học sinh nhà thực hành (nếu nhà có máy tính) chạy chương trình giấy

BTVN:

Bµi tËp vµ thùc hµnh sè 1

Tiết 12 Ngày 03 tháng 11 năm 2011 I - Mục Tiêu dạy

- Bit vit mt chng trình Pascal hồn chỉnh đơn giản;

- BiÕt sư dơng mét sè dÞch vơ chđ u cđa Pascal soạn thảo, lu, dịch thực chơng trình

II/ Phơng tiệndạy học:

- Phơng tiện máy chiếu, máy tính , Phông chiếu, bảng

III/ Phơng pháp giảngdạy trọng tâm bài học:

- Thuyt trỡnh , vấn đáp.và thực hành phũng mỏy hướng dẫn GV - Trọng tâm :

IV - Nội dung giảng 1 ổn định tổ chức lớp 2 Nội dung

Hoạt động thầy Hoạt động trò

Hoạt động 1: Cho hs gõ chơng trình đơn giản GV- Hớng dẫn lại cho hs biết cách khởi động chơng trình, biết cách mở phần mềm Pascal làm quen với số chơng trình đơn giản

Yêu cầu học sinh gõ chơng trình đơn giản(SGK T34 phần a)

GV- Gióp hs dÞch sửa lỗi chơng trình trực tiếp máy

a) - Hs ghi lại với tên PTB2.PAS

b) Nhấn tổ hợp Alt +F9 để dịch sửa lỗi cỳ phỏp(nu cú).

C)- Yêu cầu hs nhập giá trị 1;-3 quan sát kết hiển thị hình

d)- Thử lại với giá trị 1;0;-2 quan sát kết

e) - u cầu hs sửa lại chơng trình khơng dùng biến trung gian D Thực chơng trình sửa với liệu

f) HS sửa lại chơng trình cách thay đổi cơng thức tớnh x2

g) Thực chơng trình với liệu 1; 1; quan sát kết hình

Hot ng Cho hs t lập trình đơn giản Yêu cầu hs gõ tập nhà tiết trớc cho GV: Hng dn hs

GV - Sửa lỗi cho máy GV- KL

Với Bài GV yêu cầu học sinh bỏ lệnh Readln; dới quan sát kết

* Bài GV yêu cầu học sinh kh«ng dïng biÕn trung gian T Thùc hiƯn chơng trình với liệu 10; 25, quan sát kết hình

- Bộ liệu : 12.35; 40

- HS khởi động máy mở phần mềm Pascal quan sát hình thực hiện công việc

- gâ nd phần a

- Gõ xong cho dịchchạy chơng trình

- HS thùc hiƯn c¸c thao t¸c - HS nhận xét kết quả

- HS thực c¸c thao t¸c

HS thực hành thao tác máy, gõ tập làm nhà

Bai

{ Cã thĨ bá qua bíc khai báo tên ct} Begin

Writeln('CONG HOA XA HOI CHU…');

Writeln('Doc lap - Tu - Hanh phuc');

Readln; End

- Dịch chạy chơng trình - HS quan sát kết - HS tự nhận xÐt Bai

Program Bai2; USES Crt; Var a,b,T: Real; Begin

Writeln(' Nhap hai so a,b'); Readln(a,b);

T:=a+b;

Writeln('Tong cua so a+b =',T:8:3); Readln;

End

- Dịch chạy chơng trình

- HS quan sát kết hình

V - Cñng cè:

Cong hoa xa hoi chu nghia viet nam Doc lap - Tu - Hanh phuc

2 Lập chơng trình tính tổng cđa hai sè a,b nhËp tõ bµn phÝm VI - BAI TAP VE NHA

Yêu cầu học sinh nhµ lµm bµi tËp

Tiết 13 – Ngày Soạn 25/11/2011 KIỂM TRA 45’ BÀI SỐ 01 I/ Mục Tiêu kiểm tra :

- Lit kê lại kiến thức học chương 2;

- tổng hợp lại kiến thức học thực hành thực hành II/ Phơng pháp kiểm tra đề bài:

- Phương pháp :kiểm tra viết tự luận

- Ma trận : Tự luận: câu hỏi gồm câu hỏi đòi hỏi hiểu biết để trả lời câu hỏi(3 câu hiểu(Câu 2,3) câu hỏi mức biết : 1,4,5)

Iii/ Néi dung:

Câu 1: em tìm chỗ sai chương trình sau? Var I, N : Interger ;

B : Byte Begin

N = , B : = ; I : = B + N; Writeln ( I ) End

Câu : Em phân tích điểm giống khác thủ tục Read Readln

Câu 3: em cho biết cấu trúc chung câu lệnh IF – THEN dạng thiếu? Lấy ví dụ minh họa?

Câu 4: Viết chương trình tính giá trị biểu thức S= x3 – 4x2 + 3x – cho biết x số

nguyên nhập từ bàn phím

Câu 5:Viết chương trình tìm số lớn ba số thực nhập vào từ bàn phím

Phần dành cho lớp chọn A,B,C

Câu 1: Em tìm chỗ sai chương trình sau : Var A ; B : real ;

S : Real ; Bigin

Witeln ( ‘ Nhập a, b = ’) ; readln ( A, B) ; S : = A + B ;

Writeln ( ‘S= ’ S ) ; End

Câu : Em phân tích điểm giống khác thông dịch biên dịch

Câu 3: em cho biết nguyên tắc hoạt động IF – THEN dạng thiếu ? Lấy ví dụ minh họa ?

Câu 4: Nhập số ngun x,y, tính in hình biểu thức: ln(√sinx+√cosy)

earctg(x − y)

Yêu cầu kết viết với độ rộng cột, có chữ số phần thập phân

Câu 5: Dân số khoảng 75 triệu, tỉ lệ tăng tự nhiên 1.7% Hỏi sau 15 năm dân số đạt triệu người?

Bµi 9: cÊu tróc rÏ nhánh lặp Tiết 14 Ngày 25 tháng 11 năm 2011

- HiĨu cÊu tróc rÏ nhánh biểu diẽn thuật toán - Hiểu câu lệnh rẽ nhánh dạng dạng

- Hiểu c©u lƯnh ghÐp

2 Về Thái độ:

- nhận thức quan trọng câu lệnh rẽ nhánh câu lệnh ghép

3 Về kỹ năng:

- Sử dụng câu lệnh rẽ nhánh mơ tả thuật tốn số tốn đơn giản

- Viết đc lệnh rẽ nhánh dạng áp dụng để thể đc thuật toán số toán đơn giản

II/ Phơng tiệndạy học:

- Phơng tiện máy chiếu, máy tính , Phông chiếu, bảng

III/ Phng phỏp giảngdạy trọng tâm bài học: - Thuyết trình , vấn đáp

- Träng t©m :mục

IV/ Néi dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: 2 Kiểm tra cũ

Hoạt động GV HS Nội dung

GV: Đa ví dụ roòi lớp thảo luận phơng pháp toán

đa khái niệm rẽ nhánh lập trình

Mỗi NNLT có cách thĨ hiƯn c¸c c¸ch rÏ nh¸nh kh¸c

GV: đa cấu trúc lệnh rẽ nhánh Pascal. Nhắc nhở học sinh cấu trúc quan trọng, đc sử dụng nhiều CT sau GV: lu ý em sau câu lệnh Then sau Else có lệnh chơng trình

GV: với dạng dạng dùng thuận tiƯn h¬n?

HS: Tìm câu trả lời GV gợi ý để HS đa đc tuỳ trờng hợp cụ thể mà dùng dạng hay dạng

§a c¸c vÝ dơ cã sư dơng lƯnh rÏ nh¸nh, lệnh rẽ nhánh thực đc

GV: VD3: cách nhanh tiện hơn? cách tiện

GV: Phân tích tiện lợi cách số lệnh mà máy phải thực

GV: Trong câu lƯnh IF- Then mn thùc hiƯn nhiỊu lƯnh sau Then hay nhiỊu lƯnh sau Else ta lµm thÕ nµo?

1 khái niệm rẻ nhánh

vớ d: vit chơng trình GPTB2 ta phải tính : Tính D= b2 – 4ac;

Sau tuỳ thuộc vào giá trị D mà ta có tính nghiệm hay khơng

Trong thực tế:

- D<0 phơng trình Vô nghiệm - D0 phơng trình có nghiệm

- nh vËy tuú thuéc vµo D mµ ta đa kết luận phơng trình có nghiệm hay nghiệm hay nghiệm - nói D<0 PT vô nghiệm , ngợc lại th× PT cã nghiƯm

=> nh ta thấy số mệnh đề có dạng - Nếu .thỡ

- Nếu ngợc lại

Các cấu trúc đc gọi cấu trúc rẽ nhánh

Các NNLT thờng cung cấp sẵn câu lệnh mô tả cấu trúc rẽ nhánh nh

2 câu lệnh if then.

- Pascal dùng câu lệnh If- Then để mô tả việc rẽ nhánh tơng ứng với loại mệnh đề rẻ nhánh nh sau - Dạng 1:

If <®iỊu kiện> Then <câu lệnh P>; - Dạng 2:

If <điều kiện> Then <câu lệnh P> Else <câu lệnh Q>; Trong ú:

- Điều kiện: biểu thức quan hệ logic - Câu lệnh, câu lệnh P, câu lệnh Q: câu lệnh

Pascal

ý nghÜa cđa c©u lƯnh:

- Dạng 1: điều kiện câu lệnh đc thực hiện, điều kiện sai câu lệnh khơng thực

- Dạng 2: Nếu điều kiện thực câu lệnh cịn sai thực câu lệnh

VD1: IF (X mod = 0) Then Write(x,là số chẵn); VD2: Else Write(x,là số lẻ);

VD3: Tìm giá trị lớn Max sè a,b: C¸ch 1: Max := a; IF b>a then max:=b; C¸ch 2: IF a>b then max:=a Else max:=b;

3 c©u lƯnh ghÐp

- Trong NN Pascal, c©u lệnh ghép có dạng: Begin

<các câu lệnh>

Kiểm tra D0

Thông báo vô nghiệm

Tính đ a nghiệm

Kết thúc

HS: Phát biểu ý kiến

GV: ta cần gộp nhiều lệnh lại coi đó câu lệnh chơng trình Các NNLT thờng có cấu trúc để giúp ta làm đc điều

GV: Giíi thiƯu lƯnh ghÐp cđa vài ngôn ngữ lập trình khác

C++ : {}

VB: IF- Then – Endif

GV: ChØ rõ đâu lệnh ghép chuỗi lệnh Soạn sắn CT cho HS quan sát c¸ch viÕt CT

Nếu cịn thời gian gọi HS lên bảng viết câu lệnh IF – Then cho tốn đơn giản

Mét vµi vÝ dơ vỊ câu lệnh ghép: Tìm max, Min số a vµ b: IF a<b Then

Begin

Max := b; {lÖnh ghÐp} Min := a;

End

Else {Tríc Else kh«ng cã dÊu ;} Begin

Max := a; {lÖnh ghÐp} Min := b;

End;

Tham khảo SGK Tin đại cơng Tr 127 – 132

End; Chó ý:

- Sau End phải dấu ; trớc Else khơng có dấu ; - Từ nói đến câu lệnh câu lệnh

đơn câu lệnh ghộp

Ví dụ: Đoạn CT sau NNPC có sư dơng c©u lƯnh ghÐp

IF D<0 Then

Writeln(phơng trình vô nghiệm) Else

Begin

X1:= (-b + sqrt(D))/ (2*a); X2:= -b/a – X1;

Writeln(‘X1 = ‘,X1:5:2,’X2 = ’,X2:5:2); End;

V/ Củng cố, dặn dò :Nhắc lại Một số Khái niệm

- Nhắc lại cấu trúc câu lệnh IF- Then, IF- Then Else thông qua ví dụ

VI / Bài tập nhà Cho h»ng sè a,b,c em h·y KT xem nã có thoả ĐK cạnh tam giác hay không, tam giác (Cân , Vuông, §Ịu)

Bµi 9: cÊu tróc rÏ nhánh lặp Tiết 15 Ngày 02 tháng 12 năm 2011

I/ Mục Tiêubài dạy: 1 V kin thc:

- HiĨu cÊu tróc rÏ nh¸nh biĨu diÏn thuật toán - Hiểu câu lệnh rẽ nhánh dạng dạng

- Hiểu câu lệnh ghép

2 Về Thái độ:

- nhận thức quan trọng câu lệnh rẽ nhánh câu lệnh ghép

3 Về kỹ năng:

- Sử dụng câu lệnh rẽ nhánh mô tả thuật toán số toán đơn giản

- Viết đc lệnh rẽ nhánh dạng áp dụng để thể đc thuật toán s bi toỏn n gin

II/ Phơng tiệndạy học:

- Phơng tiện máy chiếu, máy tính , Phông chiÕu, b¶ng

III/ Phơng pháp giảngdạy trọng tâm bài học: - Thuyết trình , vấn đáp

- Träng t©m :mục

IV/ Néi dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: 2 Kiểm tra cũ

Hoạt động GV HS Nội dung

4 Một số ví dụ

Quan sát chương trình sau ngơn ngữ lập trình Pascal

Ví dụ :

Tìm số ngày năm: Năm nhuận năm chia hết cho 400 chia hết cho không chia hết cho 100

GV?: Em xác định input output? HS: Trả lời

GV: Nhận xét tổng hợp ý kiến HS

GV: Em viết mô tả cấu trúc rẽ nhánh bài?

HS: Trả lời

GV: Tổng hợp ý kiến cho học sinh viết chương trình thực tốn HS: Lên máy tính GV thực viết CT theo hướng dẫn GV Và cho chạy CT

Input: Nhập N từ bàn phím

Output: Đưa số ngày năm hình

Ví dụ 2: Viết chuơng trình kiểm tra số nguyên nhập vào từ bàn phím xem có thoả mãn cạnh tam giác không

GV?: Em xác định input output? HS: Trả lời

GV: Nhận xét tổng hợp ý kiến HS

GV: Em viết mô tả cấu trúc rẽ nhánh bài?

HS: Trả lời

GV: Tổng hợp ý kiến cho học sinh viết chương trình thực tốn HS: Lên máy tính GV thực viết CT theo hướng dẫn GV Và cho chạy CT

Input: Nhập số nguyên từ bàn phím Output: Đưa số kết hình

Nếu (a+b>c) (b+c>a) (c+a>b) In hình số bạn nhập thoả mãn cạnh tam giác ngược lại thông báo số bạn nhập không thoả mãn cạnh tam giác

USES CRT;

VAR a,b,c:INTEGER; BEGIN

CLRSCR;

WRITE(‘Nhập vào a,b,c = ’); READLN(a,b,c);

IF (a+b>c) AND (b+c>a) AND (c+a>b) THEN WRITELN(‘số bạn nhập thoả mãn cạnh tam giác’) ELSE WRITELN(‘ số bạn nhập không thoả mãn cạnh tam giác’);

READLN END

V/ Củng cố, dặn dò :Nhắc lại Một số Khái niệm

- Nhắc lại cấu trúc câu lệnh IF- Then, IF- Then Else thông qua ví dụ

VI / Bi tập nhà Cho số a,b,c em KT xem có thoả ĐK cạnh tam giác hay khơng, tam giác (Cân , Vng, Đều) tính diện tích tam giác

Bµi tËp TiÕt 16 Ngày son 03 tháng 12 năm 2011

I/ Mơc tiªu :

- Cđng cè kiÕn thøc cđa lƯnh rÏ nh¸nh If – Then

- Giúp học sinh nắm đợc kỹ để sử lý thủ thuật rẽ nhánh, ứng dụng với lệnh Case – Up, IF lồng

II/ Phơng pháp ,đồ dùng dạy học: - Thuyết trình , vấn đáp

- Phơng tiện máy chiếu, máy tính , Phơng chiếu, bảng - Phòng máy đợc cài đặt sẵn Turbo Passcal 7.0

III/ Néi dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: Kiểm tra cũ

Bài giảng:

Cõu 1: Trong Pascal thc hin chương trình ta nhấn phím?

A F9 B Ctrl + F9 C Alt + F9 D Alt + F3

Câu 2: Để biểu diễn √x3 , ta viết?

A SQR(SQRT(X)*X) B SQRT(x*x*x) C SQR(x*x*x) D

SQRT(x*x)*x

Câu 3: Với lệnh sau dùng để in giá trị M(M kiểu số thực) hình với độ rộng có chữ số phần thập phân ?

A Write(M:5); B Write(M:5:2); C Writeln(M:2); D Writeln(M:2:5);

Câu 4: Trong ngơn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau sai ?

A x := 30.5; B x := 30,5; C x:= (3<5) or (6>8);D x:= (3<5) and (6<8);

Câu 5: Xét biểu thức logic: (n >0) and (n mod = 0) Khẳng định sau đúng?

A Kiểm tra xem n có số dương B Kiểm tra n có chia hết cho khơng;

C Kiểm tra n số nguyên chẵn D Kiểm tra xem n số dương chẵn

Câu 6: Biểu thức ((25 mod 10) div 2) có kết mấy?

A 4 B 2 C 3 D 1

Câu 7: Trong Turbo Pascal, xét chương trình sau

Const b = 3.75; Begin Write(b:5:3) End Màn hình kết là:

A 3.75 B 3.750 C 3.8E+01 D 3.75E+01

Câu 8: Hãy chọn biểu diễn tên Pascal?

A ‘*****’ B AB_234 C 100ngan D Bai tap

Câu 9: Kiểu sau có miền giá trị lớn nhất?

A Integer B Longint C Word D Byte

Câu 10: Chọn phát biểu sai:

A Hàm SQRT hàm lấy bậc hai B Hàm MOD hàm chia lấy phần dư

C Hàm SQR hàm lấy bậc hai D Hàm DIV hàm chia lấy phần nguyên

Câu 11: Cho x biến nguyên, y biến thực, lệnh gán sau sai:

A y:=y/3; B x:=x+3; C x:= x mod 5; D x:=x/3;

Câu 12: Trong khai báo nhớ cấp phát cho biến tổng cộng byte?

Var x,y,z : Integer; c,h: Char; ok: Boolean;

A 11 B 12 C 9 D 10

Câu 13: Xét biểu thức sau : (x2 +2x >100) and (x <=10) Biểu thức cho kết True khi x

bằng

Câu 14: Trong Pascal, khai báo sau sai?

A CONST Lop=’Lop 11’; B CONST pi=3.1416;

C CONST Lop=”Lop 11”; D CONST Max=1000;

Câu 15: Biểu thức (x<=4) and (x>=0) thuộc dạng biểu thức gì?

A Biểu thức quan hệ B biểu thức số học C biểu thức gán D biểu thức logic

Câu 16: Kết biểu thức sqr((ABS(25-30) mod 4) ) là?

A 1 B 8 C 4 D 2

Câu 17: Trong tên sau, đâu tên dành riêng (từ khóa) ngơn ngữ lập trình Pascal?

A Real B Baitap C Program D Vidu

Câu 18: Trong ngơn ngữ lập trình Pascal, Xét đoạn chương trình sau :

Var a : Real ; Begin a := 15; Writeln("KQ la: ",a); End Hãy chọn kết sau đây:

A KQ la 15 B KQ la 1.5000000000E+01

C Chương trình báo lỗi D KQ la a

Câu 19: Trong chương trình, biến M nhận giá trị: 10, 15, 20, 30, 40, biến N nhận giá trị: 1.0 , 1.5, 2.0, 2.5 , 3.0, khai báo khai báo sau đúng?

A Var M: Real; N: Word; B Var M: Word; N: Real;

C Var M,N :Byte; D Var M, N: Longint;

Câu 20: Khai báo biến có cú pháp

A var <kiểu liệu>:<danh sách biến>; B var <kiểu liệu>:<danh sách biến>

C var <danh sách biến>:<kiểu liệu> D var <danh sách biến>:<kiểu liệu>;

PHẦN II: TỰ LUẬN Câu 1

ca Viết lại biểu thức toán học sau sang dạng biểu diễn tương ứng Pascal:

a − b2+a|a| b ax2

+bx+ex c x − yx+y d

lnx

2 √a

2

+b2

e. (–b+ sqrt(b*b- 4*a*c))/(2*a); g. (b+ sin(x*x))/(2*a);

f. 1/2 * sqrt(a*a + b*b) + abs(x); h. (x + abs(y))/ (x –y)

Câu

Viết chương trình nhập từ bàn phím cạnh tam giác vng, tính đưa kết hình độ dài cạnh huyền tam giác vuông

Câu

Tiết 17 – Ngày Soạn 10/12/2011 KIỂM TRA HC K I I/ Mục Tiêu kiểm tra :

- Liệt kê lại kiến thức học học kỳ 1;

- Sỏt hạch lại cỏc kỹ xử lý, kiến thức học kỳ II/ Phơng pháp kiểm tra đề bài: - Phương phỏp :kiểm tra viết tự luận

- Ma trận : Trắc nghiệm 10 câu (1,5 điểm) Tự luận: câu Iii/ Néi dung:

Câu 1: Trong Turbo Pascal, xét chương trình sau

Const b = 3.75; Begin Write(b:5:3) End

Màn hình kết là:

A 3.75 B 3.8E+01 C 3.750 D 3.75E+01

Câu 2: Để biểu diễn √x3 , ta viết?

A SQRT(x*x)*x B SQR(x*x*x) C SQRT(x*x*x) D SQR(SQRT(X)*X) Câu 3: Trong chương trình, biến M nhận giá trị: 10, 15, 20, 30, 40, biến N nhận giá trị: 1.0 , 1.5, 2.0, 2.5 , 3.0, khai báo khai báo sau đúng?

A Var M, N: Longint; B Var M: Real; N: Word; C Var M: Word; N: Real; D Var M,N :Byte;

Câu 4: Khai báo biến có cú pháp

A var <danh sách biến>:<kiểu liệu>; B var <kiểu liệu>:<danh sách biến> C var <kiểu liệu>:<danh sách biến>; D var <danh sách biến>:<kiểu liệu> Câu 5: Trong Pascal, khai báo sau sai?

A CONST Max=1000; B CONST pi=3.1416;

C CONST Lop=’Lop 11’; D CONST Lop=”Lop 11”;

Câu 6: Hãy chọn biểu diễn tên Pascal?

A Bai tap B AB_234 C ‘*****’ D 100ngan

Câu 7: Biểu thức (x<=4) and (x>=0) thuộc dạng biểu thức gì?

A biểu thức số học B Biểu thức quan hệ C biểu thức gán D biểu thức logic Câu 8: Trong khai báo nhớ cấp phát cho biến tổng cộng byte?

Var x,y,z : Integer; c,h: Char; ok: Boolean;

A 12 B 10 C 9 D 11

Câu 9: Trong ngơn ngữ lập trình Pascal, mặt cú pháp câu lệnh sau sai ? A x := 30,5; B x:= (3<5) and (6<8);C x:= (3<5) or (6>8); D x := 30.5;

Câu 10: Xét biểu thức sau : (x2 +2x >100) and (x <=10) Biểu thức cho kết True khi x bằng

A 9 B 8 C 11 D 10

Câu 11 (1,5 điểm): Hãy s p x p l i chắ ế ạ ương trình sau

write(' nhap vao cao h = '); readln(h);

end

v:= sqrt(2*g*h); const g = 9.8;

var h,v: real; { h độ cao, v vận tốc} begin

Câu 12(1.5đ): Vi t l i bi u th c d ng toán h c sau sang d ng bi u di n tế ạ ể ứ ạ ọ ạ ể ễ ương ng Pascal:

ứ

Stt Biểu thức toán học Biểu thức Pascal

1 -1 ≤ cosx ≤ 1 2

| x3 + x x |

3 |5+x| . 1− y

1+y

4 lnx

2 √a

2

+b2

5 − b+|a|

2a

Câu 13 (2đ) Viết chương trình nhập vào điểm tốn, điểm văn, điểm tin Tính tổng điểm biết: điểm toán nhân hệ số 2, điểm văn tin tính hệ số Nếu tổng điểm >=20 xuất câu thơng báo “Bạn đã trúng tủn!”, ngược lại xuất câu thơng báo “Bạn đã khơng trúng tủn”

Câu 14(2,5đ) Viết chương trình nhập hai số thực Sau hỏi phép tính cần thực in kết phép tính

Bµi tËp TiÕt 18 Ngày son 20 tháng 12 năm 2011

I/ Mơc tiªu :

- Cđng cè kiÕn thøc cđa lƯnh rÏ nh¸nh If – Then

- Giúp học sinh nắm đợc kỹ để sử lý thủ thuật rẽ nhánh, ứng dụng với lệnh Case – Up, IF lồng

- Chữa kiểm tra học kỳ 1, đọc điểm, nhận xét kiểm tra học kỳ với học sinh

II/ Phơng pháp ,đồ dùng dạy học: - Thuyết trình , ỏp

- Phơng tiện máy chiếu, máy tính , Phông chiếu, bảng

III/ Nội dung:

1.ổn định tổ chức lớp, Báo cáo sĩ số: Kiểm tra cũ

Bài giảng:

Bi 1: Vit chng trỡnh nhập vào số nguyên kiểm tra xem số vừa nhập số chẵn hay số lẻ Program Kiemtratinhchanle;

Uses crt; Var x:integer; Begin

Write('Nhap vao mot so nguyen : '); Readln(x);

If (x MOD 2=0) Then Writeln('So vua nhap vao la so chan') Else Writeln('So vua nhap vao la so le'); Readln;

End

Bài tập 2: Viết chương trình giải phương trình bậc ax+b=0 Program Giaiptb1;

Uses Crt; Var a,b,x : real; Begin

Write('a = '); Readln(a); Write('b = '); Readln(b);

If (a = 0) Then { Nếu a }

If (b = 0) Then { Trường hợp a = b = }

Writeln('Phuong trinh co vo so nghiem') Else Writeln('Phuong trinh vo nghiem') }Else { Trường hợp a

Begin x:= -b/a;

Writeln('Phuong trinh co nghiem la :',x:6:2); End;

Readln; End

Bài tập 03: Viết chương trình nhập tính diện tích tam giác, nhập độ dài cạnh a,b,c từ bàn phím Cơng thức tính Diện tích , p nửa chu vi

Program Tam_Giac; Var a,b,c: Integer; p,s: Real; Begin

Write('Cho biet canh thu nhat = '); Readln(a); Write('Cho biet canh thu hai = '); Readln(b); Write('Cho biet canh thu ba = '); Readln(c);

p := 0.5 * (a + b + c); s := sqrt(p*(p-a)*(p-c)*(p-c)); Writeln('+Dien tich hinh tam giac = ',s:6:2,' met vuong'); Readln

End

IV Củng cố: Nhắc lại kiến thức trọng tâm

Bài 10: cấu trúc lặp Tiết 19, Ngày 31 tháng 12 năm 2011

I/ Mục Tiêu dạy :

1 V kin thc:

- Hiểu nhu cầu cấu trúc lặp biểu diÏn thuËt to¸n

- Hiểu cấu trúc lặp kiểm tra điều kiện trớc, cấu trúc lặp với số lần định trớc - Biết cách vận dụng đắn cấu trúc lặp vào tình cụ thể - Mơ tả đựơc thuật tốn số tốn đơn giản có sử dụng lệnh lặp

2 Về Thái độ:

- biết cần thiết lệnh lặp q trình giải tốn điều kiện

3 Về kỹ năng:

- Viết đc thuật toán số toán đơn giản

- Mơ tả đựơc thuật tốn số tốn đơn giản có sử dụng lệnh lặp

- Viết đắn lệnh lặp kiểm tra điều kiện trớc, lệnh lặp với số lần định trớc II/ Phơng tiện dạy học:

a) Chuẩn bị đồ dùng dạy học: Sách GK tin 12, Sách GV tin 12, đĩa chứa chương trình minh họa (quản lý học sinh:gv biên soạn), tranh ảnh chụp sẳn

b) Phương pháp giảng dạy: Thuyết trình, hỏi đáp, đặt , so sỏnh

III/ Phơng pháp giảng dạy trọng tâm học:

- Phng phỏp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh

- Trọng Tâm :Mục 2. IV/ Néi dung:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh 2 Kiểm tra cũ:

3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: Đa toán, yêu cầu HS tìm cách để lập trình giải tốn

HS : Đa cách giả mình, HS đa ra cách giả khác

GV: Đa cách giả cho toán Giải theo lệnh

S1:=0;

If (1/a>0.0001) Then S1:= S1+1/a;

If (1/(a+1)>0.0001) Then S1:= S1+1/(a+1); If (1/(a+2)>0.0001) Then S1:= S1+1/(a+2); If (1/(a+3)>0.0001) Then S1:= S1+1/(a+3); ……

HS: NHận xét với việc giải toán theo cách này?

Vi N=100 thỡ lp 100 ln nh nhng theo việc kiểm tra điều kiện khơng biết phải làm theo cách ? Theo trờng hợp q dài

§Ĩ HS hiĨu đc khái niệm lặp, GV đa số VD thực tế đc tính toán lặp lặp lại nhiều lần VD1: Bài toán vay tiền lÃi ngân hàng tháng phải tính lÃi cộng thêm lÃi vào gốc vay hay nói cách khác gốc cđa th¸ng sau = gèc + l·i th¸ng tríc

VD2: Tính tổng đoạn số mà không ®c dïng c«ng thøc

GV: ®a vÝ dơ :

So s¸nh tht to¸n sau:

Tht to¸n Tỉng _1a

B1: S:=1/a; N:=0;

Tht to¸n Tỉng _1b

B1: S:=1/a; N:=101;

1. Kh¸i niệm lặp

- xét toán nh sau với a>2 số nguyên cho tr-ớc:

Bài to¸n 1: tÝnh tỉng

s1:=1

a+

1

a+1+

1

a+2+ +

1

a+100

Bài toán 2: Tính tổng

s2=1

a+

1

a+1+

1

a+2+ +

1

a+N+

Víi ®iỊu kiƯn

a+N<0 0001

Cách giải:

- Bắt đầu S đc gán giá trị 1/a

- Tiếp theo lần cộng thêm vào S 1/(a+N) với N= 1,2,3…

- Víi BT2 , viƯc céng thªm dõng 1/(a+N) <0.0001, => số lần lặp cha biết trớc

- Với BT1 , Việc cộng thêm dừng N=100, => số lần lặp biết trớc

Trong lập trình có thao tác phải lặp lại nhiều lần, ta gọi cấu trúc lp

Lặp thờng có loại :

- lặp với số lần biết trớc - lặp với số lần trớc

- NNLT cung cấp số câu lệnh để mô t cu trỳc lp nh trờn

Sau tìm hiểu câu lệnh lặp ngôn ngữ Pascal

2. lặp có số lần biết trớc câu lệnh For Do Trong Pascal có loại câu lệnh lặp có số lần biết trớc :

B2: N:=N+1;

B3: NÕu N>100 chuyển sang B5 B4: S:= S+1/(a+N) Rồi quay lại B2; B5: §a S råi kÕt thóc

B2: N:=N - 1;

B3: NÕu N < chuyển sang B5 B4: S:= S+1/(a+N) Rồi quay lại B2; B5: §a S råi kÕt thóc

GV: Gọi số HS nhận sét TT một số vấn đề :

- ThuËt toán có lặp không? - Lặp lần ?

- Hai thuật toán giống khác nh thÕ nµo?

- Cái thay đổi thuật toán này?

For <biÕn := m1> to <m2> <câu lệnh P>;

- Lặp dạng lùi:

For <biến :=m2> downto <m1> <câu lệnh P>; Trong :

- Biến (biến đếm ) thờng bin kiu s nguyờn

- Giá trị m1, giá trị m2: biểu thức kiểu với kiểu biến Giá trị đầu m1 phải giá trị cuối m2

- ở dạng lặp tiến : biến đếm tự tăng dần từ giá trị đầu đến giá trị cuối

- ở dạng lặp lùi : biến đếm tự giảm dần từ giá trị cuối đến giá trị u

Tơng ứng với giá trị biến câu lệnh sau Do thực lần

Yêu cầu:

- Biến phải có kiểu liệu nguyên, ký tự hay lôgíc

- M1, m2 biểu thức có kiểu liệu với biÕn

- Lệnh P lệnh đơn giản, lệnh có cấu trúc lệnh ghép có nhiều lệnh đc đặt khối Begin end

Cách thức hoạt động For:

D¹ng 1:

- B1 : gán giá trị biến := m1;

- B2: Nếu biến m2 làm lƯnh P, råi sang B3; NÕu biÕn >m2 th× không làm lệnh P mà chuyển sang lệnh phía dới

- B3 : tăng giá trÞ cđa biÕn : biÕn := biÕn + n; (Succ) Quay l¹i B2;

Tóm lại Lệnh P đc làm làm lại, bắt đầu biến =m1, kết thúc biến = m2+1, thảy m2-m1+1 lần Vì ngời ta gọi For vịng lặp có số lần lặp biết trớc

VD: tÝnh tæng S= 12+22+32+ .102

(Xem thuËt to¸n céng phụ lục kèm.)

VD2: Bài toán tính tÝch : S= 1.2.3 10 hay S= 10!

(Xem tht to¸n céng phơ lơc kÌm.)

N (M<N)

IV củng cố, dặn dò

- Nhắc lại Một số Khái niệm

- Nhắc lại cÊu tróc c©u lƯnh For- To- Do, While – Do thông qua ví dụ

V tập nhµ

Ra bµi tËp vỊ nhµ :

NhËp sè tù nhiªn N dïng lƯnh While – Do tÝnh S= N!

Bài 10: cấu trúc lặp Tiết 20, Ngày 31 tháng 12 năm 2011

I/ Mục Tiêu dạy :

1 V kin thc:

- Hiểu nhu cầu cấu trúc lặp biểu diẽn thuËt to¸n

- Hiểu cấu trúc lặp kiểm tra điều kiện trớc, cấu trúc lặp với số lần định trớc - Biết cách vận dụng đắn cấu trúc lặp vào tình cụ thể - Mơ tả đựơc thuật toán số toán đơn giản có sử dụng lệnh lặp

2 Về Thái độ:

- biết cần thiết lệnh lặp q trình giải tốn điều kiện

3 Về kỹ năng:

- Viết đc thuật toán số toán đơn giản

- Mơ tả đựơc thuật tốn số tốn đơn giản có sử dụng lệnh lặp

a) Chuẩn bị đồ dùng dạy học: Sách GK tin 12, Sách GV tin 12, đĩa chứa chương trình minh họa (quản lý học sinh:gv biên soạn), tranh ảnh chụp sẳn

b) Phương pháp giảng dạy: Thuyết trình, hỏi đáp, đặt vấn đề, so sỏnh

III/ Phơng pháp giảng dạy trọng tâm bµi häc:

- Phương pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :Mục 2.

IV/ Néi dung:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh 2 Kiểm tra cũ:

3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV đa cách lặp Pascal giải thích ý nghĩa thành phần câu lƯnh

Với VD cần giải thích nhiều đến ý nghĩa câu lệnh lệnh lp

GV: Đa thuật toán YC học sinh tự xây dựng thuật toán giải toán , tự xây dựng đc thuật toán em hiểu lặp trớc số lần

Đa thêm VD : nhắc lại BT vay tiền ngân hàng : vay sè tiỊn lµ A vµ l·i lµ 1,25% / tháng sau thời gian phải trả số tiền lÃi lẫn gốc B

YC học sinh đa cách giải cho BT nµy

GV: phân tích phơng án trả lời HS Sau đa lời giải cho BT

Dạng 2:

- B1: Gán giá trÞ biÕn := m2;

- B2: NÕu biÕn ≥ m1 làm lệnh P, sang bớc Nếu biến <m1 không làm lệnh P chun sang lƯnh kÕ tiÕp sau lƯnh P

- B3: Giảm giá trị biến : biến := biến – n; (Pred)

Quay l¹i B2

Tóm lại , lệnh P đc làm làm lại , bắt đầu biến =m2 kết thúc biến = m1-1, thảy m2-m1+1 lần VD1: để tính S= N! ta viết S = N*(N-1)*(N-2)*…*2*1

(Xem tht to¸n céng phơ lơc kÌm.)

VD2: In chữ theo thứ tự ngợc từ Z đến A thành dòng :

Z,Y,X,…,C,B,A Z,y,x,…, c, b, a

(Xem tht to¸n céng phơ lơc kÌm.)

chú ý thêm : Chúng ta có cÊu tróc lƯnh For lång :Trong cÊu tróc For lệnh P lệnh For ta cã cÊu tróc For lång nhau: For <biÕn1:= m1> To <m2> Do

For <biÕn2:= n1> To <n2> Do <lƯnh P>;

Ví dụ 1: Hai chơng trình cài đặt thuật tốn tổng_1a và tổng_1b

Ví dụ 2: tính tổng số nguyên chia hết cho 5 phạm vi từ M đến N (M<N)

IV củng cố, dặn dò

- Nhắc lại Một số Khái niệm

- Nhắc lại cấu trúc câu lệnh For- To- Do, While Do thông qua ví dụ

V tập vỊ nhµ

Ra bµi tËp vỊ nhµ :

TiÕt theo PPCT TiÕt 21 Bµi 10: cấu trúc lặp

Ngày Soạn 06 / 01/ 2012

Tuần dạy 21

I/ Mục Tiêu d¹y :

1 Về kiến thức:

- HiĨu nhu cầu cấu trúc lặp biểu diẽn thuật to¸n

- Hiểu cấu trúc lặp kiểm tra điều kiện trớc, cấu trúc lặp với số lần định trớc - Biết cách vận dụng đắn cấu trúc lặp vào tình cụ thể - Mơ tả đựơc thuật toán số toán đơn giản có sử dụng lệnh lặp

2 Về kỹ năng:

- Viết đc thuật toán số tốn đơn giản

- Mơ tả đựơc thuật tốn số tốn đơn giản có sử dụng lệnh lặp

- Viết đắn lệnh lặp kiểm tra điều kiện trớc, lệnh lặp với số lần định trớc

3 Về Thái độ:

- biết cần thiết lệnh lặp q trình giải tốn điều kiện II/ träng tâm - Phơng pháp :

- Phng phỏp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :Mục 2.

IIi/ chuÈn bÞ giáo viên học sinh: a) Giỏo viờn: Sỏch GK tin 12, Sách GV tin 12

b) Học sinh: Sách GK tin 12, ghi, IV/ tiÕn tr×nh dạy:

1 n nh t chc: Nm s tình hình lớp: điểm danh

Hoạt động GV HS Nội dung

GV: ®a cÊu tróc c©u lƯnh While – Do trong Pascal, giải thích ý nghĩa thành phần

HS: lắng nghe vµ ghi chÐp

GV: VD trớc đa thuật toán , nên cho HS xây dựng thuật tốn tìm UCLN học lớp 10

CÊu tróc 

3. LỈp víi số lần cha biết trớc câu lệnh While -Do

Để giải Bài toán ta dùng thuËt to¸n nh sau - B1: S:= 1/a; N:=0;

- B2: 1/(a+N) < 0.0001 chuyển đến B5; - B3: N:= N+1;

- B4: S:= S+ 1/(a+N) quay lại B2; - B5: Đa kết S hình kết thúc

T B2 đến B4 đc lặp lại nhiều lần điều kiện 1/(a+N) < 0.0001 cha đc thoả mãn

Pascal sử dụng câu lệnh lặp While – Do để tổ chức lặp với số lần cha biết trớc nh sau:

While <điều kiện> Do <câu lệnh P>; Trong :

- Điều kiện : BT quan hệ logic.

- Câu lệnh P : câu lÖnh Pascal

ý nghĩa : điều kiện cịn cị thực câu lệnh sau Do sau quay lại kiểm tra điều kiện

VD1: chơng trình toán 1. VD2: tìm UCLN số M N. Thuật toán :

- B1 : nÕu M= N th× UCLN:= M; KÕt thóc

- B2: NÕu M>N th× M:=M-N råi quay lại B1 , Ngợc lại N:= N-M quay lại B1

Sau Chơng trình tìm UCLN:

4 củng cố, dặn dò

- Nhắc lại Một số Khái niệm

- Nhắc lại cấu trúc câu lệnh For- To- Do, While Do thông qua ví dụ

5 tập nhà

Ra bµi tËp vỊ nhµ :

NhËp sè tù nhiªn N dïng lƯnh While – Do tÝnh S= xy

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 22 Bµi tËp vµ thùc hµnh 2

Ngµy Soạn 06 / 01/ 2012

Tuần dạy 21

I/ Mục Tiêu dạy :

1 V kiến thức:

- cñng cè kiÕn thøc cña cÊu tróc lỈp For – to – - Cđng cè kiến thức vòng lặp rẽ nhánh If Then

2 Về kỹ năng:

- Giúp học sinh nắm đợc kỹ để sử lý vòng lặp thủ thuật rẽ nhánh

3 Về Thái độ:

- biết cần thiết lệnh lặp trình giải bi toỏn iu kin II/ trọng tâm - Phơng pháp :

- Phương pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh,thực hành máy - Trọng Tâm :Bài tập.

IIi/ chn bÞ cđa giáo viên học sinh:

a) Giỏo viờn: Sỏch GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, v ghi,v bi

IV/ tiến trình dạy:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: Nêu cấu trúc chung lấy ví dụ vịng lặp While - do. 3 Néi dung bµi míi

Mét số tập cấu trúc lặp

I- For dạng (dạng tiến)

Bài 1: Bài toán tính tổng S= 12+22+32+ .102

Tht to¸n:

Bíc 1: Gán S:=0 {gán giá trị ban đầu cho S} Bớc 2: Gán S:=S+1*1; {đc S= 12 } Bớc 3: Gán S:=S+2*2; {đc S= 12+22 } Bớc 4: Gán S:=S+3*3; {đc S= 12+22+32 } v.v

Bớc 10: Gán S+10*10; {®c S= 12+22+32+ .102 }

Q trình từ B1 đến B10 đc gọi phép cộng dồn cào biến S Tại bớc thứ i lấy giá trị biến S cộng với i2 kết lại đc gán cho biến S biến S đc tăng thêm lợng = i2 i thay đổi từ đến 10 số

12 , 22 , 32 ,… , 102 đc cộng dồn vào biến S kết sau bớc thứ 10 kết S tổng

Vởy lệnh S:=S+i*i đc thực 10 lần ứng với i= 1,2,3…10 trình dc diễn đạt lệnh For nh sau: For i:=1 to 10 Do S:=S+i*i;

Tổng Quát : ta phải gán cho S giá trị ban đầu: S:=0;

For i:=1 To N Do S:= S+i*i; Chơng trình cụ thÓ :

Program vidu1; Var N,i : Integer; S: Longint; Begin

Write( nhap N = ); Readln(N);‘ ‘ S:=0;

For i:=1 to N S:=S+i*i; Writeln( S= ,S);‘

Readln; End.

Bài toán 2: Tính tích S = 10! Hay S= 1.2.3….10.

ThuËt to¸n:

Bớc 1: Gán S:=1; (gán giá trị ban đầu cho S) Bớc 2: Gán S:= S*1; (đc S = 1)

Bớc 3: Gán S:= S*2; (đc S= 1*2) Bớc 4: Gán S:= S*3; (đc S= 1*2*3)

Bớc 10: Gán S:= S*10; (đc S= 1*2*3**10 = 10!)

Tỉng Qu¸t :

S:=1;

For i:=1 To N Do S:= S*i;

Ch¬ng tr×nh thĨ:

Program vidu2; Var N,i : Integer;

S: Longint; (Chú ý : khai báo S kiểu Integer tính đc đến 7! Mà thơi) Begin

Write( nhap N = ); Readln(N);‘ ‘ S:=1;

For i:=1 to N S:=S*i; Writeln( S= ,S);‘ ’ Readln;

End.

4 Củng cố: Nhắc lại kiến thức trọng tâm thực

5 BTVN: Chuẩn bị kiến thức cho tập thực hành (tiết 2) tiếp tục học phịng máy

V, Tổ trưởng thơng qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 23 Bµi tËp vµ thùc hµnh 2

Ngày Soạn 14 / 01/ 2012

Tuần dạy 22

I/ Mục Tiêu dạy :

1 Về kiến thức:

- cñng cè kiÕn thøc cđa cÊu tróc lỈp For – to – - Củng cố kiến thức vòng lặp rẽ nhánh If – Then

2 Về kỹ năng:

- Giúp học sinh nắm đợc kỹ để sử lý vòng lặp thủ thuật rẽ nhánh

3 Về Thái độ:

- biết cần thiết lệnh lặp trình giải tốn điều kiện II/ träng t©m - Phơng pháp :

- Phng phỏp :Thuyt trình, hỏi đáp, đặt vấn đề, so sánh,thực hành máy - Trọng Tâm :Bài tập.

IIi/ chuẩn bị giáo viên học sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

IV/ tiÕn trình dạy:

1 n nh t chc: Nm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: Nêu cấu trúc chung lấy ví dụ vịng lặp While - do. 3 Néi dung bµi mới

Một số tập cấu trúc lặp Bài toán 3: Bài toán Luỹ thừa

Nhập số tự nhiên N số thực x tính S= xN Ta viÕt S= x*x*x*….*x N lÇn

Tơng tự nh tính N! ta gán S:=1, sau bớc lặp ta nhân dồn X vào S lệnh S:=S*x sau N bớc nh S đc nhân với x N lần Vởy lệnh cần dùng :

S:= 1;

For i:=1 TO N DO S:=S*x;

Bài tốn 4: Tạo bảng số dùng vịng For dạng 1(dạng tiến) để viết lên hình số từ 0-99 theo cách sau

0 10 11 12 13 14 15 16 17 18 19

……

90 91 92 93 94 95 96 97 98 99 Chóng ta cã quy lt cđa kiĨu viÕt : + số chiếm chỗ

+ chữ số hàng chục số hàng, chữ số hàng đơn vị số cột Chơng trình cụ thể:

Var hang, cot: byte; Begin

For hang:= To Do Begin

For cot:= To Do Write(hang*10 + cot:3); Writeln;

End; End.

Bài tốn 5: Tìm tất số có chữ số abc cho tổng lập ph ơng chữ số số đó:

Với cách viết ta phải hiểu a,b,c chữ số, lấy giá trị từ 0-9 với máy tính ta hoàn toàn cho máy quét hết khả số có chữ số thử

Chơng trình cụ thể: Var a,b,c : Integer; Begin

For a:=1 To Do For b:=0 To Do

IF a*a*a + b*b*b + c*c*c = 100*a + 10*b + c Then Writeln( a,b,c ,a,b,c);‘ ’

End.

4 Củng cố: Nhắc lại kiến thức trọng tâm thực

5 BTVN: Chuẩn bị kiến thức cho tập thực hành (tiết 3) tiếp tục học phịng máy

V, Tổ trưởng thơng qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 24 Bµi tËp vµ thùc hµnh 2

Ngày Soạn 14 / 01/ 2012

Tuần dạy 22

I/ Mục Tiêu dạy :

1 Về kiến thức:

- cñng cè kiÕn thøc cđa cÊu tróc lỈp For – to – - Củng cố kiến thức vòng lặp rẽ nhánh If – Then

2 Về kỹ năng:

- Giúp học sinh nắm đợc kỹ để sử lý vòng lặp thủ thuật rẽ nhánh

3 Về Thái độ:

- biết cần thiết lệnh lặp trình giải tốn điều kiện II/ träng t©m - Phơng pháp :

- Phng phỏp :Thuyt trình, hỏi đáp, đặt vấn đề, so sánh,thực hành máy - Trọng Tâm :Bài tập.

IIi/ chuẩn bị giáo viên học sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

IV/ tiÕn trình dạy:

1 n nh t chc: Nm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: Nêu cấu trúc chung lấy ví dụ vịng lặp While - do. 3 Néi dung bµi mới

Một số tập cấu trúc lặp II For dạng (dạng lùi)

Bài toán 6: Tính S = N! hay S= N*(N-1)*(N-2)*…*2*1

T¬ng tù víi vòng For dạng tiến ta thực nh sau: S:= 1;

For i:=N downto Do S:= S*i;

Bài tốn 7: T ơng tự : để tính S= xN ta dùng For dạng 2 S:=1;

For i:=N downto Do S:= S*x;

Bài toán 8: In chữ theo thứ tự ng ợc từ Z đến A thành dòng Z, Y, X,…, C, B, A

z, y, x,…, c, b, a Chơng trình cụ thể : Program in_chu_nguoc; Var

Ch: char; Begin

For ch:= Z downto A Write(ch:3);’ ’ ‘ ’ Writeln;

Writeln;

For ch:= z downto a Write(ch:3);‘ ’ ‘ ’ Readln;

End.

III- Vòng lặp While- Do

Chuyển đổi tất tập làm for – sang thành While-do

4 Củng cố: Nhắc lại kiến thức trọng tâm thực

5 BTVN: Chuẩn bị kiến thức cho kiểm tra 15 phút

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

KIỂM TRA 45 PHÚT SỐ 01 I, MỤC TIÊU

- tổng hợp lại kiến thức học lập trình

- Củng cố kỹ lập trình phân tích tốn, kỹ phát lỗi chương trình - Củng cố kỹ xử lý cấu trúc câu lệnh rẽ nhánh lặp

II, Ma trận đề

Lý thuyết Bài tập Hiểu Biết Câu 1,2,3

Vận dụng Câu Câu 4,5

Mã Đề 01

Câu 1: em tìm chỗ sai chương trình sau? Var I, N : Interger ;

B : Byte Begin

N = , B : = ; I : = B + N; Writeln ( I ) End

Câu : Em phân tích điểm giống khác thủ tục Read Readln

Câu 3: em cho biết cấu trúc chung câu lệnh IF – THEN dạng thiếu? Lấy ví dụ minh họa? Câu 4: Viết chương trình tính giá trị biểu thức S= x3 – 4x2 + 3x – cho biết x số ngun nhập từ bàn phím

Câu 5:Viết chương trình tìm số lớn ba số thực nhập vào từ bàn phím

Mã Đề 02

Câu 1: Em tìm chỗ sai chương trình sau: Var A ; B : real ;

S : Real Begin

A : = , B : = ; S = A + B ; Writeln ( S ) ; End

Câu : Em phân tích điểm giống khác thủ tục Write Writeln

Câu 3: em cho biết cấu trúc chung câu lệnh IF – THEN dạng đủ? Lấy ví dụ minh họa? Câu 4: Viết chương trình để đổi kích thước a tính inch cm biết

1 inch = 2,54cm

Câu 5: Viết chương trình nhập vào từ bàn phím ba số đo ba cạnh tam giác, tính in hình diện tích tam giác

Mã Đề 0

Câu 1: Em tìm chỗ sai chương trình sau : Var : A , B : real ;

S : Real ; Begin

A : = , B : = ; S : = A + B

Writeln ( S : : 1) ; End ;

Câu : Em phân tích điểm giống khác dạng rẽ nhánh dạng đủ rẽ nhánh dạng thiếu

Câu 3: em cho biết cấu trúc chung câu lệnh IF – THEN dạng lệnh ghép ? Lấy ví dụ minh họa?

Mã Đề 0

Câu 1: Em tìm chỗ sai chương trình sau : Var A ; B , S : real ;

Bigen

Writeln ( ‘ Nhập a, b = ’ ) ; readln ( 3, 4) ; S = A + B ;

Writeln ( ‘S ’ , S) ; End

Câu : Em phân tích điểm giống khác tên dành riêng tên người dùng tự đặt Câu 3: em cho biết nguyên tắc hoạt động IF – THEN dạng đủ ? Lấy ví dụ minh họa ? Câu 4: Nhập số thực x,y, tính in hình biểu thức:

ln(sin2x+cos2y)

earctg(x+y)

Yêu cầu kết viết với độ rộng cột, có chữ số phần thập phân

Câu 5: Dân số khoảng 75 triệu, tỉ lệ tăng tự nhiên 1.7% Hỏi sau năm dân số đạt xấp xỉ 100 triệu?

Mã Đề 0

Câu 1: Em tìm chỗ sai chương trình sau : Var A ; B : real ;

S : Real ; Bigin

Witeln ( ‘ Nhập a, b = ’) ; readln ( A, B) ; S : = A + B ;

Writeln ( ‘S= ’ S ) ; End

Câu : Em phân tích điểm giống khác thông dịch biên dịch

Câu 3: em cho biết nguyên tắc hoạt động IF – THEN dạng thiếu ? Lấy ví dụ minh họa ? Câu 4: Viết chương trình tính qng đường S vật chuyển động nhanh dần cho máy biết vận tốc ban đầu V0, gia tốc a thời gian t

Câu 5: cho số a,b,c nguyên dương nhập từ bàn phím Em kiểm tra xem cạnh có thỏa mãn cạnh tam giác vng hay khơng thỏa mãn tính diện tích tam giác III, Nhận xét , đánh giá

BÀI THỰC HÀNH SỐ 2

I MỤC TIÊU 1 Kiến thức

- Nắm cấu trúc sơ đồ thực cấu trúc rẽ nhánh 2 Kĩ năng

- Rèn luyện kĩ sử dụng cấu trúc rẽ nhánh việc lập trình giải số tốn cụ thể - Làm quen với công cụ phục vụ hiệu chỉnh chương trình

3 Thái độ

- Tự giác, tích cực chủ động thực hành II ĐỒ DÙNG DẠY HỌC

1 Chuẩn bị giáo viên

- Phịng máy vi tính, máy chiếu projector để hướng dẫn 2 Chuẩn bị học sinh

- Sách giáo khoa, sách tập tập viết nhà III HOẠT ĐỘNG DẠY-HỌC

1 Hoạt động 1: Làm quen với chương trình cơng cụ hiệu chỉnh chương trình.

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH

1 Gợi ý để học sinh nêu khái niệm số Pitago

- Yêu cầu: Lấy ví dụ cụ thể

- Hỏi: Để kiểm tra ba số a,b,c có phải Pitago, ta phải kiểm tra đẳng thức nào? Chiếu chương trình mẫu lên bảng Thực mẫu thao tác: lưu, thực lệnh chương trình, xem kết trung gian, thực chương trình nhập liệu

- Yêu cầu học sinh gõ chương trình mẫu vào máy - Yêu cầu học sinh lưu chương trình lên đĩa với tên Pytago.pas

- Yêu cầu học sinh thực lệnh chương trình

- Yêu cầu học sinh xem kết a2, b2, c2 - Yêu cầu học sinh tự tìm thêm số a b c khác so sánh

1 Theo dõi dẫn dắt học sinh để nêu khái niệm số pitago: tổng bình phương hai số bình phương số cịn lại

Ví dụ số Pitago: a2 = b2 + c2

b2 = a2 + c2 c2 = b2 + a2

2 Soạn chương trình vào máy theo yêu cầu giáo viên

- Bấm F2, gõ tên file enter

- Bấm F7 Nhập giá trị a=3, b=4, c=5 - Chọn menu Debug để mở cửa sổ hiệu chỉnh - Quan sát trình rẽ nhánh liệu vào trả lời

2 Hoạt động 2: Rèn luyện kĩ lập trình hồn thiện tốn.

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH

1 Nêu nội dung, mục đích, yêu cầu toán - Hỏi: Bước để giải toán?

- Hỏi: Để xác định ta phải đặt câu hỏi nào? Gọi học sinh đặt câu hỏi gọi học sinh trả lời cho câu hỏi đó?

1 Chú ý theo dõi vấn đề đặt giáo viên - Xác định input, output thuật giải

- Mục đích giải phương trình? + Kết luận số nghệm giá trị nghiệm x -Để tính nghiệm x cần đại lượng nào?

- Yêu cầu học sinh phác họa thuật toán Yêu cầu học sinh gõ chương trình vào máy - Giáo viên tiếp cận học sinh để hướng dẫn sửa sai

3 Yêu cầu học sinh nhập liệu - Nhập liệu với test -2

4 Yêu cầu học sinh xác định testcasse, nhập liệu, đối sánh kết

- Có bước xử lý để tính x? Độc lập soạn chương trình vào máy - Thơng báo kết viết

3 Nhập liệu theo test giáo viên thơng báo kết chương trình

4 Tìm testcase 0 VSN VN -1.5

Nhập liệu thông báo kết IV ĐÁNH GIÁ CUỐI BÀI

1 Những nội dung học

Các bước để hoàn thành chương trình:

- Phân tích tốn để xác định liệu vào, liệu ra, thuật toán - Soạn chương trình vào máy

- Lưu trữ chương trình - Biên dich

- Thực hiệu chỉnh chương trình 2 Câu hỏi tập nhà

- Viết chương trình nhập vào độ dài ba cạnh tam giác tính chu vi, diện tích tam giác

TiÕt theo PPCT Tiết 25 Bài 11: kiểu mảng

Ngày Soạn 28 / 01/ 2012

Tuần dạy 23

I/ Mục Tiêu dạy :

1 V kin thức:

- Hiểu cách khai báo truy cập đến phần tử mảng

2 Về kỹ năng:

- Cài đặt đợc thuật toán số toán đơn giản với kiểu liệu mảng chiều - Thực đợc khai báo mảng, truy cập tính tốn phần tử mảng

3 Về Thái độ:

- biết cần thiết kiểu liệu mảng q trình giải tốn dãy số II/ trọng tâm - Phơng pháp :

- Phng pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh,thực hành máy - Trọng Tâm :Mục 1.

IIi/ chuẩn bị giáo viên học sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

IV/ tiến trình dạy:

1 n nh t chức: Nắm sơ tình hình lớp: điểm danh 2 Kiểm tra cũ: Khơng

3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: trớc vào GV đa số vấn đề cần giải nh sau:

Với kiểu liệu nh biết làm để: Lu trữ sử lý dãy số?

Lu trữ xử lý họ tên ngời ? Lu trữ xử lý bảng kết thi tốt nghiệp? HS: đa phơng án để trả lời cho câu hỏi

GV: NNLT thờng cung cấp số kiểu dữ liệu đợc xây dựng từ kiểu liệu chuẩn gọi kiểu liệu có cấu trúc

GV: ®a ví dụ , cần lập trình xử lý dÃy số nguyên, hÃy tìm cách lu trữ dÃy số nguyên lập trình?

Bng cỏch no để lu trữ thông tin dới dạng bảng lập trình?

HS: ®a ý kiÕn

GV: đánh giá ý kiến học sinh sau đa ra mục đích việc sử dụng cấu trúc mảng chng trỡnh

GV : đa khái niệm mảng chiều số yếu tố liên quan lËp tr×nh nãi chung

GV: sâu phân tích hai chơng trình để học sinh nhận thấy tiện lợi sử dụng mảng

HS: Trong GV phân tích chơng trình, HS sẽ đa ý kiến nhận xét chơng trình

GV: Đa cách khai báo mảng chiều NN pascal, giải thích ý nghĩa từ khố GV: khai báo cách tiện lợi hơn? HS: thờng HS trả lời cách tiện lợi hơn. GV: tuỳ trờng hợp cụ thể mà ta dùng cách hay cách nhng thông thờng ta sử dụng cách GV: Sử dụng hình vẽ sau để minh hoạ cho HS cấu trúc mảng số phần tử

ChØ

sè

Giá

trị 53 81 62 18 26 41 24 53

Sử dụng ví dụ SGK để HS tiện theo dõi

Trong lập trình thờng có loại mảng: - mảng chiỊu

- M¶ng chiỊu 1 kiĨu m¶ng mét chiÒu.

- Mảng chiều dãy hữu hạn phần tử có kiểu, mảng đợc đặt tên phần tử mang số để mô tả mảng chiều ta cần xác định kiểu phần tử cách đánh số phần tử Với mảng chiều ta cần quan tõm n :

- Tên mảng chiều

- Số lợng phần tử mảng - Kiểu sữ liệu phần tử

- Cách khai báo biến m¶ng chiỊu

- Cách truy cập vào phần tử mảng Xét ví dụ: Nhiệt độ trung bình SGK tr 53

Quan sát hai chơng trình viết NN Pascal để giải toán

- Chơng trình 1: không sử dụng kiểu mảng - Chơng trình 2: sử dụng kiểu mảng chiều

a) khai báo mảng chiều.

- Trong NN Pascal, mảng chiều đợc khai báo cách nh sau:

C¸ch 1:

Var <tên mảng>: Array[kiểu số] of <kiểu phần tử>;

Cách 2:

Type<tên kiểu mảng>= Array[kiểu số] of <kiểu phần tử>;

Var <tên mảng>: <tên kiểu mảng>;

Trong đó:

- Type từ khố dùng để khai báo biến - Array từ khoá để khai báo mảng

- Kiểu số : thờng đoạn số nguyên liên tục có n1…n2, với n1 số đầu n2 số cuối - Kiểu thành phần kiểu liệu phần tử mảng - để truy cập vào phần tử mng ta vit :

<tên kiểu mảng>[chỉ số]

VÝ dơ : A[15] truy cËp phÇn tư mang chØ sè 15 m¶ng A

VÝ dơ:

Đa số khai báo mảng Pascal Type

ArrayInteger = Array[1 100] Of Integer; ArrayReal = Array[1 50] Of Real; Var A: ArrayInteger;

B: ArrayReal; Khai báo mảng trực tiếp:

Var A: Array[1 100] Of Integer; B: Array[1 50] Of Real; VÝ dơ: Cho khai b¸o sau:

Var

A: Array[0 10] of Real;

Hten: Array[1 5] of String[18]; B: Array[‘a’ ‘d'] of Integer; Theo khai báo ta có mảng :

- Mng thứ tên A, gồm 11 phần tử kiểu Real, với số 0, 1, 2, ,10 là:

A[0], A[1], A[2], A[10] - M¶ng thø tên Hten gồm phần tử

cựng kiểu liệu String[18] ứng với số từ đến 5:

Hten[1], Hten[2], Hten[3], Hten[4], Hten[5] - Mảng thứ tên B, gồm phần tư

cïng kiĨu Integer øng víi c¸c chØ sè: ‘a’, ‘b’, ‘c’, ‘d’

Ví dụ: mảng Hten A,B ta có thể khai báo theo cách nh sau:

Type

Mang1 = Array[0 10] of Real; Mang2 = Array[1 5] of String[18]; Mang3 = Array[‘a’ ‘d’] of Integer; Var

A: Mang1; Hten: Mang2; B: Mang3; VÝ dơ cã thĨ g¸n : A[0]:= 15.8; A[1]:= 2*A[0];

Hten[3]:= ‘Nguyen thi loan’; B[‘a’]:= 100;

Ví dụ: cho i biểu biến nguyên , ta có thể dùng lệnh:

i:=6;

A[i] := 100.25;

Hai lệnh tơng đơng với lệnh: A[6]:= 100.25;

VÝ dụ: Nhập liệu cho phần tử mảng A:

For i:=0 to 10 do Begin

Write(‘nhap phan tu thu ’,i, ‘ : ’); Readln(A[i]);

End;

Chú ý: Trong Turbo Pascal cho phép gán mảng cho mảng khác

Nếu X,Y biến mảng kiểu mảng lệnh:

X:=Y ;

Có nghĩa lấy giá trị phần tử mảng Y gán cho phần tử tơng ứng mảng X Ví dụ cho khai báo:

Var

X, Y: Array[1 10] of Real; Khi lệnh:

X:=Y;

C¸ch 1: Khai báo trực cách sau: Var

Tên mảng : Array[m1 m2] of Tên kiểu liệu;

ở m1,m2 xác định phạm vi số, chúng có chung kiểu liệu, m1  m2

C¸ch : Khai báo qua kiểu liệu mới, Gồm bíc:

B

ớc 1: định nghĩa kiểu d liu mng : Type

Tênkiểumảng = Array[m1 m2] of tênkiểudữliệu; B

ớc 2: khai báo biến có kiểu liệu mảng: Var

Tênmảng : Tênkiểumảng;

Truy Xut cỏc phn t mng: Các xử lý mảng đợc quy xử lý phần tử mảng để xác định phần tử ca mng, ta dựng cỏch vit:

Tên mảng[chỉ số phÇn tư]

ChØ sè cđa phÇn tư cã thĨ lµ biÕn, mét h»ng, hay biĨu thøc

Khi nhập liệu cho phần tử mảng, ta dùng câu lệnh For, While

Để in phần tử mảng A hình ta viết: For i:=0 to 10 Write(A[i] : 6:2); Các giá trị mảng A đợc in liên tiếp dòng Còn muốn in phần tử dịng ta dùng lệnh Writeln

Max:= A[1]; For i:=2 to n

Tơng đơng với lệnh:

For i:=1 to 10 X[i] := Y[i];

4. Củng c:

- Nhắc lại Một số Khái niệm

- Nhắc lại cấu trúc câu lệnh cách chia bảng thành phần đồng thời gọi học sinh lên bảng viết lại cách khai báo, truy xuất hiển thị để nhập liệu

5 BTVN: Các tập SGK

V, T trng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

Tiết theo PPCT Tiết 26 Bài 11: kiểu mảng

Ngày Soạn 28 / 01/ 2012

Tuần dạy 23

I/ Mục Tiêu dạy :

1 V kin thc:

- Hiểu khái niệm mảng chiều mảng hai chiều

- Hiu cỏch khai báo truy cập đến phần tử mảng

2 Về kỹ năng:

- Cài đặt đợc thuật toán số toán đơn giản với kiểu liệu mảng chiều - Thực đợc khai báo mảng, truy cập tính tốn phần tử mảng

3 Về Thái độ:

- biết cần thiết kiểu liệu mảng q trình giải tốn dãy s II/ trọng tâm - Phơng pháp :

- Phương pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh,thực hành máy - Trọng Tâm :Mc 2.

IIi/ chuẩn bị giáo viên häc sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở

IV/ tiến trình dạy:

1 n định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: em viết cấu trúc chung khai báo mảng chiều lấy VD 3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: ®a vÝ dơ.

HS: Xây dựng thuật toán để giải toán (ó hc lp 10)

GV: giảng vÝ dơ cho häc sinh hiĨu vµ vËn dơng

GV: đa ví dụ nhắc lại ý tởng thuật toán HS: Xây dựng thuật toán để gin bi toỏn

GV: soạn chơng trình cho HS quan sát chơng trình

GV: a ví dụ nhắc lại ý tởng thuật tốn HS: Xây dựng thuật toán để giản toán

GV: soạn chơng trình cho HS quan sát chơng trình

b) Một số ví dụ.

Ví dụ 1: Tìm MAX SGK tr 56 Chơng tr×nh nh sau:

Program timmax;

Var a: array[1 250] of integer; n, i, max, csmax : Integer; Begin

SGK 56-57 End

Ví Dụ 2: Sắp xếp dãy số nguyên thuật toán tráo đổi. SGK trang 57 – 58

Thùc hiÖn gièng nh ví dụ

Một số toán ví dụ mảng chiều.

Bài toán 1: T×m GTLN cđa d·y sè A1, A2, An.

- Trớc tiên nhắc lại cho HS thuật toán lớp 10 tìm GTLN dãy số - Quá trình tìm max đợc mơ tả

lƯnh:

Bài toán 2: Bài toán xếp mảng tăng dần hay giảm dần.

Thut toỏn xp xp dãy A tăng đợc viết nh sau: For i:=1 to N do

Begin

Write(‘ phan tu thu ’, i , ‘ = ’); Readln(A[i]);

End;

For j:=N downto do For i:=1 to j -1 do If A[i] > A[i+1] then

Begin {Trao doi A[i] va A[i+1]} T:=A[i];

Writeln(‘day so duoc sap xep la: ’); For i:=1 to N Write(A[i]:4); Readln;

End.

4.Cng c:

- Nhắc lại Mét sè Kh¸i niƯm míi

- Nhắc lại cấu trúc câu lệnh cách chia bảng thành phần đồng thời gọi học sinh lên bảng viết lại cách khai báo, truy xuất hiển thị nhp d liu

5 BTVN: Các tập SGK

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 27 Bµi tËp vµ thùc hµnh 3

Ngµy Soạn 04 / 02/ 2012

Tuần dạy 24

I/ Mục Tiêu dạy :

1 V kiến thức:

- nắm bắt đợc rõ kỹ thuật khai báo thao tác mảng chiều chiều - Phân tích đợc toán đa đợc thuật toán tối u

2 Về kỹ năng:

- Sö dụng cấu trúc câu lệnh hợp lý, viết chơng trình chuÈn

3 Về Thái độ:

- biết cần thiết kiểu liệu mảng q trình giải tốn dãy số II/ träng tâm - Phơng pháp :

- Phng phỏp :Làm tập lớp

Cho hs thực hành máy, rõ cách thao tác mảng nói rõ cấu trúc thao tác , cách thực mảng chiều

- Trọng Tâm :Bài tập.

IIi/ chuÈn bÞ giáo viên học sinh:

a) Giỏo viờn: Sách GK tin 12, Sách GV tin 12, phòng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, v ghi,v bi

IV/ tiến trình d¹y:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: em viết cấu trúc chung nhập in mảng chiều lấy VD 3 Néi dung bµi míi

1- Hoạt động 1:

Bµi tËp sè 1: Tìm giá trị lớn (GTNN) mảng chiều A Giả sử mảng A có m hàng n cét (m,n <50).

Hoạt động GV HS Ni dung

GV: yêu cầu HS làm vòng lên bảng thực

HS: lên bang làm thực làm máy

GV: Yêu cầu HS cho biết để chuyển tốn từ TT tìm Max sang thành tìm Min thỡ sa ch no?

HS : phát biểu söa

HS: söa If max < A[i, j] Then max:= A[i, j];

Sưa thµnh If > A[i, j] Then min:= A[i, j];

Var i, j, m, n , max : integer; A: Array[1 50, 50] of Integer; Begin

Write( Nhap m,n = ); Readln(m,n);‘ ’ For i:= to m do

For i:= to n do Begin

Write( nhap phan tu hang , i , cot , j , la: );‘ ’ ’ ’ ‘ ‘ Readln(A[i, j]);

End; Max := A[1, 1

For i:= to m {Thuật toán tìm max} For i:= to n do

If max < A[i, j] Then max:= A[i, j]; For i:=1 to m {In m¶ng chiỊu A} Begin

For i:=1 to n Write(A[i, j]); Writeln;

End;

Writeln( GTLN Max= , max); {in giá trị max mảng A}

Readln; End. 2 – Hoạt động 2: tập 2:

đếm số lần xuất số k dãy A cho trớc có số lợng phần tử <250 GV: yêu cầu HS phát biểu xác định toán

HS: đứng chỗ phát biểu

GV: YC HS đa thuật toán cách để thực tốn

HS: ph¸t biĨu ý kiÕn

Var i, Dem, N , k : integer; A: Array[1 250] of Integer; Begin

GV: nhận xét định hớng cho HS YC HS thực toán máy phút HS: tiến hành tập trung làm

GV: tiến hành giải đáp thắc mắc hớng dẫn cụ thể cho HS:

GV: Yêu cầu HS cho biết để chuyển tốn từ TT tìm có số = k xuất mảng A sang thành tìm xem có số có giá trị < > k sửa chỗ nào?

HS : ph¸t biĨu vµ sưa HS: sưa

Begin

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

End;

Write( Nhap k = ); Readln(k); ‘ ’

Dem := 0; {g¸n gi¸ trị Dem ban đầu } For i:= to N {Thuật toán tìm max}

If k= A[ij] Then Dem:= Dem + 1; For i:=1 to N {In m¶ng A} Write(A[ i ]);

Writeln( cã , Dem , Sè k XuÊt hiÖn m¶ng ‘ ’ ‘ A );’

Readln; End.

If k= A[ij] Then Dem:= Dem + 1;

Nhỏ Sửa thành If k> A[ij] Then Dem:= Dem + 1;

Lớn Sửa thành If k< A[ij] Then Dem:= Dem + 1;

515

1515151515151515151515151515151515151515151515151515151515151515151515 1515151515151515151515151515151515151515151515151515151515151515151515 151515151515151515151515151515151515151

4,Cñng cè

- Nhắc lại vấn đề trọng tâm mà thực hành hôm thực đợc

- Chỉ rõ cấu trúc, phân tích đề xuất thuật tốn kiểu liệu có cấu trúc để giản tốn mảng

5, Ra bµi tËp

YCHS nhà thực làm lại tập làm sau KT lại cũ

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 28 Bµi tËp vµ thùc hµnh 3

Ngày Soạn 04 / 02/ 2012

Tuần dạy 24

I/ Mục Tiêu dạy :

1 Về kiến thức:

- nắm bắt đợc rõ kỹ thuật khai báo thao tác mảng chiều chiều - Phân tích đợc toán đa đợc thuật toán tối u

2 Về kỹ năng: Sư dơng cấu trúc câu lệnh hợp lý, viết chơng trình chuẩn

3 Về Thái độ: biết cần thiết kiểu liệu mảng trình giải tốn dãy số

II/ träng t©m - Phơng pháp :

- Phng phỏp :Làm tập lớp ,Cho hs thực hành máy, rõ cách thao tác mảng nói rõ cấu trúc thao tác , cách thực mảng chiều

- Trng Tõm :Bi tp.

IIi/ chuẩn bị giáo viên vµ häc sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở bi

IV/ tiến trình dạy:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: a, Viết cấu trúc khai báo mảng chiều? Cách tham chiếu tới phần tử mảng Cho ví dụ?

3 Néi dung bµi míi

- Theo dõi q trình thực hành học sinh

- Hướng dẫn cách viết chương trình, sau u cầu học sinh thực hành

- Quan sát theo dõi hs thực hành sửa lỗi cho hs

H: Myarray tên kiểu liệu hay tên biến?

H: Những dòng lệnh nhằm tạo mảng A?

- Gõ chương trình tập thực

hành lên máy.

- Bài 1a:

Program SUM1; uses Crt;

Const Nmax= 100; Var i,s,N,k: integer;

Type MyArray = Array [1 Nmax] of integer; Var A: MyArray;

Begin

clrscr; Randomize;

Write('Nhap so phan tu cua day N= '); Readln (N);

For i:= To N do

A[i]:= random(300) - random(300); For i:= To N write(A[i]:5); Writeln;

Write('Nhap k= '); Readln (k);

S:=0;

For i:= To N do

if A[i] mod k =0 then s:= s+ a[i]; Write ('Tong can tinh =',S); Readln

End.

Lệnh gán A[i]:= random(300) -random(300); có ý nghĩa gi?

- Câu lệnh FOR – DO cuối thực nhiệm vụ nhiệm vụ đặt cho chương trình? Giải thích?

- Câu lệnh S:= S + A[i]; thực lần?

B, Cho biết ý nghĩa biến posi, neg? Giải thích em biết?

- Nhắc học sinh lưu chương trình chạy hồn chỉnh câu a, sau chỉnh sửa theo câu b ghi lai với lệnh Save as tệp

- Yêu cầu hs gõ tiếp chương trình 2, sửa lỗi theo dõi kết

Theo dõi uốn nắn học sinh hình thức viết chương trình cho thể tính cấu trúc

- Đưa thắc mắc, câu hỏi chưa hiểu

- Bài 1b:

Program SUM1; uses Crt;

Const Nmax= 100;

Var i,s,N,k,posi,neg: integer;

Type MyArray = Array [1 Nmax] of integer; Var A: MyArray;

Begin

clrscr; Randomize;

Write('Nhap so phan tu cua day N= '); Readln (N);

For i:= To N do

A[i]:= random(300) - random(300); For i:= To N write(A[i]:5); Writeln;

Write('Nhap k= '); Readln (k);

S:=0;posi:=0; neg:=0; For i:= To N do begin

if A[i] mod k =0 then s:= s+ a[i]; if A[i]>0 then posi:=posi+1 else if A[i]<0 then neg:= neg+1; end;

Writeln ('Tong can tinh =',S);

Write ('So cac phan tu duong, am mang =',posi:4,neg:4);

Readln End.

- Thực sửa lỗi, chạy chương trình trao đổi kết nhóm

- Thực sửa đổi chương trình theo yêu cầu sgk để kết mong muốn 535

3535353535353535353535353535353535353535353535353535353535353535353535 3535353535353535353535353535353535353535353535353535353535353535353535 353535353535353535353535353535353535353

4,Cñng cè - Nhắc số lỗi thường gặp lập trình: Thiếu dấu ;, câu lệnh ghép,…

5, Ra bµi tËp Yêu cầu hs xem trước nội dung thực hành

-Làm tập SGK SBT

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 29 Bµi tËp vµ thùc hµnh 4

Ngày Soạn 10 / 02/ 2012

Tuần dạy 25

I/ Mục Tiêu dạy :

1 Về kiến thức:

- nắm bắt đợc rõ kỹ thuật khai báo thao tác mảng chiều chiều - Phân tích đợc tốn đa đợc thuật tốn tối u

2 Về kỹ năng: Sư dụng cấu trúc câu lệnh hợp lý, viết chơng trình chuÈn

3 Về Thái độ: biết cần thiết kiểu liệu mảng trình giải tốn dãy số

II/ träng t©m - Phơng pháp :

- Phng phỏp :Làm tập lớp ,Cho hs thực hành máy, rõ cách thao tác mảng nói rõ cấu trúc thao tác , cách thực mảng chiều

- Trng Tõm :Bi tp.

IIi/ chuẩn bị giáo viên học sinh:

a) Giỏo viờn: Sỏch GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,v bi

IV/ tiến trình dạy:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: a, Viết cấu trúc nhập mảng chiều, in mảng chiều Cho ví dụ? 3 Néi dung bµi míi

Hoạt động 1:

Bài tập số 1: Viết chơng trình đọc từ bàn phím dãy số A gồm N số thực đếm xem có số >0 (<0), tính tổng chúng đa hình kết .

Hoạt động GV HS Ni dung

GV: yêu cầu HS làm vòng lên bảng thực

HS: lên bang làm thực làm máy

GV: Yêu cầu HS cho biết để chuyển toán từ TT đếm xem có số >0 sang thành tìm xem có số <0 tính tổng chúng sửa chỗ nào? HS : phát biểu sửa

HS: söa If A[i] > Then Sưa thµnh If A[i] < Then

Var i, n ,®em : integer; S: Real; A: Array[1 50] of Real;

Begin

Write( Nhap N = ); Readln(N); {nhập N mảng A}

For i:= to N do Begin

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

End;

S:= 0;dem:=0; {gán giá trị tổng S tạm thời đếm tạm thời là= }

For i:= to N {Thuật tốn tính S đếm} Begin

If A[i] > Then Begin

Dem:=dem+1; S:=S+A[i]; End; End;

For i:=1 to N {In m¶ng chiỊu A} Write(A[i]:5:2);

Writeln;

Writeln( Có ,dem, số >0 ); {in giá trị đếm }‘ ’ ‘ ’ Writeln( Tổng S = , S:5:2); {in giá trị S }‘ ’ Readln;

End. Hoạt động 2: tập 2:

Viết chơng trình nhập vào mảng chiều A in mảng hình, xem mảng A có số chẵn in hình kết với N<250

GV: yêu cầu HS phát biểu xác định toán

HS: đứng chỗ phát biểu

GV: YC HS đa thuật toán cách để thực tốn

HS: ph¸t biĨu ý kiÕn

GV: nhận xét định hớng cho HS YC HS thực toán máy phút

HS: tiÕn hµnh tËp trung lµm bµi

GV: tiến hành giải đáp thắc mắc h-ớng dẫn cụ thể cho HS:

GV: Yêu cầu HS cho biết để chuyển tốn từ TT tìm có số chẵn xuất mảng A sang thành tìm xem có số lẻ mảng A sửa chỗ nào?

HS : ph¸t biĨu vµ sưa

HS: sưa If (A[i] mod 2=0) Then Dem:= Dem + 1;

Sưa thµnh If (A[i] mod <> 0) Then Dem:= Dem + 1;

Write( Nhap N = ); Readln(N); {nhËp sè l‘ ’ -ợng pt mảng A}

For i:= to N do Begin

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

End;

Dem := 0; {gán giá trị Dem ban đầu }

For i:= to N {Thuật toán đếm SL số chẵn} If (A[i] mod 2=0) Then Dem:= Dem + 1; For i:=1 to N {In mảng A}

Write(A[ i ]);

Writeln( cã , Dem , Số chẵn mảng A ); Readln;

End.

4 củng cố, dặn dò

- Nhắc lại vấn đề trọng tâm mà thực hành hôm thực đợc

- Chỉ rõ cấu trúc, phân tích đề xuất thuật tốn kiểu liệu có cấu trúc để giản tốn mảng

5 bµi tËp vỊ nhµ

555

5555555555555555555555555555555555555555555555555555555555555555555555 5555555555555555555555555555555555555555555555555555555555555555555555 555555555555555555555555555555555555555

YCHS nhà thực làm lại tập làm sau KT lại cũ

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 30 Bµi tËp vµ thùc hµnh 4

Ngày Soạn 10 / 02/ 2012

Tuần dạy 25

I/ Mục Tiêu dạy :

1 Về kiến thức:

Củng cố cho học sinh hiểu biết kiểu liệu mảng;

2 Về kỹ năng: Biết nhận xét, phân tích, đề xuất thuật tốn giải tốn cho chương trình chạy nhanh hơn;

Làm quen với liệu có cấu trúc toán xếp

Biết giải số tốn tính tốn, tìm kiếm đơn giản máy tính

3 Về Thái độ: Rèn luyện khả hợp tác với thông qua hoạt động nhóm Chăm thực hành

II/ träng t©m - Phơng pháp :

- Phng phỏp :Làm tập lớp ,Cho hs thực hành máy, rõ cách thao tác mảng nói rõ cấu trúc thao tác , cách thực mảng chiều

- Trng Tõm :Bi tp.

IIi/ chuẩn bị giáo viên vµ häc sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở bi

IV/ tiến trình dạy:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: a, Viết cấu trúc nhập mảng chiều, in mảng chiều Cho ví dụ? 3 Néi dung bµi míi

Hoạt động GV HS Nội dung

I Theo dõi trình thực hành học sinh

- Quan sát theo dõi hs thực hành sửa lỗi cho hs

Nhắc học sinh lưu chương trình chạy hồn chỉnh câu a, sau chỉnh sửa theo câu b ghi lai với lệnh Save as tệp

Theo dõi uốn nắn học sinh hình thức viết chương trình cho thể tính cấu trúc

- Yêu cầu hs gõ tiếp chương trình 2, sửa lỗi theo dõi kết

- Gõ chương trình tập thực hành lên máy.

- Thực hành trả lời theo yêu cầu GV - Đưa thắc mắc, câu hỏi chưa hiểu Bài 2: Đọc tìm hiểu phân tích để viết chương trình giải tốn: Cho mảng A gồm n phần tử Hãy viết chương trình tạo mảng B[1 n] , đó B[i] tổng i phần tử A.

Bài 2a:

Program Subsum1; uses Crt;

Const Nmax= 100; Var i,j,N,t: integer;

Type MyArray = Array [1 Nmax] of integer; Var A,B: MyArray;

Begin

clrscr; Randomize;

Write('Nhap so phan tu cua day N= '); Readln (N);

For i:= To N do

A[i]:= random(300) - random(300); For i:= To N write(A[i]:5); Writeln;

For i:=1 to n do begin

Theo dõi uốn nắn học sinh hình thức viết chương trình cho thể tính cấu trúc

- Phân tích toán để đưa ưu nhược điểm cách viết để từ rút nhận xét: Chương trình viết cách thứ tiết kiệm lượng tính tốn đáng kể

Chú ý: Tuy tốc độ tính tốn máy tính nhanh có giới hạn Do đó, trong viết chương trình, ta nên tìm cách viết cho chương trình thực hiện phép tốn tốt

For j:=1 to i B[i]:= B[i]+ A[j]; end;

For i:= to n do Write (B[i]:6); readln

end.

-Thực sửa lỗi, chạy chương trình trao đổi kết nhóm

Bài 2a:

Program Subsum1; uses Crt;

Const Nmax= 100; Var i,j,N,t: integer;

Type MyArray = Array [1 Nmax] of integer; Var A,B: MyArray;

Begin

clrscr; Randomize;

Write('Nhap so phan tu cua day N= '); Readln (N);

For i:= To N do

A[i]:= random(300) - random(300); For i:= To N write(A[i]:5); Writeln;

B[1] := A[1];

For i:= to N B[i]:= B[i-1] + B[i]; For i:= to n do

Write (B[i]:6); readln

end.

- Cách viết câu 2b tốt tiết kiệm thời gian tính tốn

4 Củng cố

- Nhắc số lỗi thường gặp lập trình: Thiếu dấu ;, câu lệnh ghép,…

5 BTVN

- Yêu cầu hs xem trước nội dung 12 - Kiểu Xâu - Làm tập SGK SBT

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 31 Bµi 12: kiĨu xâu (1)

Ngày Soạn 17 / 02/ 2012

Tuần dạy 26

I/ Mục Tiêu dạy :

1 Về kiến thức:

-biết xâu dãy ký tự(có thể coi xâu mảng chiều) -Biết cách khai báo xâu, truy cập phần tử xâu

2 Về kỹ năng: - Xử dụng số thủ tục, hàm thông dụng xâu. - Cài đặt số chương trình đơn giản có sử dụng xâu 3 Về Thái độ: Biết cách khai báo xâu, truy cập phần tử xâu

- Xử dụng số thủ tục, hàm thụng dng v xõu II/ trọng tâm - Phơng pháp :

- Phng phỏp :Làm tập lớp ,Cho hs thực hành máy, rõ cách thao tác mảng nói rõ cấu trúc thao tác , cách thực mảng vµ chiỊu

- Trọng Tâm :2.

IIi/ chuẩn bị giáo viên học sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

IV/ tiến trình dạy:

1 n nh t chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: a, Khai báo xâu, nêu thao tác xử lý xâu Cho ví dụ? 3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: để lu trữ xử lý họ tên ngời Các kiểu liệu học có đáp ứng đợc khơng? HS: đa số phơng án

GV: phân tích phơng án học sinh từ đa yêu cầu cần sử dụng kiểu mới: kiểu xâu GV: giới thiệu khái niệm thao tác thờng dùng làm việc với xâu lập trình nói chung

GV: cách khai báo ngôn ngữ Pascal, ngơn ngữ khác có cách khai báo khác Do viết chơng trình NNLT cần tìm hiểu rõ ngơn ng ú

Độ dài tối đa xâu ký tự phụ thuộc vào NNLT, thờng 255 ký tự

Cách viết xâu ngôn ngữ khác khác

GV: Xét ví dụ: xét xâu ký tự ‘ nGuyen vaN A ‘ Hỏi cần có thao tác để chỉnh xửa xâu ký tự để đa dạng ‘ Nguyen Van A ‘

HS: §a ý kiÕn cđa m×nh

GV: Phân tích gợi ý để em nhận cần làm thao tác gì?

- Xo¸ bít sè dÊu cách

- Chuyển chữ hoa chữ thờng ngợc lại

khái niệm xâu:

xõu l dãy ký tự bảng mã ASCII Mỗi ký tự đợc coi phần tử xâu, xâu có phần tử chiếm nhiêu Byte nhớ , số lợng độ dài xâu đựoc gọi độ dài xâu, xâu có độ dài gọi xâu rỗng

Mỗi NNLT có cách xác định xâu riêng: - tên kiu xõu

- cách khai báo biến kiểu xâu - số lợng ký tự xâu

- phép toán thao tác với xâu

- cỏch truy xuất đến phần tử xâu

Có thể xem xâu nh mảng chiều mà phần tử ký tự ký tự đợc đánh số thờng từ trở

1) khai báo xâu

Var <Tên biến>: String[giới hạn số lợng phÇn tư lín nhÊt];

VD: Hoten : String[18];

Diachi : String; (ngầm định 255 ký tự) - cách truy xuất đến phần tử thuộc xõu:

Tên biến[số thứ tự] := ký tự VT ;

- Cách in xâu Writeln( xâu ký tự );

2) Các thao tác xư lý x©u.

Trong xâu ký tự có phép tốn ghép xâu phép so sánh xâu ngồi cịn có số hàm để giúp xử lý đợc xâu ký t

a- phép ghép xâu (cộng xâu) phÐp trõ, nh©n , chia x©u:

4 củng cố, dặn dò

- Nhắc lại Một sè Kh¸i niƯm míi

- Nhắc lại cấu trúc câu lệnh cách chia bảng thành phần đồng thời gọi học sinh lên bảng viết lại cách khai báo, truy xuất hiển thị để nhập liệu

5 bµi tËp vỊ nhµ

Các tập SGK

V, T trng thụng qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

Nguyễn Thị Kim Yến

TiÕt theo PPCT TiÕt 32 Bµi 12: kiĨu xâu (2)

Ngày Soạn 17 / 02/ 2012

Tuần dạy 26

I/ Mục Tiêu dạy :

1 Về kiến thức:

-biết xâu dãy ký tự(có thể coi xâu mảng chiều) -Biết cách khai báo xâu, truy cập phần tử xâu

2 Về kỹ năng: - Xử dụng số thủ tục, hàm thông dụng xâu. - Cài đặt số chương trình đơn giản có sử dụng xâu 3 Về Thái độ: Biết cách khai báo xâu, truy cập phần tử xâu

- Xử dụng số thủ tục, hàm thụng dng v xõu II/ trọng tâm - Phơng pháp :

- Phng phỏp :Làm tập lớp ,Cho hs thực hành máy, rõ cách thao tác mảng nói rõ cấu trúc thao tác , cách thực mảng vµ chiỊu

- Trọng Tâm :2.

IIi/ chuẩn bị giáo viên học sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: a, Khai báo xâu, nêu thao tác xử lý xâu Cho ví dụ? 3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: đa số câu hỏi

- để biết ký tự dấu cách - Làm để xoá vài ký tự - Làm để thêm vào xâu vài ký tự - Làm để đổi đợc chữ in hoa ch

th-ờng ngơck lại

- Lm để biết xâu có ký tự

Từ đa thủ tục chuẩn hàm chuẩn Pascal thờng dùng để xử lý xâu

ỉng với thủ tục cần lấy vµi VD cho HS dƠ hiĨu

GV: Cố gắng xoạn sẵn ví dụ để HS theo dõi để rút ngắn thời gian ngồi viết chơng trình Với VD cần giảng rõ câu lệnh trực tiếp đáp ứng yêu cầu ví dụ

b- Phép so sánh : có phép = , >, <, >=, <=, <> Pascal tự so sánh lần lợt ký tự từ trái sang phải VD: ‘ ABC ‘ < ‘ ABCD ‘ ; ‘ Haiduong‘ < ‘ HAiduong’; Hai xâu đợc gọi chúng giống hon ton

c- Phép xoá xâu :Delete(st, vt, n) thùc hiƯn viƯc xo¸ n ký tù cđa biÕn xâu st vị trí vt VD: abcdef ‘ delete (st, 5, 2) := ‘ abcd ‘ ;

d- phÐp chÌn :Insert(s1, s2, vt)

VD: s1 = ‘ PC ‘ , s2= ‘ IBM486 ‘ Insert (s1, s2, 4) := ‘ IBM PC 486 ’;

e- phép tạo xâu, (cắt xâu) : Copy (S, vt, N) tạo xâu gồm N ký tự liên tiếp vị trí vt xâu S

VD: ‘ bai hoc thu ‘ Copy(s, 9, 5) := ‘ thu ‘;

f- pép cho giá trị độ dài xâu : Length(S)

VD: Length(S) := 13 {với xâu S phần e}

g- phép cho vị trí xuất xâu s1 trong x©u s2: Pos (s1, s2)

VD: S2= ‘ abcdef ‘ Pos (‘ cd ‘, s2) := 3; Pos (‘ k ‘, s2) := 0;

h- phép đổi chữ hoa chữ thờng ngợc lại: Upcase(ch):

VD: cho giá trị h Upcase(ch) := ‘ H ‘;

i- phÐp cho ký tù cã m· X b¶ng m· ASCII :

CHR(X)

VD: CHR(97):= ‘ A ‘; CHR(65):= ‘ a ‘;

j- phÐp cho m· cña ký tù ch b¶ng m·: Ord (ch)

VD: ‘ A ’ cã Ord (ch):= 97;

k- phÐp chuyÓn sè X thành xâu ký tự lu trong st

Str (X, St)

3 - Mét sè vÝ dô VD1:

4 củng cố, dặn dò

- Nhắc lại Mét sè Kh¸i niƯm míi

- Nhắc lại cấu trúc câu lệnh cách chia bảng thành phần đồng thời gọi học sinh lên bảng viết lại cách khai báo, truy xuất hiển thị để nhập liệu

5 bµi tËp vỊ nhµ

Các tập SGK

V, T trng thụng qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 33 Bµi tËp vµ thùc hµnh 5

Ngày Soạn 25 / 02/ 2012

Tuần dạy 27

I/ Mục Tiêu dạy :

1 Về kiến thức: Biết giải số toán tìm kiếm đơn giản;

2 Về kỹ năng: Nâng cao kĩ sử dụng số câu lệnh số kiểu liệu thơng qua việc tìm hiểu, chạy thử chương trình

3 Về Thái độ: Rèn luyện khả hợp tác với thông qua hoạt động nhóm Chăm thực hành

II/ trọng tâm - Phơng pháp :

- Phng phỏp :Làm tập lớp ,Cho hs thực hành máy, rõ cách thao tác mảng nói rõ cấu trúc thao tác , cách thực mảng chiều

- Trọng Tâm :Bài tập.

IIi/ chuÈn bÞ giáo viên học sinh:

a) Giỏo viờn: Sách GK tin 12, Sách GV tin 12, phòng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, v ghi,v bi

IV/ tiến trình d¹y:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: a, Viết cấu trúc xâu kí tự, thao tác xử lý xâu Cho ví dụ? 3 Néi dung bµi míi

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

Chia HS thành nhóm tiến hành nhóm 20 ph

Giáo viên hướng dẫn, giải đáp thắc mắc

Lập trình để đếm kí tự có khổ thơ

Chạy chương trình ghi lại kết

BÁO CÁO THỰC HÀNH TRƯỜNG THPT ĐỒN THUỢNG

TỔ TỐN TIN

-

-THỰC HÀNH TIN 11 BÀI KIỂU XÂU -o0o -HỌ VÀ TÊN. STT LỚP: 11

2 Cách khai báo xâu Các thao tác xử lí xâu Bài tốn

Lập trình để đếm kí tự có khổ thơ Chạy chương trình ghi lại kết

II. Phần lập trình Program xau; Var

Str: String[80];

Dem: Array [ 'A' 'Z'] of integer; I: integer;

Ch: char; Begin

for Ch:='A' to 'Z' Dem[Ch] :=0; write ('str = '); readln(Str); for i:=1 to Length (Str)

Dem [upcase(Str[i])]:= dem[upcase(str[i])]+1; writeln (' Cac chu xau Str la:');

for Ch:='A' to 'Z'

if dem[Ch]>0 then writeln (Ch, ': ', dem[Ch]); readln;

end

Dung lo

Dem troi vang trang Tinh ta nong tham hay trao het minh

Anh oi sợ co rinh

Ngươi ta nhin thay chung gay go Nay hai ban dưng lo

Tơ day dung gac tu tam tinh

4 Củng cố

- Nhắc số lỗi thường gặp lập trình: Thiếu dấu ;sai cấu trúc thao tác xử lý xâu, câu lệnh ghép,…

5 BTVN

- Yêu cầu hs xem trước nội dung tập số ví dụ xâu - Làm tập SGK SBT

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 34 Bµi tËp vµ thùc hành 5

Ngày Soạn 25 / 02/ 2012

Tuần dạy 27

I/ Mục Tiêu dạy :

1 Về kiến thức:

- Làm quen với việc tìm kiếm thay biến đổi xâu

Củng cố cho học sinh hiểu biết kiểu liệu kiểu xâu;

2 Về kỹ năng:

Làm quen với liệu có cấu trúc toán liên quan đến xâu Biết giải số tốn dùng thao tác xử lí xâu,

3 Về Thái độ:

Rèn luyện khả hợp tác với thông qua hoạt động nhóm Chăm nghe giảng thực hành

II/ trọng tâm - Phơng pháp : - Phng phỏp :

Làm tập ,Cho hs thực hành máy, rõ cách thao tác mảng nói rõ cấu trúc thao tác , cách thực mảng chiều

- Trọng Tâm :Bài tập 3.

IIi/ chuÈn bÞ giáo viên học sinh:

a) Giỏo viờn: Sách GK tin 12, Sách GV tin 12, phòng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, v ghi,v bi

IV/ tiến trình d¹y:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: a, Viết cấu trúc xâu kí tự, thao tác xử lý xâu Cho ví dụ? 3 Néi dung bµi míi

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

- Nhắc lại số thao tác việc xử lí xâu - Yêu cầu học sinh đọc đề suy nghĩ thuật toán để giải tập

- Hướng dẫn học sinh cách viết chương trình yêu cầu học sinh lên bảng viết chương trình Yêu cầu học sinh suy nghĩ

Yêu cầu học sinh phát biểu ý kiến để giải tốn

Chữa tập

- Yêu cầu hs gõ tiếp chương trình 3, sửa lỗi theo dõi kết

Theo dõi hướng dẫn học sinh hình thức viết chương trình cho thể tính cấu trúc

Nhận xét cách giải học sinh đưa dàn ý giải tốn

- Chữa chương trình mà học sinh đã viết bảng.

- Nghe GV hướng dẫn cách giải 3, suy nghĩ trả lời theo yêu cầu GV

Bài 3: Nhập vào từ bàn phím xâu Thay tất cụm kí tự ‘anh’ cụm kí tự ‘em’

uses crt; var a: string; x,i,vt: byte; begin

clrscr;

write('Nhap vao mot xau:'); readln(a); x:= length(a);

While pos('anh',a)<> do Begin

vt:= pos('anh',a); delete(a,vt,3); insert('em',a,vt); end;

Write(a); readln; end.

4 BTVN:

- Yêu cầu học sinh làm tập sgk sbt

- Yêu cầu hs xem trước 13 - Kiểu ghi

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 35 Bµi tËp

Ngày Soạn 03 / 03/ 2012

Tuần d¹y 28

I MỤC TIÊU

 Nâng cao kĩ sử dụng số câu lệnh số kiểu liệu thơng qua việc tìm hiểu, chạy thử chương trình

 Biết giải tập tiêu biểu từ sửa lỗi lập trình II PHƯƠNG PHÁP, PHƯƠNG TIỆN

- Phương pháp: Thuyết trình, vấn đáp - Phương tiện: Máy chiếu, máy tính III. NỘI DUNG

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

Tiền hành thảo luận nhóm tìm chức câu lệnh

Câu lệnh ( 1) Câu lệnh ( 2) Câu lệnh ( 3) Câu lệnh ( 4) Câu lệnh ( 5)

Giáo viên hướng dẫn, giải đáp thắc mắc Giải đáp thắc mắc lỗi

Lập trình để đếm kí tự có khổ thơ Chạy chương trình ghi lại kết Nêu tác dụng câu lệnh

Nêu lỗi gặp

Củng cố: qua trình làm tập

PHẦN LẬP TRÌNH Program xau;

Var

Str: String[80];

Dem: Array [ 'A' 'Z'] of integer; I: integer;

Ch: char; Begin

for Ch:='A' to 'Z' Dem[Ch] :=0;

{ } write ('str = '); readln(Str);

{ } for i:=1 to Length (Str)

Dem [upcase(Str[i])]:= dem[upcase(str[i])]+1; { } writeln (' Cac chu xau Str la:');

{ } for Ch:='A' to 'Z'

if dem[Ch]>0 then writeln (Ch, ': ', dem[Ch]); readln;

end

IV. LUYỆN TẬP

o Nêu cấu trúc câu lệnh việc khai báo, truy cập đến thành phần xâu o Luyện thao tác lập trình

V. ĐÁNH GIÁ - Thái độ kết

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 36 ôn tập

Ngày Soạn 03 / 03/ 2012

Tuần dạy 28

I MC TIấU

Kiến thức: Củng cố cho học sinh hiểu biết kiểu liệu xâu;

2 Kỹ năng: Nâng cao kĩ sử dụng số câu lệnh số kiểu liệu thơng qua việc tìm hiểu, chạy thử chương trình

Biết giải số tốn xử lí xâu đơn giản máy tính Thái độ: Chăm thực hành

II. PHƯƠNG PHÁP, PHƯƠNG TIỆN - Phương pháp: Thuyết trình, vấn đáp - Phương tiện: Máy chiếu, máy tính III NỘI DUNG

1 Kiểm tra

- Cách gán giá trị?

2. L m b i t pà à ậ

Hoạt động GV HS Nội dung

- Theo dõi trình thực hành học sinh

- Hướng dẫn cách viết chương trình, sau u cầu học sinh thực hành

- Quan sát theo dõi hs thực hành sửa lỗi cho hs

- Gõ chương trình 1a

- Nhắc học sinh lưu chương trình chạy hồn chỉnh câu a, sau chỉnh sửa theo câu b ghi lai với lệnh Save as tệp Theo dõi uốn nắn học sinh hình thức viết chương trình cho thể tính cấu trúc

- Yêu cầu hs gõ tiếp chương trình 2, sửa lỗi theo dõi kết

- Ra tập làm thêm cho học sinh:

1 Nhập vào xâu Yêu cầu viết hình xâu sau loại bỏ dấu cách Nhập vào xâu họ tên người Yêu cầu viết hình tên người

- Hướng dẫn học sinh cách giải tập yêu cầu học sinh nhà viết chương trình

- Thực hành cac tập chữa, làm lớp

- Thực sửa lỗi, chạy chương trình

Bài 1b:

- Thực hành trả lời theo yêu cầu GV - Đưa thắc mắc, câu hỏi chưa hiểu

uses crt;

var a: string; F: Boolean; x,i: byte;

begin clrscr;

write('Nhap vao mot xau:'); readln(a); x:= length(a); F:= True;

for i:=1 to (x div 2) do

if a[i]<> a[x-i+1] then F:= False;

If F then write('Xau a la xau doi xung') else Write('Xau a ko doi xung');

readln; end. Bài 3: uses crt;

var a: string; x,i,vt: byte; begin

clrscr;

write('Nhap vao mot xau:'); readln(a); x:= length(a);

While pos('anh',a)<> do Begin

vt:= pos('anh',a); delete(a,vt,3); insert('em',a,vt); end;

IV LUYỆN TẬP

o Nêu cấu trúc câu lệnh việc khai báo, truy cập đến thành phần ghi o Luyện thao tác lập trình

V ĐÁNH GIÁ - Thái độ kết

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT Tiết 37 KIểM TRA 45 PHúT

Ngày Soạn 10 / 03/ 2012

Tuần dạy 29

I/ Mục Tiêu kiểm tra :

Kin thức: - Liệt kê lại kiến thức học chương 4;

- tổng hợp lại thao tác học thực hành thực hành 3,4,5 2 Kỹ năng: - Tổng hợp lại kỹ xử lý với xâu mảng

Thái độ: Nghiêm túc

II/ Phơng pháp kiểm tra đề bài: - Phương phỏp :kiểm tra viết tự luận

- Ma trận : câu hỏi gồm câu hỏi đòi hỏi hiểu biết để trả lời , tập xử lý mảng xâu

Iii/ Néi dung:

ĐỀ 01

Câu 1: Viết cấu trúc chung của: khai báo mảng chiều, thủ tục cho biết vị trí xâu s1 xâu s2, đổi chữ hoa chữ thường,thủ tục tạo xâu, cho biết mã X ký tự CH mã ASCII? Lấy ví dụ cụ thể?

Câu 2: Em viết thủ tục để xử lý Xâu s1 thành xâu kết trường hợp sau: Cho xâu s1 := ‘affdfghjkl’ ; X:=70;

a) = ‘ affdchefghjkl’ b) = ‘ affhjkl’ c) = ‘ AFFDFGHJKL’ d) = ‘F’

Câu 3: Viết chương trình nhập vào dãy sơ A gồm N phần tử nguyên (N ≤150) xác định giá trị nhỏ dãy A tráo đổi vị trí phần tử với phần tử đứng đầu dãy In hình dãy số trước sau tráo đổi?

Câu 4: Viết chương trình nhập vào xâu ký tự S từ bàn phím Em tiến hành đổi tất ký tự đứng sau dấu phẩy xâu S thành ký tự in hoa? In hình xâu S sau đổi số lượng ký tự đổi?

VD: S:= ‘Cong, hoa, xa ,hoi ,chu nghia’ ==> S:= ‘Cong, Hoa, Xa, Hoi, Chu nghia’ Số lượng ký tự đổi =

ĐỀ 02

Câu 1: Viết cấu trúc chung của: Nhập mảng chiều, thủ tục cho xóa xâu , Chèn xâu, đổi chữ thường chữ hoa, cho biết ký tự CH có mã X mã ASCII ? Lấy ví dụ cụ thể?

Câu 2: Em viết thủ tục để xử lý Xâu s1 thành xâu kết trường hợp sau: Cho xâu s1 := ‘LKJHGFDSA’ ; ch:= ‘F’; s2 := ‘GFD’;

a) = 5; b) = ‘lkjhgfdsa’ c) = ‘ HGFDS’ d) = 70 ;

Câu 3: Viết chương trình nhập vào dãy sô A gồm N phần tử thực (N ≤250) xác định giá trị lớn dãy A tráo đổi vị trí phần tử với phần tử đứng cuối dãy In hình dãy số trước sau tráo đổi?

Câu 4: Viết chương trình nhập vào xâu ký tự S từ bàn phím Em tiến hành đổi tất ký tự đứng sau dấu chấm xâu S thành ký tự thường? In hình xâu S sau đổi số lượng ký tự đổi?

VD: S:= ‘Cong hoa Xa hoi Chu nghia’ ==> S:= ‘Cong hoa xa hoi chu nghia’ Số lượng ký tự đổi =

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 38 Bµi 14 + 15:

Tệp thao tác với tệp

Ngày Soạn 10 / 03/ 2012

Tuần dạy 29

I/ Mục Tiêu dạy :

1 V kiến thức:

- Biết đợc vai trò kiểu liệu tệp - Biết có cách phân loại tệp

- Biết khai báo biến tệp thao tác tệp văn

- Giúp học sinh biết khai báo biến tệp thao tác tệp văn 2 Về kỹ năng:

- Biết khai báo biến tệp thao tác tệp văn

- Giúp học sinh biết khai báo biến tệp thao tác tệp văn 3 Về Thỏi độ:

- biết cần thiết kiểu liu II/ trọng tâm - Phơng pháp :

- Phương pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :Bài tập 3.

IIi/ chuẩn bị giáo viên học sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

IV/ tiến trình dạy:

1 n nh t chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: a, Viết cấu trúc xâu kí tự, thao tác xử lý xâu Cho ví dụ? 3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV? Trong trình làm việc máy với loại liệu học xảy cố nguồn điện sau khởi động lại hệ thống có cịn thấy kết mà chương trình chạy trước hay khơng?

GV: Vậy em cho biết nguyên nhân xảy tượng này?

GV: Vậy để thực điều chuyển qua

GV: Vậy kiểu liệu tệp có vai trị sau đây:

Chuyển Vấn đề ==>

HS: Khơng cịn mà bị

HS: trình máy hoạt động liệu lưu trữ tạm thời nhớ RAM nên sau điện tồn liệu bị xóa có lưu trữ nhớ ngồi HDD, tồn lâu dài

1 Vai trò kiểu tệp

- Dữ liệu kiểu tệp lưu trữ lâu dài nhớ ngồi(HDD, CD,FDD ) khơng bị tắt nguồn điện

- Lượng liệu lưu trữ tệp lớn phụ thuộc vào dung lượng đĩa

2 Phân loại tệp thao tác với tệp. Có loại tệp thường dùng:

- Tệp có cấu trúc: loại tệp mà thành phần tổ chức theo cấu trúc định

VD: Tệp hình ảnh, âm

GV: Ngồi cịn phân biệt thành loại tệp truy cập và tệp truy cập trực tiếp

Khác với mảng số lượng phần tử tệp khơng cần xác định trước

GV? Trong chương trình Pascal

khi muốn dùng biến để chứa liệu, việc làm gì,để sử dụng biến đó??

HS: Khai báo biến

GV: Hãy chọn đáp án khai báo sau đây?

kết thúc tệp tạo thành dòng VD: tài liệu, học, sách báo

3 Khai báo biến.

CTC: Var Tênbiếntệp : Text ; VD: Var Tep1, tep2 : Text ;

IV củng cố, dặn dò

1 Th tục sau dùng để mở tệp để đọc: a open(<biến tệp>,<tên tệp>);

b reset (<biến tệp>,<tên tệp>); c open(<biến tệp>);

d reset(biến tệp); Xem KQ

- Gọi học sinh khái quát lại vai trò kiểu tệp phân loại tệp

- Học sinh khái quát lại thao tác cần thực đọc liệu ghi liệu vào tệp - Cho học sinh làm số tập trắc nghiệm khách quan

V bµi tËp vỊ nhµ

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 39 Bµi 14 + 15:

Tệp thao tác với tệp

Ngày Soạn 17 / 03/ 2012

Tuần dạy 30

I/ Mục Tiêu dạy :

1. Về kiến thức:

- Biết đợc vai trị kiểu liệu tệp - Biết có cách phân loại tệp

- Biết khai báo biến tệp thao tác tệp văn

- Giúp học sinh biết khai báo biến tệp thao tác tệp văn

2. Về kỹ năng:

- Biết khai báo biến tệp thao tác tệp văn

- Giúp học sinh biết khai báo biến tệp thao tác tệp văn

3. Về Thái độ:

- biết cần thiết kiểu liệu tệp II/ träng t©m - Phơng pháp :

- Phng phỏp :Thuyt trỡnh, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :Bài tập 3.

IIi/ chn bÞ cđa giáo viên học sinh:

a) Giỏo viờn: Sỏch GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, v ghi,v bi

IV/ tiến trình dạy:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: a, Viết cấu trúc xâu kí tự, thao tác xử lý xâu Cho ví dụ? 3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: Quan sát hình mơ tả thao tác tệp:

HS: Quan sát ví dụ hình ảnh

Chuyển Vấn đề ==>

HS: Xem quan sát ví dụ

Chuyển vấn đề ===>

4 Thao tác với tệp. a Gắn tên tệp

-CTC: ASSIGN(Tênbiếntệp , Têntệp) ; - Tên tệp biến xâu xâu VD: ASSIGN(Tep1, ‘DULIEU.DAT’); ASSIGN(Tep2, ‘D:\TP\BAITAP.INP’); b Mở tệp để ghi ghi tệp.

- Thủ tục mở tệp để ghi kết quả: +CTC: REWRITE(Tênbiếntệp);

+Nếu ổ D:\TP cha có tệp BAITAP.INP, tệp đợc tạo rỗng Nếu có, nội dung cũ bị xố để chuẩn bị ghi liệu

- Thủ tục ghi liệu vào tệp + CTC:

Write(tênbiếntệp, danhsachketqua); Writeln(tênbiếntệp, danhsachketqua);

+ Danh sách kết gồm hay nhiều phần tử Phần tử biến, xâu biểu thức

c M c đọc liệu từ tệp. - Thủ tục mở tệp để đọc

+ CTC: RESET(Tenbientep); - Thủ tục đọc liệu từ tệp + CTC:

Read(bientep , danhsachbien) ; Readln(bientep , danhsachbien) ;

Danh sách biến nhiều biến đơn.

HS: Xem quan sát ví dụ Chuyển vấn đề ===>

GV? Tại phải đóng tệp?

HS: Sau làm việc xong với tệp cần phải đóng tệp Chỉ có đóng tệp hệ thống thực hồn tất q trình đọc ghi liệu tệp

Chuyển vấn đề ===>

GV: Có hàm chuẩn thường dùng

- CTC: Close(tenbientep); Ví dụ:

Chiếu Ví dụ

e số hàm thường dùng xử lý tệp văn bản.

- EOF(<biÕn tÖp>);

Cho giá trị trỏ tới cuối tệp.

- EOFLN(<biÕn tÖp>);

Cho giá trị trỏ chỉ tới cui dũng.

IV củng cố, dặn dò

1 N i c u trúc thích h p.ố ấ ợ 1 Đóng tệp.

2 Mở tệp. 3 Gán tên tệp.

4 Đọc/ghi tệp văn bản.

a assign(<biến tệp>,<tên tệp>); b reset(<biến tệp>);

c read(<biến tệp>,<danh sách biến>); d write(<biến tệp>,<danh sách kết

quả>);

e close(<biến tệp>); Xem KQ

- Gäi mét học sinh khái quát lại vai trò kiểu tệp phân loại tệp

- Hc sinh khỏi quát lại thao tác cần thực đọc liệu ghi liệu vào tệp - Cho học sinh làm số tập trắc nghiệm khách quan

V bµi tËp vỊ nhµ u cầu HS làm tập cuối bài, BT SBT tin 11 V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 40 Bµi 16: vÝ dơ lµm viƯc víi tƯp

Ngµy Soạn 17 / 03/ 2012

Tuần dạy 30

I/ Mục Tiêu dạy :

1. V kin thc:

- Hiểu hình thành ký thao tác làm việc víi tƯp nh: + Më tƯp

+ Gán tên tệp cho biến tệp + Đọc / ghi liệu tệp + Đóng tệp

2. Về kỹ nng:

- Hiểu hình thành ký thao tác làm việc với tÖp nh:

3. Về Thái độ:

- Biết cần thiết kiểu liệu mảng q trình giải tốn dãy số II/ trọng tâm - Phơng pháp :

- Phng phỏp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :ví dụ 1.

IIi/ chuÈn bị giáo viên học sinh:

a) Giỏo viên: Sách GK tin 12, Sách GV tin 12, phòng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

IV/ tiÕn tr×nh dạy:

1 n nh t chc: Nm s tình hình lớp: điểm danh 2 Kiểm tra cũ:

3 Néi dung bµi míi

Hoạt động GV HS Nội dung

Hoạt động 1: Tỡm hiu u bi

GV: Nêu lên toàn YCHS cho phơng pháp giải

HS: phn tích tốn xác định u cầu tốn theo hớng dẫn GV

GV: Nhắc lại cơng thức tính khoảng cách điểm biết to ca chỳng

GV: viết chơng trình lên yêu cầu HS trả lời ý nghĩa câu lệnh

GV: yêu cầu HS in lên hình khoản cách trại xa với trại cđa hiƯu trêng nhÊt

Hoạt động 2: Ví dụ

GV: yêu cầu học sinh tìm hiểu tốn nhắc lại cơng thức tính điện trở tơng đơng mắc nối tiếp song song

HS: xây dựng chơng trình YC nhóm xây dựng cơng thức tính điện trở tơng đơng điện trở trờng hợp yêu cầu chuyển sang công thức Pascal

GV: Gäi mét sè HS x©y dùng chơng trình theo bứoc theo gợi ý GV

HS: trả lời theo câu hỏi GV

+ Khai b¸o.

+ Gắn tên tệp cho biến tệp. + đọc liệu từ tệp.

+ Tính điện trở tơng đơng. + Ghi vào tệp.

+ §ãng tƯp.

VÝ dơ 1:

Program khoang_cach ;

Var d: real ; F : Text ; X, y : Integer ;

Begin

Assign (f , ‘trai.txt’) ; Reset (f) ;

While not EOF (f) do

Begin

Read (f , x, y);

D:= sqrt (x*x + y*y) ;

Writeln ( khoang cach : , d:8: 2);‘ ‘

End;

Close (f) ;

End.

Ví dụ 2: Tính điện trở tơng đơng

 Input : R1, R2,R3 kiểu mắc

Cho tệp RESIST DAT chứa liệu hay số đo R1,R2,R3

 Out Put: Tính R tơng đơng Ghi kết vào tệp văn RESIST EQU

Chong tr×nh:

Program Dientro ;

Var a: array[1 5] of Real ; R1, R2, R3 : Real ; i : integer ; f1, f2 : Text ;

Begin

Assign (f1, Resist Dat ) ;‘ ’

Reset (f1) ;

Assign (f2, Resist Equ ) ;‘ ’

Rewrite (f2) ;

While not eof (f1) do

Begin

A[1] := R1*R2*R3 / (R1*R2 + R2*R3 + R3*R1) ; A[2] := R1*R2 / (R1+ R2) + R3 ;

A[3] := R1*R3 / (R1+ R3) + R2 ; A[4] := R2*R3 / (R2+ R3) + R1 ; A[5] := R1+ R2 + R3 ;

For i := to do Write (f2 , A[i] : : 2, ) ;‘ ‘

Writeln (f2) ; End;

Close (f1) ; Close (f2) ;

End

4 củng cố, dặn dò

- Nhắc lại thao tác làm việc víi tƯp cïng víi c¸c thđ tơc cđa nã

5 tập nhà

Các tập SGK

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 41

BI TP

Ngày Soạn 24 / 03/ 2012

Tuần dạy 31

I/ Mục Tiêu dạy :

1 Về kiến thức:

 Nâng cao kĩ sử dụng số câu lệnh thao tác với tệp  Biết giải tập tiêu biểu từ sửa lỗi lập trình

2 V k nng:

- Hiểu hình thành ký thao tác làm viƯc víi tƯp nh: 3 Về Thái độ:

- Biết cần thiết kiểu liệu mảng q trình giải tốn dãy số II/ trọng tâm - Phơng pháp :

- Phng pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :ví dụ 1.

IIi/ chuẩn bị giáo viên học sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

IV/ tiÕn trình dạy:

1 n nh t chc: Nm sơ tình hình lớp: điểm danh Kiểm tra cũ:

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

Câu 1: Nêu số trường hợp cần phải dùng tệp Câu 2: Trong sơ đồ thao tác với tệp, cần nhập liệu từ tệp phải dùng thao tác nào? Câu 3: Tại cần phải có câu lệnh mở tệp trước đọc/ghi tệp?

Học sinh lên bảng trả lời

3 Hướng d n l m b i t pẫ à à ậ

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

Chuẩn bị

Đường viền trang trí nhà có kích thước x N lát hai loại gạch: loại kích thước x loại x Hãy xác định số cách lát khác khau thực

Lập trình:

- Đọc liệu từ tệp văn TILE.INP, gồm nhiều dòng, dòng chứa số nguyên N (1 < N ≤ 20)

- Đưa tệp văn TILE.OUT kết tìm được, số dịng

Hướng dẫn HS lập trình/

Gọi số cách lát đường viền độ dài k Sk, S1 = 1; S2 = 3; Sk = Sk-1 + Sk-2 với k ≥

Đây sơ đồ lặp, cần dùng ba biến để tính, khơng cần phải lưu trữ mảng

Chương trình Program C5B15;

Var l1, l2, l : longint; n, i: integer;

fi, fo: text; BEGIN

assign (fi,’TILE.INP’); reset (fi);

assign (fo,’TILE.OUT’); rewrite (fo);

while not eof (fi) begin

readln (fi, n); if n = then l :=3; l1 := 1; l2:=3; for i := to n begin

l1: = l2; l1: = l; end; writeln (fo,l); end;

close (fi); close (fo); END; 4 C NG CỦ Ố

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

Trong trình làm Nhắc: chuẩn bị kiểm tra 15 ph

5 BTVN

Làm tập SBT tin 11

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 42

BÀI TẬP

Ngµy Soạn 24 / 03/ 2012

Tuần dạy 31

I/ Mục Tiêu dạy :

1 V kiến thức:

 Nâng cao kĩ sử dụng số câu lệnh thao tác với tệp  Biết giải tập tiêu biểu từ sửa lỗi lập trình

2 Về kỹ năng:

- Hiểu hình thành ký thao tác làm việc với tệp nh: 3 Về Thái độ:

- Biết cần thiết kiểu liệu mảng trình giải tốn dãy số II/ träng t©m - Phơng pháp :

- Phng phỏp :Thuyt trỡnh, hi đáp, đặt vấn đề, so sánh - Trọng Tõm :vớ d 1.

IIi/ chuẩn bị giáo viên học sinh:

a) Giỏo viờn: Sỏch GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,v bi

IV/ tiến trình dạy:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh 2 Kiểm tra cũ:

3 Hướng d n l m b i t pẫ à à ậ

Hoạt động GV Hoạt động HS

ĐVĐ: Trong lý thuyết lần trước em tìm hiểu khái niệm tệp Bài hơm xét số tập làm việc với tệp

- Chia lớp thành nhóm để giải toán từ 1->4

Yêu cầu hs viết chương trình đơn giản có sử dụng thao tác đọc/ ghi tệp VIết chương trình mở đồng thời

- Nghe giảng

- Phân tích tốn, xác định u cầu tốn theo hướng dẫn giáo viên

- Suy nghĩ phát biểu ý kiến tốn

- Trả lời câu hỏi

+ Câu 1: Một số trường hợp phải sử dụng tệp: Lượng thông tin lớn, dùng lâu dài,…

+ Câu 2: Trong sơ đồ thao tác với tệp, cần nhập liệu tệp phải dùng thao tác gắn tên tệp, mở tệp để ghi, ghi liệu vào tệp, đóng tệp để hồn tất việc ghi liệu tệp Assign(f,fi) ;

Rewrite(f);

Write(f,x’ ’,y,’ ’, z); Close(f);

+ Câu 3: Trước sử dụng tệp phải có câu lệnh mở tệp để trình dịch biết mục đích mở tệp hay ghi tệp, đồng thời đặt trỏ tệp vào vị trí thích hợp

+ Câu 4: Phải dùng câu lệnh đóng tệp sau kết thúc ghi liệuvào tệp để hệ thống hoàn tất việc ghi liệu tệp

tệp

Viết chương trình phân tích

=> Chạy chương trình để thấy kết thao tác

uses crt; const

fi='nguyen.dat'; fo='nguyen.out'; var

k,i,j,n:integer; f,g:text; s:string; begin clrscr;

assign(f,fi); reset(f); assign(g,fo); rewrite(g); i:=0;

readln(f);

while not eoln(f) begin

inc(i); read(f,k);

write(g,k+100:5);

if i mod 14=0 then writeln(g) end;

writeln(f);

writeln(g,'so phan tu cua tep la : ',i); close(f); close(g);

end

1

99 88 77 66 55 44 33 22 11 10 30 31 32 33 34 35

36

Quan sát kết chạy chương trình

- Theo dõi trình giảng giải gv

- Quan sát NX kết

4 Củng cố:

- Nhắc lại thao tác làm việc với tệp với thủ tục

5 BTVN

- Yêu cầu HS xem lại ví dụ xem trước 17

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

Tiết theo PPCT Tiết 43 Bài 17: chơng trình

và phân loại

Ngày Soạn 30 / 03/ 2012

Tuần dạy 32

I/ Mục Tiêu dạy :

1 V kin thức:

- nắm đợc khái niệm chơng trình - Sự khác biệt hàm th tc

- Phân biệt điểm giống khác cầu trúc chơng trình chơng trình

2 Về kỹ năng:

- BiÕn cục bộ: cách khai báo phạm vi sử dụng

3 Về Thái độ:

- Biết đợc mối quan hệ tham số hình thức tham số thực II/ trọng tâm - Phơng pháp :

- Phương pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :mục 1.

IIi/ chuẩn bị giáo viên học sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

IV/ tiến trình dạy:

1 n nh t chức: Nắm sơ tình hình lớp: điểm danh 2 Kiểm tra cũ:

3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: ĐVĐ? Đa toán tính tổng luỹ thừa SGK

HS: Nêu thuật toán toán

GV: YC hc sinh quan sát chơng trình có nhứng khối lệnh đựoc viết tơng tự HS: Quan sát trả lời câu hỏi

GV: đẫn dắt để học sinh có t để hình thành t lập trình có cấu trúc đến khái niệm chơng trình con:

GV: Đa số hàm số thủ tục chuẩn đợc học giúp học sinh nhận thấy khác biệt lớn hàm thủ tục => Phân loại chơng trình

HS: Dựa gợi ý Thày giáo , t để nhận thấy đợc hàm chuẩn thỉ trả giá trị cịn thủ tục chuẩn khơng trả giá trị qua tờn ca nú

GV: Trình bày cấu trúc chơng trình HS: Trả lời câu hỏi

1 Khái niệm chơng trình con

Khỏi nim: Chơng trình dãy lệnh mơ tả số thao tác định đợc thực từ nhiều vị trí chơng trình

 Lợi ích việc sử dụng chơng trình con: - Tránh đựoc việc phải viết lặp lặp lại dẫy

lệnh VD luỹ thừa

- Hỗ trợ việc thực chơng trình lớn VD: Quản lý điểm HS

- Phc v cho q trình trừu tọng hố.VD: sử dụng hàm tốn học ta khơng cần xem đựơc xây dựng nh

- Mở rộng khả ngôn ngữ VD: Trong toán luý thừa ta xây dựng thêm đợc CTC luỹ thừa - Thuận tiện cho việc phát triển nâng cấp chơng

tr×nh

2- Phân loại cấu trúc chơng trình con:

a) Phân Loại:

- Hm (Function): L chng trỡnh thực số thao tác trả giá trị qua tên - Thủ tục (Procedure): chơng trình thực thực số thao tác nhng khơng trả giá trị qua tên

Lµ CTC

Hàm Thực số thao tác đó Trả gí trị qua tên hàm.

Lµ CTC

Thủ tục Thực số thao tác đó

GV: cÊu tróc cđa chơng trình có giống khác với cầu trúc chơng trình?

HS: suy nghĩ trả lời câu hỏi

GV: Chớnh xỏc hoỏ vấn đề kiến thức

GV: Chỉ đa cho HS biết đợc tham số hình thức ? Nó đóng vai trị gì? Biến cục biến tồn ? đợc khai báo đâu? phạm vi hoạt động ?

HS: chó ý nghe gi¶ng

GV: Giải thích để HS hiểu đợc chơng trình thực có lời gọi , đồng thời tham số thực gì?

Sau YC hs đọc phần thời gian phút cho biết cachs gọi CTC ? tham số thực ? * lấy ví dụ lời gọi hàm chuẩn thủ tục chuẩn để minh hoạ

Gồm phần:

<Phần đầu> <Phần khai báo>

<Phần thân>

c) Tham số hình thức biến cơc bé vµ biÕn toµn bé:

- Tham số hình thức CTC biến đợc khai báo cho liệu vào CTC

- Biến cục biến đợc khai báo CTC

- Biến toàn cục biến đợc khai báo chơng trình

VD: Trong bµi l thõa : x,k tham số hình thức j biến cơc bé

Chó ý: Mét CTC cã thĨ cã tham số hình thức, nh biến cục

d) Thực chơng trình con:

HS tự ghi

4 củng cố, dặn dò

- Khái quat lại khái niệm chơng trình , nhấn mạnh cho HS ý thức xây dựng chơng trình có cấu trúc

5 tập nhà

Các tập SGK

V, T trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

Tiết theo PPCT Tiết 44 Bài 17: chơng trình

và phân loại

Ngày Soạn 30 / 03/ 2012

Tuần dạy 32

I/ Mục Tiêu dạy :

1 V kin thc:

- nắm đợc khái niệm chơng trình - Sự khác biệt hàm thủ tc

- Phân biệt điểm giống khác cầu trúc chơng trình chơng trình

2 Về kỹ năng:

- BiÕn côc bộ: cách khai báo phạm vi sử dụng

3 Về Thái độ:

- Biết đợc mối quan hệ tham số hình thức tham số thực II/ trọng tâm - Phơng pháp :

- Phương pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :mục 1.

IIi/ chuẩn bị giáo viên học sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở tập

IV/ tiến trình dạy:

1 n nh t chc: Nắm sơ tình hình lớp: điểm danh 2 Kiểm tra cũ:

3 Néi dung bµi míi

Hoạt động GV HS Nội dung

HS tự ghi

GV: Đa cấu trúc chung chơng trình lập trình có cấu trúc chơng trình con?

HS: quan sát ghi bài?

GV: VD? Sử dụng chơng trình lập trình giải toán tính tổng số nguyên nhập từ bàn phím?

GV: đa gợi ý yêu cầu học sinh làm bài: HS: làm

GV: Nhận xét tổng hợp ý kiÕn

GV: Hớng dẫn HS cách chuyển đổi ch-ơng trình thơng thờng sang thành CT lập trình có cấu trúc

HS: theo dâi vµ ghi bµi dùa theo cấu trúc ch-ơng trình

2- Phân loại cấu trúc chơng trình con: b) Cấu trúc chơng trình con

Gåm phÇn:

Program Chuongtrinhchinh; Var a , b : integer;

Function tenCTCham; Var m, n: byte; Begin

Cac lenh CTC ham; End;

Procedure tenCTCthutuc; Var x, y: byte;

Begin

Cac lenh CTC thu tuc; End;

Begin

LoigoiCTC(danhsachthamso); readln

End

c) Ví dụ chơng trình con: Program vidu;

Var a , b : integer;

Procedure tinhtong(var x,y:integer); Var T : integer;

Begin T:= x+y;

Writeln(‘+ Tong T= ’,T) End;

Begin

Write(‘+ NhËp a,b = ’); Readln(a,b);

Tinhtong(a,b); readln

4 củng cố, dặn dò

- Khái quat lại khái niệm chơng trình , nhấn mạnh cho HS ý thức xây dựng chơng trình có cấu trúc

5 tập nhà

Các tập SGK

V, T trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 45 Bµi 18:vÝ dơ vỊ cách viết và sử dụng chơng trình con

Ngày Soạn 06 / 04/ 2012

Tuần dạy 33

I/ Mục Tiêu dạy :

1 Về kiến thức:

- Biết đợc số thủ tục cấu trúc CTC - Hiểu đợc số chơng trình thủ tục

- Nhận biết đợc thành phần phần đầu thủ tục - Nhận biết đựoc lời gọi thủ tục

2 Về kỹ năng:

- Phân biệt đợc tham trị tham biến

- Phân biệt đợc tham số thực tham số hình thức - Phân biệt đợc biến cục biến toàn

3 Về Thái độ:

- Nhận biết đợc câu lệnh sử dụng hàm CT tham số thực II/ trọng tâm - Phơng pháp :

- Phương pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :mục 1.

IIi/ chn bÞ cđa giáo viên học sinh:

a) Giỏo viờn: Sỏch GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, v ghi,v bi

IV/ tiến trình dạy:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: - Câu hỏi 1: Chương trình có loại nào? cấu trúc chương trình

3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: ta thấy chơng trình bảng vẽ đợc hình chữ nhật, Nừu muốn vẽ hình chữ nhật câu lệnh Writeln phải lặp lặp lại lần => chơng trình trở lên dài => để khắc phục nhợc điểm ta sử dụng thủ tục

GV: YCHS tìm hiểu chơng trình: giới thiệu cho học sinh câu lệnh để học sinh thấy rõ ý nghĩa lệnh :

+ Tªn thđ tơc + Th©n thđ tơc + Lêi gäi thđ tơc

+ Hoạt động chơng trình

GV: Vởy ta muốn vẽ đợc hay hình chữ nhật nh ta phải sửa chơng trình nh nào?

GV: Cêu tróc thđ tơc:

YCHS cho biết CTC khuyết phần so với cầu tróc thđ tơc nãi chung?

GV: Tổng qt lại phần thủ tục, nói rõ cho HS biết đợc phần thiết phải có phần có khơng

Chú ý: Cần phải nhấn mạnh cho HS số điểm để HS nắm đợc :

+ Kết thúc thủ tục sau từ khoá End dấu ‘ ; ’ + Thủ tục phải đợc khai báo phần khai báo chơng trình

GV: Trong ví dụ SGK trình bày để đến thủ tục phải sử dụng tham số dài rộng

 Chó ý : Trong lêi gäi CTC c¸c tham sè biÕn thùc biến, hay Biểu thức

1) Cách viết sư dơng thđ tơc : XÐt vÝ dơ vÏ HCN SGK:

 Chó ý vỊ thđ tơc:

- Thủ tục khác với hàm thủ tục không trả giá trị qua tên

- Một thủ tục thực chất nhóm lệnh đợc sếp theo trình tự định có tác dụng giải vấn đề cụ thể đợc đặt tên để gọi VD nh hàng ngày ta thờng nghe đến từ thủ tục nhập học cảu SV, Thủ tục mua bán nhà đất, thủ tục xuất cảnh, nhập cảnh, thủ tục dãy thủ tục cơng việc có trình tự cơng việc phải làm khác

VD: Thủ tục Readln (x, y, z ) có nhiệm vụ nhập giá trị từ bàn phím cho biến Thủ tục Gotoxy (x, y) định vị trỏ vào toạ độ cột x dòng y trờn mn hỡnh

Tham số trị tham sè biÕn

- Trong khai báo đầu CTC, tham số hình thức có từ khố Var đứng trớc gọi tham số biến, Ngợc lại khơng có từ khố Var đứng trớc đợc gọi tham số trị

VD: Trong khai b¸o sau:

Function Lt (z : Real ; k : Byte ) : Real ; Thì z k tham số trị Còn khai báo sau:

Procedure Doicho (Var u, v : Real ) ; Thì u v tham số biến

VD: lệnh sau sai:

GV: Xây dựng chơng trình: Hớng dẫn HS chia nhỏ yêu cầu để HS viết câu lệnh tơng ứng :

+ VÏ c¹nh + Vẽ cạnh bên + Vẽ cạnh díi cïng

Chính xác hố thủ tục để HS dễ hiểu GV: YCHS rõ lời gọi thủ tục ch-ơng trình trên?

GV: YCHS nhận biết đợc tham số giá trị lời gọi thủ tục để đến khái niệm cách khai báo tham biến tham trị

Ví dụ (Hoán Đổi

GV: Nờu YC đầu hớng dẫn HS nêu thuật toán hoán đổi

GV: Nhấn mạnh cố gắng cho HS hiểu đợc nhận thấy đợc hoat động tham số biến Chú ý: Đoạn khai báo phải đợc đặt sau cấu trúc khai báo Var trớc Begin thân chơng trình

Doicho(a+1,b); {là sai a+1 biểu thức} a) CÊu tróc cđa thđ tơc :

Ngêi lËp tr×nh tự xây dựng thủ tục nhng phải khai báo nh sau:

Procedure Tênthủtục ( Tênthamsố : KiểuThamsố ); {Các khai báo Const, Type, Var dïng thđ tơc } Begin

{ C¸c lƯnh cđa thđ tơc} End;

VD:

Procedure Nhap( Var X: Kmang ; N: Integer ; ten: Char);

Var

I : Integer ; Begin

For i:= to N Begin

Write (‘ Nhap ’ , ten , ‘ [ ‘ , i , ‘ ] : ’) ; Readln (X[ i ]) ;

End; End;

b) VÝ dơ vỊ thủ tục:

VD chơng trình vẽ HCN SGK?

4 củng cố, dặn dò

- Khái quat lại khái niệm chơng trình , nhấn mạnh cho HS ý thức xây dựng chơng trình cã cÊu tróc

5 bµi tËp vỊ nhµ

Các tập SGK YC HS nhà tìm hiểu chơng trình SGK trang 102 giải thích kết thu đợc

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

Nguyễn Thị Kim Yến

TiÕt theo PPCT TiÕt 46 Bµi 18:vÝ dơ cách viết

và sử dụng chơng trình con

Ngày Soạn 06 / 04/ 2012

Tuần dạy 33

I/ Mục Tiêu dạy :

1 Về kiến thức:

- Học sinh cần nắm đợc giống khác thủ tục hàm

- Học sinh có kỹ nhận biết đợc thành phần đầu hàm Nhận biết đợc câu lệnh sử dụng hàm CT tham số thực

2 Về kỹ năng:

- Học sinh có kỹ nhận biết đợc thành phần đầu hàm Nhận biết đợc câu lệnh sử dụng hàm CT tham số thực

3 Về Thái độ:

- Nhận biết đợc câu lệnh sử dụng hàm CT tham số thực II/ trọng tâm - Phơng pháp :

- Phương pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :mục 1.

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở bi

IV/ tiến trình dạy:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: : - Câu hỏi 1: Nêu giống khác thủ tục hàm, cách viết đầu thủ tục chương trình ví dụ SGK

- Câu hỏi 2: Viết cấu trúc chung thủ tục lấy ví dụ cụ thể 3 Néi dung bµi míi

Hoạt động GV HS Nội dung

GV: Trong tiết trớc đợc học cách viết sử dụng thủ tục, hôm nghiên cứu cách viết sủ dụng hàm Cũng nh thủ tục hàm CTC nhng điểm khác Hàm cho giá trị kết thuộc kiểu xác định giá trị đợc gán cho tên hàm

GV: YC HS tr¶ lêi giống khác hàm thủ tục

HS: Do hàm trả giá trị qua tên thân hàm cần có lệnh gán giá trị cho tên hàm

GV: Sét số VD SGK

GV: Yêu cầu HS rõ chơng trình đâu biến cục bộ, biến toàn bộ, tham số hình thức tham số thực CT trên? HS: Trả lời câu hỏi ghi

GV: Cố gắng giải thích câu lệnh nhấn mạng điểm khác với thủ tục (Phần đầu hàm, câu lệnh trả giá trị cho tên hàm, lời gọi hàm)

HS: theo dâi vµ ghi bµi theo ý hiĨu

2) Cách viết sử dụng hàm Các đặc trng ca hm gm cú:

- Tên hàm

- Kiểu liệu tham số - Kiểu liệu giá trị hàm

Phi chỳ ý phân biệt hai trạng thái tham số: trạng thái dùng để mô tả hàm trạng thái để gọi hàm Khi khai báo hàm tham số mang tính tợng trng nên gọi tham số hình thức, cịn gọi hàm tham số phải biến hay giá trị cụ thể nên gọi tham số thực

VD: viết Sqr(x) x tham số hình thức đại diện cho giá trị đó, cịn gọi hàm T:= Sqr(2) tham số thực

Cêu tróc chung :

Function Tênhàm (Dsthamsố : KDLThamsố) : KiểuDL ;

{Các khai báo dùng hàm: Const, Type, Var } Begin

{Các lệnh hàm}; End;

VD: Function Tinh(x,y : Integer) : Real; Các hai báo sau sai:

Function Tinh(x,y : Integer) : String[30]; Function Tinh(x,y : Integer) : 31;

Vì kiểu xâu khơng đợc định nghĩa Pas nên phải định nghiã trớc:

Type

St30 = String[30] ; Ngay = 31 ; Råi míi khai b¸o:

Function Tinh(x,y : Integer) : St30; Function Tinh(x,y : Integer) : Ngay ;

Tuy nhiên kiểu chuỗi khai báo sau đúng: Function Tinh(x,y : Integer) : String;

Lệnh gán giá trị cho tên hàm: Tênhàm := Biểthức ;

VD: UCLN := x ;

4 củng cố, dặn dò

- Nhắc lại cấu trúc hàm, nhấn mạnh điểm khác biƯt so víi thđ tơc - Cho HS lµm mét tập trắc nghiệm khách quan

Gi s cú biến xâu x, y (y biến có giá trị ) câu lệnh sau không hợp lệ :

A) x := Copy(y, 5, 3); B) x:= y; C) x:= Delete(y:5:3) ; D) Delete(y:5:3) ;

5 bµi tËp vỊ nhµ

Các tập SGK YC HS nhà tìm hiểu chơng trình SGK trang 102 giải thích kết thu đợc

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TiÕt theo PPCT TiÕt 47 Bài tập thực hành 6

Ngày Soạn 15 / 04/ 2012

Tuần dạy 34

I/ Mục Tiêu dạy :

1 V kin thc:

- Củng cố lại kiến thức xâu ký tự, chương trình

2 Về kỹ năng:

- Rèn luyện kĩ xử lý xâu việc tạo hiệu ứng chữ chạy hình - Nâng cao kĩ viết sử dụng chương trình

3 Về Thái độ:

- Nhận biết đợc câu lệnh sử dụng hàm CT tham số thực II/ trọng tâm - Phơng pháp :

Phương pháp :Lµm bµi tập lớp

Cho hs thực hành máy, rõ cách thao tác nói rõ cấu trúc thao tác , cách thực chơng trình

Trng Tõm :mc 1.

IIi/ chuẩn bị giáo viên häc sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở

IV/ tiến trình dạy:

1 n định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: : - Câu hỏi 1: Nêu giống khác thủ tục hàm, cách viết đầu thủ tục chương trình ví dụ SGK

- Câu hỏi 2: Viết cấu trúc chung thủ tục lấy ví dụ cụ thể 3 Néi dung bµi míi

1 Hoạt động 1: Tìm hiểu việc xây dựng hai thủ tục catdan(s1,s2) cangiua(s)

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH

1 Tìm hiểu hai thủ tục catdan(s1,s2) cangiua(s)

- Chiếu nội dung thủ tục catdan(s1,s2); - Hỏi: Đầu vào đầu thủ tục này? - Hỏi: Chức thủ tục gì?

- Yêu cầu học sinh cho ví dụ minh họa - Chiếu nội dung thủ tục: cangiua(s); - Hỏi: Đầu vào thủ tục?

- Hỏi: Thủ tục thực công việc gì?

- Giáo viên ý: Có thể nhắc học sinh không khai báo s tham biến thủ tục khơng có hiệu lực lệnh đưa s hình khơng nằm thủ tục

2 Tìm hiểu chương trình câu b, sách giáo

1 Quan sát thủ tục catdan() trả lời câu hỏi giáo viên

- Vào: xâu ký tự s1 - Ra: biến xâu ký tự s2

- Thực việc tạo xâu s2 từ xâu s1 việc chuyển ký tự thứ đến vị trí cuối xâu - S1= ‘abcd’ S2= ‘bcda’

- Quan sát, suy nghĩ trả lời

- Đầu vào xâu ký tự S không 79 ký tự - Thủ tục thực thêm vào trước xâu s số ký tự trắng để đưa s hình ký tự S ban đầu dòng gồm 80 ký tự

khoa, trang 103, 104

- Chiếu chương trình lên bảng - Hỏi: Chức chương trình

- Giới thiệu cho học sinh thủ tục chuẩn: gotoxy(x,y); delay(n); keypressed;

- Thực chương trình để giúp học sinh thấy kết chương trình

- Yêu cầu người sử dụng nhập xâu ký tự Đưa xâu hình có dạng dịng chữ chạy hình văn 25*80

- Quan sát hình để đối chiếu với kết mà học sinh tự suy luận tính

2 Hoạt động 2: Rèn luyện kĩ lập trình

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH

1 Tìm hiểu yêu cầu đề

- Chiếu nội dung yêu cầu lên bảng

- Yêu cầu học sinh tìm vấn đề tập

- Yêu cầu học sinh lập trình máy

- Yêu câu học sinh thực chương trình nhập liệu test

- Đánh giá kết quat lập trình học sinh

1 Quan sát yêu cầu bảng

- Về bản, giống nhiệm vụ mà câu b làm Chỉ khác chương trình câu b ln cho xâu ký tự chạy dòng 12, xâu ký tự phải chạy dịng Vì phải truyền tham số quy định dòng chạy cho thủ tục

- Độc lập viết chương trình vào máy báo cáo kết thử nghiệm

- Nhập liệu theo test giáo viên báo cáo kết

4 ĐÁNH GIÁ CUỐI BÀI Câu hỏi tập nhà

- Viết thủ tục chaychu(s,dong) nhận tham số xâu S gồm không 79 ký tự biến nguyên Dong In hình dịng chữ xác định S chạy dịng Dong Viết chương trình thực có sử dụng thủ tục

- Chuẩn bị cho tập: Xem trước nội dụng thực hành số 7, sách giáo khoa, trang 105

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

TiÕt theo PPCT TiÕt 48 Bµi tËp vµ thùc hµnh 6

Ngày Soạn 15 / 04/ 2012

Tuần dạy 34

I/ Mục Tiêu dạy :

1 Về kiến thức:- Củng cố lại kiến thức xâu ký tự, chương trình

- Củng cố lại kiến thức chương trình con: Thủ tục, hàm, tham số biến tham số giá trị, biến toàn biến cục

2 Về kỹ năng:- Rèn luyện kĩ xử lý xâu việc tạo hiệu ứng chữ chạy hình - Nâng cao kĩ viết sử dụng chương trình

- Sử dụng chương trình để giải trọn vẹn toán máy tính

3 Về Thỏi độ: - Nhận biết đợc câu lệnh sử dụng hàm CT tham số thực II/ trọng tâm - Phơng phỏp :

Phng phỏp :Cho hs thực hành m¸y, chØ râ tõng c¸ch thao t¸c

Trọng Tâm :mc 1.

IIi/ chuẩn bị giáo viên häc sinh:

a) Giáo viên: Sách GK tin 12, Sách GV tin 12, phịng máy tính cài đặt Passcal b) Học sinh: Sách GK tin 12, ghi,vở

IV/ tiến trình dạy:

1 n định tổ chức: Nắm sơ tình hình lớp: điểm danh

2 Kiểm tra cũ: : - Câu hỏi 2: Viết cấu trúc chung thủ tục lấy ví dụ cụ thể 3 Néi dung bµi míi

1 Hoạt động 1: Tìm hiểu việc xây dựng hàm, thủ tục chương trình thực việc liên quan đến tam giác

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH

1 Tìm hiểu việc xây dựng hàm thủ tục - Chiếu khai báo kiểu liệu diem tamgiac Chiếu hàm thủ tục lên bảng

- Hỏi: Chức chương trình con?

- Có tham số nào? Tham số dạng tham số biến tham số dạng tham số giá trị

2 Tìm hiểu chương trình câu b, sách giáo khoa trang 106

- Chiếu chương trình câu b

- Hỏi: Chương trình thực cơng việc gì? - Thực chương trình để giúp học sinh thấy kết

- Thay tham biến thành tham trị để học sinh thấy sai khác

1 Quan sát chương trình con, lệnh khai báo tham số

- Chức chương trình con:

daicanh(); tính độ dài ba cạnh a, b, c tam giác r chuvi():real; Cho giá trị chu vi tam giác r dientich():real; Cho giá trị diện tích tam giác r tinhchat(); khẳng định tính chất tam giác: đều, cân vuông

hienthi(); hiển thị tọa độ ba đỉnh tam giác hình

Kh_cách():real; cho giá trị khoảng cách hai điểm

- Tham số biến r, a, b, c - Tham số giá trị p,q

2 Quan sát chương trình, dự tính chức chương trình

- Nhập vào tọa độ ba đỉnh tam giác khảo sát tính chất tam giác: cân, vng, In chu vi diện tích tam giác

2 Hoạt động 2: Rèn luyện kĩ lập trình.

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH

1 Phân tích yêu cầu đề - Chiếu nội dung yêu cầu lên bảng - Chia lớp thành nhóm

+ Nhóm 1: Nêu câu hỏi phân tích để giải tốn

+ Nhóm 2: Trả lời câu hỏi phân tích nhóm để tìm cách giải tốn

- Giáo viên góp ý bổ sung cho câu hỏi phân tích trả lời phân tích

2 Lập trình

- u cầu học sinh lập trình máy Giáo viên tiếp cận học sinh để sửa lỗi cần thiết

- Yêu cầu học sinh nhập liệu vào giáo viên báo cáo kết chương trình

- Đánh giá kết học sinh

1 Quan sát yêu cầu - Nhóm 1: Đặt câu hỏi + Dữ liệu vào

+ Dữ liệu

+ Cần sửa chỗ chương trình câu b

+ Thuật toán để đếm số lượng loại hình tam giác

- Nhóm 2: Trả lời câu hỏi phân tích

+ Cho tệp, phải viết lệnh đọc liệu tệp

+ Cần thay đoạn chương trình nhập liệu chương trình để đọc liệu từ tệp TAMGIAC.INP Thay đoạn chương trình in kết hình chương trình để in ba số nguyên dương số lượng ba loại hình tệp TAMGIAC.OUT

+ Thuật tốn: Nếu deu d:=d+1

Ngược lại can c:=c+1 ngược lại v:=v+1;

2 Độc lập viết chương trình, thực chương trình test tự tạo

- Thông báo kết cho giáo viên

- Nhập liệu giáo viên báo cáo kết 4 ĐÁNH GIÁ CUỐI BÀI

1 Những nội dung học- Cách xây dựng hàm thủ tục, cách khai báo tham số dạng tham biến tham trị - Tìm hiểu số chương trình liên quan đến tam giác

2 Câu hỏi tập nhà- Cho file liệu tập hoạt động 2.- Đọc đọc thêm: Ai lập trình viên đầu tiên? Sách giáo khoa, trang 109

V, Tổ trưởng thông qua giáo án ngày tháng năm 2012

TỔ TRƯỞNG CHUYÊN MÔN

Nguyn Th Kim Yn Bài tập

Ngày soạn: 02/ 04 / 2011 tiÕt sè 43

I/ Mc ớch yờu cu.

- Tổng hợp kiến thức tệp thao tác với tệp

- Giúp học sinh nắm bắt tốt ký làm việc với tệp thao tác xử lý tệp văn - Củng cố thêm kiến thức kỹ xử lý áp dụng với lập trình có cấu trúc (chơng trình

con, xử lý hµm vµ thđ tơc)

II/ Phơng tiện dạy học

- Làm tập lớp

- Cho hs thực hành máy, rõ cách thao tác xử lý tệp, cách viết sử dụng CTC cụ thể trờng hợp nói rõ cấu trúc thao tác thực KDL tệp CTC

III/ Néi dung

2- Hoạt động 1:

Câu 1: Viết thủ tục hốn đổi vị trí số nguyên a b tham số biến thực bất kỳ: GV: yêu cầu HS làm vòng 5’ lên bảng thực

HS: lên bang làm thực làm máy Lời giải:

Procedure Hoandoi(var a,b : Real); Var TG: Real ;

Begin

TG:= a ; a:= b ; b:= TG ; End;

Câu 2: Viết chơng trình để mở tệp văn KQ.TXT; nhập từ phím họ tên ghi vào tệp GV: u cầu HS làm vịng 5’ lên bảng thực

HS: lªn bang làm thực làm máy Lời giải:

Program motep ; Var hoten : String ;

F : Text ; Begin

Assign(f, ‘KQ.TXT’); Rewrite(f);

Write(‘ nhap vao ho ten cua ban :’); Readln(hoten); Write(f, hoten);

Readln; End.

C©u 3: hÃy viết chơng trình thực công việc sau: - Viết thủ tục nhập số nguyên dơng a, b, c

- Dùng hàm tính chu vi diện tích tam giác tạo cạnh a,b,c - Viết hồn chỉnh chơng trình

C©u 4: Viết thủ tục hàm xử lý tìm in tất số số >0, <0, số chẵn, số lẻ mảng chiều A cho tríc nhËp vµo tõ bµn phÝm

Câu 5: Nhập chuỗi St, đổi tất ký tự chuỗi thành chữ thờng , chằng hạn St = ‘ABcdEf’ i thnh abcdef

GV: yêu cầu HS làm vòng lên bảng thực HS: lên bang làm thực làm máy

Program doichu; Var

St : String ; N,i : Integer ;

Function chuthuong(ch : Char) : Char ; {ham doi chu hoa thuong} Var

C : char ; Begin

If (ch >=’A’) and (ch<=’z’) then C:= chr(ord(ch)+32) Else C:=ch ;

Chuthuong := C ; End;

Begin

Write(‘Nhap chuoi St : ‘); Readln(St) ; N := Length (St) ;

For i := to N St[i] := Chuthuong (St [i]) ; Writeln (‘St = ‘, St) ;

Readln ; End.

939

4949494949494949494949494949494949494949494949494949494949494949494949 494949494949494949494949494949494949494

IV/ Cñng cè

- Nhắc lại vấn đề trọng tâm mà thực hành hôm thực đợc

- Chỉ rõ cấu trúc, phân tích đề xuất thuật tốn kiểu liệu có cấu trúc để giản tốn mảng

V/ Ra bµi tËp

YCHS nhà thực làm lại tập làm sau KT lại cũ

Tỉ trëng tỉ bé m«n Ngời soạn giáo án

Bài 19: th viện chơng trình chuẩn Tiết 48,49 Ngày 25 tháng năm 2011

I/ Mục Tiêu d¹y :

1 Về kiến thức:

- Biết số thư viện chương trình

2 Về kỹ năng:

- Bước đầu sử dụng thư viện lập trình - Khởi động chế độ đồ hoạ

- Sử dụng thủ tục vẽ điểm, đường, hình trịn, hình ellipse, hỡnh ch nht II/ Phơng tiện dạy học:

a) Chuẩn bị đồ dùng dạy học: Sách GK tin 12, Sách GV tin 12, đĩa chứa chương trình minh họa (quản lý học sinh:gv biên soạn), tranh ảnh chụp sẳn

b) Phương pháp giảng dạy: Thuyết trình, hỏi đáp, đặt vấn đề, so sánh

III/ Phơng pháp giảng dạy trọng tâm học:

- Phương pháp :Thuyết trình, hỏi đáp, đặt vấn đề, so sánh - Trọng Tâm :Mục 2.

IV/ Néi dung:

1 Ổn định tổ chức: Nắm sơ tình hình lớp: điểm danh 2 Kiểm tra cũ:

3 Néi dung bµi míi

1 Hoạt động 1: Tìm hiểu thư viện CRT a Mục tiêu:

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH

1 Tìm hiểu thủ tục Clrscr

- Yêu cầu học sinh nghiên cứu sách giáo khoa, kể tên chương trình thư viện CRT - Chiếu chương trình sau:

Begin clrscr; Readln; End

- Biên dịch chương trình Hỏi: Tại xuất lỗi? Khắc phục nào?

- Thêm Uses CRT; vào đầu chương trình thực chương trình để học sinh thấy kết Chú ý cho học sinh ghi nhớ hình trước lúc thực chương trình

- Hỏi: Chức thủ tục Clrscr; Tìm hiểu thủ tục textcolor

- Chiếu chương trình ví dụ: Uses CRT;

Begin

Write(‘Chua dat mau chu’); textcolor(4);

Write(‘Da dat mau chu la do’); Readln;

1 Tham khảo sách giáo khoa:

- Clrscr, textcolor, textbackground, gotoxy - Quan sát chương trình

- Vì sử dụng thủ tục chưa sử dụng thư viện CRT

- Thêm lệnh USES CRT;

- Quan sát giáo viên thực chương trình

- Xóa hình

End

- Thực chương trình để học sinh thấy kết - Hỏi: Chức lệnh textcolor(4);

3 Tìm hiểu thủ tục Textbackground - Chiếu chương trình ví dụ:

Uses CRT; Begin

Textbackground(1);

Writeln(‘Da dat lai mau nen’); Readln;

End

- Thực chương trình để học sinh thấy kết - Hỏi: Chức lệnh

textbackground(1); Tìm hiểu thủ tục gotoxy - Chiếu chương trình ví dụ: Uses CRT;

Begin

Writeln(‘Con tro dang dung o cot 10 dong 20’); Gotoxy(10,20);

Readln; End

- Thực chương trình để học sinh thấy kết - Hỏi: Chức lệnh gotoxy(10,20);

- Quan sát kết chương trình - Đặt màu chữ thành màu đỏ

- Quan sát chương trình

- Quan sát kết chương trình

- Đặt màu chữ thành màu xanh trời

- Quan sát chương trình

- Quan sát kết chương trình - Đưa trỏ vị trí cột 10 dịng 20 2 Hoạt động 2: Tìm hiểu thư viện Graph ngơn ngữ lập trình Pascal

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH

1 Yêu cầu học sinh nghiên cứu sách giáo khoa để trả lời câu hỏi:

- Hỏi: Các dạng liệu hiển thị hình?

- Hỏi: Nhiệm vụ Card hình?

- Hỏi: Khi nói hình có độ phân giải 640 x 480 nói đến điều gì?

2 Đưa cấu trúc chung thủ tục khởi động đồ họa

Initgraph(dr,md:integer;pth:string);

- Giải thích thơng số thủ tục cho học sinh - Cho học sinh thấy ví dụ khởi động đồ họa Giới thiệu thủ tục trở chế độ văn Closegraph;

- Yêu cầu học sinh khởi động chế độ đồ họa chuyển chế độ văn

1 Tham khảo sách giáo khoa để trả lời - Văn hình ảnh

- Làm cầu nối CPU hình thể thơng tin

- Là nói đến hình có 640 dịng 480 cột Quan sát theo dõi dẫn dắt giáo viên

- Quan sát gáo viên thực

3 Quan sát so sánh hai chế độ văn đồ họa

- Thay phiên thực việc chuyển đổi hai chế độ văn đồ họa

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH Tìm hiểu thủ tục Putpixel

- Chiếu cấu trúc chung thủ tục: Putpixel(x,y:integer;color:word); - Chiếu chương trình ví dụ

Use graph Begin drive:=0;

initgraph(drive, mode, ‘c:\Tp\BGI’); Putpixel(12,40,15);

readln; End

- Thực chương trình để học sinh thấy kết - Hỏi: Chức thủ tục Putpixel

2 Tìm hiểu thủ tục Line

- Chiếu cấu trúc chung thủ tục: Line(x1,y1,x2,y2:integer);

- Chiếu chương trình ví dụ thay lệnh Putpixel(12,40,15); lệnh line(1,1,20,20); - Thực chương trình để học sinh thấy kết - Hỏi: Chức thủ tục Line

3 Tìm hiểu thủ tục Lineto

- Chiếu cấu trúc chung thủ tục: Lineto(x,y:integer);

- Chiếu chương trình ví dụ thay lệnh Putpixel(12,40,15); lệnh lineto(20,20);

- Thực chương trình để học sinh thấy kết - Hỏi: Chức thủ tục Lineto

4 Tìm hiểu thủ tục Lineto

- Chiếu cấu trúc chung thủ tục: Linerel(dx,dy:integer); - Hỏi: Chức thủ tục Linerel

5 Tìm hiểu thủ tục Circle, Ellipse, Rectangle - Chiếu cấu trúc chung thủ tục: Circle(x,y:integer; r:word);

Ellipse(x,y:integer;stangle,endangle,xr,yr:word); Rectangle(x1,y1,x2,y2:integer);

- Chiếu chương trình ví dụ Use graph

Begin drive:=0;

initgraph(drive, mode, ‘c:\Tp\BGI’);

1 Quan sát cấu trúc chung suy nghĩ để trả lời câu hỏi

- Quan sát chương trình

- Quan sát kết chương trình

- Vẽ điểm có màu Color hình tọa độ (x,y)

2 Quan sát cấu trúc chung suy nghĩ để trả lời câu hỏi

- Quan sát chương trình

- Quan sát kết chương trình

- Vẽ đoạn thẳng từ điểm có tọa độ (x1,y1) đến điểm có tọa độ (x2,y2)

3 Quan sát cấu trúc chung suy nghĩ để trả lời câu hỏi

- Quan sát chương trình

- Quan sát kết chương trình

- Vẽ đoạn thẳng từ điểm đến điểm có tọa độ (x,y)

3 Quan sát cấu trúc chung suy nghĩ để trả lời câu hỏi

- Vẽ đọan thẳng nối điểm với điểm có toạ độ tọa độ điểm cộng với dx, dy

Circle(12,40,30);

Ellipse(50,50,30,120,50,100:word); Rectangle(100,100,200,200); readln;

End

- Thực chương trình để học sinh thấy kết - Hỏi: Chức thủ tục Circle, Ellipse, Rectangle

6 Tìm hiểu thủ tục Setcolor

- Chiếu cấu trúc chung thủ tục: Setcolor(m:word);

- Chiếu chương trình ví dụ Use graph

Begin drive:=0;

initgraph(drive, mode, ‘c:\Tp\BGI’); Circle(12,40,100);

Setcolor(4); Circle(12,40,200); readln;

End

- Thực chương trình để học sinh thấy kết - Hỏi: Chức thủ tục Lineto

- Quan sát chương trình

- Quan sát kết chương trình

+ Circle: Vẽ đường trịn có tâm (x,y) bán kính r

+ Ellipse: Vẽ cung ellipse có tâm điểm x,y với bán kính trục xr, yr, từ góc khởi đầu stangle đến góc kết thúc endangle

6 Quan sát cấu trúc chung suy nghĩ để trả lời câu hỏi

- Quan sát chương trình

- Quan sát kết chương trình

- Setcolor(m: word): Đặt màu cho nét vẽ với màu có số hiệu m

3 Hoạt động 3: Tìm hiểu số thư viện khác

HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH

1 Yêu cầu học sinh nghiên cứu sách giáo khoa, nêu tên thư viện

2 Yêu cầu học sinh nêu chức thư viện

1 Các thư viện: System, Dos, Printer Chức thư viện:

- System: chứa hàm thủ tục vào/ra sơ cấp

- Dos: chứa thủ tục tạo thư mục, đóng mở file

- Printer: chứa thủ tục liên quan máy in 4 Hoạt động 4: Rèn luy n k n ng l p trình.ệ ĩ ă ậ

1 Giới thiệu nội dung yêu cầu lên bảng

Định hướng cách giải vấn đề cho học sinh - Thủ tục để vẽ hình trịn có tâm điểm hình

- Cần lệnh vậy, dùng cấu trúc để điều khiển

2 Chia lớp làm nhóm 01 nhóm viết chương trình máy 02 nhóm viết lên bìa

- Thu phiếu trả lời Chiếu lên bảng, gọi học sinh nhóm khác nhận xét đánh giá Sửa chương trình hồn chỉnh cho học sinh viết máy

3 Thực chương trình máy để học sinh thấy kết

1 Quan sát yêu cầu giáo viên

Circle(x,y:integer;r:word);

- Cần 20 lệnh, nên dùng cấu trúc For để chương trình ngắn gọn

2 Thảo luận theo nhóm để viết chương trình lên giấy bìa

- Báo cáo kết viết

- Nhận xét, đánh giá bổ sung thiếu sót nhóm khác

3 Quan sát kết trờn mn hỡnh

IV củng cố, dặn dò

1 Những nội dung học

- Thư viện chương trình cung cấp chương trình chuẩn nhằm mở rộng khả ứng dụng

- Khởi động chế độ đồ hoạ Chuyển từ chế độ hình đồ hoạ sang chế độ hình văn - Thủ tục vẽ điểm, đường, hình bản: hình trịn, hình chữ nhật, hình ellipse

V bµi tËp nhà

Các tập SGK

Tổ trởng chuyên môn Ngời soạn giáo án

Ngày 2/5/2011

TIẾT 50 BÀI TẬP THỰC HÀNH 8

I MỤC TIÊU

1 Kiến thức - HS biết khả đồ hoạ Pascal

2 Kĩ năng - Sử dụng thủ tục đồ hoạ để viết chương trình

II CHUẨN BỊ

1 Chuẩn bị giáo viên - Máy vi tính, tổ chức lại phịng máy 2 Chuẩn bị học sinh - Sách giáo khoa

III Hoạt động dạy – học

1 Hoạt động 1: Tìm hiểu số chương trình Pascal. a Mục tiêu:

- HS biết số thủ tục, suy luận kết chương trình b Nội dung:

- Chương trình vẽ đường gấp khúc ngẫu nhiên nhờ thru tục Lineto, đoạn có màu ngẫu nhiên Vị trí bắt đầu vẽ tâm hình Kết thúc việc vẽ cách nhấn phím c Các bước tiến hành

Hoạt động 1

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

1 Giới thiệu chương trình câu a

- Chiếu nội dung chương trình lên bảng (sách giáo khoa, trang 115)

- Hỏi: Hàm Detectinit có chức gì?

- Thủ tục Moveto(getmaxx div 2, getmaxy div 2) thực công việc gì?

- Chương trình thực cơng việc gì?

- Thực chương trình để học sinh thấy kết chương trình

2 Giới thiệu chương trình câu b, sách giáo khoa trang 116

- Yêu cầu HS nghiên cứu chương trình cho biết chức chương trình

- Thực chương trình để học sinh thấy kết

- Yêu cầu HS thay đổi số tham số màu vẽ, toạ độ thực lại chương trình

1 Quan sát nội dung chương trình

- Cho giá trị khác khơng có lỗi khởi động đồ hoạ

- Chuyển trỏ đồ hoạ đến vị trí tâm hình

- Vẽ đường gấp khúc ngẫu nhiên nhờ thủ tục Lineto, đoạn có màu sắc ngẫu nhiên Vị trí bắt đầu vẽ tâm hình Kết thúc việc vẽ cách nhấn phím

- Quan sát giáo viên thực kiểm nghiệm suy luận

2 Quan sát nội dung chương trình. - Vẽ hình chữ nhật với nét vẽ màu vàng

- Vẽ đường tròn màu xanh cây, tâm 450, 100 bán kính 50

- Quan sát kết thực chương trình kiểm nghiệm suy luận

- Thực yêu cầu giáo viên Thực chương trình để biết ý nghĩa thủ tục tham số

Hoạt động 2

1 Giới thiệu nội dung đề lên bảng Định hướng phương pháp giải vấn đề - Từ điểm góc trái, dùng thủ tục linerel(0,100) để vẽ đoạn thẳng đến đỉnh góc trái Tương tự vậy, thực để vẽ hình vng

2 Yêu cầu HS độc lập viết chương trình lên máy

- Yêu cầu HS thực chương trình để thấy kết

- Tiếp cận học sinh để hướng dẫn, sửa chữa sai sót cho học sinh

3 Chiếu nội chương trình mẫu chuẩn bị trước cho HS quan sát

2 Độc lập soạn thảo chương trình vào máy - Thơng báo hồn thành lập trình

- Thực chương trình

3 Quan sát chương trình mẫu, tự chỉnh sửa nội dung chương trình mình.

Thực chạy quan sát kết IV CỦNG CỐ

Trong trình thực hành

Ngày 07/05/2011

TIẾT 51 ÔN TẬP

I MỤC TIÊU

1 Kiến thức - Nắm toàn kiến thức học từ đầu năm học 2 Kĩ năng

- Vận dụng lệnh kiểu liệu học để lập trình giải tốn cách trọn vẹn II CHUẨN BỊ

1 Giáo viên - Máy chiếu Projector 2 Học sinh - Sách giáo khoa III NỘI DUNG

1 Hoạt động 1: Nhắc lại kiến thức học. a Mục tiêu:

- HS nắm tất kiến thức lí thuyết học từ đầu năm đến b Các bước ti n h nhế à

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

1 Đặt câu hỏi để giúp học sinh nhớ lại kiến thức học

- Kể tên loại ngơn ngữ lập trình

- Phân biệt hai kĩ thuật biên dịch thơng dịch - Trình bày thành phần ngơn ngữ lập trình

- Nêu cấu trúc chung chương trình Pascal Cho ví dụ đơn giản

- Kể tên kiểu liệu đơn giản học, giới hạn kiểu đó, phép tốn tương ứng kiểu hàm liên quan

- Viết cấu trúc chung lệnh gán chức lệnh

- Viết cấu trúc chung thủ tục nhập/xuất liệu

- Nêu cấu trúc chung lệnh lặp

- Cách khai báo kiểu mảng, khai báo biến kiểu mảng tham chiếu đến phần tử mảng - Cách khai báo biến xâu, tham chiếu đến kí tự xâu, hàm thủ tục liên quan đến xâu

- Cách tạo kiểu ghi, khai báo biến kiểu

1.Theo dõi câu hỏi giáo viên suy nghĩ trả lời

- Ngôn ngữ máy - Hợp ngữ

- Ngôn ngữ bậc cao: Pascal, C, - Biên dịch:

- Thông dịch:

- Bảng chữ cái, cú pháp ngữ nghĩa - Gồm hai phần: phần khai báo phần thân Program vd;

Var i:integer; Begin

i:=5; Writeln(i); Readln; End

- Số nguyên, số thực, kí tự, logic

- Phép toán số học, phép toán quan hệ, phép toán logic

- Biểu thức số học, biểu thức quan hệ biểu thức logic

- Hàm bình phương, hàm bậc hai, hàm giá trị tuyệt đối, hàm sinh, hàm cos

- Tên biến:=biểu thức;

- Dùng để tính tốn biểu thức gán giá trị cho biến

- Thủ tục Read()/readln(); - Thủ tục write()/writeln();

If <BTĐK> then <lệnh 1>else<lệnh2>; For i:=gt1 to gt2 <lệnh>;

While<btdk> <lệnh>;

- Type tênkiểu = Array[cs1 cs2] of kiểu_phần_tử;

- Var tênbiến:tênkiểu; - Tênbiến[chỉ số] - Var tênbiến:String; - Tênbiếnxâu[chỉ số]

ghi cách tham chiếu đến phần tử ghi

- Thủ tục: Delete(st,p,n), str(n,st), Val(st,n,ml), Insert(s1,s2,n);

- Type tênkiểubảnghi=record têntrường i: kiểudữliệu i; End

- Var tênbiếnbảngghi:tênkiểubảnghi; - tênbiếnbảnghi.têntrường

2 Hoạt động 2: Rèn luyện kĩ viết chương trình. a Mục tiêu

Học sinh sử dụng kiến thức tổng hợp để giải tốn đặt b Nội dung

Viết chương trình nhập vào dãy số gồm N phần tử nguyên dương In hình ước số chung lớn dãy số

c Các bước tiến hành

Hoạt động giáo viên Hoạt động học sinh

1 Giới thiệu nội dung đề lên bảng. Định hướng phương pháp giải

- Các nhiệm vụ phải thực hiện: nhập dãy số Tìm ước số chung lớn hai số Tìm ước số chung lớn N số in kết hình

2 Chia lớp làm nhóm

Nhóm 1: Viết chương trình nhập giá trị cho mảng

Nhóm 2: Viết chương trình tìm ước số chung lớn số

Nhóm 3: Viết chương trình có chương trình nhập mảng tìm ước số chung lớn hai số

- Thu phiếu học tập, chiếu nội dung lên bảng Gọi HS nhóm nhận xét đánh giá lẫn

- Yêu cầu HS ghép chương trình để chương trình

- Thực chương trình để tồn lớp thấy kết

1 Quan sát nội dung đề suy nghĩ phương pháp giải theo định hướng phân tích của giáo viên

2 Thảo luận theo nhóm viết chương trình lên giấy

- Thông báo kết cho giáo viên hoàn thành

- Nhận xét, đánh giá bổ sung thiếu sót nhóm khác

- Thảo luận để ghép chương trình - Quan sát để thấy kết tập

IV Đánh giá cuối bài 1 Những nội dung học

- Khái niệm ngơn ngữ lập trình ngơn ngữ lập trình Pascal - Chương trình Turbo Pascal đơn giản

- Tổ chức rẽ nhánh lặp - Kiểu liệu có cấu trúc

- Kiểu tệp thao tác xử lí tệp - Chương trình

- Lập trình xử lí đồ hoạ âm 2 Câu hỏi tập nhà

Ngày 07/5/2011

KIỂM TRA HỌC KÌ II MỤC TIÊU

- Đánh giá kết tiếp thu học sinh học kì II - Luyện kĩ giải tập

II CHUẨN BỊ

- Giáo viên chuẩn bị đề kiểm tra - HS chuẩn bị dụng cụ làm III ĐỀ - ĐÁP ÁN

ĐỀ 01:

Câu 1: Nêu khái niệm mảng chiều? Nêu cấu trúc chung khai báo mảng chiều? Nêu thao tác xử lý xâu (Xoá xâu, tạo xâu, đổi chữ Hoa thành chữ thờng, cho biết vị trí xuất xâu S1 xâu S2, cho biết mã X ký tự tong bảng mã ASCII)

Câu 2: em cho biết phải gắn tên tệp trớc xử lý tệp văn ? cần phải đóng tệp văn ?

Câu 3: Nhập vào xâu ký tự từ bàn phím thay tất ký tự đứng đầu từ thành ký tự chữ In hoa?

VD: x©u nguån S = ‘céng hoµ x· héi ’  S = ‘ Céng Hoµ XÃ Hội a, Lập trình thông thờng với toán

b, Lập trình có cấu trúc cách sử dụng chơng trình với toán

02

Câu 1: Nêu khái niệm mảng chiều? Nêu cấu trúc chung lấy ví dụ cụ thể khai báo, nhập in m¶ng chiỊu?

Câu 2: Nêu cấu trúc chung lấy ví dụ cụ thể thủ tục đọc ghi tệp văn bản?

Câu 3: Nhập vào mảng chiều A gồm N phần tử Nguyên (N <50) Em kiểm tra xem mảng có thoả mãn cấp số cộng hay khơng? in mảng số đó?

a, LËp trình thông thờng với toán

b, Lập trình có cấu trúc cách sử dụng chơng trình với toán

03

Câu 1: Nêu cấu trúc chúng lấy ví dụ cụ thể thủ tục: Gán tên tệp, mở tệp để đọc, Mở tệp để ghi

Câu 2: em cho biết phải gắn tên tệp trớc xử lý tệp văn ? cần phải đóng tệp văn ?

Câu 3: Nhập vào xâu S từ bàn phím kiểm tra xem xâu xuất ký tự CH nhập vào từ bàn phím?

VD: S = ‘Céng hoµ x· héi chđ nghÜa viƯt nam ’ vµ ký tù nhËp vµo CH = a kết có ký tù a xt hiƯn x©u S

a, Lập trình thông thờng với toán

b, Lập trình có cấu trúc cách sử dụng chơng trình với toán

04

Câu 1: Nêu khái niệm mảng chiều? Nêu cấu trúc chung lấy ví dụ cụ thể khai báo, nhập in mảng chiều?

Câu 2: Nêu cấu trúc chung lấy ví dụ cụ thể thủ tục mở tệp để đọc mở tệp để ghi đọc, ghi tệp văn bản?

Câu 3: Nhập vào mảng chiều A gồm N hàng, M cột phần tử Nguyên (N <5, M<7) Em tính tổng giá trị hàng in hình giá trị tớnh c ú ?

a, Lập trình thông thờng với toán

b, Lập trình có cấu trúc cách sử dụng chơng trình với toán

05:

Cõu 1: Nêu khái niệm mảng chiều? Nêu cấu trúc chung khai báo mảng chiều? Nêu thao tác xử lý xâu (Xoá xâu, tạo xâu, đổi chữ Hoa thành chữ thờng, cho biết vị trí xuất xâu S1 xâu S2, cho biết mã X ký tự tong bảng mã ASCII)

Câu 2: em cho biết phải gắn tên tệp trớc xử lý tệp văn ? cần phải đóng tệp văn ?

Câu 3: Nhập vào mảng chiều A gồm N hàng, M cột phần tử Nguyên (N <5, M<7) Em tính tổng giá trị cột in hình giá trị tính đợc ú ?

a, Lập trình thông thờng với toán