Đề thi học sinh giỏi lớp 12 môn tin học

Sở GD - ĐT Quảng Bình Đề thi học sinh giỏi lớp 12 năm học 2007 2008 Câu 1: Cho dãy số A1, A2,, An với (n0 Then Begin Inc(dem); Dec(d[x]); Dec(c[j]); Inc(a[x,j],y); y:=3-y; x:=j; End Else Break; End Else Begin i:=timd(x); If i>0 Then Begin Inc(dem); Dec(d[i]); Dec(c[x]); Inc(a[i,x],y); y:=3-y; x:=i; End Else Break; End; Until False; End; Procedure Xuly; Var p,q:Byte; Begin Dem:=0; Repeat Chond(p,q); di(p,q); Until dem=soluong; End; Procedure Ghitep; Var i,j:Byte; f:Text; Begin Assign(f,fo); Rewrite(f); for i:=1 to n Begin For j:=1 to m If a[i,j]>0 then Write(f,a[i,j]-1,' ') Else Write(f,0,' '); Writeln(f); End; Close(f); End; BEGIN Docfile; xuly; ghitep; END Bài Program BAI1; Const MaxN=100; fi='bai3.inp'; fo='bai3.out' ; Var A:Array[1 MaxN] of byte; B:array[1 Maxn] of byte; c:array[1 Maxn] of byte; DCSC,s:string; t:integer; max,vt:byte; xauchar, xaunum,stt:string; Procedure Docfile; Var i: Byte; f: Text; Begin Assign(f,fi); reset(f); Readln(f,s); Close(f); End; Procedure TACHXAU; Var i:Byte; Begin xauchar:=''; xaunum:=''; i:=1; While i='A')and(s[i]max then begin max:=c[i]; vt:=i; end; for j:=vt downto vt-max+1 Begin str(b[j],bcx); DCSC:=DCSC+ bcx; End; end; Procedure ghitep; Var f:text; Begin assign(f,fo); rewrite(f); Writeln(f,stt); Writeln(f,max); Write(f,DCSC); end; BEGIN docfile; tachxau; XLCHAR(xauchar); XLNUM(xaunum); ghitep; End Biểu điểm Bài (3đ) Chơng trình rõ ràng, Bài (5đ) Chơng trình rõ ràng, Bài (2đ) Chơng trình rõ ràng, ... Dòng thứ ba ghi xâu (trong xâu xaunum) lập thành cấp số cộng Ví dụ JKSGFJKKL3 2123 456789310KJKDJH GF DFFGGHJJJJKKKKKLS 123 456789 File đầu vào BAI3.INP BAI3.OUT File đầu Đáp án Bài Program BAI1; Const