Cộng đồng chia sẻ tri thức Lib24.vn

Đề thi học kì 2 Tin 8 trường THCS Trần Công Ái năm 2015-2016

26334d2281723e7b7261c0bd68f6cd14
Gửi bởi: Nguyễn Minh Lệ 28 tháng 10 2021 lúc 6:00:52 | Được cập nhật: 14 giờ trước (9:02:06) | IP: 14.165.7.152 Kiểu file: DOC | Lượt xem: 98 | Lượt Download: 0 | File size: 0.062464 Mb

Nội dung tài liệu

Tải xuống
Link tài liệu:
Tải xuống

Các tài liệu liên quan


Có thể bạn quan tâm


Thông tin tài liệu

PHÒNG GD & ĐT VĨNH LINH TRƯỜNG THCS TRẦN CÔNG ÁI Đề chính thức ĐỀ THI CHẤT LƯỢNG HỌC KÌ II NĂM HỌC 2015 - 2016 MÔN: TIN HỌC – LỚP 8 Thời gian: 45 phút (không kể thời gian giao đề) Câu 1: ( 2 điểm) Nêu câu lệnh lặp trong pascal? Cho ví dụ về câu lệnh lặp? Câu 2: ( 2 điểm) Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp? Hãy rút ra nhận xét của em. a) S:=0; n:=0; While s<=10 do begin n:=n+1; S:=S+n end; b) S:=0; n:=0; While s<=10 do n:= n+1; s:=s+n; Câu 3: ( 3 điểm) Viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? Câu 4: ( 3 điểm) Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất? -------------------------------------------------Hết-----------------------------------------------(Giám thị coi thi không giải thích gì thêm) PHÒNG GD & ĐT VĨNH LINH TRƯỜNG THCS TRẦN CÔNG ÁI Đề chính thức ĐỀ THI CHẤT LƯỢNG HỌC KÌ II NĂM HỌC 2015 - 2016 MÔN: TIN HỌC – LỚP 8 Thời gian: 45 phút (không kể thời gian giao đề) Câu 1: ( 2 điểm) Nêu câu lệnh lặp trong pascal? Cho ví dụ về câu lệnh lặp? Câu 2: ( 2 điểm) Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp? Hãy rút ra nhận xét của em. a) S:=0; n:=0; While s<=10 do begin n:=n+1; S:=S+n end; b) S:=0; n:=0; While s<=10 do n:= n+1; s:=s+n; Câu 3: ( 3 điểm) Viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? Câu 4: ( 3 điểm) Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất? -------------------------------------------------Hết-----------------------------------------------(Giám thị coi thi không giải thích gì thêm) PHÒNG GD & ĐT VĨNH LINH TRƯỜNG THCS TRẦN CÔNG ÁI Đề chính thức ĐỀ THI CHẤT LƯỢNG HỌC KÌ II NĂM HỌC 2015 - 2016 MÔN: TIN HỌC – LỚP 8 Thời gian: 45 phút (không kể thời gian giao đề) Câu 1: ( 2 điểm) Hãy tìm hiểu mỗi đoạn lệnh sau đây và cho biết đoạn lệnh đó chương trình thực hiện bao nhiêu vòng lặp? Hãy rút ra nhận xét của em. a) S:=0; n:=0; While s<=10 do begin n:=n+1; S:=S+n end; b) S:=0; n:=0; While s<=10 do n:= n+1; s:=s+n; Câu 2: ( 2 điểm) Nêu câu lệnh lặp trong pascal? Cho ví dụ về câu lệnh lặp? Câu 3: ( 3 điểm) Viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? Câu 4: ( 3 điểm) Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số lớn nhất? -------------------------------------------------Hết-----------------------------------------------(Giám thị coi thi không giải thích gì thêm) ĐÁP ÁN VÀ BIỂU ĐIỂM ĐỀ THI HỌC KỲ II LỚP 8 Câu 1: - Khai báo đúng cú pháp câu lệnh lặp: (1 điểm) For := to do ; - Ví dụ về câu lệnh lặp : (1 điểm) Câu 2: a) Chương trình thực hiện 5 vòng lặp. (0,5 điểm) b) Vòng lặp trong chương trình được thực hiện vô tận vì sau câu lệnh n:=n+1; câu lệnh lặp kết thúc nên điều kiện S=0 luôn luôn được thỏa mãn. (0,5 điểm) Nhận xét: Trong câu lệnh thực hiện, điều kiện cần phải được thay đổi để sớm hay muộn chuyển sang trạng thái không thỏa mãn. Khi đó vòng lặp mới được kết thúc sau hữu hạn bước. Để làm được điều này, câu lệnh trong câu lệnh lặp while..do thường là câu lệnh ghép. (1 điểm) Câu 3: Viết chương trình số nguyên tố. Uses Crt; Var n, i: integer; 1 điểm Begin Clrscr; write (‘ Nhap vao mot so nguyen:’); readln; 1 điểm if n<=1 then writeln(n, ‘khong la so nguyen to’) else begin I:=2; while (n mod i
0) do i:=i+1; 1 điểm if i=n then writeln (n, ‘la so nguyen to’) else writeln (n, ‘khong la so nguyen’) end; readln; End. Câu 4: Viết chương trình tìm giá trị nhỏ nhất của dãy Program Tim_min; Var i,N, Min: integer; 0,5 điểm A:Array[1..100] of integer; Begin Writeln(‘ nhap N’); Readln(N); 0,5 điểm Writeln(‘ nhap các phan tu cua day so’); For i:=1 to n do Begin Write(‘a[‘,i,’]=’); Readln(a[i]); End; 1 điểm Max:=a[1]; For i:=2 to n do If max