V. Dặn dũ (5 phỳt) Về nhà học bài, kết hợp SGK
Tiết 53: Bài thực hành số
Tiết 53: Bài thực hành số 6 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 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
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 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)
--- ---