Kiến thức: - Hiểu hoạt động của câu lệnh với số lần biết trước For…do trong Turbo Pascal.. - Biết lệnh ghép trong Pascal.[r]
Trang 1Ngày soạn: 21/01/2010
Ngày dạy: 27/01/2010
Tu ần 22:
I MỤC TIÊU:
1 Kiến thức:
-
- ' ghép trong Pascal
- *+ $, !- câu .)&
2 Kĩ năng:
/ !- các !1 trình Pascal 1 3
3 Thái độ:
- Ham thích môn &
- Tích 7 8)
II PHƯƠNG PHÁP:
III CHUẨN BỊ:
1 Giáo viên:
- SGK, tài 9 giáo án
- ?@ dùng $B C máy vi tính
2 Học sinh:
-
- SGK, @ dùng 8)C máy vi tính
IV TIẾN TRÌNH LÊN LỚP:
1 Ổn định lớp
2 Bài mới:
Hoạt động 1: Ôn lại kiến thức trọng tâm
Gv: Cho Hs làm bài
I 4 tra 4 &
Câu 1: Em câu .) theo L nào $!
BM
a N thay cho O &
b Các câu !- .) .) lai O
&
c Vì câu P có tên là .)
d E3 a, b, c O sai
Câu 2: Cách
! sau:
a For
S do <câu SV
b For
S do <câu S
1 Lý thuyết:
Trang 2c For
S do <câu SV
d For
S do ; <câu S
Hãy )!1 án W &
Câu 3:
a ?O là các con
b Có chung I $X
c
d
Hãy )!1 án W &
Câu 4: Trong câu
(for…do), <câu S - 7 4HB M
a (<giá
b Tùy vào bài tóan 4 !-
c >Y 10
d (<giá
Hãy )! án W &
Câu 5: Trong câu .) luôn có I4 tra 4
O I9 O I trong câu .)C For <biến
đếm> := <giá trị đầu> to <giá trị cuối> do <câu
lệnh>; là gì?
a ' 4 có )3 I nguyên hay không
b
c
d Giá
không
Câu 6: Tìm giá
$! B
S := 0;
For i := 1 to 5 do S := S + i;
a S = 0
b S = 1
c S = 5
d S = 15
Câu 7: Khi nào thì câu For…to…do I
thúc?
a Khi
b Khi
c Khi
d Khi
Câu 8: Tìm giá
sau:
a := 10;
For i := 1 to 5 do a := a – 1;
a a = 5
Trang 3b a = -5
c a = 10
d a = 0
Hoạt động 2: Bài tập
Gv: Yêu Hs O bài 4 trang 60 Sgk
Hs: ? bài
Gv: Hãy cho
Hs:
Hs: h8 xét
Gv: h8 xét
Gv: Yêu Hs O bài 5 trang 60 Sgk
Hs: ? bài
Hs:
Hs: h8 xét
Gv: h8 xét
Gv:Yêu Hs O bài 6 trang 60 Sgk
Hs: ? bài
Gv: Cho 2 Hs lên 3 làm bài
Hs: Làm bài
2 Bài tập:
Bài 1: Bài 4 trang 60/Sgk.
Bước i i<=5 Kết quả j =?
7 6 Sai Thoát IY vòng
.)&
G .) 7 6 vòng .)9 4n j
o thêm 2 1 U& /8B khi I thúc vòng
Bài 2: Bài 5 trang 50 / Sgk
- Các câu a, b, c, e không -) 9 vì:
a Giá
b Các giá
nguyên
c
e ' x P !- khai báo ! là
có $X I 7 và vì không
- Câu d -) & Tuy nhiên, ta 4
.) câu writeln(‘A’) 4!g
thì không -) do s $H H4 )tB
u H&
Bài 3: Bài 6 trang 60 / Sgk
Trang 4Hs: h8 xét.
Gv: h8 xét
Gv: Cho Hs !1 trình theo nhóm
Hs: / !1 trình
Gv: h8 xét, 3 thích
Gv: Cho Hs !1 trình theo nhóm
Hs: / !1 trình
Gv: h8 xét, 3 thích
* Mô 3 8 toán:
- B1: Gán A w 0, i w 1
- B2: A w 1 / (i * (i + 2))
- B3: i w i + 1
- B4: h i <= n, quay ! 2
- B5: Ghi I :3 A > thúc 8 toán
Bài 4: / !1 trình tính y các
z s 1 n, n !- 8) vào s bàn phím
* Phân tích bài toán:
- Input: 8) n
- Output: S = 1 + 3 + 5 + …+ n
* 8 tóan:
- B1: S w 0, i w 0
- B2: i w i + 1
- B3: h i <= n thì
h i mod 2 <> 0 thì S w S + i
và i w i + 1
- B4: Quay B2
- B5: In I :39 I thúc
* / !1 trình:
Program tinh_tong;
var s,i,n:integer;
begin writeln('nhap n:');
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 <> 0 then s:=s+i;
writeln('s=',s);
readln end
Bài 5: / !1 trình tính y
S = 1 + 1/2 + 1/3 + ….+ 1/n Program tinh_tong;
var i,n:integer; s:real;
begin writeln('nhap n:');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s=',s:4:3);
readln end
Trang 5Hoạt động 3: Thực hành
Gv: Nêu !1 trình, ! $ Hs !1
trình, cho Hs 7 hành
Hs: 7 hành
3 C ủng cố:
4 Dặn dò:
- /O nhà bài, 7 hành
- Coi
... BỊ:1 Giáo viên:
- SGK, tài 9 giáo án
- ?@ dùng $B C máy vi tính
2 Học sinh:
-
- SGK, @ dùng 8) C máy vi tính
IV...
- B3: i w i +
- B4: h i <= n, quay !
- B5: Ghi I :3 A > thúc 8 toán
Bài 4: / !1 trình tính y
z s n, n !- 8) ... phím
* Phân tích tốn:
- Input: 8) n
- Output: S = + + + …+ n
* 8 tóan:
- B1: S w 0, i w
- B2: i w i +
- B3: h i <= n
h i