TIn 8 VIP Pro T34

Ngày soạn: 06/ 12/08
Ngày giảng: 8A:
8B:
8C:
Tiết 34:
Kiểm tra thực hành

I. Mục tiêu bài học:
1. Kiến thức:
- Củng cố kiến thức đã học về câu lệnh điều kiện, câu lệnh lặp, câu lệnh lặp với số lần chưa biết trước.
2. Kĩ năng:
- Rèn kĩ năng thao tác thực hành trên máy tính
- Rèn kĩ năng sửa lỗi chương trình và tìm hiểu ý nghĩa của chương trình.
3. Thái độ:
- Nghiêm túc tích cực trong hành, phát triển tư duy lập trình.
II. Chuẩn bị:
1. Giáo viên: Giáo án, nội dung bài thực hành.
2. Học sinh: bài tập ở nhà.
III. Tiến trình lên lớp:
1. ổn định tổ chức
2. Kiểm tra:
Đề số 1:
Câu 1: Viết chương trình Pascal nhập chiều cao của hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn,
Câu 2: Viết chương trình Pascal tính tích của N số tự nhiên đầu tiên (N!), sử dụng lệnh lặp For…do….
Đề số 2:
Câu 1: Viết chương trình Pascal tính tổng của N số tự nhiên đầu tiên với N là số tự nhiên được nhập vào từ bàn phím.
Câu 2: Viết chương trình Pascal thể hiện thuật toán tính tổng n số tự nhiên đầu tiên, biết rằng tổng đó nhỏ nhất và lớn hơn 1000.
Đáp án và thang điểm


Đề số 1:
Câu 1:
Điểm

Program Ai_cao_hon;
Uses crt;
Var Long, Trang : Real;
1

Begin
Clrscr;
Write(‘ Nhap chieu cao cua Long: ’); readln(Long);
Write(‘ Nhap chieu cao cua Trang: ’); readln(Trang);



1

 If Long>Trang Then writeln(‘Ban Long cao hon’);
1

 If Long1

 Else
Writeln(‘hai ban cao bang nha’);
Readln
End.
1

Câu 2:


Program Tinh_giai_thua;
Var N, i : integer;
P: real;

1,5

Begin
Write(‘Nhap so N = ’); readln(N);
P:= 1;


0,5

0,5

For i := 1 to N do P:= P*i;
1,5

Writeln(N, ‘! = ’,P );
End.

1

Tổng
10



Đề số 2:
Câu 1
Điểm

Program Tinh_tong;
Var N, i : integer;
S: real;
1,5

Begin
Write(‘Nhap so N = ’); readln(N);
S:= 0;

0,5

0,5

For i := 1 to N do S:= S+i;
1,5

Writeln(‘Tong cua’,N, ‘so tu nhien dau tien S=’, S);
End.
1

Câu 2:


Program Tong_lon_hon_1000;
var S,n: integer;
0,5

Begin
S:=0; n:=1;


0,5

while S<=1000 do
begin n:=n+1; S:=S+n end;

2

writeln(`So n nho nhat de tong > 1000 la `,n);
writeln(`Tong dau tien > 1000 la `,S);
End.

2


10


3. Dặn dò:
- Về nhà ôn tập lại các kiến thức đã học
- Giờ sau ôn tập chương I.