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

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

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

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

<i>Thời gian làm bài: 45 phút </i>

<b>ĐÁP ÁN </b>

<b>CÂU </b> <b>Nội dung </b> <b>Điểm </b>

<b>1 </b>

<b>1.1. </b>

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

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

<i>Quy trình thực hiện lệnh For: </i>
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

<b>1.2. </b> b. là khai báo sai

a., c. và d. là các khai báo đúng 1 điểm

<b>2 </b>

<b>2.1. </b> Var i, j, N, dem, dem1, S : integer; 0.75 điểm

<b>2.2. </b>

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

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

a:array[1..100] of real;

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

<b>3.2. </b>

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;

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.

</div>

<!--links-->