Bài thực hành 6. Sử dụng lệnh lặp While…..Do

Chào mừng quí thầy về dự giờ thăm lớp 8d
B�i 2 :Tìm hi?u chuong trình nh?n bi?t m?t s? t? nhi�n N du?c nh?p v�o t? b�n phím cĩ ph?i l� s? nguy�n t? hay khơng?




Câu hỏi 1: Em hãy tìm dữ liệu vào dữ liệu ra.
Input: Số tự nhiên N.
Output: Trả lời N là số nguyên tố hoặc N không là số nguyên tố.
Tiết: 53 Bài thực hành số 6
SỬ DỤNG LỆNH LẶP WHILE...DO (tt)
Ý tưởng: Kiểm tra lần lượt N có chia hết cho các số tự nhiên từ 2 đến N-1 hay không. Nếu N không chia hết cho số nào trong khoảng từ 2 đến N-1 thì N là số nguyên tố, ngược lại nếu N chia hết cho bất kỳ số nào trong khoảng từ 2 đến N-1 thì N không phải là số nguyên tố.
Câu 2: Viết thuật toán cho bài toán trên?
Câu 3: Trong ngôn ngữ lập trình Pascal phép toán chia hết là phép toán nào?lấy ví dụ?
Tiết: 53 Bài thực hành số 6
SỬ DỤNG LỆNH LẶP WHILE...DO (tt)
Thuật toán :
B1: Nhập số tự nhiên N từ bàn phím.
B2: Nếu N≤1 thông báo N không phải là số nguyên tố, rồi chuyển đến B4
B3: Nếu N>1;
3.1. i←2;
3.2. trong khi N mod i<>0 còn đúng thì i ←i+1;
3.3.Nếu i = N thì thông báo N là số nguyên tố, rồi chuyển đến B4.Ngược lại thông báo N không phải là số nguyên tố
B4: Kết thúc thuật toán
Tiết: 53 Bài thực hành số 6
SỬ DỤNG LỆNH LẶP WHILE...DO (tt)
B4: Kết thúc thuật toán
B1: Nhập số tự nhiên N từ bàn phím.
B2: Nếu N≤1 thông báo N không phải là số nguyên tố, rồi chuyển đến B4
B3: Nếu N>1;
3.1. i←2;
3.2. Trong khi N mod i<>0 còn đúng
thì i ←i+1;
3.3.Nếu i = N thì thông báo N là số nguyên tố, rồi chuyển đến B4.
Ngươc lại thông báo N
không phải là số nguyên tố
begin
i:=2
Cách phân bố câu lệnh trong thuật toán
Câu 4: Đọc và tìm hiểu ý nghĩa của từng câu lệnh trong chương trình sau đây:
Program So_ngto;
Uses Crt;
Var n,i:integer;
Begin
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.
Câu 5: Trong chương trình bên các em sử dụng bao nhiêu biến? Các biến dùng kiểu dữ liệu gì?
Tiết: 53 Bài thực hành số 6
SỬ DỤNG LỆNH LẶP WHILE...DO (tt)
Ghi nhớ!
Lặp
trong pascal
Lặp với số lần lặp không biết trước.
While <điều kiện> do
Tiết: 53 Bài thực hành số 6
SỬ DỤNG LỆNH LẶP WHILE...DO (tt)

C?m on
Qu�
Th?y Cơ
v�
c�c em
h?c sinh
d�
quan t�m
theo d�i !