- Thao tỏc: chọn cụng cụ sau đú lần lượt chọn ba điểm trờn mặt phẳng.
4. Hướng dẫn về nhà: về nhà xem trước bài thực hành
Tuần: 28 Tiết: 55 Ngày Soạn: 5/3/2015 Ngày dạy : 11/3/2015
Bài thực hành số 6
SỬ DỤNG LỆNH LẶP WHILE...DO
I. MỤC TIấU CẦN ĐẠT
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Ị CỦA GIÁO VIấN VÀ HỌC SINH
1. GV: Sỏch giỏo khoa, mỏy tớnh điện tử, phần mềm Geogebra. 2. HS: Sỏch, vở ,đọc bài ở nhà.
III.TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp 1. Ổn định lớp
2. Kiểm tra bài cũ: em hĩy viết cầu trỳc và sơ đồ của vũng lắp với số lần chưa biết trứơc.
3. Bài mới
HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦA TRề NỘI DUNG
Hoạt động : Làm bài tập (43 phỳt) 1. Viết chương trỡnh sử dụng lệnh lặp While … do để tớnh n số thực x1,x2,x3…xn. Cỏc số n + Sử dụng một biến đếm và lệnh lặp While…do để nhập và cộng dần cỏc số vào một biến 1. Viết chương trỡnh sử dụng lệnh lặp While … do để tớnh n số thực x1,x2,x3…xn. Cỏc số n
và x1,x2,x3…, xn được nhập từ bàn phớm.
- í tưởng?
- Mụ tả thuật toỏn của chương trỡnh, cỏc biến dự định sẽ sử dụng và kiểu của chỳng
- Gừ chương trỡnh sau đõy: Program tinh_trung_binh; Var n, dem: integer; X, tb: real; Begin
Dem:=0; tb:=0;
Writeln(‘nhap cac so can tinh n =’);
Readln(n);
While dem < n do Begin
Dem:= dem + 1;
Writeln(‘nha so thu’, dem,’=’); Readln(x);
Tb:= tb + x; End;
Tb:=tb/n;
Witeln(‘Trung binh của’,n,’so là =’, tb:10:3);
Readln; End.
- Lưu chương trỡnh với tờn tinh_tb.
- Đọc hiểu và tỡm hiểu ý nghĩa của từng cõu lệnh. Dịch chương trỡnh và sửa lỗi, nếu cú. Chạy chương trỡnh với cỏc bộ dữ liệu được gừ từ bàn phớm và kiểm tra kết quả nhận được.
kiểu số thực cho đến khi nhập đủ n số.
+ Chỳ ý lắng nghe => ghi nhớ kiến thức.
+ Học sinh độc lập gừ chương trỡnh vào mỏy.
+ Học sinh lưu chương trỡnh theo yờu cầu của giỏo viờn. + Học sinh thực hiện theo yờu cầu của giỏo viờn.
và x1,x2,x3…, xn được nhập từ bàn phớm.
Gừ chương trỡnh sau đõy: Program tinh_trung_binh; Var n, dem: integer; X, tb: real; Begin
Dem:=0; tb:=0;
Writeln(‘nhap cac so can tinh n =’); Readln(n);
While dem < n do Begin
Dem:= dem + 1;
Writeln(‘nha so thu’, dem,’=’); Readln(x);
Tb:= tb + x; End;
Tb:=tb/n;
Witeln(‘Trung binh của’,n,’so là =’, tb:10:3);
Readln; End.
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ (2 phỳt)
2. Hướng dẫn về nhà: về nhà xem trước bài mới và xem lai bài cũ
Tuần: 28 Tiết: 56 Ngày Soạn: 5/3/2015 Ngày dạy : 11/3/2015
Bài thực hành số 6
SỬ DỤNG LỆNH LẶP WHILE...DO
I. MỤC TIấU CẦN ĐẠT
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Ị CỦA GIÁO VIấN VÀ HỌC SINH
1. GV: Sỏch giỏo khoa, mỏy tớnh điện tử, phần mềm Geogebra. 2. HS: Sỏch, vở ,đọc bài ở nhà.
III.TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp 1. Ổn định lớp
2. Kiểm tra bài cũ: em hĩy viết cầu trỳc và sơ đồ của vũng lắp với số lần chưa biết trứơc.
3. Bài mới
HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦA TRề NỘI DUNG
Hoạt động : Làm bài tập 2 ở SGK (43 phỳt) - Gọi học sinh đọc đề bài ở
sỏch giỏo khoa. - í tưởng?
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
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
- 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 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.
+ Gừ chương trỡnh vào mỏy, chạy chương trỡnh và kiểm tra kết quả.
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.
+ 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.
khụng.
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.
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ (2 phỳt)