IV. Nhận xột (5 phỳt)
SỬ DỤNG LỆNH LẶP WHILE DO (tt)
I. Mục tiờu:
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ị:
Nội dung bài thực hành, mỏy tớnh điện tử.
III. Tiến trỡnh thực hành:
T/g Hoạt động của thầy Hoạt động của trũ Nội dung
30p + Hoạt động 1: 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;
Var n,i:integer;
Begin
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.
+ 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.
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.
8p Clrscr; 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 2: 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.
IV. Nhận xột (5 phỳt)
Giỏo viờn nhận xột và đỏnh giỏ tiết thực hành.
V. Dặn dũ: (2 phỳt)
- Tiết sau thực hành:”Bài thực hành số 6 (tt)
Tuần :
28 Ngày soạn:
Tiết: 53 Ngày giảng:
BÀI TẬP
I. Mục tiờu:
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ị:
Sỏch giỏo khoa, mỏy tớnh điện tử.
III. Tiến trỡnh bài dạy:
T/g Hoạt động của thầy Hoạt động của trũ Nội dung
13 p 30 p + 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. + Hoạt động 2: Bài tậ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'); + 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.
+ Trừ cõu d), tất cả cỏc
? 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? f) for i:=100 to 1 do writeln('A'); g) for i:=1.5 to 10.5 do
19 p 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) + . 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. 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. Dặn dũ: (2 phỳt)
- Về nhà học bài kết hợp sỏch giỏo khoa, tiết sau học bài làm bài tập (tt)
Tuần :
28 Ngày soạn:
Tiết: 54 Ngày giảng:
BÀI TẬP (tt)
I. Mục tiờu:
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 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ị:
Sỏch giỏo khoa, mỏy tớnh điện tử.
III. Tiến trỡnh bài dạy:
T/g Hoạt động của thầy Hoạt động của trũ Nội dung
13p + Hoạt động 1: Nờu sự
khỏc biệt giữa cõu lệnh xỏc định và cõu lệnh khụng xỏc định.
Sự khỏc biệt:
a) Cõu lệnh lặp với số lần lặp cho trước chỉ thị cho mỏy tớnh thực hiện một lệnh hoặc một nhúm lệnh với số lần đĩ được xỏc định từ trước, cũn với cõu lệnh lặp với số lần lặp chưa biết trước thỡ số lần lặp chưa được xỏc định trước.
b) Lệnh lặp với số lần cho trước, điều kiện là giỏ trị của một biến đếm cú giỏ trị nguyờn đĩ đạt được giỏ trị lớn nhất hay chưa, cũn trong cõu lệnh lặp với số lần lặp chưa biết trước, điều kiện tổng quỏt hơn nhiều, cú thể là kiểm tra một giỏ trị của một số thực
c) Lệnh lặp với số lần cho trước, cõu lệnh được thực
Nờu sự khỏc biệt giữa cõu lệnh xỏc định và cõu lệnh khụng xỏc định.
30p + Hoạt động 2: Bài tập. ? Hĩy tỡm hiểu cỏc thuật toỏn sau đõy và cho biết khi thực hiện thuật toỏn, mỏy tớnh sẽ thực hiện bao nhiờu vũng lặp? Khi kết thỳc, giỏ trị của S bằng bao nhiờu? Viết chương trỡnh Pascal thể hiện cỏc thuật toỏn đú.
a) Thuật toỏn 1
Bước 1. S ← 10, x ← 0.5.
Bước 2. Nếu S ≤ 5.2, chuyển tới bước 4.
Bước 3. S ← S − x và
quay lại bước 2.
Bước 4. Thụng bỏo S và
kết thỳc thuật toỏn.
b) Thuật toỏn 2
Bước 1. S ← 10, n ← 0.
Bước 2. Nếu S ≥ 10,
chuyển tới bước 4.
Bước 3. n ← n + 3, S
← S − n quay lại bước 2.
Bước 4. Thụng bỏo S và
kết thỳc thuật toỏn.
hiện ớt nhất một lần, sau đú kiểm tra điều kiện. Lệnh lặp với số lần chưa xỏc định trước, trước hết điều kiện được kiểm tra. Nếu điều kiện được thoả mĩn, cõu
lệnh mới được thực hiện. a) Thuật toỏn 1: 10 vũng lặp
được thực hiện. Khi kết thỳc thuật toỏn S = 5.0. Đoạn chương trỡnh Pascal tương ứng: S:=10; x:=0.5; while S>5.2 do S:=S-x; writeln(S) ; b) Thuật toỏn 2: Khụng
vũng lặp nào được thực hiện vỡ ngay từ đầu điều kiện đĩ khụng được thỏa mĩn nờn cỏc bước 2 và 3 bị bỏ qua. S = 10 khi kết thỳc thuật toỏn. Đoạn chương trỡnh Pascal tương ứng: S:=10; n:=0; while S<10 do begin n:=n+3; S:=S-n end; writeln(S) ; IV. Dặn dũ: (2 phỳt)