- Đề kiểm tra thực hành, mỏy và cỏc phương tiện khỏc liờn quan 2 Học sinh:
2. Bài tập dạng thực hành Bài 4 SGK (T79)
Bài 4 SGK (T79)
Cõu lệnh khai bỏo biến mảng sau đõy mỏy tớnh cú thực hiện được khụng? Var N: integer;
14’
nhận xét.
- GV: Nhận xét kết quả câu trả lời của 2 bạn.
- HS: Suy luận kết quả theo lí thuyết - GV: Ghi kết quả suy luận của học sinh lên bảng
Hoạt động 3:
- Giáo viên đa ra nội dung bài tập, - HS phân tích bài toán tìm hớng giải quyết.
- Gv: hớng dẫn học sinh cách làm và viết chơng trình lên bảng và yêu cầu học sinh đọc hiểu.
- HS: đọc lại chơng trình giáo viên đã viết trên bảng và tìm hiểu từng câu lệnh
- GV: yêu cầu một học sinh đứng tại vị trí diễn tả tuần tự ý nghĩa của chơng trình thông qua diễn tả công việc của từng lệnh
A: array[1..N] of real;
Cõu lệnh khai bỏo biến mảng trờn mỏy tớnh cú thực hiện khụng được. Vỡ khai bỏo biến N là số nguyờn, cũn cỏc phần tử của biếnmảng A là số thực.
Bài 5 SGK (T 79) Program MaxMin; Uses crt;
Var N, chieucao :reeal;
A: array[ 1..26] of real;
Begin
Clrscr;
Write(‘ Hay nhap do dai cua day so, N=‘);
readln(n);
Write(‘ Hay nhap cac phan tu cua day so:’);
For i:= 1 to 26 do
Write(‘a[ ‘,i,’ =’); readln(a[i]);
End.
3. Bài tập vận dụng
Bài tập 1: Nhập vào N số nguyên từ
bàn phím, tìm số lớn nhất trong dãy số vừa nhập
Program tim_max; Uses crt;
Var i, n, smax:integer;
A: array [1..50]of integer;
trong chơng trình.
- GV: diễn tả lại một lần để học sinh hiểu sâu hơn về chơng trình
- HS: dựa vào bài tập 1 viết chơng trình cho bài toán. (viết theo nhóm).
- Đại diện của nhóm đứng lên bảng trình bày kết quả. Các nhóm khác nhận xét, rút kinh nghiệm.
- GV: Kết luận kết quả cuối cùng.
- Yêu cầu một học sinh lên máy chính gõ chơng trình vào máy, cả lớp sửa lỗi nếu có, cho chơng trình chạy thử, học sinh quan sát kết quả.
Clrscr;
Writeln(‘nhap vao n’); readln(n);
For i:= 1 to n do begin
Write(‘a[ ‘,i,’ =’); readln(a[i]);
end;
smax:= a[1];
For i:= 2 to n do begin
If Max < a[i] then smax:= a[i] end;
Writeln(‘So lon nhat la smax = ‘, smax);
Readln
End.
- HS: chép lại chơng trình đã chạy vào vở.
V.Cũng cố. 1’
- Nhắc lại cỏc phần trọng tõm chỉnh của bài qua cỏc phần.
VI. Dặn dũ .1’
- Về nhà học kĩ cỏc phần trọng tõm của bài và làm tập sỏch giỏo khoa.
Ngày soạn :03/05/10 Tuần: 35 Ngày dạy: 05/05/10 TPPCT: 70 KIỂM TRA HỌC Kè II I. Mục tiờu : 1. Kiến thức:
- Giỳp học sinh lĩnh hội lại những kiến thức đó học trong ngụn ngữ lập trỡnh pascal. - Đỏnh giỏ giỏ lại quỏ trỡnh thực hành trong thơỡ gian vừa qua.
2. Kỹ năng:
- Làm bài và trỡnh bày bài kiểm tra trờn mỏy.
3.Thỏi độ :
- Giỳp học sinh cú thỏi độ nghiờm tỳc trong giờ kiểm tra. II. Phương tiện dạy học.
1. Giỏo viờn:
- Đề kiểm tra thực hành, mỏy và cỏc phương tiện khỏc liờn quan. 2. Học sinh: 2. Học sinh:
- Học bài và làm bài ở nhà, và cỏc đồ dung học tập khỏc. III. Phương phỏp:
- Gợi ý…
IV. Tiến trỡnh kiểm tra:
- Kiểm tra sĩ số, vệ sinh.
2. Kiểm tra bài cũ: (khụng cú). 3. Phỏt đề và làm bài. (36’) 3. Phỏt đề và làm bài. (36’)
I. Phần tự luận:( 10 điểm )
Cõu 1 ( 3 điểm): Viết chương trỡnh nhập điểm của hai mụn và in ra mà hỡnh kết quả so sỏnh
điểm của hai mụn.
Cõu 2:( 2. điểm ) Khi khai bỏo biến mảng trong ngụn ngữ lập trỡnh cần chỉ rừ ớt nhất những yếu tố nào? Và cho biết cỏch khai bỏo mảng trong pascal cú dạng cấu trỳc như thế nào?
Cõu 3: (3.5 điểm) Viết chương trỡnh sử dụng biết mảng để tớnh giỏ trị trung bỡnh của N số
nguyờn được nhập vào từ bàn phớm.
Cõu 4:(1.5 điểm) Hóy nờu cấu trỳc của hai dạng cõu lệnh lặp trong pascal? ĐÁP ÁN
Cõu 1 (3 điểm): Program So_Sanh;
Uses Crt;
Var Van, Toan : real; Begin
Clrscr;
Writeln (‘ nhap diem mon van’) ; Readln(van);
Writeln(‘nhap diem mon toan ’); Readln(toan);
If Van> toan Then writeln (‘mon van cao hon’);
If Van< toan Then writeln ( ‘monToan cao hon’) else
Writeln(‘ Hai mon bang nhau’); Readln
End.
Cõu 2:( 2 điểm) Khi khai bỏo biến mảng trong ngụn ngữ lập trỡnh cần chỉ rừ: tờn biến mảng, số
lượng, kiểu dữ liệu của phần tử.
Tờn mảng: array [<chỉ số đầu>…<chỉ số cuối>] of <kiểu dữ liệu>;
Cõu 3: (3.5 điểm) Viết chương trỡnh Program Tinh_trung _binh;
Uses crt; Var N, i: integer; TB: real; A: array [1..100 ] of integer; Begin Clrscr;
Write(‘Nhap so phan tu cua mang , n+ ‘) ; read(n); TB:=0;
For i: = 1 to n do
Begin
Write(‘Nhap gia tri thu ‘,i,’ cua mang,, a[ ‘ , i , ’]; readln ( a [ i ] ); TB + a[ i ];
End;
TB:=TB/n;
Write( ‘ Trung binh bang ‘, TB);
End.
Cõu 4: :(1.5 điểm)Cấu trỳc của hai dạng cõu lệnh lặp trong pascal:
Cấu trỳc vũng lăp dạng tiến for… to… do:
For <biến đếm>:=<giỏ trị đầu> to <giỏ trị cuối> do <cõu lệnh>;
Cấu trỳc của cõu lệnh lăp với số lần chưa biết trước While…do cú dạng:
While <điều kiện> do <cõu lệnh>; V.Cũng cố. 2’
Nhắc lại cỏc phần trọng tõm chớnh của bài qua cỏc bài tập.
VI. Dặn dũ 1’.
Về nhà học kĩ cỏc phần trọng tõm của bài và làm tập sỏch giỏo khoa.
?Hóy nờu sự khỏc biệt giữa cõu lệnh lặp với số lần biết trước và cõu lệnh lặp với số lần chưa biết trước?
Sự khỏc biệt giữa cõu lệnh lặp với số lần biết trước và cõu lệnh lặp với số lần chưa biết trước là: Cõu lệnh lặp for…to…do sẽ thực hiện cõu lệnh nhiều lần, mỗi lần là một vũng lặp. Số lần lặp là biết trước và bằng giỏ trị đầu – giỏ trị cuối +1. Cũn ở cõu lệnh lặp với số lần chưa biết
trước là cần phải kiểm tra điều kiện. Nếu điều kiện sai, cõu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thỳc.Nếu điều kiện đỳng, thực hiện cõu lệnh và quay lại bước 1.