Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (69.33 KB, 4 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
Phịng Giáo Dục Thị Xã Bn 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
<b>I /Trắc nghiệm </b>(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;
<b>II /Tự luận</b>(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 tố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ã Bn 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
<b>I /Trắc nghiệm </b>(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;
<b>II /Tự luận</b>(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 tốn tính tổng n số tự nhiên đầu tiên ( n = 1, 2, 3, ... ) sao cho tổng
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<e
<b>Đáp án đề 1</b>
<b>I /Trắc nghiệm </b>(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 ;
<b>Đ</b> 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+n end;
<b>II /Tự luận</b>(8đ):
Câu 1 (3điểm) sắp xếp lại
var S, n : integer;
Begin
S:=0; n:=1;
while S<=100 do
begin
n:=n+1;
S:=S+n;
end;
writeln('So n nho nhat de tong > 100 la ',n);
writeln('Tong dau tien > 100 la ',S);
readln
end.
Câu 2 (2 điểm):
4 bước, mỗi bước 0.5đ
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 ?
Program lap;
Var i : integer;
Begin
For i :=1 to 10 do
Writeln ( ‘ lan thu ’,i,‘ Tien hoc le – Hau hoc van ‘);
Readln
<b>Đáp án đề 2</b>
<b>I /Trắc nghiệm </b>(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.
S 3. for i:=20 to 1 ;
S 4. for i:=1 … 10 do writeln('b');
Đ 5. for i:=1 to 50 do writeln('b');
S 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;
<b>II /Tự luận</b>(8đ):
Câu 1 (3điểm) sắp xếp lại
var S, n : integer;
begin
S:=0; n:=1;
while S<=50 do
begin
n:=n+1;
S:=S+n;
end;
writeln('So n nho nhat de tong > 50 la ',n);
writeln('Tong dau tien > 50 la ',S);
end.
readln
Câu 1 (2 điểm): Viết thuật tố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
4 bước, mỗi bước 0.5đ
Câu 3 (3 điểm) Viết chương trình in ra câu “ Di mot ngay dang – Hoc mot sang khon “ 10 lần
?
Program lap;
Var i : integer;
Begin
For i :=1 to 10 do
Writeln ( ‘ lan thu ’,i,‘ Di mot ngay dang – Hoc mot sang khon ‘);
Readln