Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

Помогите с алгоритм оптимального размещения   Найти похожие ветки 

 
-=OpeR=-   (2006-06-05 22:01) [0]

Данн прямоугольник размерами x,y. Имеются N1 прямоуголиников с размерами x1,y1 (где x1<x, y1<y), N2 прямоуголиников с размерами x2,y2 (где x2<x, y2<y) и т.д. Необходимо разместить прямоугольники таким образом, чтобы осталось минимальное свободное пространство. Прямоугольники можно поворачивать на 90 градусов (стороны прямоугольников паралельны сторонам исходного прямоугольника x,y)


 
TLightMap   (2006-06-06 01:27) [1]

Короче опять про упаковку лайтмэпов.


 
-=OpeR=-   (2006-06-06 10:35) [2]

а по подробней можно


 
VolanD666   (2006-06-10 05:08) [3]

http://www.blackpawn.com/texts/lightmaps/default.html


 
-=OpeR=-   (2006-06-12 20:03) [4]

спасибо


 
Мимоходец   (2006-06-13 01:27) [5]


> -=OpeR=-   (12.06.06 20:03) [4]
> спасибо


Ну и как, разместил? Если да - запости код.


 
XProger ©   (2006-06-13 03:23) [6]

Мимоходец. http://www.blackpawn.com/texts/lightmaps/default.html


 
Мимоходец   (2006-06-13 04:40) [7]

КОД тебе сказали запости. А не ля-ля.


 
VolanD666   (2006-06-13 11:52) [8]

XProger, это плагиат!
:)


 
kernel ©   (2006-06-13 11:53) [9]

:)


 
Gashish   (2006-06-15 19:46) [10]

Люди помогите плиз не знаю в чем ошибка выходит:
1) Y=-4+8-16+32-64+...

Program Project 2;
uses
SysUtils
var
a:=array[1..5] of integer;
s,i: integer;
begin
a[1]:=4
s:=0;
for i:=2 to 5 do
a[i]:=a[i+1]*2;
for i:=1 to 5 do
case i of
1,3,5: a [i]:a=-a[i];
end.
for i:=2 to 5 do
writeln ("9[",i,"]",a[i]);
for i:=1 to 5 do
s:=s+a[i];
writeln
writeln("summa=",s);
readln;
end.


 
VolanD666   (2006-06-15 19:56) [11]

Че?


 
-=OpeR=-   (2006-06-23 10:21) [12]

Сначала исправь ошибки, у тебя их в коде полно:

Program Project 2;
uses
SysUtils
var
a:=array[1..5] of integer; \\ Равно в обьявлении переменных не надо
s,i: integer;
begin
a[1]:=4  \\ Не забывай ставить ;
s:=0;
for i:=2 to 5 do
a[i]:=a[i+1]*2; \\ Насколько я понимаю, ты забил в первый элемент массива \\4, а остальные у тубя пустые, получается что a[2]:=a[3]*2 - но a[3] \\пустая ячейка, может поставить a[i]:=a[i-1]*2; , тогда a[2]:=a[1]*2,
a[3]:=a[2]*2 и т. д.

for i:=1 to 5 do
case i of
1,3,5: a [i]:a=-a[i];  \\ Вообще муть какая то, может так: a [i]:=-a[i];  
end. \\ Точки быть не может \\ Не забывай ставить ;for i:=2 to 5 do
writeln ("9[",i,"]",a[i]);
for i:=1 to 5 do
s:=s+a[i];
writeln \\ Не забывай ставить ;writeln("summa=",s);
readln;
end.


 
-=OpeR=-   (2006-06-23 10:31) [13]

После редактирования получилось:

Var
a:array[1..5] of integer;
s,i: integer;
 begin
  a[1]:=4;
  s:=0;
   for i:=2 to 5 do
    begin
     a[i]:=a[i-1]*2;
    end;
   for i:=1 to 5 do
    begin
     If i mod 2 <> 0 then
      a[i]:=a[i]*-1;
    end;
    for i:=1 to 5 do
     begin
      s:=s+a[i];
     end;
    writeln;                 \\ В Delphi вместо этих трех строчек я написал
    writeln("summa=",s); \\ следующее: p:=inttostr(s);
readln;                        \\ label1.caption:=p;end;

end.

В результате работы выдает ответ -44



Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.036 c
6-1164016111
Aleksandr.
2006-11-20 12:48
2007.05.27
Как можно хотя бы узнать программно, открыт ли доступ к порту?


2-1178781104
sadasd
2007-05-10 11:11
2007.05.27
TMemo


1-1175582214
kyn66
2007-04-03 10:36
2007.05.27
Многоэтажные строки DBGrigEh


15-1177583454
CCili
2007-04-26 14:30
2007.05.27
2 взаимоисключающих блока информации на сайте лента.вру :)


2-1178384918
Kostafey
2007-05-05 21:08
2007.05.27
Использование русских названий в тексте SQL-запроса.