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

[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 - 31.10.2010 19:53