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

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

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

[Dr. FreID]

С паскалем сталкивался только в студенческие годы - и то на бумаге... не спец в сием вопросе... только вот одно смущает: что такое "програм мандель"? (IMG:http://www.grotto.ru/style_emoticons/grotto/biggrin.gif) (IMG:http://www.grotto.ru/style_emoticons/grotto/biggrin.gif) (IMG:http://www.grotto.ru/style_emoticons/grotto/biggrin.gif)

CODE

program mandel

[goom]

Енто типа название ).

Полный исходник с комментариями - http://goom.webhop.org/pub/mandel.html.

[Houston]

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

Я сразу испугался и спрятался под стол)

[Marat_Piligrim]

Чем черт не шутит =)) ..
хмм.. чего же я боюсь... потерять близких людей наверное... ибо очевидных фобий не замечал..

[Lady]

А я очень боюсь темноты, высоты и пауков)))

[sunny]

Ой, я тоже боюсь пауков)))