Алгоритмы и формулы Опции

[Guevara-chan]

Вот я оп чем и писал, все умных строят, а чуваку скорее всего что-то до нельзя простое надо, тупо список статики по 3-4 инта.

Что надо чуваку толком не знает никто, включая самого чувака. Представленная задача решается десятками способов различной степени извращенности, тогда как мы тут вслепую гадали на всемогущей ф-ии Random, какому именно из них чувака хотят обучить. И да, мы в конце-концов действительно предположили, что преподаватель попросту сам не до конца понял что он сказал, после чего DracoLich'у было вновь предложено реализовать сортировку через связанный список. Вот только лично я теперь, честно говоря, ожидаю дальнейших сюрпризов...

[DracoLich]

связанные списки кажутся нормальным вариантом. Посмотрим, что он скажет на такое

>и массивы (именно массивы) использовать запрещено.

>она не влезет в память.

нельзя использовать массив для хранения ВСЕЙ базы. в остальных случаях можно

[Монца]

Хм, но логически можно со списками обращаться точно так же как с массивами - написать обертки.

[FBX]

В OpenGL чтобы использовать всю текстуру, в glTexCoord2f подставляются значения 0 и 1. Вопрос - как написать формулу для вычленения определенного кадра из текстуры? Расположены кадры в ряд, значит по одной координате все очевидно. Если просто разделить номер текущего кадра на их количество, возникают неточности - "заезжает" на соседний...

[tolich]

Используй число кадров РАВНОЕ 2ⁿ, тогда никаких ошибок округления не будет.

EDIT: впрочем, если текстура между пикселями сглаживается, это не спасает… сглаживание лучше отключить или чуть-чуть, на полпикселя, сдвигать текстурные координаты "внутрь" кадра.

[FBX]

CODE

procedure RotateEast(inp: Pointer; res: Pointer; size: integer);
asm //eax,edx,ecx
pushad
mov edi,size //сохранить размерность
mov esi,0

@@loop:
push edi
mov ebx,[eax] //inp
imul edi,4
imul edi,ecx
add edi,edx
mov [edi+esi*4],ebx //res
pop edi
add eax,4
dec ecx //ecx - оптимально номер горизонтальной линии
jnz @@loop
push edi
imul edi,4
add ebx,edi
pop edi
mov ecx,edi
inc esi
cmp esi,edi //esi - доп.смещение вправо
jle @@loop

popad
end;

procedure RotateSouth(inp: Pointer; res: Pointer; size: integer);
asm //eax,edx,ecx
pushad
imul ecx,ecx
imul ecx,4
sub ecx,4

@@loop:
mov ebx,[eax] //inp
mov [edx+ecx],ebx //res
add eax,4
sub ecx,4
cmp ecx,0
jg @@loop

popad
end;

procedure RotateWest(inp: Pointer; res: Pointer; size: integer);
asm

end;


function PixelRotate(inp: TDataArray; a: integer; size: integer): TDataArray;
var
i: integer;
v: Pointer;
new: TDataArray;
begin
SetLength(new,length(inp));
for i:=0 to high(inp) do begin
v:=nil;
GetMem(v,size*size*4);
case a of
//1: RotateEast(inp[i],v,size);
2: RotateSouth(inp[i],v,size);
//3: RotateWest(inp[i],v,size);
else CopyMemory(inp[i],v,size);
end;
new[i]:=v;
end;
result:=new;
end;

Мне нужно написать поворот 32-битного изображения в памяти. ЧТо я делаю не так? Какая-то хрень с памятью в RotateEast (при чем вылетает где-то на GetMem, отладчик нифига не показывает), и кривота результата в RotateSouth.
Ситуация упрощается тем, что все пиксели размещаются в памяти плотно, т.к. размеры картинки соответствующие.

[Etoprostoya]

Замени локальные пуши и попы на сохранение в стеке. Дальше не стал разбираться - комментов мало.

Сохранение в стеке - что-то вроде:

var temp: integer;
__asm{
mov temp, edi;
...
mov edi, temp;
}

[FBX]

Переделал немного:

CODE

procedure RotateEast(inp: Pointer; res: Pointer; size: integer);
var // eax edx ecx
i: integer;
asm
pushad
mov i,ecx //сохранить размерность
mov esi,0 //дополнительный счетчик от 0 до (size-1)

@@loop:
dec ecx //ecx: счетчик от (size-1) до 0
mov ebx,[eax] //inp - получить пиксель
mov edi,i //вычисление адреса конечной точки:
imul edi,4 //4*номер_строки*размер_изображения
imul edi,ecx //ecx - номер строки
add edi,edx //edx = res (адрес картинки-приемника)
mov [edi+esi*4],ebx //добавление к адресу позиции в строке*4
add eax,4 //смещение указателя источника (1 пиксель прочитан)
cmp ecx,0 //ecx - номер горизонтальной линии приемника
jne @@loop //возврат к циклу

mov ecx,i //восстановление счетчика внутреннего цикла
inc esi //верхний цикл
cmp esi,i //esi - доп.смещение вправо
jne @@loop

popad
end;

Добавлено ([mergetime]1282041519[/mergetime]):
кажется, работает

[nosferatu]

Кто знает, как написать прогу на паскале, которая будет выбирать случайно один из двух вариантов с указанной вероятностью. А также выбирать один из нескольких вариантов с равной вероятностью.

[gamecreator]

кажется, random

[nosferatu]

Как-то так?
Выбор одного из двух вариантов да - 60%, нет - 40%

Код

Program 1
var
a,k,S1,S2: integer;
begin
k:=0;
randomize;
repeat
a:=random(1);
inc(k);
If k<60
Then S1:= S1+a;
Else
k:=0;
randomize;
repeat
a:=random(1);
inc(k);
If k<40
Then S2:=S2+a;
Else
If S1<S2
Then Write('Yes');
Else Write('No');
end.

П.С. прогу не проверял, потому уверен, что надопускал кучу ошибок, прошу не ругать меня неразумного, а исправить (или переписать, если дело совсем плохо) и выложить правильный вариант.

[Berserker]

А для чего тебе это?

[nosferatu]

Для ФРПГ, лень с кубиками возиться.

Добавлено ([mergetime]1283685744[/mergetime]):
Немного поправил, чтобы можно было вводить вероятность

Код

Program 1
var
a,k,S1,S2: integer; V:real;
begin
read(V);
If V>99
Then V:=99;
k:=0;
randomize;
repeat
a:=random(1);
inc(k);
If k<v
Then S1:= S1+a;
Else
k:=0;
randomize;
repeat
a:=random(1);
inc(k);
If k<100-V
Then S2:=S2+a;
Else
If S1<S2
Then Write('Yes');
Else Write('No');
end.

[Berserker]

Держи: http://www.mediafire.com/download.php?cecqhad5amw1x70

[nosferatu]

Ну, можно и так)))

[gamecreator]

лучше используй рандомную прогу Берса (или сайт про ГСЧ), а то у тебя в коде действительно фигня. например, рандомайз только раз надо делать.

[packa]

Теперь я понимаю, почему мне всегда говорят TAB'ить код

[nosferatu]

Я же этого не знаю.

Код

randomize;
repeat
a:=random(1);

Этот кусок я нашел в инете, остальное накорябал по памяти.
Потому и спрашивал.
Вообще вопрос с прогой отпал благодаря EtherniDee, разве что мне захочется создать прогу, сочетающую в себе свойства рандома и картостроя, эдакий полноценный симулятор боя, подстроенный под мою ФРПГ и который можно будет легко модернизировать... Но это уже не скоро.

[packa]

Носф, делай сразу МУД

[nosferatu]

Не, лучше сразу сделать игру, которая будет сочитать все плюсы и прелести Спора, Фола, НоММ и ДаО.