De kiem tra tin 8 hoc ky 2 ly thuyet

Phòng Giáo Dục Thị Xã Buôn Hồ Kiểm Tra 45
Trường THCS Hùng Vương Môn:Tin Học 8

Điểm
Lời phê giáo viên


Đề bài
I /Trắc nghiệm (2đ):
Điền Đ (đúng) hoặc S (sai) với các câu sau:
 1.for i:=10 to 1 do writeln(`b`);
 2. var x: integer; begin for x := 1 to 10 do writeln(`b`); end.
 3. for i:=1 to 100 do ;
 4. for i:=1 to 100 do writeln(`b`);
 5.for i:=0.5 to 5.5 do writeln(`b`);
 6.for i=1 to 100 do writeln(`b`);
 7. while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
 8. S:=0; n:=0;
while S <= 100 do
begin n:=n+1; S:=S+n end;
II /Tự luận(8đ):
Câu 1 (3điểm) Hãy sắp xếp lại đọan chương trình sau cho đúng
var S, n : integer;
S:=0; n:=1;
while S<=100 do
n:=n+1;
S:=S+n;
end;
writeln(`So n nho nhat de tong > 100 la `,n);
readln
end.
Begin
begin
writeln(`Tong dau tien > 100 la `,S);
Câu 2 (2 điểm): Viết thuật toán tính tổng n số tự nhiên đầu tiên ( n = 1, 2, 3, ... ) sao cho tổng nhỏ nhất lớn hơn 30 và in kết quả tổng, n
Câu 3 (3 điểm) Viết chương trình in ra câu “ Tien hoc le – Hau hoc van “ 10 lần ?
................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................






Phòng Giáo Dục Thị Xã Buôn Hồ Kiểm Tra 45
Trường THCS Hùng Vương Môn:Tin Học 8

Điểm
Lời phê giáo viên


Đề bài
I /Trắc nghiệm (2đ):
Điền Đ (đúng) hoặc S (sai) với các câu sau:
 1.for i:= 1 to 20 do writeln(`b`);
 2. var y: integer; begin for y:=1 to 100 do writeln(`b`); end.
 3. for i:=20 to 1 ;
 4. for i:=1 … 10 do writeln(`b`);
 5.for i:=1 to 50 do writeln(`b`);
 6.for i=1 to 10 do writeln(`b`);
 7. while…do là câu lệnh lặp với số lần lặp chưa biết trước trong pascal
 8. S:=0; n:=0
while S <= 50 do
begin n:=n+1; S:=S+n; end;
II /Tự luận(8đ):
Câu 1 (3điểm) Hãy sắp xếp lại đọan chương trình sau cho đúng
S:=0; n:=1;
while S<=50 do
begin
n:=n+1;
S:=S+n;
end;
end.
writeln(`So n nho nhat de tong > 50 la `,n);
readln
begin
var S, n : integer;
writeln(`Tong dau tien > 50 la `,S);
Câu 1 (2 điểm): Viết thuật toán tính tổng n số tự nhiên đầu tiên ( n = 1, 2, 3, ... ) sao cho tổng nhỏ nhất lớn hơn 20 và in kết quả tổng, n
Câu 3 (3điểm)cho 5 số thực a,b,c,d viết chương trình sắp xếp lại các số đó sao cho a<=b<=c<=d................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................






Đáp án đề 1
I /Trắc nghiệm (2đ):
Điền Đ (đúng) hoặc S (sai) với các câu sau:
S 1.for i:=10 to 1 do writeln(`b`);
Đ 2. var x: integer; begin for x := 1 to 10 do writeln(`b`); end.
Đ 3. for i:=1 to 100 do ;
Đ 4. for i:=1 to 100 do writeln(`b`);
S 5.for i:=0.5 to 5.5 do writeln(`b`);
S 6.for i=1 to 100 do writeln(`b`);
S 7. while…do là câu lệnh lặp với số lần lặp biết trước trong pascal
S 8. S:=0; n:=0;
while S <= 100 do
begin n:=n+1; S:=S+