наши фобии, чего вы боитесь и как с этим бороться.. Опции

[ангел страсти]

Я больше всего на свете боюсь высоты...даже маленькой!
Страшно подниматься по высокой лестнице, смотреть вниз с высоты...начинает кружится голова и подкашиваться ноги! Как с этим бороться?

А чего боитесь вы? Может кто то уже поборол свой страх? Поделитесь секретом!

[goom]

Кошмарный исходник на паскале. (Реализация множества мандельброта, код не мой.)

CODE

program mandel;uses CRT, Graph;const     maxcol = 640;     maxrow = 200;     max_colors = 16;     max_iterations = 512;     max_size = 4;var   Q    :   array[0..349] of real;   XMax,YMax,XMin,YMin : real;   P,deltaP,deltaQ,X,Y,Xsquare,Ysquare : real;   i,color,row,col,GraphDriver,GraphMode : integer;   ch : char;begin     XMax := 1.2;     XMin := -2.0;     YMax := 1.2;     YMin :=-1.2;     GraphDriver := EGA;     GraphMode := EGALo;     InitGraph(GraphDriver,GraphMode,'');     deltaP := (XMax - XMin)/(maxcol);     deltaQ := (YMax - Ymin)/(maxrow);     Q[0] := YMax;     for row := 1 to maxrow do         Q[row] := Q[row-1] - deltaQ;     P := XMin;     for col := 0 to maxcol do     begin          if Keypressed then             exit;          for row := 0 to maxrow do          begin               X := 0.0;               Y := 0.0;               Xsquare := 0.0;               Ysquare := 0.0;               color := 1;               repeat               { this is the "meat" }                     Xsquare := X*X;                     Ysquare := Y*Y;                     Y := 2*X*Y + Q[row];                     X := Xsquare - Ysquare + P;                     inc(color);               until (color>=max_iterations) OR                     (Xsquare + Ysquare >= max_size);               PutPixel(col,row,(color MOD max_colors));          end;          P := P + deltaP;     end;     ch := ReadKey;end.

Брр... Чет никак не хочет сохранятся оригинальное форматирование. А, впрочем, так даже страшнее ))).