Đang tải... (xem toàn văn)
Cho biến a, b kiểu số thực, biến Sum kiểu số nguyên.[r]
(1)Phòng GD-ĐT TX Quảng Trị Trường THCS Thành Cổ
BÀI KIỂM TRA MÔN TIN Thời gian 45 phút
Họ tên : ……… lớp
Điểm Lời phê thầy cô giáo
A) TRẮC NGHIỆM (2 điểm)
Chọn đáp án (trong ngơn ngữ lập trình Pascal) Hằng khai báo từ khóa:
a) Var b) Const
c) Program d) Uses Khai báo sau đúng?
a) var diem tb: real; b) const x:=5;
c) var bankinh : integer; d) const chu-vi = 6; Cho biến a, b kiểu số thực, biến Sum kiểu số nguyên Hãy chọn câu
a) Sum := a*b; b) Sum := a/b;
c) Sum := a + b; d) Cả a, b, c sai
4 Cho x, y, z biến có kiểu liệu số, ta thực lệnh gán sau: x := 1; y := 9; x := y; y := x + y; ) Kết thu biến y là:
a) ;
b) 18 ; c) 10 ;d) ;
B) TỰ LUẬN (8 điểm)
Câu (1,5 đ): Trong ngơn ngữ lập trình biến nhớ có tác dụng gì? Nêu khác của biến nhớ
Câu (1,5 đ): Chuyển biểu thức toán học sau sang biểu thức ngơn ngữ lập trình Pascal
a) (x2 + 6) + 3+ x 5 x
b) Với hai số nguyên a b, a chia hết cho b
Câu 3(2 đ): Hãy đánh dấu (*) vào sau câu lệnh sai chương trình sau sửa chương trình lại cho cho biết kết chạy chương trình
Program tinh_tong_thuong; Var tong, so1, so2:integer Begin
So1=20; So2=4;
Tong := so1+so2;
Write(‘tong so =’,tong); Write(‘thuong so = so1/so2); Readln;
End
Sửa lại
(2)Câu 4(1đ): Sắp xếp câu lệnh chương trình sau theo thứ tự để chương trình
Program tong Var dt: real;
rong, dai:integer; Uses crt;
Begin
dt := dai*rong;
Write (‘nhap chieu dai ’); Readln (dai);
Write (‘dien tich hinh chu nhat la ’,dt); Readln (rong);
Write (‘nhap chieu rong ’); Readln;
Clrscr;
End
Sửa lại
Câu 4(2đ): Viết chương trình in hình dịng chữ có vị trí sau (có phần khai báo tên).
Phong GD-DT TX Quang Tri Truong THCS Thanh Co
BAI KIEM TRA MON TIN Thoi gian 45 phut
Ho ten : ……… lop: Bài làm
ĐÁP ÁN
A) TRẮC NGHIỆM (2 điểm)
(3)Câu (1,5 đ):
Biến dùng để lưu trữ liệu
Sự khác biến nhớ thực chương trình giá trị biến thay đổi, cịn giá trị khơng thay đổi
Câu (1,5 đ)
a) (x*x+ 6) + (3+x)/(5*x) b) a mod b =
Câu 3(2đ):
Phát chổ sai (0,5đ) Program tinh_tong_thuong; Var tong, so1,so2:integer* Begin
So1=20; * So2=4; *
Tong := so1+so2;
Write(‘tong so =’,tong); Write(‘thuong so = so1/so2);* Readln;
End *
Sửa lại (1đ) Program tinh_tong_thuong; Var tong, so1,so2:integer; Begin
So1:=20; So2:=4;
Tong := so1+so2;
Write(‘tong so =’,tong);
Write(‘thuong so = ’, so1/so2); Readln;
End Kết chạy chương trình (0.5đ) tổng 24, thương Câu (1đ):
Program tong; Var dt: real;
rong, dai:integer; Uses crt;
Begin
dt := dai*rong;
Write (‘nhap chieu dai ’); Readln (dai);
Write (‘dien tich hinh chu nhat la ’,dt); Readln (rong);
Write (‘nhap chieu rong ’); Readln;
Clrscr; End
Sửa lại Program tong;
Var dt: real;
rong, dai:integer; Uses crt;
Begin Clrscr;
Write (‘nhap chieu dai ’); Readln (dai);
Write (‘nhap chieu rong ’); Readln (rong);
dt := dai*rong;
Write (‘dien tich hinh chu nhat la ’,dt); Readln;
End Câu 4(2đ): chương trình
Program kiemtra; Begin
Writeln(‘Phong GD-DT TX Quang Tri’); Writeln(‘Truong THCS Thanh Co);
Writeln(‘ BAI KIEM TRA MON TIN 8);
Writeln(‘ Thoi gian 45 phut);
Writeln;