Kiến thức: - Biết nhu cầu cần có cấu trúc lặp trong ngôn ngữ lập trình - Biết ngôn ngữ lập trình dùng cấu trúc lặp để chỉ dẫn máy tính thực hiện lặp đi lặp lại công việc nào đó một số lầ[r]
Trang 1Ngày soạn: 06/01/2010
Ngày dạy: 12/01/2010
Tu ần 20: Tiết 38:
I MỤC TIÊU:
1 Kiến thức:
- nhu có trúc trong ngôn trình
- ngôn trình dùng trúc ! " # máy tính ( ) *
công +) nào $- /
-
2 Kĩ năng:
- : cú pháp câu ) for…do trong $- tình / ; <
- ) ghép trong Pascal
3 Thái độ:
- Ham thích môn >
- Tích (
II PHƯƠNG PHÁP:
III CHUẨN BỊ:
1 Giáo viên:
- SGK, tài )@ giáo án
- EF dùng *& G máy vi tính
2 Học sinh:
-
- SGK, F dùng G máy vi tính
IV TIẾN TRÌNH LÊN LỚP:
1 Ổn định lớp (1’)
2 Bài mới:
Hoạt động 1: Ví dụ về câu lệnh lặp (14’)
Gv: Các ngôn trình 1J có K *
câu ) > Câu ) 1J trong ngôn
trình Pascal có * 1 sau
Gv: C5 ) câu ) For…do cho Hs 6>
Hs: Quan sát, ghi vào +H>
Gv: Cho Hs quan sát 1; trình 3 2 ví O
trong Sgk
I*& ? cho Hs quan sát
3 Ví dụ về câu lệnh lặp:
Cú pháp câu ) +5 / 6
For <biến đếm> := <giá trị đầu> to
<giá trị cuối> do <câu lệnh>;
Trong G For, to, do là các Q khóa
Trang 2Gv: Hai câu ) H 2 ví O trên có gì khác
nhau?
Hs:
Gv: C< thích cho Hs 6 vì sao có Q khoá
begin end
Hs: Ghi ví O vào +H>
Hs: Gõ 2 ví O lên máy, *& ?>
Hoạt động 2: Tính tổng và tích bằng câu lệnh
(16’)
Gv: Cho Hs quan sát * 1; trình tính V n
./ ( nhiên, +5 n là / ( nhiên 12 Q bàn
phím (Pascal)
Hs: Quan sát
Gv: Theo công Y tính V ta khai báo bao
nhiêu 6S
Hs:
Gv: D! 6 là gì?
Hs:
Gv: Trong 2
Q bàn phím?
Vd1: I1; trình in ra màn hình Y
( >
Var i : integer;
Begin
for i: = 1 to 20 do
writeln(‘Day la lan lap
thu’, i);
readln;
end.
Vd2: I1; trình ghi +Z trí 10
Ues crt;
Var i : integer;
Begin
clrscr;
for i : = 1 to 20 do
begin
writeln(‘O’);
delay(200);
end;
readln;
end.
_`1 ý: Câu ) có ? O câu )
ghép thì < trong hai Q khóa begin … end
4 Tính tổng và tích bằng câu lệnh:
Vd1: I1; trình tính V n / (
nhiên tiên, +5 n là / ( nhiên 12 Q bàn phím
S = 1 + 2 + 3 + … + n
Trang 33 Củng cố: (13’)
- ef * P Y g >
- Làm bài 3, 4, 5, 6 trong Sgk
4 Dặn dò: (1’)
- :K nhà bài, làm bài trong Sgk
- Coi
Hs:
Gv: E/ +5 ) có P! nguyên 5 thì
ta < khai báo P! ) là longint
Gv: I*& ? 1; trình cho Hs quan sát
Hs: Gõ 1; trình lên máy và *& ?>
Gv: C< thích 1; tính tích cho Hs 6> I*&
? cho Hs quan sát
Hs: Gõ 1; trình lên máy, *& 1; trình
Program Tinh_tong;
Var n,i:integer;
S:longint;
Begin
write(‘Nhap so n = ‘);
readln(n);
S:= 0;
for i:= 1 to n do S:= S+i;
writeln(‘Tong cua’, n, ‘ so tu
nhien dau tien S = ‘, S);
readln;
end
* D! longint có *$ vi Q -231
231 – 1
Vd2: I1; trình tính tích n / (
nhiên, +5 n là / ( nhiên 12
Q bàn phím
n! = 1.2.3….n
Program Tinh_Giai_Thua;
Var n,i:integer;
p:longint;
begin
write(‘Nhap so n = ‘);
readln(n);
p:= 1;
for i:= 1 to n do p:= p * i;
writeln( n, ‘! = ‘, p);
readln;
end
... CHUẨN BỊ:1 Giáo viên:
- SGK, tài )@ giáo án
- EF dùng *& G máy vi tính
2 Học sinh:
-
- SGK, F dùng G máy... (1’)
2 Bài mới:
Hoạt động 1: Ví dụ câu lệnh lặp (14’)
Gv: Các ngơn trình 1J có K *
câu ) > Câu ) 1J...
3 Ví dụ câu lệnh lặp:
Cú pháp câu ) +5 / 6
For <biến đếm> := <giá trị đầu> to
<giá trị cuối> < ;câu lệnh& gt;;