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

[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.

[Ramms1ein]

Блин, почему люди не могут написать тоже самое только короче в два раза? Вот смотрите:

Program Text;
Uses GRAPH,CRT;
Var gd,gm:Integer;
Begin
     Randomize;
     gd:=Detect;
     InitGraph(gd,gm,'c:\tools\tp7\bgi');
     SetTextStyle(0,0,9);
     Repeat
           Setcolor(Random(15)+1);
           Outtextxy(100+Random(10),100+random(10),'CooL')
     Until KeyPressed;
     CloseGraph
End.

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

Сообщение отредактировано: Lapp - 31.10.2010 4:22