[r]
(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
Điểm Lời phê giáo viên
Đề
I /Trắc nghiệm (2đ):
Điền Đ (đúng) S (sai) với câu sau:
for i:=10 to writeln('b');
2 var x: integer; begin for x := to 10 writeln('b'); end for i:=1 to 100 ;
for i:=1 to 100 writeln('b');
for i:=0.5 to 5.5 writeln('b');
for i=1 to 100 writeln('b');
while…do câu lệnh lặp với số lần lặp biết trước pascal
8.S:=0; n:=0;
while S <= 100
begin n:=n+1; S:=S+n end; II /Tự luận(8đ):
Câu (3điểm) Hãy xếp lại đọan chương trình sau cho var S, n : integer;
S:=0; n:=1; while S<=100 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 điểm): Viết thuật tốn tính tổng n số tự nhiên ( n = 1, 2, 3, ) cho tổng nhỏ lớn 30 in kết tổng, n
Câu (3 điểm) Viết chương trình in câu “ Tien hoc le – Hau hoc van “ 10 lần ?
(2)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
Điểm Lời phê giáo viên
Đề
I /Trắc nghiệm (2đ):
Điền Đ (đúng) S (sai) với câu sau:
for i:= to 20 writeln('b');
2 var y: integer; begin for y:=1 to 100 writeln('b'); end for i:=20 to ;
for i:=1 … 10 writeln('b');
for i:=1 to 50 writeln('b');
for i=1 to 10 writeln('b');
while…do câu lệnh lặp với số lần lặp chưa biết trước pascal
8.S:=0; n:=0
while S <= 50
begin n:=n+1; S:=S+n; end; II /Tự luận(8đ):
Câu (3điểm) Hãy xếp lại đọan chương trình sau cho S:=0; n:=1;
while S<=50 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 (2 điểm): Viết thuật tốn tính tổng n số tự nhiên ( n = 1, 2, 3, ) cho tổng nhỏ lớn 20 in kết tổng, n
Câu (3điểm)cho số thực a,b,c,d viết chương trình xếp lại số cho a<=b<=c<=d<e
(3)Đáp án đề 1
I /Trắc nghiệm (2đ):
Điền Đ (đúng) S (sai) với câu sau: S 1. for i:=10 to writeln('b');
Đ 2 var x: integer; begin for x := to 10 writeln('b'); end Đ for i:=1 to 100 ;
Đ for i:=1 to 100 writeln('b'); S 5. for i:=0.5 to 5.5 writeln('b'); S 6. for i=1 to 100 writeln('b');
S 7. while…do câu lệnh lặp với số lần lặp biết trước pascal S 8.S:=0; n:=0;
while S <= 100
begin n:=n+1; S:=S+n end; II /Tự luận(8đ):
Câu (3điểm) xếp lại var S, n : integer;
Begin
S:=0; n:=1; while S<=100 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 điểm): bước, bước 0.5đ
Câu (3 điểm) Viết chương trình in câu “ Tien hoc le – Hau hoc van “ 10 lần ? Program lap;
Var i : integer; Begin
For i :=1 to 10
Writeln ( ‘ lan thu ’,i,‘ Tien hoc le – Hau hoc van ‘); Readln
(4)Đáp án đề 2
I /Trắc nghiệm (2đ):
Điền Đ (đúng) S (sai) với câu sau: Đ 1. for i:= to 20 writeln('b');
Đ 2 var y: integer; begin for y:=1 to 100 writeln('b'); end S for i:=20 to ;
S for i:=1 … 10 writeln('b'); Đ 5. for i:=1 to 50 writeln('b'); S 6. for i=1 to 10 writeln('b');
Đ 7. while…do câu lệnh lặp với số lần lặp chưa biết trước pascal Đ 8.S:=0; n:=0
while S <= 50
begin n:=n+1; S:=S+n; end; II /Tự luận(8đ):
Câu (3điểm) xếp lại var S, n : integer;
begin
S:=0; n:=1; while S<=50 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 (2 điểm): Viết thuật tốn tính tổng n số tự nhiên ( n = 1, 2, 3, ) cho tổng nhỏ lớn 20 in kết tổng, n
4 bước, bước 0.5đ
Câu (3 điểm) Viết chương trình in câu “ Di mot dang – Hoc mot sang khon “ 10 lần ?
Program lap; Var i : integer; Begin
For i :=1 to 10
Writeln ( ‘ lan thu ’,i,‘ Di mot dang – Hoc mot sang khon ‘); Readln