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)
Cái đề em làm thế nào mà chỉ có 1 nửa theo chiều dọc thế,coi ko hiểu gì hết ah.
__________________
Lúc bé , tưởng cô đơn ở đâu xa lắm , chỉ đến ở những chỗ không người , giờ mới hiểu , có khi cô đơn ngay giữa chốn đông người
If u love something, set it free. If it comes back to u, it's urs. If not, it never was
Và con tim đã vui trở lại
Tình hình các bạn trường mình làm bài như thế nào? Thi lần này mấy vòng? Nhìn mấy bài hóa chợt nhớ thầy Dũng với cô Tài ghê! Không biết bây giờ còn nhớ được mấy % nữa!
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.
Tình hình các bạn trường mình làm bài như thế nào? Thi lần này mấy vòng? Nhìn mấy bài hóa chợt nhớ thầy Dũng với cô Tài ghê! Không biết bây giờ còn nhớ được mấy % nữa!
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à!!!
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.
__________________ Necessity is the mother of in(ter)vention.
Speak softly & carry a big stick. My Technical Blog
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.
__________________ Necessity is the mother of in(ter)vention.
Speak softly & carry a big stick. My Technical Blog
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.
__________________ Necessity is the mother of in(ter)vention.
Speak softly & carry a big stick. My Technical Blog
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ừ .Nghe nói trường mình làm dc mừng ghê.
__________________
Lúc bé , tưởng cô đơn ở đâu xa lắm , chỉ đến ở những chỗ không người , giờ mới hiểu , có khi cô đơn ngay giữa chốn đông người
If u love something, set it free. If it comes back to u, it's urs. If not, it never was
Và con tim đã vui trở lại
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ị.
__________________ Necessity is the mother of in(ter)vention.
Speak softly & carry a big stick. My Technical Blog