Đáp án đề thi học kì 2 môn tin học lớp 8, trường THCS Nguyễn Chi Phương, Sở GD&ĐT Thừa Thiên Huế 2018-2019 - Học Toàn Tập

Thực hiện câu lệnh. B4.[r]

SỞ GD &ĐT THỪA THIÊN HUẾ KIỂM TRA HỌC KỲ II - NĂM HỌC 2017 - 2018

TRƯỜNG THCS NGUYỄN TRI PHƯƠNG Môn: TIN HỌC – Lớp: 8

Thời gian làm bài: 45 phút ĐÁP ÁN

CÂU Nội dung Điểm

1

1.1

Công dụng: Thực cấu trúc lặp với số lần biết trước 0.25 điêm Cú pháp: For <biến đếm> := <GTĐ> to <GTC> <Lệnh>; 0.75 điêm Giải thích cú pháp:

For, to , do: từ khóa

Biến đếm, GTĐ, GTC biến có kiểu đếm

<Lệnh>: lệnh đơn lệnh phức hợp, <Lệnh> không chứa lệnh làm thay đổi giá trị biến đếm

0.25 điểm

Quy trình thực lệnh For: B1 <Biến đếm>  <GTĐ>

B2 Nếu <Biến đếm> > <GTC> kết thúc lệnh For B3 Thực câu lệnh

B4 <Biến đếm>  SUCC(<Biến đếm> ) Quay lại B1

0.75 điểm

1.2 b khai báo sai

a., c d khai báo điểm

2

2.1 Var i, j, N, dem, dem1, S : integer; 0.75 điểm

2.2

Begin

Write('Nhap N: '); Readln(N); dem:=0; S:=0; 0.25 điểm For i:=1 to N

Begin đem1:=0;

0.5 điểm

For j:=2 to i div if i mod j = then dem1:=dem1 + 1; 0.5 điểm

If (dem1 mod 3=0) and (dem1 mod =1) then Begin

Writeln(i); S:=S+i; dem:=dem+1; End;

End;

0.75 điểm

Writeln('Có ',dem,' số thoa man dieu kien'); Writeln('Tổng số :',S);

End

0.25 điểm

a:array[1 100] of real;

i,n,dem1, dem2, x: integer; S:real;

3.2

Begin

Write('Nhap N : '); Readln(N); Write('Nhap X : '); Readln(X); For i:=1 to N

Begin

Write('Nhap a[',i,'] : '); Readln(a[i]); End;

1.0 điểm

For i:=1 to N Begin

If (a[i]>x) then Write (a[i]:0:2, ' ')

0.75 điểm If (a[i]<x) then dem1:=dem1+1; 0.25 điểm If (a[i]<=x) then S:= S+a[i]; 0.25 điểm If (a[i]=x) then dem2:=dem2+1;

End; 0.25 điểm Writeln;

Writeln('Tong cac so khong lon hon X: ',S:0:2); Writeln('So cac so nho hon X: ',dem1);

Writeln('So cac so bang X: ',dem2); End