Форум Бобруйска - Просмотр темы - В лесу родилась елочка, для программистов
Текущее время: Пн 06 июн 2016, 16:29





Ответить на тему  [ Сообщений: 5 ] 
В лесу родилась елочка, для программистов 
Автор Сообщение
Герой портала
Герой портала
Аватара пользователя

Зарегистрирован: Пн 13 авг 2007, 21:02
Сообщения: 931
Откуда: из маминого животика :)
program Елочка;
Begin
Лес.елочка.create();
While not Лес.елочка.dead do
Begin
лес.елочка.age := лес.елочка.age+1;
if зима or лето then
begin
лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;
метель.filename:=?D:MusicNSYNC - Bye Bye Bye.mp3?;
метель.open;
sleep(1000);
метель.play;
мороз.укутать(лес.елочка);
GetMessage(H, лес.елочка.handle, 0, 0);
if h.uint = wm_замерзла then
dead := true;
end;
лес.заяц.create;
лес.заяц.трусливый := true;
лес.заяц.color := cl_gray;
x := лес.елочка.left;
y := лес.елочка.top;
While x
Begin
лес.заяц.left := x;
inc(x);
лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );
end;
Winexec(?wolf3d.exe /evil?,0);
лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile(?нарядная.jpg?);
For i:=1 to SizeOf(Праздник.елочка.радость) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;
End.

_________________
Сбрось бога с пьедестала и сам займи его место!


Ср 04 июн 2008, 11:49
Форумчанин
Форумчанин
Аватара пользователя

Зарегистрирован: Вс 23 дек 2007, 22:15
Сообщения: 354
Откуда: Бабруйск
pascal!!!!! Чтото знакомое......

_________________
ИзображениеИзображениеВсем, кому чтото ненравится, то жмите СЮДА


Ср 13 авг 2008, 22:52
ICQ
Wandering

Зарегистрирован: Пн 06 авг 2007, 13:01
Сообщения: 2600
херня получается, сначала цикл который укутывает елочку метелями пока она не сдохнет, а потом появляется заяц, причем если елочка стоит в левом верхнем углу леса, то координата х будет равна нулю, и
Цитата:
While x
Begin
лес.заяц.left := x;
inc(x);
лес.заяц.top := y + round( abs(sin(x*pi/180)*10) );
end;
вот это не отработает ни разу, а в песенке поется что он таки там скакал, вне зависимости от географического положения елки
далее.. дохлую елку забирают на праздник, натягивают на нее скин ( двп кусок чтоли ставят перед ней.. хз) и вот эту конструкцию я так и не понял, в ней синтаксические ошибки:
Цитата:
For i:=1 to SizeOf(Праздник.елочка.радость) do
Прадзник.Дети.Настроение + Праздник.елочка.радость;

кстати по поводу условий выполнения цикла я тоже очень сомневаюсь что у елочки, которую вытащили дохлую из леса на праздник и прикрыли картонкой, сильно велико значение свойства "радость", хотя вне зависимости от его значения, цикл идет до размера переменной. ну максимум до 10, если лес или елочка работает под управлением 32х битной версии винды. То что она или он работает под виндой стало понятно из префикса wm_ при получении сообщения

в общем стремная фигня получается :-X

_________________
はい到着する私たちの強さ


Чт 14 авг 2008, 10:00
Новичок
Аватара пользователя

Зарегистрирован: Сб 06 сен 2008, 21:22
Сообщения: 1
Задурили вы мне голову! *CRAZY*


Сб 06 сен 2008, 22:07
Форумчанин
Форумчанин
Аватара пользователя

Зарегистрирован: Вс 23 дек 2007, 22:15
Сообщения: 354
Откуда: Бабруйск
Raid Нуна была с кабалам и мной хадить на занятия!! пачти фсё панятна!!!!

_________________
ИзображениеИзображениеВсем, кому чтото ненравится, то жмите СЮДА


Сб 06 сен 2008, 22:09
ICQ
Показать сообщения за:  Поле сортировки  
Ответить на тему   [ Сообщений: 5 ] 

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти: