Старая вещчица, но смешеая.

← →
Crazy monkey (2006-06-19 16:54) [0]

Версия песенки для программистов

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.

← →
Lamer@fools.ua © (2006-06-19 17:39) [1]

Баян Аккордеонович Гармошкин

← →
AlexanderMS © (2006-06-19 17:42) [2]

> While x

Медведь ругаться будет! :)

← →
Marser © (2006-06-19 17:49) [3]

> [1] Lamer@fools.ua © (19.06.06 17:39)
> Баян Аккордеонович Гармошкин

Или просто Баг :-)

G:\temp>dcc32 Елочка.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
Елочка.dpr(1) Error: Illegal character in input file: ":" ($85)
Елочка.dpr(3) Error: Illegal character in input file: "<" ($8B)
Елочка.dpr(3) Error: Undeclared identifier: "create"
Елочка.dpr(4) Error: Illegal character in input file: "<" ($8B)
Елочка.dpr(4) Error: Undeclared identifier: "dead"
Елочка.dpr(6) Error: Illegal character in input file: "<" ($AB)
Елочка.dpr(6) Error: Undeclared identifier: "age"
Елочка.dpr(6) Error: Illegal character in input file: "_" ($A5)
Елочка.dpr(7) Error: Illegal character in input file: "§" ($A7)
Елочка.dpr(7) Error: Illegal character in input file: "R" ($AE)
Елочка.dpr(8) Error: "THEN" expected but "BEGIN" found
Елочка.dpr(9) Error: Illegal character in input file: "<" ($AB)
Елочка.dpr(9) Error: Undeclared identifier: "plain"
Елочка.dpr(10) Error: Illegal character in input file: "<" ($AB)
Елочка.dpr(10) Error: Undeclared identifier: "color"
Елочка.dpr(12) Error: Illegal character in input file: "┐" ($AC)
Елочка.dpr(14) Error: Illegal character in input file: "┐" ($AC)
Елочка.dpr(15) Error: Undeclared identifier: "sleep"
Елочка.dpr(16) Error: Illegal character in input file: "┐" ($AC)

> Лес.елочка.create();

баг

Лес := ТЛес.Create;
Лес.Елочка := ТЕлочка.Create;

Старая вещчица, но смешеая. Найти похожие ветки