VPF::[С++ -> Delphi] укладка паркета - Форум программистов

LLIyT

Дата 31.5.2007, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.5.2007

Репутация: нет
Всего: нет

Собственно задача: Комнату pазмеpом NxM единиц тpебуется покpыть одинаковыми плитками паpкета pазмеpом 2х1 единиц без пpопусков и наложений (M ≤ 20, N ≤ 8 M,N - целые). Пол можно покpыть паpкетом pазличными способами. Тpебуется опpеделить количество всех возможных способов укладки паpкета для конкpетных значений M ≤ 20,N ≤ 8. Решением задачи является таблица, содеpжащая 20 стpок и 8 столбцов.
Элементом таблицы является число, являющееся pешением задачи для соответствующих M и N. На месте не найденных pезультатов должен стоять символ "*"

я нашел вот такое решение:

Код



#include <stdio.h>

int m,n;
long double a[256],b[256];

int test(int i, int j, int nn)
{
 if (i&j)
  return 0;
 for (;nn;nn>>=1,i>>=1,j>>=1)
 {
  if ((i^j)&1)
   continue;
  if (nn==1 || (i&1)!=((i>>1)&1) || (j&1)!=((j>>1)&1))
   return 0;
  nn>>=1,i>>=1,j>>=1;
 }
 return 1;
}

int main(void)
{
 int i,j,k;
 scanf("%*[^0-9]%d%*[^0-9]%d",&m,&n);
 n=1<<n;
 for (i=1;i<n;i++)
  a[i]=0;
 a[0]=1;
 for (k=0;k<m;k++)
 {
  for (i=0;i<n;i++)
   b[i]=0;
  for (i=0;i<n;i++)
   for (j=0;j<n;j++)
   if (test(i,j,n-1))
    b[j]+=a[i];
  for (i=0;i<n;i++)
   a[i]=b[i];
  printf("%3d: %1.0Lf\n",k+1,a[0]);
 }
 return 0;
}

и переделал его в делфу:

Код


function test(i:integer; j:integer; nn:integer):integer;
  Begin
   if (i and j)<>0
    then
    begin
     test:=0;
     exit;
    end;
   while  nn<>0  do    // \
    begin                     //  | вот тут зацикливание
     if (i xor j)<>0        // /
       then
         continue;
     if ((nn=1) or ((i and 1)<>((i shr 1)and 1)) or ((j and 1)<>((j div 1)and 1)))
     then
      test:=0;
      nn:= nn shr 1;
      i:=i shr 1;
      j:=j shr 1;
    end;
   test:=1;
  end;

var i,j,k,m,n:integer;
    a,b:array [0..255] of integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(m);
  readln(n);
  n:=1 shl n;
  for i:=0 to n-1 do
  a[i]:=0;
  i:=i+1;
  a[0]:=1;
 for k:=0 to n-1 do
 begin
  for i:=0 to n-1  do
   b[i]:=0;
    for i:=0 to n-1  do
     for j:=0 to n-1  do
      if test(i,j,n-1)
       b[j]:=b[i]+a[i];
       j:=j+1;
       i:=i+1;
     for i:=0 to n-1 do
      a[i]:=b[i];
      i:=i+1;
    write(k+1,a[0]);
  end
  k:=k+1;
end.

но прога зацикливается (в коде указано)..сначала функция test один раз отрабатывает ,после чего i:=0, j:=1 и все((

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »