Говнокод #17258 — Pascal — Говнокод.ру

Pascal / Говнокод #17258

+86
1. 01
2. 02
3. 03
4. 04
5. 05
6. 06
7. 07
8. 08
9. 09
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
```
const n=10;

type
     xfl = record x: double; fl: longint; end;
  ar_xfl = array[1..2*n] of xfl;
var
  i: longint;
  x,y,r: double;
  a: ar_xfl;
  f: text;


procedure qsort(var a: ar_xfl; lo,hi: longint);
    procedure sort(l,r: longint);
    var
      i,j,k: longint;
      tmp: xfl;
    begin
      i:=l;
      j:=r;
      k:=(l+r) div 2;
      repeat
        while a[i].x<a[k].x do inc(i);
        while a[k].x<a[j].x do dec(j);
        if i<=j then
          begin
            tmp:=a[i];
            a[i]:=a[j];
            a[j]:=tmp;
            inc(i);
            dec(j);
          end;
      until i>j;
      if l<j then sort(l,j);
      if i<r then sort(i,r);
    end;
begin
sort(lo,hi);
end;
```
За такие названия переменных надо руки завязывать узлом. Да и помимо этого..

Запостил: Cynicrus, 05 Декабря 2014

Tweet
Комментарии (21) RSS
- kipar 05.12.2014 12:22 # 0
  
  По-моему квиксорт лучше с такими переменными выглядит, чем с LowerBound.
  А помимо этого что?
  Ответить
  - bormand 05.12.2014 14:51 # 0
    
    Особенно c xfl и ar_xfl.
    Ответить
    - kipar 05.12.2014 14:59 # 0
      
      Если это лаба (на что намекает const n = 10) - тоже нормально. Как еще назвать запись в которой по заданию есть булевое поле fl и вещественное x?
      Ответить
    - guest 05.12.2014 15:54 # 0
      
      Привет, а можно задам вопрос,который давно меня мучает:
      
      Есть многопоточная прога. При создании потоков, инкрементируется значение переменной-счётчика, при деструкции - декрементируется. При закрытии формы, прога тормозит все потоки и ждёт, когда они завершатся, чтобы не было утечки, проверяя значение переменной - равно ли оно нулю. Если равно нулю - программа завершается. В каком месте в классе потока нужно уменьшать счётчик? Я запутался.
      
      destructor tmythread.destroy; begin {первым делом удаляемся из списка, а то, не дай боже, кто-то залочит лист и обратится к уже разрушенным полям потока} threadlist.remove(self); {освобождаем занятые ресурсы} if assigned(files) then files.free; Inherited destroy; // разрушаем созданный объект. Правильно ли писать какой-нибудь код ниже? interlockeddecrement(ThreadsCount); end;
      
      Также я пытался отказаться от счётчика и перед завершением программы в цикле проверять, сколько потоков осталось в листе - менеджер памяти молчит, значит, утечек нет. Но правильно ли так делать? Есть ли гарантии, что доп-потоки успеют разрушиться, до завершения главного потока?
      Ответить
      
      defecate-plusplus 05.12.2014 16:00 # 0
      
      threadlist.remove(self);
      дельфинопотокобезопасно ли это?
      Ответить
      
      guest 05.12.2014 16:02 # 0
      
      Да, каждый раз перед вызовом методов Add или Remove внутри листа запирается мьютекс.
      Ответить
      
      defecate-plusplus 05.12.2014 16:09 # 0
      
      побуду дельфинчиком
      It is perfectly safe to execute code after a call to an inherited destructor, so long as that code does not rely on something that has been destroyed by that inherited destructor. In the same way it is safe to execute code before a call to an inherited constructor, so long as the code does not rely on anything instantiated in that inherited constructor.
      если твоё ThreadsCount не поле твоего объекта, то работать с ним можно
      
      btw почитай про семафоры, наверняка они должны быть в дельфях, как и wait оного, а то
      > проверяя значение переменной - равно ли оно нулю
      спинлок вручную?
      Ответить
      
      bormand 05.12.2014 16:34 # 0
      
      > семафоры
      Семафорка не особо поможет, тут надо wait condition. Хотя, имхо, и текущая версия с busy wait сойдет - один фиг это уже завершение работы (и, скорее всего, у него в этом цикле стоит небольшой sleep, отдающий такты остальным тредам).
      Ответить
      
      defecate-plusplus 05.12.2014 17:03 # 0
      
      а какая тут разница между семафором и condition, да так, что семафор не поможет?
      кроме того, что с кондишеном придется 3 сущности заводить (мютекс, кондишен, счетчик), а семафор сам по себе три в одном
      Ответить
      
      bormand 05.12.2014 18:23 # 0
      
      А как воспользоваться семафором так, чтобы он пропустил главный тред только тогда, когда умрёт последний поток? Что-то я не могу придумать алгоритм.
      Ответить
      
      guest 05.12.2014 18:46 # 0
      
      Вот-вот, я тоже всю голову сломал. В модуле classes вообще такая содомия, что без 50 г не разберёшься. Кстати, я был шокирован тем, что BeginThread, которая используется чтобы создать поток - это не одноимённая API, а обёртка над CreateThread *facepalm*
      Ответить
      
      guest 05.12.2014 18:52 # 0
      
      Вот, кстати, ссылка на фрагмент из Classes
      http://pastebin.com/E8CHyr9M
      Там описан класс tthread
      Ответить
      
      guest 05.12.2014 16:49 # 0
      
      Ага, вручную. Вообще, там есть метод, который называется WaitFor.
      Там банальный вызов waitforsingleobject. Но было непонятно всё же, куда пихать декремент счётчика, ибо освобождение ресурсов происходит не при завершении потока (завершение-то легко определить), а при его деструкции.
      
      Спасибо)
      Ответить
      
      bormand 05.12.2014 16:27 # 0
      
      > Есть ли гарантии, что доп-потоки успеют разрушиться, до завершения главного потока?
      Гарантий нету, часть тредов может не успеть позакрывать файлы, а главный уже увидит пустой список и завершит прогу.
      
      В текущей версии серьезных проблем не вижу.
      Ответить
      
      guest 05.12.2014 16:43 # 0
      
      Большое спасибо )
      Ответить
      
      kegdan 06.12.2014 10:47 # 0
      
      Залогинься, стретор
      Ответить
  - kegdan 06.12.2014 10:50 # 0
    
    чт т скзл, мдк?
    Ответить
- guest 05.12.2014 17:26 # +2
  
  Лабы не нужны.
  Ответить
  - kegdan 06.12.2014 10:49 # +3
    
    я тож так думаю. Пусть люди сразу крузисы пишут
    Ответить
- Анонимус 06.12.2014 00:28 # +1
  
  Это у вас в продакшене такое?
  
  У вас в продакшене сами написали свой квиксорт? А merge sort есть свой? А связанный список? А строка своя?
  Ответить
  - kipar 06.12.2014 01:25 # +1
    
    Даже n = 10 свой.
    Ответить
Добавить комментарий
Ошибка компиляции комментария:

Гости могут высказаться только в понедельник, среду, четверг или воскресение
Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

А не использовать ли нам bbcode?

[b]жирный[/b] — жирный

[i]курсив[/i] — курсив

[u]подчеркнутый[/u] — подчеркнутый

[s]перечеркнутый[/s] — перечеркнутый

[blink]мигающий[/blink] — мигающий

[color=red]цвет[/color] — цвет (подробнее)

[size=20]размер[/size] — размер (подробнее)

[code=<language>]some code[/code] (подробнее)

Проверочный код: *

Говнокод: по колено в коде.

Pascal / Говнокод #17258

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

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