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


На форумі обговорюються лише питання, пов'язані з олімпіадою

Ви не зайшли.

#1 2012-11-17 14:58:06

Lorderot
Новий користувач
Звідки: Чернівці
Зареєстрований: 2012-11-15
Повідомлень: 22
Вебсайт

Rectangle!!!

Програма правильна, а набрав чомусь 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.





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

Відредаговано Lorderot (2012-11-17 15:09:24)

Поза форумом

 

#2 2012-11-17 15:15:53

adamant
Новий користувач
Звідки: Запорожье
Зареєстрований: 2012-10-17
Повідомлень: 141

Re: Rectangle!!!

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

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

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

Поза форумом

 

#3 2012-11-17 15:20:59

Andrey1998
Новий користувач
Зареєстрований: 2011-11-17
Повідомлень: 17

Re: Rectangle!!!

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

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

Поза форумом

 

#4 2012-11-17 15:23:14

Lorderot
Новий користувач
Звідки: Чернівці
Зареєстрований: 2012-11-15
Повідомлень: 22
Вебсайт

Re: Rectangle!!!

adamant написав:

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

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

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

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

Поза форумом

 

#5 2012-11-17 15:24:24

Lorderot
Новий користувач
Звідки: Чернівці
Зареєстрований: 2012-11-15
Повідомлень: 22
Вебсайт

Re: Rectangle!!!

Andrey1998 написав:

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

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

Поза форумом

 

#6 2012-11-17 15:25:22

adamant
Новий користувач
Звідки: Запорожье
Зареєстрований: 2012-10-17
Повідомлень: 141

Re: Rectangle!!!

Andrey1998 написав:

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

Да нет, у меня решение с таким же временем исполнения прошло все тесты.

Поза форумом

 

#7 2012-11-17 15:25:31

iliiliilya123
Новий користувач
Зареєстрований: 2012-10-27
Повідомлень: 16

Re: Rectangle!!!

Lorderot написав:

adamant написав:

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

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

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

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

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

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

Поза форумом

 

#8 2012-11-17 15:26:38

adamant
Новий користувач
Звідки: Запорожье
Зареєстрований: 2012-10-17
Повідомлень: 141

Re: Rectangle!!!

Могло, в принципе, превысить лимит памяти. Хотя с таким маленьким максимальным N…

Поза форумом

 

#9 2012-11-17 15:28:33

Lorderot
Новий користувач
Звідки: Чернівці
Зареєстрований: 2012-11-15
Повідомлень: 22
Вебсайт

Re: Rectangle!!!

iliiliilya123 написав:

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

Наверно.

iliiliilya123 написав:

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

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

Поза форумом

 

#10 2012-11-17 15:34:06

Lorderot
Новий користувач
Звідки: Чернівці
Зареєстрований: 2012-11-15
Повідомлень: 22
Вебсайт

Re: Rectangle!!!

Но взагальному мені сподобалась олімпіада. Набрав 95 із 100, я думаю це нормально для 1-го разу)

Поза форумом

 

#11 2012-11-17 17:54:51

victor18
Новий користувач
Зареєстрований: 2012-11-01
Повідомлень: 8

Re: Rectangle!!!

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]

Поза форумом

 

#12 2012-11-17 18:32:10

Lorderot
Новий користувач
Звідки: Чернівці
Зареєстрований: 2012-11-15
Повідомлень: 22
Вебсайт

Re: Rectangle!!!

victor18 написав:

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

Дійсно. sad як я міг таке пропустити sadsadsadsad так би мав 100 балів

Поза форумом

 

#13 2012-11-17 19:15:57

adamant
Новий користувач
Звідки: Запорожье
Зареєстрований: 2012-10-17
Повідомлень: 141

Re: Rectangle!!!

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

Поза форумом

 

#14 2012-11-17 20:45:27

Lorderot
Новий користувач
Звідки: Чернівці
Зареєстрований: 2012-11-15
Повідомлень: 22
Вебсайт

Re: Rectangle!!!

adamant написав:

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

Тому що  в мене було 2 варінта програми, і той там де 0..201 масив неправильно було,
а в другому варіанті я це не врахував(взяв стандартний шаблон)

Відредаговано Lorderot (2012-11-17 20:45:44)

Поза форумом

 

Нижній колонтитул

Powered by Likt
© Copyright 2002–2009 Likt