Tin 8 VIP Pro T31-32

Kiến thức: - Biết nhu cầu cần có cấu trúc lặp trong lập trình - Biết ngụn ngữ lập trỡnh dựng cấu trỳc lặp để chỉ dẫn mỏy tớnh thực hiện lặp đi lặp lại cụng việc nào đú một số lần.. - Bi

Ngày soạn: 01/ 12/08

Ngày giảng: 8A:

8B:

8C:

Tiết 31 - 32:

Bài thực hành 6:

I Mục tiêu bài học:

1 Kiến thức:

- Biết nhu cầu cần có cấu trúc lặp trong lập trình

- Biết ngụn ngữ lập trỡnh dựng cấu trỳc lặp để chỉ dẫn mỏy tớnh thực hiện lặp đi lặp lại cụng việc nào đú một số lần

- Biết Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp cha biết trớc bằng câu lệnh : while….do

- Biết viết chơng trình sử dụng câu lệnh lặp với số lần cha biết trớc

2 Kĩ năng:

- Viết đỳng được lệnh while … do trong một số tỡnh huống đơn giản

- Biết Khi nào thỡ sử dụng đến cõu lệnh lặp với số lần cha biết trớc

- Nâng cao kĩ năng đọc hiểu được cõu lệnh lặp với số lần cha biết trước

while…do trong Pascal.

3 Thỏi độ:

- Nghiờm tỳc trong học tập cần tập trung đến bài học, chỳ ý đến ý nghĩa của cõu lệnh lặp

II Chuẩn bị:

1 Giỏo viờn: Giỏo ỏn, SGK, tài liệu,

2 Học sinh: SGK, vở ghi, chuẩn bị b i à ở nh , đồ dùng học tậpà

III Tiến trình lên lớp:

1 ổn định tổ chức

2 Kiểm tra:

? Em hãy viết cấu trúc câu lệnh lặp While…do

Giải thích ý nghĩa cụ thể của các thành phần trong câu lệnh

3 Nội dung thực hành:

Hoạt động của GV - HS Nội dung thực hành

Hoạt động 1: Tập gõ chơng trình có sẵn và tìm hiểu ý nghĩa của chơng trình

Bài tập :

Viết chơng trình Pascal thể hiện thuật toán

tính tổng n số

- GV: Yêu cầu HS viết thuật toán

Bài tập :

Chơng trình Pascal thể hiện thuật toán tính tổng n số trong ví dụ 2

- HS: Nhóm viết thuật toán và trao đổi

thống nhất giữa các nhóm

- GV : Nhận xét, chốt lại

- GV: yêu cầu dựa vào thuật toán và VD 4

trang 69 để thực hành viết chơng trình

Pascal tính tổng n số

- HS: HĐN thực hành viết chơng trình:

- GV: Theo dõi và trả lời thắc mắc của HS

- GV: Yêu cầu chạy chơng trình và tìm n,

…

- HS:

Chạy chơng trình : n = 45, và tổng đầu tiên

lớn hơn 1000 là 1034

* Thuật toán:

+ Bước 1 S ← 0, n ← 0

+ Bước 2 Nếu S ≤ 1000, n ← n + 1;

ngược lại chuyển tới bước 4

+ Bước 3 S ← S + n và quay lại bước 2.

+ Bước 4 In kết quả : S và n là số tự

nhiờn nhỏ nhất sao cho S > 1000 Kết thỳc

thuật toỏn

* Chơng trình Pascal:

var S,n: integer;

Begin

S:=0; n:=1;

while S<=1000 do begin n:=n+1; S:=S+n end;

writeln('So n nho nhat de tong > 1000

la ',n);

writeln('Tong dau tien > 1000 la ',S);

End.

Chạy chơng trình : n = 45, và tổng đầu tiên lớn hơn 1000 là 1034

Hoạt động 2: Gõ chơng trình, lu và tìm hiểu ý nghĩa các câu lệnh.

- GV: yêu cầu HS nghiên cứu bài tập 1

SGK – T 72

- HS: Cá nhân đọc bài và nghiên cứu

? Các biến chúng ta dự định sẽ sử dụng và

kiểu của chúng là gì?

- HS: Các biến

N, dem : integer;

X, TB : real;

- GV: Yêu cầu HĐN gõ chơng trình và lu

chơng trình với tên Tinh_TB

Bài tập 1:

* Các biến sẽ sử dụng trong chơng trình:

N, dem : integer;

X, TB : real;

- HS: HĐN thực hành

- GV: Quan sát và HD, uốn nắn kịp thời

- GV: Yêu cầu đọc và tìm hiểu ý nghĩa của

từng câu lệnh

- GV: Yêu cầu 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?

- HS: Nghiên cứu bài tập

Đọc và tìm hiểu ý nghĩa của từng câu

lệnh trong chơng trình

- GV: tổ chức cho thảo luận cả lớp tìm hiểu

ý nghĩa của từng câu lệnh

- HS: Gõ, dịch và chạy thử chơng trình

* Chơng trình:

Program Tinh_Trung_binh;

uses crt;

Var

n, dem: Integer;

x, TB: real;

Begin

clrscr;

dem:=0 ; TB:=0 ; write('Nhap so cac so can tinh

n = '); readln(n);

while dem<n do begin

dem:=dem+1;

write('Nhap so thu ',dem,'= '); readln(x); TB:=TB+x;

end;

TB:=TB/n;

writeln('Trung binh cua ',n,'

so la = ',TB:10:3);

writeln('Nhan Enter de thoat ');

readln

End.

Bài tập 2:

a) Đọc và tìm hiểu ý nghĩa của từng câu lệnh

b) Gõ, dịch và chạy thử chơng trình:

Uses Crt;

Var n,i:integer;

Begin

Clrscr;

- GV: yêu cầu HS chạy chơng trình với

một vài độ chính xác khác nhau

- HS: Thực hiện theo yêu cầu của GV

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.

Hoạt động 3: Củng cố:

? Em hãy viết câu cấu trúc câu lệnh lặp với số lần cha biết trớc và phân biệt với câu lệnh lặp với số lần biết trớc

4 Tổng kết – dặn dò:

- Nhận xét giờ thực hành, chấm điểm kết quả và ý thức học giờ thực hành của các nhóm

- Về nhà làm các bài tập cuối mỗi bài học

- Giờ sau một tiết bài tập và một tiết kiểm tra thực hành