2 Giá trị của biến không thể thay đổi bằng các câu lệnh trong chương trình 3 Trong Turbo Pascal từ khóa Const được dùng để khai báo biến 4 Trong Turbo Pascal lệnh Writeln dùng để in thôn
Trang 1ĐỀ THI HỌC KÌ I – NĂM HỌC 2009 – 2010
MÔN: TIN HỌC – LỚP 8 Thời gian làm bài : 45 phút ( Không kể thời gian giao đề)
A: PHẦN TRẮC NGHIỆM : ( 2 Điểm )
Câu 1: Chọn câu trả lời đúng
1) Kết quả của phép toán 15 DIV 2 là :
2) Biểu thức ( a² + b ) : 2 viết trong Pascal là :
3) Để chạy chương trình trong Turbo Pascal ta dung tổ hợp phím:
a) Ctrl + X b) Ctrl + F9 c) Alt + F5 d) Alt+X 4) Dữ liệu kiểu Char là:
a) Số thực b) Số nguyên c) Kí tự d) Chuỗi kí tự
Câu 2 : Cho biết các câu sau đây đúng hay sai :
1) Chương trình soạn thảo và chương trình dịch thường được kết hợp chung vào
1 phần mềm được gọi là ngôn ngữ lập trình
2) Giá trị của biến không thể thay đổi bằng các câu lệnh trong chương trình 3) Trong Turbo Pascal từ khóa Const được dùng để khai báo biến
4) Trong Turbo Pascal lệnh Writeln dùng để in thông tin ra màn hình và đưa con trỏ xuống dòng
B: PHẦN TỰ LUẬN : 8 Điểm
Câu 1 : Nêu Input và Output và mô tả thuật toán để tính tổng của 100 số tự nhiên
từ 1 đến 100
Câu 2 : Viết chương trình nhập ba số a, b và c nhập từ bàn phím, kiểm tra xem
ba số đó có phải là ba cạnh của một tam giác hay không
Câu 3 : Tìm chổ sai trong chương trình sau :
Program Timchosai;
Var a,b,x : integer;
Begin
Clrscr;
Write(‘ nhap hai so nguyen a va b :’);
Readln(a,b);
x: = a/b;
Wrtieln(‘ket qua cua phep chia a cho b la: ‘,x);
End
HƯỚNG DẪN CHẤM KIỂM TRA HKI NĂM HỌC 2009 – 2010
Trang 2A: PHẦN TRẮC NGHIỆM: 2 Điểm
Câu 1 :
Câu 2:
B PHẦN TỰ LUẬN : 8 Điểm
Câu 1: ( 3 Điểm )
Input : Dãy 100 số tự nhiên đầu tiên: 1, 2, …, 100 ( 0.5 điểm )
Output : Giá trị của tổng 1 + 2 + … + 100 ( 0.5 điểm )
Thuật toán ( 4 bước, mỗi bước 0.5 điểm )
Bước 1: SUM 0; i 0
Bước 2: i i + 1
Bước 3: Nếu i < 100, thì SUM SUM + i và quay lại bước 2
Bước 4: Thông báo kết quả và kết thúc thuật toán
Câu 2: ( 3 điểm )
Program Ba_canh_tam_giac;
Uses CRT;
Var a , b , c : real;
Begin
Clrscr;
Write(nhap ba so a, b va c: ‘); Readln(a,b,c);
If (a+b<c) and ( b+c<a) and (c+a>b) then Writeln(‘ a, b va c la 3 canh cua tam giac! ‘) Else writeln(‘a, b va c khong la 3 canh cua tam giac! ‘);
Readlnl;
End
Khai báo : 0.5 đ
Nhập 3 số a, b và c : 0.5 đ
Kiểm tra và in ra màn hình kết quả kiểm tra 3 số đó có thể là độ dài các cạnh của 1 tam giác hay không 2 đ
Học sinh viết cách khác đúng vẫn cho điểm
Câu 3: (2 điểm)
Program Timchosai;
Uses CRT;
Var a,b : integer;
x : real;
Begin
Clrscr;
Write(‘ nhap hai so nguyen a va b : ‘);
Readln(a,b);
x:= a/b;
Writeln(‘ ket qua cua phep chia a cho b la: ‘,x:4:2);
Readln;
End