Phép gán nào sau đây đúng?. program Tinh toan dòng 2.. readln dòng 16.
Trang 1Tr ng THCS Lê Quý ôn
H tên: ………
L p : ………
KI M TRA H C K I N M H C 2016-2017 Môn: Tin H c L p 8 Th i gian: 45 phút ( S 2) i m A Ph n tr c nghi m: (5.0 đi m) Câu 1 Trong m t ch ng trình, có t t c bao nhiêu t khóa đ khai báo bi n? A 4 B 1 C 3 D Nhi u t khóa Câu 2 Quá trình gi i bài toán trên máy tính theo trình t các b c nào sau đây: A Xác đ nh bài toán Vi t ch ng trình Mô t thu t toán B Mô t thu t toán Vi t ch ng trình Xác đ nh bài toán C Xác đ nh bài toán Mô t thu t toán Vi t ch ng trình D Vi t ch ng trình Mô t thu t toán Xác đ nh bài toán Câu 3 Trong các tên sau đây, tên nào là h p l trong ngôn ng Pascal: A Begin B Type C function D Progrram Câu 4 d ch ch ng trình ta s d ng t h p phím nào? A Ctrl + F9 B Alt + F9 C F9 D Ctrl + Shitf + F9 Câu 5 Trong các câu l nh Pascal sau, câu nào đ c vi t đúng: A if x:=2345 then; a=b; B if x>2345 then a:=b C if x>2345; then a:=b; D if x>2345 then a:=b ; Câu 6 Bi u th c toán h c (a2 + b)(1 + c)3đ c bi u di n trong Pascal nh th nào ? A (a*a + b)(1+c)(1 + c)(1 + c); B (a.a + b)(1 + c)(1 + c)(1 + c); C (a*a + b)*(1 + c)*(1 + c)*(1 + c); D (a2 + b)(1 + c)3; Câu 7 Cho bi u th c Cách bi u di n nào trong ngôn ng l p trình Pascal là đúng: B
D
Câu 8 Trong Pascal, gi s x là bi n ki u chu i Phép gán nào sau đây đúng? A x:=aaaaaa; B x:= „2/b‟; C x:=20.599999; D x:= “THCS Le Quy Don”; Câu 9 Câu l nh sau cho k t qu “dung” hay “sai”? Khi bi t x=123; If (231>345)and (x<267) then write(„dung‟) else write(„sai‟); A „dung‟; B „sai‟; Câu 10 Câu l nh sau cho k t qu “True” hay “False”? Khi bi t x=2000; If (2000>345) or (x<267) then write(„False‟) else write(„True‟); A „False‟; B „True‟; B Ph n t lu n: ( 5.0 đi m) Câu 1 Vi t các bi u th c toán sau đây d i d ng bi u th c trong Pascal (2.0 đi m) a y x 3 8 3 2 15 b y y x 5 18 3 ) 10 ( 2
Trang 2
Câu 2 B n H ng vi t ch ng trình nh sau:
dòng 1 program Tinh toan
dòng 2 uses crt;
dòng 3 var
dòng 4 x, y : integer;
dòng 5 tb = real;
dòng 6 thongbao : integer;
dòng 7 const a := 2;
dòng 8 begin
dòng 9 clrscr;
dòng 10 thongbao := „Trung binh cong cua hai so x va y la: „;
dòng 11 write(„Nhap gia tri cho x = „); readln(x);
dòng 12 write(„Nhap gia tri cho y = „); readln(y);
dòng 13 tb = (x+y)/a;
dòng 14 writeln(thongbao, tb:2:1);
dòng 15 readln
dòng 16 end
H i:
a. Có m t vài câu l nh b n H ng vi t sai, hãy ch ra dòng sai( sai ch nào) (2.0 đi m)
b. Hãy li t kê tên bi n, tên h ng trong ch ng trình trên (0.5 đi m)
BÀI LÀM:
Câu 3 Trong k thi h c k I, t i tr ng THCS Lê Quý ôn n m 2016-2017 Có r t nhi u em đ t đ c các gi i th ng A, B, C Hãy vi t ch ng trình tính ti n gi i th ng c a m i h c sinh khi nh p vào tên h c sinh, gi i th ng và dân t c b t k Bi t r ng s ti n gi i th ng là: - Gi i A=3.000.000 đ/1 h c sinh, n u h c sinh đó là ng i dân t c thi u s (ký hi u là: 1) còn ng c là ng i ng i kinh v i s ti n 2.500.000 đ - Gi i B=2.000.000/1 h c sinh, n u h c sinh đó là ng i dân t c thi u s ,còn ng c l i 1.500.000 đ - Gi i C=1.000.000đ/1 h c sinh, n u h c sinh đó là ng i dân t c thi u s , còn ng c l i 500.000đ Còn l i thì không có ti n (0.5 đi m)
Trang 3
Tr ng THCS Lê Quý ôn
H tên: ………
L p : ………
KI M TRA H C K I
N M H C 2016-2017
Môn: Tin H c L p 8
Th i gian: 45 phút
i m
A Ph n tr c nghi m: (5.0 đi m)
M i câu đúng 0,5 đi m
B Ph n t lu n: (5.0 đi m)
Câu 1 Vi t các bi u th c toán sau đây d i d ng bi u th c trong Pascal ? (2.0 đi m)
x
8 3
2
15
=> 15/( 2+ 3) – 8/(x*x*x) + y
b
y y
x
5
18 3
) 10
=> (10 + x)*(10 + x) / (3 + y) – 18 / (5 + y)
Câu 2: (3.0 đi m)
a Nh ng câu l nh sau đây sai và đ c vi t l i nh sau: (2.0 đi m)
dòng 1 program Tinh_toan;
dòng 5 tb : real;
dòng 6 thongbao : string;
dòng 7 const a = 2;
dòng13 tb := (x+y)/a;
b Phân bi t tên bi n và tên h ng: (0.5 đi m)
Tên bi n x, y, tb, thongbao
Câu 3 Tính gi i th ng (0.5 đi m)
Program giaithuong;
var ten:string; gt:char; dantoc,tien:real;
begin
write(' Nhap vao ten hoc sinh:');readln(ten);
write(' Nhap vao giai thuong:'); readln(gt);
gt:= upcase(gt);
write('Nhap vao dan toc:');readln(dantoc);
if( gt= 'A' ) then
begin
IF dantoc= 1 then tien:= 3000000
else tien:= 2500000;
end
else if( gt= 'B' ) then
begin
if dantoc= 1 then tien:= 2000000
else tien:= 1500000;
end
else if( gt= 'C' ) then
begin
if dantoc= 1 then
tien:= 1000000
else tien:= 500000;
end;
write(' THANH TIEN:',tien:4:0);
readln
end
Trang 4
MA TR N
M c đ
Bài 1: Máy tính và ch ng
trình máy tính
1 0,5
1 0.5
2 1.0
Bài 2: Làm quen v i ch ng trình
và ngôn ng l p trình 1 0,5
1 0.5
1 2.0
3 3.0
Bài 3: Ch ng trình máy tính và
1 2.5
3 3.5
Bài 4: S d ng bi n trong ch ng
trình
1 0.5
1
0.5
Bài 5: Câu l nh đi u ki n 1 0.5 2 1.0 1 0.5 4 2.0