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

Một phần của tài liệu tin học 8(chỉ việc in) (Trang 85 - 89)

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

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

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

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:

cõu lệnh trong chương trỡnh sau đõy:

Uses Crt;

Var n,i:integer;

Begin Clrscr;

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

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/2011

Tuần: 26 Ngày dạy :22/02/2011

Một phần của tài liệu tin học 8(chỉ việc in) (Trang 85 - 89)

Tải bản đầy đủ (DOC)

(138 trang)
w