Kỳ thi chọn HSG Tin học 12 (2010-2011) - GD&ĐT tỉnh Yên Bái (Kèm Đ.án)

Với đề thi chọn học sinh giỏi môn Tin học lớp 12 năm 2010-2011 của Sở Giáo dục và Đào tạo tỉnh Yên Bái sẽ giúp các bạn học sinh chuẩn bị ôn luyện và bổ trợ kiến thức cho kỳ thi học sinh giỏi sắp tới cũng như phát huy tư duy, năng khiếu về môn Tin học. Mời các bạn tham khảo.
Nội dung trích xuất từ tài liệu:
Kỳ thi chọn HSG Tin học 12 (2010-2011) - GD&ĐT tỉnh Yên Bái (Kèm Đ.án)SỞ GIÁO DỤC VÀ ĐÀO TẠO KỲ THI CHỌN HỌC SINH GIỎI TỈNH YÊN BÁI LỚP 12 THPT NĂM HỌC 2010- 2011 Môn thi: Tin học Thời gian: 180 phút (không kể thời gian giao đề) Ngày thi: 10-10-2010Bài 1(6 điểm): Cho một số tự nhiên N (1Bài 3 (7 điểm): Tại quốc gia T đã có n (n ĐÁP ÁN: Đề thi chính thức Môn: Tin học lớp 12Bài 1: (6 điểm)program bt1;const fi=d:\bt1.txt; fo=d:\bt1.out;var a:array[1..120,0..120] of longint; n:byte;procedure input;var f:text; begin assign(f,fi); reset(f); readln(f,n); close(f); end;procedure pt;var i,j,t:byte; begin for i:=1 to n do for j:=1 to n do a[i,j]:=0; for i:=1 to n do a[i,0]:=1; for i:=1 to n do for j:=1 to n do if j f:text; i,j,n,x,y,m,s,dmin:word; tg,min:longint;procedure nhap; begin assign(f,fi); reset(f); readln(f,n,s); for i:=1 to n do for j:=1 to n do a[i,j]:=vc; for i:=1 to n do a[i,i]:=0; while not(seekeof(f)) do begin readln(f,x,y,m); a[x,y]:=m; a[y,x]:=m; end; close(f); end; procedure dijstra; begin fillchar(dd,sizeof(dd),0);dd[s]:=1;t[s]:=s;d[s]:=0; for i:=1 to n do if is then begin d[i]:=a[s,i];t[i]:=s; end; repeat min:=VC; for i:=1 to n do if (dd[i]=0) and (d[i]d[dmin]+a[dmin,i] then begin d[i]:=d[dmin]+a[dmin,i];t[i]:=dmin; end; end; until min=vc;end;procedure vietkq; begin assign(f,fo);rewrite(f); tg:=0; for i:=1 to n do if is then tg:=tg+a[i,t[i]]; writeln(f,tg); close(f); end; begin 4 nhap; dijstra; vietkq; end.Bài 3: (7 điểm)program bt3;const fi=d:\pd.txt; fo=d:\pd.out;type diem=recordx,y:integer;end;mdiem=array[1..100] of diem;var a,b:mdiem; c:array[0..100,0..100] of integer; n:byte;procedure docfile; var f:text; i:integer; t1,t2:integer; begin assign(f,fi); reset (f); readln(f,n); for i:=1 to n do begin readln(f,t1,t2); a[i].x:=t1; b[i].x:=t2; a[i].y:=i; b[i].y:=i; end; close(f); end;procedure sapxep(var d:mdiem);var tam:diem; i,j:byte; begin for i:=1 to n-1 do for j:=i+1 to n do if d[i].x>d[j].x then begin tam:=d[i]; d[i]:=d[j]; d[j]:=tam; end; end; function max(a,b:integer):integer; begin if a>b then max:=a else max:=b; end; 5procedure xuli;var i,j:byte; begin sapxep(a); sapxep(b); for i:=0 to n do begin c[i,0]:=0; c[0,i]:=0; end; for i:=1 to n do for j:=1 to n do if a[i].y=b[j].y then c[i,j]:=max(c[i-1,j],c[i,j-1])+1 else c[i,j]:=max(c[i-1,j],c[i,j-1]); end;procedure ghifile;var f:text; begin assign(f,fo); rewrite(f); write(f,n-c[n,n]); close(f);end;begindocfile;xuli;ghifile;end. 6