- Nghiêm túc tÝch cùc trong thùc hµnh, ph¸t triÓn t duy lËp tr×nh. II.[r]
(1)Ngày soạn: 06/ 12/08
Ngày giảng: 8A: 8B:
8C: TiÕt 33:
Bài tập I Mục tiêu học:
1 KiÕn thøc:
- Củng cố kiến thức học toán Pascal câu lệnh: 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 cha biết trớc
2 Kĩ năng:
- Rèn kĩ lấy ví dụ, c©u lƯnh
- Rèn kĩ viết thuật tốn đọc ttìm hiểu ý nghĩa câu lệnh chơng trình
3 Thái độ:
- Nghiêm túc học tập, ý đến ý nghĩa cđa tht to¸n câu lệnh chơng trình
II Chuẩn bị:
1 Giỏo viờn: Giỏo ỏn, SGK, tài liệu,
2 Học sinh: SGK, ghi, chuẩn bị b i tËp nh
III Tiến trình lên lớp: 1 ổn định tổ chức
2 KiÓm tra: không 3 Tiến trình lên lớp:
Hot động GV – HS Nội dung
Hoạt động 1: Từ tốn đến chơng trình
- GV: Gọi HS lên bảng HS làm ý
- HS: em lên bảng xác định I O - GV: Nhận xét chốt lại
Bµi 1(Bµi 1- T45 SGK)
a) INPUT: Danh s¸ch hä cđa c¸c häc sinh líp
OUTPUT: Sè häc sinh cã hä TrÇn b)INPUT: D·y n sè
OUTPUT: Tỉng cđa c¸c phần tử lớn
c) INPUT: DÃy n sè
OUTPUT: Sè c¸c sè cã gi¸ trÞ nhá nhÊt
Hoạt động 2:Bài tập câu lệnh điều kiện
- GV: ChiÕu bµi tËp trang 51 SGK lên máy chiếu
? Cỏc cõu lệnh P đợc viết hay sai? - GV: Yêu cầu HS cá nhân trả lời
- HS: Tr¶ lời cá nhân - Các HS khác nhận xét
Bµi 2: (Bµi trang 51 - SGK) a) Sai (thõa dÊu hai chÊm);
b) Sai (thõa dÊu chÊm phÈy thø nhÊt);
(2)- GV: Chiếu tập SGK T51 lên máy chiÕu:
? Giá trị biến x bao nhiêu, trớc giá trị X 5?
- HS: HĐCN trả lời câu hỏi - HS: em đứng chỗ trả lời - GV: Nhận xét chốt lại
d) Sai (thõa dÊu chÊm phÈy thø nhÊt)
Bµi tËp 3(bµi tËp SGK – T 51)
a) Vì 45 chia hết cho 3, điều kiện đợc thoả mãn nên giá trị X đợc tăng lên 1, tức 6;
b) Điều kiện không đợc thoả mãn nên câu
lệnh không đợc thực hiện, tức X giữ nguyên giá trị
Hoạt động 3: Bài v cu trỳc lp
- GV: Yêu cầu HĐN trả lời tập
- HS: HN phút đại diện nhóm trả lời
- Các HS khác nhận xét - GV: Nhận xét, chốt lại
Bài tập 4: (Bài T61 SGK)
a) Giá trị đầu phải nhỏ giá trị cuối;
b) Các giá trị đầu giá trị cuối phải số nguyên;
c) Thiếu dấu hai chấm gán giá trị đầu;
d) Thừa dÊu chÊm phÈy thø nhÊt, nÕu
nh ta muèn lặp lại câu lệnh
writeln('A') mời lần, ngợc lại câu lệnh hợp lệ;
e) Bin x ó đợc khai báo nh biến có liệu kiểu số thực khơng thể dùng để xác định giá trị đầu giá trị cuối câu lệnh lặp
Hoạt động 4: Bài tập lặp với số lần cha biết trớc:
- GV: Yêu cầu dựa vào cấu trúc câu lệnh lặp với số lần cha biết trớc để lỗi câu lnh
- HS: HĐCN làm tập
- GV: Gọi em lên bảng trả lời - Cả lớp nhận xét, đánh giá - GV: Chốt lại đáp án
Bµi tËp (Bµi tËp SGK – T71)
a) Thõa dÊu hai chÊm ®iỊu kiƯn;
b) ThiÕu dÊu hai chÊm c©u lƯnh gán;
c) Thiếu từ khóa begin và end
tr-ớc sau lệnh n:=n+1; S:=S+n,
do vịng lặp trở thành vơ tận
3, Dặn dò:
(3)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 học:
1 Kiến thức:
- Củng cố kiến thức học 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 cha biết trớc
2 Kĩ năng:
- Rèn kĩ thao tác thực hành máy tính
- Rèn kĩ sửa lỗi chơng trình tìm hiểu ý nghĩa chơng trình
3 Thỏi độ:
- Nghiêm túc tÝch cùc thùc hµnh, phát triển t 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: chuẩn bị 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 hai bạn Long Trang, in hình kết so sánh chiều cao hai bạn,
Câu 2: Viết chơng trình Pascal tính tích N số tự nhiên (N!), sử dụng lệnh lặp For
Đề số 2:
Câu 1: Viết chơng trình Pascal tính tổng N số tự nhiên với N 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ể thuật tốn tính tổng n số tự nhiên đầu tiên, biết tng ú nh nht v ln hn 1000
Đáp án thang điểm Đề số 1:
Câu 1: §iĨm
Program Ai_cao_hon; Uses crt;
Var Long, Trang : Real;
Begin
Clrscr;
Write(‘ Nhap chieu cao cua Long: ’); readln(Long);
Write(‘ Nhap chieu cao cua Trang: ’); readln(Trang);
If Long>Trang Then writeln(‘Ban Long cao hon’);
If Long<Trang Then writeln (‘Ban Trang cao hon’)
Else
(4)C©u 2: Program
Program Tinh_giai_thua; Tinh_giai_thua; Var
Var N, i : integer; N, i : integer;
P: real;P: real; 1,5 Begin
Begin
Write(‘Nhap so N = ’); readln(N);Write(‘Nhap so N = ’); readln(N);
P:= 1;P:= 1; 0,5
0,5
For
For i := to N i := to N dodo P:= P*i; P:= P*i; 1,5
Writeln(N, ‘! = ’,P );
Writeln(N, ‘! = ’,P );
End
End
Tæng
Tổng 10
Đề số 2:
Câu 1 §iĨm
Program
Program Tinh_tong;Tinh_tong;
Var
Var N, i : integer; N, i : integer;
S: real;S: real;
1,5 Begin
Begin
Write(‘Nhap so N = ’); readln(N);Write(‘Nhap so N = ’); readln(N);
S:= 0;S:= 0;
0,5 0,5 For
For i := to N i := to N dodo S:= S+i; S:= S+i; 1,5
Writeln(‘Tong cua’,N, ‘so tu nhien dau tien S=’, S); Writeln(‘Tong cua’,N, ‘so tu nhien dau tien S=’, S);
End
End
C©u 2:
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;
writeln('So n nho nhat de tong > 1000 la ',n); writeln('Tong dau tien > 1000 la ',S);
End
Tæng 10
(5)