Giáo án Tin học 8 - Tuần 24, Bài thực hành 6: Sử dụng lệnh lặp while … do

 BÀI THỰC HÀNH 6: SỬ DỤNG LỆNH LẶP WHILE  DO
I. TÓM TẮT LÝ THUYẾT
* Cú pháp câu lệnh lặp While  do: 
 While do ;
Trong đó:
+ While, do: là từ khóa. 
+ Điều kiện: thường là phép so sánh.
+ Câu lệnh: có thể là câu lệnh đơn hay câu lệnh ghép.
* Câu lệnh này được thực hiện như sau:
Bước 1: Kiểm tra điều kiện
Bước 2: Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và kết thúc vòng lặp. Nếu điều kiện đúng, 
câu lệnh được thực hiện và tiếp tục quay lại bước 1.
* Ta có sơ đồ khối thể hiện hai bước thực hiện của câu lệnh While ... do như sau:
II. NỘI DUNG THỰC HÀNH
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ướng dẫn: 
- Số nguyên tố là số chỉ có hai ước số là 1 và chính nó. Số nhỏ hơn 2 không phải là số 
nguyên tố. 
- Giả sử cần kiểm tra số N có phải là số nguyên tố hay không thì các bước thực hiện như sau:
 Bước 1: Nhập vào N.
 Bước 2: Kiểm tra nếu N <=1 thì kết luận N không phải là số nguyên tố.
 Bước 3: Lặp từ 2 tới N-1(lấy N chia lần lượt cho các số từ 2 đến N-1), nếu trong khoảng 
 này tồn tại số mà N chia hết (số đó là ước của n) thì kết luận N không phải là số nguyên tố, 
 ngược lại (không có thêm ước số nào khác) N là số nguyên tố. 
- Kiểm tra tính chia hết bằng phép chia lấy phần dư (mod).
 a) Đọ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; TB:=Tong/n;
 writeln('Trung binh cua ',n,' so la = ',TB:10:3);
 writeln('Nhan Enter de thoat ...');
 readln
 end.
 c) Em có nhận xét gì với chương trình tham khảo trên? 
 d) Chúng ta có thể sử dụng vòng lặp For  do để viết chương trình cho bài toán này 
 không? Nếu được em hãy viết lại chương trình và chạy trên máy tính. Chạy chương trình 
 và quan sát kết quả.
 BÀI TẬP
Bài tập 1. 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?
a) Thuật toán 1:
Bước 1. S  1, x  0.5.
Bước 2. Nếu S 5.0, 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  1, n  0.
Bước 2. Nếu n = 10, chuyển tới bước 4.
Bước 3. n  n + 1; S  S+2*n; 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ài tập 2. Hãy tìm hiểu mỗi đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó 
chương trình thực hiện bao nhiêu vòng lặp. Hãy rút ra nhận xét của em.
a) Tong:=0; i:=1;
 while i<=10 do
 begin 
 Tong:=Tong+i; 
 i:=i+1; 
 end;
b) Tong:=0; i:=1;
 while i<=10 do
 Tong:=Tong+i; 
 i:=i+1; 
Bài tập 3.
a) Sử dụng lệnh lặp for ... do và while ... do để viết đoạn chương trình Pascal thể hiện các 
thuật toán 1 và 2 ở bài tập.