Đá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

1

1.1

Công dụng: Thực hiện 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> do <Lệnh>; 0.75 điêm

Giải thích cú pháp:

For, to , do: từ khóa Biến đếm, GTĐ, GTC là các biến hoặc hằng có kiểu đếm được

<Lệnh>: lệnh đơn hoặc lệnh phức hợp, trong <Lệnh>

không được chứa các lệnh làm thay đổi giá trị của biến đếm

0.25 điểm

Quy trình thực hiện lệnh For:

B1 <Biến đếm>  <GTĐ>

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

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

0.75 điểm

1.2 b là khai báo sai

a., c và d là các khai báo đúng 1 đ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 2 do if i mod j = 0 then dem1:=dem1 + 1; 0.5 điểm

If (dem1 mod 3=0) and (dem1 mod 2 =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 các số đó là :',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 do Begin

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

End;

1.0 điểm

For i:=1 to N do 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;

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

0.5 điểm