On tap-tiet 57

Tuần 29 - Tiết 57

NS: ... / ... / ...

ND: ... / ... / ...





ôn TẬP
I. Mục tiêu: Giúp HS hệ thống lại các kiến thức
Biết mô tả thuật toán của một bài toán trước khi viết chương trình.
Viết được chương trình Pascal có sử dụng vòng lặp While … do, For .. do
Biết sử dụng câu lệnh điều kiện if .. then, câu lệnh ghép begin .. end;
Rèn kỹ năng đọc hiểu chương trình có sử dụng vòng lặp while … do, For .. do
II. Chuẩn bị:
Giáo viên:
Chuẩn bị một số thuật toán và chương trình .
Phòng máy để HS thực hành
2. Học sinh:- Thực hiện nhiệm vụ về nhà của tiết trước.
III. Phương pháp:Thuyết trình, nêu vấn đề, vấn đáp, hướng dẫn
IV. Tiến trình bài dạy:
1. ổn định lớp
2. Kiểm tra bài
3. Bài mới:
* HĐ 1: Hệ thống kiến thức(7ph)
- Quy trình giảI bài toán trên máy tính gồm 3 bước:
+ Xác định bài toán: xác định Input, Output
+ Mô tả thuật toán: xác định các bước cần thực hiện.
+ Viết chương trình
- Câu lệnh điều kiện:
+ Dạng thiếu: If <điều kiện> then ;
+ Dạng đầy đủ: If <điều kiện> then else ;
- Câu lệnh lặp với số lần biết trước:
For := to do ;
- Câu lệnh lặp với số lần chưa biết trước:
Whiel <điều kiện> do ;
* HĐ 2: Bài tập (35ph)
Bài 1: Lập trình tính tổng dùng lệnh lặp For .. do và While ...do. Trong đó n là số tự nhiên được nhập từ bàn phím.


GIẢI
* Var i, n: integer; s: real;
BEGIN
Clrscr;
write(`cho so tu nhien n: `); Readln(n);
s:=0; i:=1;
while i<= n do
Begin
s:= s+ 1/i*(i + 2);
i: = i+1;
End;
writeln(` Tong can tim la: `, s:12:6);
* Var i, n: integer;
s: real;
BEGIN
Clrscr;
write(`cho so tu nhien n: `); Readln(n);
s:=0;
for i:=1 to n do
s:= s+ 1/i*(i + 2);
writeln(` Tong can tim la: `, s:12:6);
Bài 2: Trong từng đoạn chương trình Pascal sau, cho biết lệnh Writeln in ra màn hình giá trị củ I, j, k là bao nhiêu?
1) j:=2; k:=3;
For i:=1 to 5 do j:=j + 1; k:=k + j;
Writeln(j,’ ‘,k);
2) j:=2; k:=3;
For i:=1 to 5 do
Begin j:=j + 1; k:=k + j; end;
Writeln(j,’ ‘,k);
3) i:=1; j:=2; k:=3;
While i < 6 do i:=i + 1; j:=j + 1; k:=k + j;
Writeln(i:2, j:2, k:2);4) ;
4) i:=1; j:=2; k:=3;
While i < 6 do
Begin i:=i + 1; j:=j + 1; k:=k + j; end;
Writeln(i:2, j:2, k:2);
5) j:=2; k:=3;
For i:=1 to 5 do
If i mod 2 = 0 then j:=j = 1;
k:=k