Đề thi chọn HSG cấp Thị xã môn Tin Học 9 - Phòng GD&ĐT Thị xã Sa Pa - Năm học 2019-2020 (Đề dự phòng - Kèm hướng dẫn chấm)

 PHÒNG GD&ĐT ĐỀ THI CHỌN HỌC SINH GIỎI CẤP THỊ XÃ
 THỊ XÃ SA PA NĂM HỌC 2019-2020
 MÔN: TIN HỌC 9
 Đề dự phòng Thời gian làm bài: 150 phút (Không kể thời gian giao đề)
 Đề thi gồm có 01 trang, 04 câu Ngày thi: 04/01/2020
 Câu 1 (6.0 điểm). Lập trình Scratch: Em hãy vẽ hình vuông và lục giác đều 
sau với các cạnh là 100.
 Câu 2 (4,0 điểm). Tính tổng các số liên tiếp từ 1 đến 100.
 Câu 3 (3,0 điểm): Viết chương trình nhập vào một xâu ký tự từ bàn phím. 
Đổi xâu ký tự đó sang chữ in hoa rồi in kết quả ra màn hình.
 Ví dụ :Xâu abcdAbcD sẽ cho ra xâu ABCDABCD.
 Câu 4 (6,0 điểm)
 Cho 1 dãy số gồm n phần tử n<=15. Giá trị từng phần tử là số thực. Thực 
hiện các chương trình sau:
 a) Nhập từ bàn phím số phần tử và giá trị từng phần tử
 b) Tính tổng và trung bình cộng của các phần tử chẵn của dãy
 c) Tìm phần tử có giá trị lớn nhất của dãy
 d) Sắp xếp dãy theo chiều giảm dần về giá trị của từng phần tử
 e) In các kết quả trên ra màn hình theo chiều dọc
 Hết
 Ghi chú:
 - Học sinh không được sử dụng tài liệu
 - Cán bộ coi thi không giải thích gì thêm. PHÒNG GD&ĐT HƯỚNG DẪN CHẤM ĐÊ THI CHỌN HỌC 
 THỊ XÃ SA PA SINH GIỎI CẤP THỊ XÃ NĂM HỌC 2019-2020
 MÔN: TIN HỌC 9
 HDC gồm 03 trang 
Câu 1:
 Đáp án Điể
 m
 - Vẽ được hình lục giác đều cạnh 100 2.0
 - Vẽ được hình vuông cạnh 100 2.0
 - Vẽ được 2 hình lồng nhau như hình mẫu 2.0
Câu 2:
 Đáp án Điểm
 program cau2;
 Uses Crt;
 var i: byte; 0.5
 S: longint;
 begin
 S:= 0; 0.5
 i:= 1;
 while i <= 100 do 0.5
 begin
 S:= S + i; 0.5
 i:= i +1; 0.5
 end; 0.5
 write('Tong tu 1 den 100 la:',S); 0.5
 readln;
 end. 0.5 Câu 3.
 Đáp án Điểm
 program cau3;
 Uses Crt; 1.0
 Var St:String;
 i:Byte;
 Begin
 Write(‘Nhap xau St: ‘); Readln(St); 0.5
 For i:=1 to length(St) do St[i]:=Upcase(St[i]); 1.0
 Write(‘Xau ket qua: ‘, St);
 Readln; 0.5
 0.5
 End. 0.5
Câu 4.
 Đáp án Điểm
 program cau4;
 var i,n :Byte; 0.5
 tb, b, c, d :real;
 a: array[1..15] of real ;
 begin
 write(' nhập số lượng phần tử n ='); readln(n); 0.5
 Writeln('Nhap mang a: ');
 for i:=1 to n do 
 begin 0.5
 write('a[',i,']= ');
 readln(a[i]) 
 end;
 tc:= 0; t:=1; 0.5
 for i:=1 to n do if i mod 2 =0 then begin 0.5
 t= t+1 ; 
 tc= tc + a[i] ; {tính tổng 0.5
 phần tư chẵn}
 end; 
 ttc = tc/t ; { trung bình phần tử chẵn} 0.5
 max:= a[1]; 
 for i=2 to n do if max < a[i] then max =a[i] ; { tìm phần tử 0.5
 lớn nhất} for i=2 to n do 0.5
 for j=n down to i do
 if (a[j]> a[j-1])
 then begin 
 b:= a[j-1] ; 0.5
 a[j-1]:=a[j];
 a[j]:=b;
 end; {sắp xếp các phần tử giảm 
 dần về giá trị}
 for i=1 to n then begin 0.5
 write( a[i]); 
 writeln;
 end; {in ra theo chiều dọc 0.5
 mảng}
 end. 
1,0 điểm trình bày