De kiem tra tin 8

Họ và tên:………
Kiểm tra 1 tiết

Lớp:……..
Môn: Tin 8

Đề 1:
1. Trong các câu lệnh sau đây, câu lệnh nào sai và sai ở đâu? Sửa lại cho đúng. (0.5đ)
a. While i:=1 do t:=10; b. While a<=b ; do write(‘b khong nho hon a’);
a…………………………. b…………………………………………….
2. Trong câu lệnh sau: for i:= 6 to 10 do begin……..end;
Câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác,bao nhiêu vòng lặp được thực hiên) (0.5đ)
a. không lần nào b. 4 lần c. 5 lần d. 6 lần
3. Sau khi thực hiện đoạn chương trình pascal sau: (0.5đ) var x,i:integer;
begin
x:=0;
for i:=6 to 7 do
x:=x+i;
write(‘ket qua cua x=’,x) ;
end.
4. Sau mỗi câu lệnh dưới đây, giá trị của biến x sẽ là bao nhiêu, nếu trước đó giá trị của x : =5 : (0.5đ)
a. if x mod 3 =2 then x :=x*5 ; x=……………
b. if (x mod 3 =0) or ( x>=5) then x:=x-2; x=……………
5. Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu? (0.5đ)
a. j:=5; for i:=4 to 5 do j:=j+4; ( kết quả j là: ………
b. j=2; for i:=1 to 6 do j:=j*I ( kết quả j là: ………

6. Hãy sửa lại các lỗi của các câu lệnh sau đây: (0.5đ)
a. x=10; while x:=10 do x=x+5; b. x:=2 ; while x =5 do do x=x+2;
a……………………………………………. b ………………………………………..
7. Ta có đoạn chương trình sau: (0.5đ)
Var a:integer;
begin
a:= 8
while a<=10 do
a:=a-1;
writeln(‘ke qua la:’,a);
end.
8. Mô tả thuật toán tính 1+1/2+1/4+…+1/n(1đ)
9. Nêu và giải cấu trúc câu lệnh lặp biết trước và câu lệnh lặp chưa biết trước: (2đ)
10. Viết chương trình sử dụng câu lệnh lặp while … do để tính tổng(1đ)
S= 1+1/2+1/3+1/4+…….+1/n
11. Viết chương trình in ra màn hình các số nguyên tố từ 1 đến n với n được nhập từ bàn phím(2đ)
12.Cho biết kết quả của chương trinh sau: (1đ)
Program tinh;
Uses crt;
Var a,b: integer;
Begin
Writeln(‘cho biet gia tri a va b’); readln(a,b)
If a<=b then writeln(a+b)
Else
Writeln(a-b);
Readln;
End.
Khi ta nhập gía trị :
a) a=6 và b=8 . kết quả in ra màn hình  :………..
b) a=13 và b=9. kết quả in ra màn hình:…………


Chú ý: Học sinh được sử dụng tài liệu