III. HOẠT ĐỘNG DẠY HỌC: 1 Ổn định lớp: kiểm tra sĩ số
2. Hướng dẫn về nhà: về nhà xem trước bài thực hành
SỬ DỤNG LỆNH LẶP WHILE DO
I. MỤC TIấU CẦN ĐẠT
1. Kiến thức:
- Viết chương trỡnh Pascal sử dụng cõu lệnh lặp với số lần chưa biết trước. 2. Kĩ năng:
- Rốn luyện kĩ năng đọc chương trỡnh, tỡm hiểu tỏc dụng của cỏc cõu lệnh. 3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch viết chương trỡnh để thực hiện một số cụng việc.
II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH
1. GV: Sỏch giỏo khoa, mỏy tớnh điện tử, phần mềm Geogebra. 2. HS: Sỏch, vở ,đọc bài ở nhà.
III.TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp 1. Ổn định lớp
2. Kiểm tra bài cũ: em hĩy viết cầu trỳc và sơ đồ của vũng lắp với số lần chưa biết trứơc.
3. Bài mới
HOẠT ĐỘNG CỦATHẦY THẦY
HOẠT ĐỘNG CỦA TRề NỘI DUNG
1. Viết chương trỡnh sử dụng lệnh lặp While … do để tớnh n số thực x1,x2,x3…xn. Cỏc số n và x1,x2,x3…, xn được nhập từ bàn phớm. - í tưởng?
- Mụ tả thuật toỏn của chương trỡnh, cỏc biến dự định sẽ sử dụng và kiểu của chỳng
+ Sử dụng một biến đếm và lệnh lặp While…do để nhập và cộng dần cỏc số vào một biến kiểu số thực cho đến khi nhập đủ n số. + Chỳ ý lắng nghe => ghi nhớ kiến thức. 1. Viết chương trỡnh sử dụng lệnh lặp While … do để tớnh n số thực x1,x2,x3…xn. Cỏc số n và x1,x2,x3…, xn được nhập từ bàn phớm.
Gừ chương trỡnh sau đõy: Program tinh_trung_binh; Var n, dem: integer; X, tb: real; Begin
Dem:=0; tb:=0;
Writeln(‘nhap cac so can tinh n =’);
- Gừ chương trỡnh sau đõy: Program tinh_trung_binh; Var n, dem: integer; X, tb: real; Begin
Dem:=0; tb:=0;
Writeln(‘nhap cac so can tinh n =’);
Readln(n);
While dem < n do Begin
Dem:= dem + 1;
Writeln(‘nha so thu’, dem,’=’); Readln(x);
Tb:= tb + x; End;
Tb:=tb/n;
Witeln(‘Trung binh của’,n,’so là =’, tb:10:3);
Readln; End.
- Lưu chương trỡnh với tờn tinh_tb.
- Đọc hiểu và tỡm hiểu ý nghĩa của từng cõu lệnh. Dịch chương trỡnh và sửa lỗi, nếu cú. Chạy chương trỡnh với cỏc bộ dữ liệu được gừ từ bàn phớm và kiểm tra kết quả nhận được.
+ Học sinh độc lập gừ chương trỡnh vào mỏy.
+ Học sinh lưu chương trỡnh theo yờu cầu của giỏo viờn. + Học sinh thực hiện theo yờu cầu của giỏo viờn.
Readln(n); While dem < n do Begin Dem:= dem + 1; Writeln(‘nha so thu’, dem,’=’); Readln(x); Tb:= tb + x; End; Tb:=tb/n;
Witeln(‘Trung binh của’,n,’so là =’, tb:10:3);
Readln; End.
Hoạt động 2: Làm bài tập 2 ở SGK
- Gọi học sinh đọc đề bài ở sỏch giỏo khoa.
- í tưởng?
- Giỏo viờn đưa ra ý tưởng để
Bài 2. Tỡm hiểu chương trỡnh nhận biết một số tự nhiờn N được nhập vào từ bàn phớm cú phải là số nguyờn tố hay khụng.
Bài 2. Tỡm hiểu chương trỡnh nhận biết một số tự nhiờn N được nhập vào từ bàn phớm cú phải là số nguyờn tố hay khụng.
học sinh tỡm hiều.
í tưởng: Kiểm tra lần lượt N cú
chia hết cho cỏc số tự nhiờn 2 ≤
i ≤ N hay khụng. Kiểm tra tớnh chia hết bằng phộp chia lấy phần dư (mod).
? Đọc và tỡm hiểu ý nghĩa của từng cõu lệnh trong chương trỡnh sau đõy:
Uses Crt;
Var n,i:integer;
Begin Clrscr;
- Học sinh tỡm hiểu ý tưởng theo sự hướng dẫn của giỏo viờn.
+ Học sinh đọc chương trỡnh và tỡm hiểu ý nghĩa của từng cõu lệnh theo sự hướng dẫn của giỏo viờn. Uses Crt; Var n,i:integer; Begin Clrscr; write('Nhap vao mot so nguyen: ');readln(n); If n<=1 then writeln('N khong la so nguyen to') else begin
write('Nhap vao mot so nguyen: ');readln(n); If n<=1 then writeln('N khong la so nguyen to') else begin i:=2; while (n mod i<>0) do i:=i+1; if i=n then writeln(n,' la so nguyen to!') else
writeln(n,' khong phai la so nguyen to!'); end;
readln
end.
+ Gừ chương trỡnh vào mỏy, chạy chương trỡnh và kiểm tra kết quả.
+ Học sinh độc lập gừ chương trỡnh vào mỏy.
+ Nhấn Ctrl + F9 để chạy và kiểm tra chương trỡnh.
i:=2; while (n mod i<>0) do i:=i+1; if i=n then writeln(n,' la so nguyen to!') else writeln(n,' khong phai la so nguyen to!'); end; readln end. IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ
1. Củng cố: chỉ ra những chỗ mà hs thướng sai và yờu cầu khắc phục 2. Hướng dẫn về nhà: về nhà xem trước bài mới và xem lai bài cũ
Tiết: 51 Ngày
Soạn:24/02/2012
Tuần: 26 Ngày dạy :22/02/2012
ễN TẬP
I. MỤC TIấU CẦN ĐẠT
1. Kiến thức:
- Viết chương trỡnh Pascal sử dụng cõu lệnh lặp với số lần biết trước 2. Kĩ năng:
- Rốn luyện khả năng đọc chương trỡnh, tỡm hiểu tỏc dụng và kết hợp cỏc cõu lệnh. 3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch mụn học.
II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH
1. GV: Sỏch giỏo khoa, mỏy tớnh điện tử. 2. HS: Sỏch, vở ,đọc bài ở nhà.
III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp 1. Ổn định lớp
2. Kiểm tra bài cũ 3. Bài mới
Hoạt động 1: ễn tập cõu lệnh lặp xỏc định For..do.
? Nờu cỳ phỏp của vũng lặp xỏc định.
? Nờu hoạt động của vũng lặp.
+ Cỳ phỏp: For <biến đếm>:= <giỏ trị đầu> to <giỏ trị cuối> do <cõu lệnh>;
+ Hoạt động của vũng lặp: - B1: biến đếm nhận giỏ trị đầu - B2: Chương trỡnh kiểm tra biểu thức điều kiện, nếu biểu thức điều kiện đỳng thỡ thực hiện cõu lệnh. - B3: Biến đếm tự động tăng lờn 1 đơn vị và quay lại B2.
- B4: Nếu biểu thức điều kiện nhận giỏ trị sai thỡ thoỏt ra khỏi vũng lặp.
? Nờu cỳ phỏp của vũng lặp xỏc định.
? Nờu hoạt động của vũng lặp
1. Cỏc cõu lệnh Pascal sau cú hợp lệ khụng, vỡ sao? a) for i:=100 to 1 do writeln('A'); b) for i:=1.5 to 10.5 do writeln('A'); c) for i=1 to 10 do writeln('A'); d) for i:=1 to 10 do; writeln('A'); e) var x: real; begin for x:=1 to 10 do writeln('A'); end.
2. Hĩy mụ tả thuật toỏn để tớnh tổng sau đõy: i. A = 1 1 1 1 ... 1.3+2.4+3.5+ n n( 1) + . + Trừ cõu d), tất cả cỏc cõu lệnh đều khụng hợp lệ:
a) Giỏ trị đầu phải nhỏ hơn giỏ trị cuối;
b) Cỏc giỏ trị đầu và giỏ trị cuối phải là số nguyờn;
c) Thiếu dấu hai chấm khi gỏn giỏ trị đầu;
d) Thừa dấu chấm phẩy thứ nhất, nếu như ta muốn lặp lại cõu lệnh
writeln('A') mười lần, ngược lại cõu lệnh là hợp lệ;
e) Biến x đĩ được khai bỏo như là biến cú dữ liệu kiểu số thực và vỡ thế khụng thể dựng để xỏc định giỏ trị đầu và giỏ trị cuối trong cõu lệnh lặp. * Thuật toỏn tớnh tổng: A = ... ( 1 1) 5 . 3 1 4 . 2 1 3 . 1 1 + + + + n n Bước 1. Gỏn A ← 0, i ← 1. Bước 2. A ← i i( 1+2). Bước 3. i ←i + 1.
Bước 4. Nếu i ≤n, quay lại bước 2.
Bước 5. Ghi kết quả A và kết thỳc thuật toỏn.
1. Cỏc cõu lệnh Pascal sau cú hợp lệ khụng, vỡ sao? f) for i:=100 to 1 do writeln('A'); g) for i:=1.5 to 10.5 do writeln('A'); h) for i=1 to 10 do writeln('A'); i) for i:=1 to 10 do; writeln('A'); j) var x: real; begin for
x:=1 to 10 do
writeln('A');
end.
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ
1. Củng cố: nhắc nhở học sinh làm bài cẩn thận, đọc kĩ đề bài, 2. Hướng dẫn về nhà: tiết sau kiểm tra 1 tiết
Tiết: 52 Ngày Soạn:24/02/2012
Tuần: 26 Ngày dạy :22/02/2012