Thi HS giỏi cấp tỉnh
 

Kỳ thi HSG cấp tỉnh vòng 1 vừa kết thúc lúc 4h15 chiều nay(08/11/2006).Theo thăm dò thì tình hình thi của các đội tuyển rất khả quan.Sau đây là 2 đề thi môn tin & hóa(các môn khác em sẽ cập nhật sau)

MÔN Hóa:





MÔN TIN:

Ðề: Thi HS giỏi cấp tỉnh
 

Ðề: Thi HS giỏi cấp tỉnh
 

Ðề: Thi HS giỏi cấp tỉnh
 

HIX pót gấp we' em we^n resize oi`,mấy anh thông cảm.hihiiihihiiii...Thi HSG cấp tỉnh gồm 2 vòng: số điểm vòng 1 này nếu trên 5 sẽ thi tiếp vòng 2 vào khoảng tháng 12 tới.

http://nguyenhoangthienkhanh.googlepages.com/phuc02.gif

http://nguyenhoangthienkhanh.googlepages.com/phuc01.gif

Anh theo 2 đường dẫn trên save hình về xem rõ hơn hơn...:1:

Ðề: Thi HS giỏi cấp tỉnh
 

GIẢI ĐỀ TIN HỌC
Bài 1:
Program Bai1;
var m,n,a:integer;
begin
readln(a);
m:=0;
while (a>1) and (a mod 3 =0) do
begin
a:= a div 3;
inc(m)
end;
n:=0;
while (a>1) and (a mod 5 =0) do
begin
a := a div 5;
inc(n)
end;
if ( m>0) or (n>0) then
writeln('Co. m=',m,',n=',n)
else
writeln('Khong.');
readln
end.

Ðề: Thi HS giỏi cấp tỉnh
 

program bai2;
const MAX=10;
type diem = record
socot:integer;
diems:array[1..MAX] of integer
end;

procedure xuly(s:string;var d:diem);
const onespace=' ';
twospace=' ';
var p,error:integer;
tam:string;
cont:boolean;
begin
{xoa khoang trang o dau}
while pos(onespace,s) = 1 Do
delete(s,1,1);
s:=s+onespace;
{chuan hoa cac khang trang}
p:= pos(twospace,s);
While (p > 0) do
begin
delete(s,p,2);
insert(onespace,s,p);
p:= pos(twospace,s)
end;
{xu ly so lieu}
p:= pos(onespace,s);
d.socot:=0;
cont:=true;
while(p>0) and cont do
begin
tam:=copy(s,1,p-1);
delete(s,1,p);
inc(d.socot);
if ( d.socot > MAX) then
begin
d.socot := -1;
cont := false
end
else
begin
val(tam,d.diems[d.socot],error);
if( error > 0 ) then
begin
d.socot := -1;
cont := false
end
else
p:= pos(onespace,s)
end
end;
end;
var s1,s2:string;
d1,d2:diem;
d:real;
i:integer;
begin
readln(s1);
readln(s2);
xuly(s1,d1);
xuly(s2,d2);
if( d1.socot = -1 ) or (d2.socot = -1) then
writeln('Co loi trong khi nhap diem')
else
begin
d:=0;
for i:=1 to d1.socot do
d:=d+d1.diems[i];
for i:=1 to d2.socot do
d:=d+d2.diems[i]*2;
d:=d/(d1.socot+2*d2.socot);
writeln('Diem=',d:3:1)
end;
readln
end.

Ðề: Thi HS giỏi cấp tỉnh
 

Em sẽ answer cho chị nha!!1
Tình hình các đội làm bài cũng khả wan lắm , nhưng có lẽ đội Tin năm nay sẽ bị yếu thế hơn năm trước , hic , 2 tên mạnh nhất đội bị treo giò òi !!!

Chị ơi !! Cô Tài chuyển về trường Tân An òi , tụi em chỉ được học cô đúng 1 năm hà!!!

Ðề: Thi HS giỏi cấp tỉnh
 

program bai3;
const MAX=100;
type so=record
val:0..9;
loc:integer
end;
conso =array[1..MAX] of so;
var s:string;
a:conso;
l,k,i,j,inew:integer;
procedure chuyendoi(var a:conso;len:integer);
var i,j:integer;
temp:so;
begin
j:=1;
while (j <= len div 2-2) do
begin
temp:=a[j+4];
for i:=4 downto 1 do
a[i+j]:=a[i+j-1];
a[j]:=temp;
j:=j+4;
end;
end;
procedure xuly(s:string;var a:conso;var len:integer);
var i,e:integer;
cont:boolean;
begin
len:=length(s);
if (len > MAX ) then len := 0
else
begin
i:=1;
cont:=true;
while (i <= len) and cont do
begin
a[i].loc:=i;
val(s[i],a[i].val,e);
if(e > 0) then
begin
cont:=false;
len:=0
end
else
inc(i)
end
end
end;
begin
write('a=');readln(s);
write('k=');readln(k);
write('i=');readln(i);
xuly(s,a,l);
if (l<4) or (l mod 2 =1 ) or (l<i) then
writeln('Co loi trong luc nhap lieu')
else
begin
for j:=1 to k do chuyendoi(a,l);
write('Sau khi chuyen doi a=');
for j:=1 to l do
begin
write(a[j].val);
if a[j].loc=i then inew:=j;
end;
writeln;
write('Con so thu ',i,' bay so dung vi tri ',inew)
end;
readln
end.

Ðề: Thi HS giỏi cấp tỉnh
 

Có ai cho em xem cái đề Tin ko.Em theo link của ThiênKhánh thì ko thấy gì hết á.Em xem thử đề coi mình làm dc hay ko vì đang học CNTT mừ :biggrin:.Nghe nói trường mình làm dc mừng ghê.

Ðề: Thi HS giỏi cấp tỉnh
 

Theo cái link của khánh. Save về máy mở lên. Nó hơi bị mờ tí.
Theo anh đánh giá đề không khó lắm. Câu số 1 dễ nhất mà lại 4 điểm tuy nhiên không biết ý tác giả thế nào. Nếu câu một con số nhập vào có hàng trăm chữ số thì lại khác khi đó 4 điểm mới có giá trị.