На форумі обговорюються лише питання, пов'язані з олімпіадою
Ви не зайшли.
Програма правильна, а набрав чомусь 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)
Поза форумом
Я не очень хорошо знаю Паскаль, но... Мне кажется, или вы используете k, объявив, но не инициализировав её? Оо
В Паскале такое допустимо?
И да, какой вердикт проверяющей системы? WA?
Поза форумом
На онлайн проверке прошла все тесты:
Возможно при официальной проверке были более строгие временные лимиты
Відредаговано Andrey1998 (2012-11-17 15:21:13)
Поза форумом
adamant написав:
Я не очень хорошо знаю Паскаль, но... Мне кажется, или вы используете k, объявив, но не инициализировав её? Оо
В Паскале такое допустимо?
И да, какой вердикт проверяющей системы? WA?
В паскалі всі змінні автоматично присвоюють значення 0
Поза форумом
Andrey1998 написав:
На онлайн проверке прошла все тесты:
Возможно при официальной проверке были более строгие временные лимиты
http://SSmaker.ru/ecec2d74.png
Можливо, бо рекурсія багато часу забирає
Поза форумом
Andrey1998 написав:
На онлайн проверке прошла все тесты:
Возможно при официальной проверке были более строгие временные лимиты
Да нет, у меня решение с таким же временем исполнения прошло все тесты.
Поза форумом
Lorderot написав:
adamant написав:
Я не очень хорошо знаю Паскаль, но... Мне кажется, или вы используете k, объявив, но не инициализировав её? Оо
В Паскале такое допустимо?
И да, какой вердикт проверяющей системы? WA?В паскалі всі змінні автоматично присвоюють значення 0
В зависимости от настроек среды. Мой друг так всеукр проиграл.
UPD: Проверка идет под линуксом; онлайн не знаю, но может быть, что онлайн проходит, а так нет.
Відредаговано iliiliilya123 (2012-11-17 15:27:10)
Поза форумом
Могло, в принципе, превысить лимит памяти. Хотя с таким маленьким максимальным N…
Поза форумом
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]
Поза форумом
victor18 написав:
Помилка ось в чому: при n=100 в програмі присвоюється значення 1 елементу масиву a[101,100], що є помилкою, оскільки перевищує розмір масиву. В Turbo Pascal ще таке пройде, але не у Free Pascal. Найкраще було б збільшити розмір масиву [0..101,0..101]
Дійсно. як я міг таке пропустити так би мав 100 балів
Поза форумом
Странно... Когда читал это впервые, там был массив 0-201.
Поза форумом
adamant написав:
Странно... Когда читал это впервые, там был массив 0-201.
Тому що в мене було 2 варінта програми, і той там де 0..201 масив неправильно було,
а в другому варіанті я це не врахував(взяв стандартний шаблон)
Відредаговано Lorderot (2012-11-17 20:45:44)
Поза форумом