Игроки-2, нужно оптимизировать Опции

[xxx000]

Ввод из: Стандартный ввод Время выполнения на одном тесте: 1 с
Вывод в: Стандартный вывод Ограничение памяти программы на одном тесте: 2000 кб


После долгих и мучительных попыток Власу с помощью программистов из ТРТУ удалось, наконец, замостить уголками доску размера 2nx2n без произвольной клетки. Однако Еник вовсе не уверен, что предложенное Власом и программистами решение верно. Он просит вас написать программу, проверяющую правильность мощения.
Напоминаем, что на месте вырезанной клетки должен стоять 0. Остальные клетки должны содержать числа от 1 до (2 в n степени*2 в n степени-1)/3 соответственно принадлежности клетки определенному уголку. Уголки не должны перекрываться и не должно быть непокрытых клеток (кроме вырезанной, естественно).
Входные данные: В первой строке – число n (0&ltn&lt10). Во второй строке - координаты вырезанной клетки. Далее 2 в n степени строк по 2 в n степени чисел в каждой через пробел – схема замощения доски.
Выходные данные: вывести «Accepted», если предложенная схема замощения является верной, или «Wrong Answer», если нарушено одно из правил замощения.

Пример входных данных:
2
1 1
0 1 2 2
1 1 3 2
4 3 3 5
4 4 5 5
Пример выходных данных:
Accepted

---------------------------------------

var
 a:array [0..1200,0..1200] of integer;
 d:array [1..350] of integer;
 n,z,c,i,j,x,y,b:longint;
begin
 readln(n);
 z:=1;
 for i:=1 to n do z:=z*2;
 readln(x,y);
 for i:=1 to z do
  for j:=1 to z do read(a[i,j]);
 
 for i:=1 to z do
 begin
  for j:=1 to z do
  begin
   if (a[i,j]=0)and(x<>i)and(y<>j) then
   begin
    writeln('Wrong Answer');
    halt;
   end else
   begin
    c:=a[i,j];
    if (c>0)and(a[i,j+1]=c) then
   begin
     if (a[i+1,j]=c) then inc(d[c],3) else
      if (a[i-1,j]=c) then inc(d[c],3);
   end;
    if (c>0)and(a[i,j-1]=c) then
   begin
     if (a[i+1,j]=c) then inc(d[c],3) else
      if (a[i-1,j]=c) then inc(d[c],3);
   end;
   end;
  end;
 end;
 for i:=1 to 341 do if d[i]>3 then
 begin
  writeln('Wrong Answer');
  halt;
 end;
 writeln('Accepted');
end.
 

--------------------------------------------

система пишет, что превышен лимит памяти, помогите!!


--------------------------------------------

и ещё это задача с 7-й олимпиады ФАВТ, нам её училка задала, а мы тока в 8 классе. што умеем, то и делаем

Сообщение отредактировано: xxx000 - 15.04.2010 21:58

[volvo]

зачем массив 1200*1200 ? кто столько значений будет вводить?

Программа получит файл, который ей надо обработать. Что, Онлайн-серверы не знаешь как работают?

Вот, например, возводит х в степень n.
или

writeln( exp(ln( x ) * n):0:3 );

А там надо не Xⁿ, а 2ⁿ, все проще:

z := 1 shl n;

я не знаю как её сделать (задачу), что бы памяти было не > 2000 Кб

Вот смотрю я на твой код, и вижу, что у тебя в каждый момент времени (давай скажем по-другому, на каждой итерации цикла по строкам матрицы) используется только три строки из всей матрицы: Текущая (с индексом i), предыдущая (с индексом i-1), и следующая (с индексом i+1)... А почему бы тебе не отказаться от идеи читать СРАЗУ все в массив? Читай построчно. Обработал очередную строку - сдвинул их на 1 (то, что было текущей - стало предыдущей, то, что было следующей - стало текущей), прочитал новую строку из файла. Так тебе понадобится всего 3*1024*4 байта = меньше 15К