Веселый шрифт Опции

[Shuruper]

Очень короткая но и интересная демка (текст можно менять):

Uses crt,graph;
Var a,b:integer;
    x,y:integer;
    c:integer;
BEGIN
Randomize;
a:=detect;
InitGraph(a,b,'');
SetTextStyle(0,0,9);
x:=100;
y:=100;
repeat
 c:=1+random(15);
 x:=100+random(10);
 y:=100+random(10);
 Setcolor©;
 Outtextxy(x,y,'CooL');
until keypressed;
ReadLn;
CloseGraph;
END.

[Unconnected]

А зачем переменные,зачем присвоение в начале...

Действительно. А ещё - взять да и выкинуть нафиг из языка возможность описания констант. Короче все будет

//поздно посмотрел на дату темы(

Сообщение отредактировано: Unconnected - 30.10.2010 22:00