HALF-LIFE, Да ну в принципе там ничего сложного по сути, кроме пальм.
С пальмами ствол через DrawPoly, а вот "крону" им уже не нарисуешь - угловатая выйдет. Дугами - накладно, для них лучше реально спрайты подгрузить.
-------------
добавлено в 20.22:
Цитата: leader6670
Код уродует ДВ!
так юзайте же тэг
Цитата: leader6670
Процедура swap написали штатная в паскале. Местами менять байты надо для сортировки
Цитата: leader6670
но я понять не могу сути сортировки. где там ошибка? Применен метод пузырьковой сортировки.
Вы ни сути пузырьковой сортировки не понимаете, ни назначения функции swap.
swap разворачивает байты, то есть из $123456 на выходе получим $563412. И функция принимает только один аргумент
А для обмена значений заюзай переменную:
MyVariable:=FirstArray[i];
FirstArray[i]:=FirstArray[i+1];
FirstArray[i+1]:=MyVariable;
Рейтинг: 5
голосов: 2