III. HOẠT ĐỘNG DẠY HỌC: 1 Ổn định lớp: kiểm tra sĩ số
1. Củng cố: chỉ ra những lỗi hs thường mắc phải và yờu cầu khắc phục 2 Hướng dẫn về nhà: về nhà xem trước bài thực hành
Tiết: 49,50 Ngày Soạn:24/02/2011
Tuần: 25 Ngày dạy :22/02/2011
Bài thực hành số 6
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ỦA THẦY HOẠT ĐỘNG CỦA TRề NỘI DUNG Hoạt động 1: Làm bài tập 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 để 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;
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 theo sự hướng dẫn của giỏo viờn.
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. Uses Crt; Var n,i:integer; Begin Clrscr;
write('Nhap vao mot so nguyen:
');readln(n); If n<=1 then
Var n,i:integer;
Begin Clrscr; + Học sinh đọc chương trỡnh và tỡmhiểu ý nghĩa của từng cõu lệnh theo sự hướng dẫn của giỏo viờn.
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/2011
