Thực hiện câu lệnh. B4.[r]
(1)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
(2)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