Форум Всеукраїнської інтернет-олімпіади NetOI

Anna написав:

Я как увидула результаты - чуть в обморок не упала... Такое могло случиться только со мной  - не проверить задачу, которую отправляешь... Ну, в результате у меня 0 за 2ю задачу... А в он-лайн проверке - 20... Кошмар...

Мне тя жаль но правила ниче тут не позволяют зделать

Це дійсно так. Я приймав участь в очному турі два роки тому. Там бали набрані за перші три тури діляться на 10 чи на 100, точно не пам’ятаю. Одним словом від них мало шо лишається і основну роль грає очний тур.
І взагалі для більшості ця олімпіада і буде звичайним тренуванням...

Gluk написав:

гм... не советовал бы вам вообще серьезно относится к результатам заочных туров... в принципе, они ни на что в конце не повлеяют, а к задачам относитесь как к тренировке , потому как основную ценность будет нести тур очный ...

Если не относится серЪёзно к этим задачам,то как попасть в очный тур?
Кстати,получается,чтобы попасть в этот очный тур нада набрать за 3 тура 200баллов,да?

Ivan написав:

Выделяется одна школа на город и все пишут в этой школе (так что за тобой будут следить, чтобы не списала)

Было бы у кого списывать...

Джулгаков Дмитрий написав:

Народ! У кого 20 балов за CIRCUIT - пришлите решение. А то у очень многих 16-19 балов.

{$APPTYPE CONSOLE}
const
maxn=10000;
var
k,i,num,tek:longint;
a:array[1..4*maxn] of byte;
begin
read(k); {k mod 4=0}
for i:=1 to k do read(a[i]);
tek:=0;
num:=k div 4;
for i:=1 to k div 2 do inc(tek,a[i]);
if tek=num then writeln(1,' ',k div 2,' ',k div 2+1) else
  for i:=2 to k div 2+1 do
   begin
    dec(tek,a[i-1]);
    inc(tek,a[k div 2+i-1]);
    if tek=num then
     begin
      writeln(2,' ',i-1,' ',i,' ',i+k div 2-1,' ',i+k div 2);
      halt;
     end;
   end;
end.

Я написал задачу Circuit.Но в последних трёх тестах онлайн тестирование даёт ТаймАут.
В чём у меня ошибка и где у меня может быть тайм-аут?
=========================
program circuitprog;
type
circuit=array[1..1000]of byte;
var
cep:circuit;
l:integer;
cur,i:integer;
g,s,fh,sh,res:integer;
begin
read(l);
for i:=1 to L do read(cep[i]);
{for i:=1 to L do write(cep[i]);}

fh:=1;sh:=0;
for i:=1 to L div 2 do fh:=fh+cep[i];
for i:=L div 2 to L do sh:=sh+cep[i];

if(fh<>sh)then begin
  for cur:=1 to L div 2 do
  begin
     s:=0;g:=0;
     for i:=cur to cur+(L div 2)-1 do
          if(cep[i]=0)then inc(s) else inc(g);
     if(g=s)then begin
      res:=cur;
      break;
      end;
  end;
writeln(2,' ',res-1,' ',res,' ',res+(L div 2)-1,' ',res+(L div 2));
end else
begin
     writeln(1,' ',L div 2,' ',L div 2+1);
end;
end.

------------------------
Спасибо!

jack_spektor написав:

Я написал задачу Circuit.Но в последних трёх тестах онлайн тестирование даёт ТаймАут.
В чём у меня ошибка и где у меня может быть тайм-аут?
=========================
program circuitprog;
type
>>>>>>>>>>>>>>>>circuit=array[1..1000]of byte;
var
cep:circuit;
l:integer;
cur,i:integer;
g,s,fh,sh,res:integer;
begin
read(l);
for i:=1 to L do read(cep[i]);
{for i:=1 to L do write(cep[i]);}

fh:=1;sh:=0;
for i:=1 to L div 2 do fh:=fh+cep[i];
for i:=L div 2 to L do sh:=sh+cep[i];

if(fh<>sh)then begin
  for cur:=1 to L div 2 do
  begin
     s:=0;g:=0;
     for i:=cur to cur+(L div 2)-1 do
          if(cep[i]=0)then inc(s) else inc(g);
     if(g=s)then begin
      res:=cur;
      break;
      end;
  end;
writeln(2,' ',res-1,' ',res,' ',res+(L div 2)-1,' ',res+(L div 2));
end else
begin
     writeln(1,' ',L div 2,' ',L div 2+1);
end;
end.

------------------------
Спасибо!

Ошибка там, где помечено >>...>. Маленький размер массива!

jack_spektor написав:

Да,я молодец...
Отлаживал программу,да забыл изменить размер массива...
Изменил,и теперь всё работает...
Только один тест не проходит (9)
Кстати,странно то,что там ТаймАут 0,12 а в следующем тайм-аута нет,хотя там 0,39.
Странно...

У меня такое чувство,будто подобные глюки во всех задачах.

Ничего, бывает. У меня тоже аналогичная ситуация, только со второй задачей...

Не обязательно.Ты думаешь, ты один такой? Таких много...

jack_spektor написав:

Кстати,странно то,что там ТаймАут 0,12 а в следующем тайм-аута нет,хотя там 0,39.
Странно...

Тайм-лимит на каждый тест свой и равен времени прохождения теста авторский решением*2.