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

На онлайн проверке прошла все тесты:
Возможно при официальной проверке были более строгие временные лимиты

Відредаговано Andrey1998 (2012-11-17 15:21:13)

Andrey1998 написав:

На онлайн проверке прошла все тесты:
Возможно при официальной проверке были более строгие временные лимиты
http://SSmaker.ru/ecec2d74.png

Можливо, бо рекурсія багато часу забирає

Lorderot написав:

adamant написав:

Я не очень хорошо знаю Паскаль, но... Мне кажется, или вы используете k, объявив, но не инициализировав её? Оо

В Паскале такое допустимо?

И да, какой вердикт проверяющей системы? WA?

В паскалі всі змінні автоматично присвоюють значення 0

В зависимости от настроек среды. Мой друг так всеукр проиграл.
UPD: Проверка идет под линуксом; онлайн не знаю, но может быть, что онлайн проходит, а так нет.

Відредаговано iliiliilya123 (2012-11-17 15:27:10)

iliiliilya123 написав:

В зависимости от настроек среды.

Наверно.

iliiliilya123 написав:

Мой друг так всеукр проиграл.

Співчуваю я вашому другу.

Lorderot написав:

Програма правильна, а набрав чомусь 15 балів. Може я десь помилився
вот мій код:



var n,a1,a2,a3,a4,i,j,k,sum,max,min,max1,min1,h: integer;
    a,ii,jj: array[0..100,0..100] of integer;
    Procedure room(i,j: byte);
     begin
      a[i,j]:=2;

      {âíèç}  if a[i+1,j]=1 then begin room(i+1,j);  end;
      {âë³âî} if a[i,j-1]=1   then begin  room(i,j-1); end;
      {âïðàâî}if a[i,j+1]=1 then begin  room(i,j+1); end;
      {ââåðõ} if a[i-1,j]=1 then begin  room(i-1,j); end;
     end;
begin
read(n);
  for i:=1 to n do
   for j:=1 to n do
  begin
    read(a[i,j]);
    a[i,0]:=0;
   a[i,n+1]:=0;
   a[0,i]:=0;
   a[n+1,i]:=0;
  end;
 
  for i:=1 to n do
   for j:=1 to n do
        If a[i,j]=1 then begin  inc(k); room(i,j);  end;




         
  writeln(k);
end.





в чому помилка??????????????

Помилка ось в чому: при n=100 в програмі присвоюється значення 1 елементу масиву a[101,100], що є помилкою, оскільки перевищує розмір масиву. В Turbo Pascal ще таке пройде, але не у Free Pascal. Найкраще було б збільшити розмір масиву [0..101,0..101]

Странно... Когда читал это впервые, там был массив 0-201.