1. Pascal / Говнокод #87

    −12.7

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    for i:=sk[(npl-1)*5+1] to sk[(npl-1)*5+2]-1 do
   begin
   l1:=0;l2:=0;l3:=0;l4:=0;l5:=0;l6:=0;l7:=0;l8:=0;l9:=0;l10:=0;
  for j:=1 to 100 do g1[j]:=0;
   for k:=sk[(npl-1)*5+1] to sk[(npl-1)*5+2] do
     if (k<>i )and
   (((abs(xyz^[pxyz^[i]].x-xyz^[pxyz^[k]].x)< dd) or  ((lx-abs(xyz^[pxyz^[i]].x-xyz^[pxyz^[k]].x))<dd))
   and ((abs(xyz^[pxyz^[i]].y-xyz^[pxyz^[k]].y)<dd) or  ((ly-abs(xyz^[pxyz^[i]].y-xyz^[pxyz^[k]].y))<dd))
   and ((abs(xyz^[pxyz^[i]].z-xyz^[pxyz^[k]].z)<dd) or  ((lz-abs(xyz^[pxyz^[i]].z-xyz^[pxyz^[k]].z))<dd)))
   then

    это только заголовок цикла ..

    Запостил: guest, 09 Декабря 2008

    Комментарии (4) RSS

    • ava guest 15.12.2008 10:03 # +1

      Ну нехило тут переменных наобъявляли)))
      Ответить

    • ava guest 16.12.2008 13:35 # 0

      Просто sk надо делать не линейным массивом точек, а массивам структур. Как я понимаю, идет обработка структур по 5 точке в каждой
      Ответить

    • ava guest 21.03.2009 22:51 # +1

      xakepp35:
      просто порой взападло думать, поэтому набираешь что попало, лишьбы побыстрее)))
      Ответить

    Добавить комментарий