Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Dành cho những bạn đang muốn nâng giải lên trên 100GP cho giải nhất:
- Thứ nhất, đây là giải thưởng đã được thầy và hội động hoc24.vn thông qua, vậy nên nếu có thay thì chủ cuộc thi sẽ cần kiến nghị lại với hội đồng trang, mất nhiều công sức và thời gian. Vả lại, mình khẳng định là các thầy cô sẽ không đồng ý với phương án này, vì số GP quá lớn. Đến nhất tuần mấy tuần nay, bỏ ra bao công sức giúp giải bài, còn khó kiếm lên trên 100GP nữa là.
- Thứ hai, cuộc thi này thuộc mảng môn phụ, chứ không thuộc mấy mảng trọng tâm hay chính như Toán, Văn, Lí, Hóa,... Mảng Tin học mấy tuần nay, nhất tuần có khi cũng chưa kiếm đến 10GP một tuần ấy chứ. Với cả cuộc thi Tin học lần trước chỉ có 20 người tham dự vòng 1, và có 2 vòng. Vậy nên không thể nào giải của cuộc thi này còn lớn hơn cả cuộc thi tiếng Anh của anh Minh trước đây được. Tham dự rất đông đảo và nhiệt tình, tỉ lệ "chọi" rất cao mà chung cuộc giải nhất chỉ có 100GP.
- Vậy nên, đây là một sân chơi bổ ích, để phát triển thêm kiến thức và kĩ năng, cũng như giải trí. Vậy nên với giải trên, mình nghĩ bạn chủ cuộc thi đã lựa chọn đúng giải.
- Nếu muốn kiếm thêm GP, các bạn có thể giúp đỡ các bạn trả lời câu hỏi. Trao đi cũng là nhận lại, trao càng nhiều thì nhận càng nhiều!
Đây là ý kiến của mình.
Cảm ơn Phước Thịnh đã tổ chức cuộc thi này. Thầy sẽ nhắn tin và trao giải cho các bạn đạt giải.
Các bạn cố gắng đợi một thời gian rồi thầy @phynit sẽ thưởng cho các bạn
Cuộc thi bị ế ròi :)) giải thưởng thì ''ngon'' đó nhưng mà đọc câu này là nản ròi :v : "Thể lệ cuộc thi gồm 3 vòng sẽ gôm gọn tất cả các kiến thức của tất cả các môn học từ 6-12 và cũng có thể là kiến thức của đại học" theo mình thấy thì ở đây ít ai có kiến thức của đại học lắm :v ( theo ý mình nghĩ thoi chứ cũng không chắc, có thể là có nhưng không thích tham gia :)) ) mình nói vậy thoi chứ chả có ý gì đâu :)) //cmt dạo :v//
"Nếu sử dụng chương trình con thì mỗi bài sẽ được cộng 1đ".
Tức là trong bài chỉ có một chương trình con là được chứ?
Bài làm của bạn @Tran Nguyễn Đăng Dương(bạn được 20 điểm, xếp thứ 1 chung cuộc)
-Bài 1:
program hedem;
uses crt;
const fi='hedem.inp';
fo='hedem.out';
var st:string;
hedema,hedemb:integer;
f1,f2:text;
Function heasanghe10(st1:string):integer;
var d,i,code,x,kq:integer;
begin
d:=Length(st1);
kq:=0;
x:=0;
for i:=1 to d do
begin
case st1[i] of
'0'..'9':begin
Val(st1[i],x,code);
kq:=kq*hedema+x;
end;
'A'..'F':begin
x:=ord(st1[i])-55;
kq:=kq*hedema+x;
end;
end;
end;
exit(kq);
end;
Procedure he10sangheb(kq:Integer);
var dem,d,i,x:integer;
du:array[1..100] of Integer;
begin
dem:=0;
x:=0;
repeat
dem:=dem+1;
du[dem]:=kq mod hedemb;
kq:=kq div hedemb;
until kq=0;
for i:=dem downto 1 do
begin
case du[i] of
0..9:write(f2,du[i]);
10..15:begin
x:=du[i]+55;
write(f2,Chr(x));
end;
end;
end;
end;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
read(f1,hedema,hedemb);
readln(f1);
read(f1,st);
he10sangheb(heasanghe10(st));
Close(f1);
Close(f2);
End.
-Bài 2:
Program ntghep;
uses crt;
const fi='ntghep.inp';
fo='ntghep.out';
var n:integer;
f1,f2:text;
Function SNTcheck(m:longint):boolean;
var i:longint;
begin
for i:=2 to trunc(sqrt(m)) do if m mod i=0 then exit(false);
exit(true);
end;
Function timsntthun(m:longint):longint;
var dem,j:longint;
begin
j:=2;
dem:=0;
repeat
while not SNTcheck(j) do inc(j);
inc(dem);
inc(j);
until dem=m;
exit(j-1);
end;
Function timsntghepthun(m:integer):longint;
var dem,k,code,kq:longint;
st,st1:string;
begin
k:=1;
kq:=0;
dem:=0;
repeat
str(timsntthun(k),st); str(timsntthun(k+1),st1);
Val(st+st1,kq,code);
if SNTcheck(kq) then inc(dem);
k:=k+2;
until dem=m;
exit(kq);
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
read(f1,n);
write(f2,timsntghepthun(n));
Close(f1); Close(f2);
End.
-Bài 3;
Program Fibonacci;
uses crt;
const fi='fibonaci.inp';
fo='fibonaci.out';
var n:integer;
f1,f2:text;
procedure fibo(n:integer);
var i,vt:integer;
fibo:array[1..100] of Integer;
kt:boolean;
begin
fibo[1]:=1; fibo[2]:=1;
kt:=false;
for i:=3 to n do
begin
fibo[i]:=fibo[i-1]+fibo[i-2];
if fibo[i]=n then
begin
kt:=true;
vt:=i;
end;
end;
for i:=1 to n do write(f2,fibo[i],' ');
writeln(f2);
if kt then writeln(f2,'Co. ',vt)
else writeln(f2,'Khong');
write(f2,fibo[n]);
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
read(f1,n);
fibo(n);
Close(f1); Close(f2);
End.
-Bài 4:
Program map;
uses crt;
const fi='map.inp';
fo='map.out';
type arr=array[0..2001,0..71] of Char;
var area,tam:arr;
e,f:array[1..4] of Integer;
ch:char;
st:string;
i,j,x,y,vtdx,vtdy,vtcd,vtcdm:integer;
dem,max:longint;
f1,f2:text;
Procedure mapfinding(a,b:integer; var c:arr);
var k:integer;
begin
if (a>0) and (a<=x) and (b>0) and (b<=y) and (c[a,b]=ch) then
begin
vtcd:=a;
c[a,b]:='*';
inc(dem);
for k:=1 to 4 do mapfinding(a+e[k],b+f[k],c);
end;
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,ch);
e[1]:=-1; e[4]:=1; f[2]:=-1; f[3]:=1;
i:=0;
repeat
readln(f1,st);
inc(x);
for y:=1 to Length(st) do area[x,y]:=st[y];
until eof(f1);
tam:=area;
for i:=1 to x do
for j:=1 to y do
if tam[i,j]=ch then
begin
mapfinding(i,j,tam);
if max<dem then
begin
max:=dem;
vtdx:=i;
vtdy:=j;
vtcdm:=vtcd;
end;
dem:=0;
end;
mapfinding(vtdx,vtdy,area);
writeln(f2,max,' ',vtdx,' ',vtdy,' ',vtcdm);
for i:=vtdx to vtcdm do
begin
for j:=1 to y do write(f2,area[i,j]);
writeln(f2);
end;
Close(f1);
Close(f2);
End.
-Bài 5:
Program smart;
uses crt;
const fi='smart.inp';
fo='smart.out';
type AsVBs=record
a,v,b:string;
end;
AVBs=record
a,v,b:string;
end;
AsVB=record
a,v,b:string;
end;
AisB=record
a,b:string;
end;
Question=record
a,typea,v,b,typeb:string;
end;
var AsVBsinfo:array[0..101] of AsVBs;
AVBsinfo:array[0..101] of AVBs;
AsVBinfo:array[0..101] of AsVB;
AisBinfo:array[0..101] of AisB;
Questions:array[0..101] of Question;
i,j,k,noAsVBs,noAVBs,noAsVB,noAisB,noQuestions,vt:integer;
f1,f2:text;
st,st1,st2,st3:string;
check,check1,check2:boolean;
Procedure readinfo;
begin
repeat
readln(f1,st);
if st='#' then break;
for i:=1 to 3 do
begin
j:=1;
while (st[j]<>' ') and (st[j]<>'.') do inc(j);
case i of
1:st1:=upcase(copy(st,1,j-1));
2:st2:=upcase(copy(st,1,j-1));
3:st3:=upcase(copy(st,1,j-1));
end;
Delete(st,1,j);
end;
Delete(st,Length(st),1);
st:=upcase(st);
if st1='DOES' then
begin
inc(noQuestions);
Questions[noQuestions].a:=st2;
Questions[noQuestions].v:=st3;
Questions[noQuestions].b:=st;
end
else if st2='IS' then
begin
inc(noAisB);
AisBinfo[noAisB].a:=st1;
AisBinfo[noAisB].b:=st+'S';
end
else if (st1[Length(st1)]='S') and (st3[Length(st3)]='S') then
begin
inc(noAsVBs);
AsVBsinfo[noAsVBs].a:=st1;
AsVBsinfo[noAsVBs].v:=st2;
AsVBsinfo[noAsVBs].b:=st3;
end
else if st1[Length(st1)]='S' then
begin
inc(noAsVB);
write(st1,' ',st2,' ',st3,' ',st,' AsVB');
AsVBinfo[noAsVB].a:=st1;
AsVBinfo[noAsVB].v:=st2;
AsVBinfo[noAsVB].b:=st3;
end
else if st3[Length(st3)]='S' then
begin
inc(noAVBs);
AVBsinfo[noAVBs].a:=st1;
AVBsinfo[noAVBs].v:=st2;
AVBsinfo[noAVBs].b:=st3;
end;
until eof(f1);
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readinfo;
for i:=1 to noQuestions do
begin
for j:=1 to noAisB do
begin
if Questions[i].a=AisBinfo[j].a then Questions[i].typea:=AisBinfo[j].b;
if Questions[i].b=AisBinfo[j].a then Questions[i].typeb:=AisBinfo[j].b;
end;
if (Questions[i].typea='') and (Questions[i].typeb='') then writeln(f2,'No.')
else
begin
check:=false;
check1:=false;
check2:=false;
if (Questions[i].typea<>'') and (Questions[i].typeb<>'') then
begin
for j:=1 to noAsVBs do
begin
if (Questions[i].typea=...
Bài 10:
uses crt;
var a,b:array[1..10000]of longint;
i,n,dem,j,dem1:longint;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
b[1]:=a[1];
for i:=1 to n do
begin
kt:=true;
for j:=1 to dem do
if b[j]=a[i] then kt:=false;
if kt=true then
begin
dem:=dem+1;
b[dem]:=a[i];
end;
end;
writeln(dem);
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if b[i]=a[j] then dem1:=dem1+1;
writeln(b[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
Đưa lên CHH đi bạn :)