Đề thi HSG Tin 9 huyện Cam Lộ năm 2017-2018

PHÒNG GD&ĐT CAM LỘ ĐỀ CHÍNH THỨC ĐỀ THI HỌC SINH GIỎI VĂN HÓA LỚP 9 NĂM HỌC 2017- 2018 Môn thi : TIN HỌC Khóa ngày 27/10/2017 Thời gian làm bài : 120 phút( Không kể thời gian giao đề) Em hãy dùng ngôn ngữ lập trình Pascal hoặc Free Pascal để lập trình giải các bài toán sau: Bài 1: (4, 0 điểm) Tính tổng BAI1.PAS Viết chương trình nhập từ bàn phím số tự nhiên n sao cho 5 0 do delete(st,pos(' ',st),1); for i:=1 to length(st) do if st[i] in ['A'..'Z'] then st[i]:=chr(ord(st[i])+32); st[1]:=upcase(st[1]); for i:=1 to length(st) do if st[i]=' ' then st[i+1]:=upcase(st[i+1]); writeln(f2,st); close(f1); close(f2); end. Bài 3: (6,0 điểm) Phần thưởng TEST PT.INP PT.OUT Điểm 5 3 1 1đ 2 3 4 5 6 15 24 45 36 27 3 8 4 12 5 20 25 30 15 40 6 16 24 28 8 40 4 8 20 12 15 10 22 26 30 13 10 8 16 80 32 64 160 320 640 24 4000 Chương trình tham khảo Program Phan_thuong; Const fi='PT.INP'; fo='PT.OUT'; Type mmc=Array[0..101] of Longint; Var N:Longint; A:mmc; Function UCLN(x,y:Longint):Longint; Var sodu:Word; Begin sodu:=x mod y; 4 1đ 5 1đ 4 1đ 1 1đ 8 1đ While sodu

0 do Begin x:=y; y:=sodu; sodu:=x mod y; End; UCLN:=y; End; Procedure Read_Data; Var f:text; i:Longint; Begin Assign(f,fi); Reset(f); Readln(f,N); For i:=1 to N do Read(f,A[i]); Close(f); End; Function USC:Longint; Var f:text; i,mUSC:longint; Begin mUSC:=UCLN(A[1],A[2]); for i:= 3 to N do mUSC:=UCLN(mUSC,A[i]); USC:=mUSC; End; Procedure Write_Data; Var f:Text; Begin Assign(f,fo); Rewrite(f); Write(f,USC); Close(f); End; BEGIN Read_Data; Write_Data; End. Bài 4: (6 điểm) SINH XÂU KÍ TỰ Mỗi test đúng được 2 điểm Test SINHXAU.INP SINHXAU.OUT 1 X= “19012304” 43210 2 3 Y= “034012” X= “2468” Y= “3579” X= “abc19012304” Y= “b9123” Khong co xau sinh ra 9321 Chương trình tham khảo program sinh_xau_ki_tu; var s1,s2,s11,s22, xauchung: string; tam:char; dem,i,j:integer; f1,f2:text; BEGIN assign(f1,'SINHXAU.INP') ; reset(f1); assign(f2,'SINHXAU.OUT') ; rewrite(f2); dem:=0; s11:='';s22:='';xauchung:=''; while (dem=0) and not eof(f1) do begin readln(f1,s1); readln(f1,s2); s11:=s11+s1; s22:=s22+s2; i:=1; while i<=length(s11) do begin if (pos(s11[i],s22) >0) and (pos(s11[i],xauchung)=0) then xauchung:=xauchung+s11[i]; inc(i); end; If xauchung=’ ’ then write (f2, ‘khong co xau sinh ra’); end; If xauchung >’ ’ then begin for i:=1 to length(xauchung) do for j:=i+1 to length(xauchung) do if xauchung[i]