Cõu 3: Từ khúa nào sau đõy dựng để khai bỏo hằng?
A. Uses B. Var C. Const D. Program
Cõu 4: Khi ta khai bỏo biến x cú kiểu là integer thỡ phộp gỏn nào sau đõy là hợp lệ?
A. x:= 5000000; B. x:= ‘tin_hoc’; C. x:= 200; D. x:= 1.23;
Cõu 5: Cấu trỳc chung của chương trỡnh gồm mấy phần?
A. 2 phần B. 1 phần C. 4 phần D. 3 phần
Cõu 6: Để khai bỏo biến x thuộc kiểu số thực ta khai bỏo:
A. Var x: String; B. Var x: integer; C. Var x: Char; D. Var x: Real;
Cõu 7: Hóy cho biết kết quả xuất ra màn hỡnh sau khi thực hiện cõu lệnh Writeln(‘16*2- 3=’,16*2-3);
A. 16*2-3= B. 16*2-3=29 C. 29 D. 16*2-3
Cõu 8: Sau 2 cõu lệnh x:=5; x:=x*x; Giỏ trị của biến x là:
A. 5 B. 10 C. 15 D. 25
Cõu 9: So sỏnh sự giống nhau và khỏc nhau giữa biến và hằng.
Tuần 18: Ngày soạn : Tiết 36: Ngày dạy :
KIỂM TRA HỌC KỲ I
Cõu 1. (3 điểm) Chỉ ra cỏc từ khoỏ, cỏc biến của chương trỡnh tớnh diện tớch hỡnh trũn.
Program S_Hinh_Tron;
Var R: Integer;
S: Real;
Const PI = 3.14;
Begin
Write('Nhap ban kinh hinh tron R=: '); Readln(R); S:= So_PI*R*R;
Write('Dien tich hinh tron la: ', S); readln
end.
Cõu 2. (7 điểm) Em hóy viết chương trỡnh tỡm giỏ trị lớn nhất trong bốn số a, b, c, d
được nhập từ bàn phớm.
- Trước khi viết chương trỡnh cần xỏc định bài toỏn và mụ tả thuật toỏn.
Giải:
Cõu 1. (3 điểm) Mỗi từ khoỏ và biến chỉ ra đỳng được 0,5 điểm.
Program ; Var ; Const ; Begin ; end.
Cỏc biến: R, S.
Cõu 2. (7điểm)
• Xỏc định bài toỏn.
- Input: bốn số a, b, c, d nhập từ bàn phớm. 0,5 đ - Output: giỏ trị MAX trong bốn số a, b, c, d nhập từ bàn phớm. 0,5 đ • Mụ tả thuật toỏn.
- Bước 1: Nhập bốn số a, b, c, d từ bàn phớm. 0,5 đ
- Bước 2: MAX a. 0,5 đ
- Bước 3: Nếu MAX < b thỡ MAX b, ngược lại quay lại bước 2. 0,5 đ - Bước 4: Nếu MAX < c thỡ MAX c, ngược lại quay lại bước 3. 0,5 đ - Bước 5: Nếu MAX < d thỡ MAX d, ngược lại chuyển sang bước 6. 0,5 đ - Bước 6: In giỏ trị MAX và kết thỳc. 0,5 đ • Viết chương trỡnh.
Program Tim_MAX; Var
Max , a , b , c , d : Real ; BEGIN
Write (' a = ') ; Readln ( a ) ; Write (' b = ') ; Readln ( b ) ; Write (' c = ') ; Readln ( c ) ;
Write (' d = ') ; Readln ( d ) ; Max := a ; If Max < b Then Max := b ;
If Max < c Then Max := c ;
If Max < d Then Max := d ; Writeln (' Gia tri lon nhat la : ', Max ) ; Readln ;
END.
Daàu Tieỏng, ngaứy………thaựng…………naờm 2009
TTCM KYÙ DUYEÄT
NGUYEÃN VAấN GIAÙP
Tuần 19: Ngày soạn :
Tiết 37,38: Ngày dạy :
Bài 7: CÂU LỆNH LẶP.
I/ Mục tiờu:
•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ần.
•Hiểu hoạt động của cõu lệnh với số lần biết trước for...do trong Pascal. •Viết đỳng được lệnh for...do trong một số tỡnh huống đơn giản.
•Hiểu lệnh ghộp trong Pascal
II/ Chuẩn bị:
•Gv: Phũng mỏy. •HS: Đọc trước bài học.