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

    +2

    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
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    @ Martin Harvey
    
    unit PrimeThread;
    interface
    uses
      Classes;
    type
      TPrimeThrd = class(TThread)
      private
        FTestNumber: integer;
      protected
        function IsPrime: boolean;
        procedure Execute; override;
      public
        property TestNumber: integer write FTestNumber;
      end;
    implementation
    uses SysUtils, Dialogs;
    function TPrimeThrd.IsPrime: boolean;
    var
      iter: integer;
    begin
      result := true;
      if FTestNumber < 0 then
      begin
        result := false;
        exit;
      end;
      if FTestNumber <= 2 then
        exit;
      for iter := 2 to FTestNumber - 1 do
      begin
        if (FTestNumber mod iter) = 0 then
        begin
          result := false;
          {exit;}
        end;
      end;
    end;
    procedure TPrimeThrd.Execute;
    begin
      if IsPrime then
        ShowMessage(IntToStr(FTestNumber) + 'is prime.')
      else
        ShowMessage(IntToStr(FTestNumber) + 'is not prime.');
    end;
    end.

    Харви умеет в потоки, но не умеет в делфи.

    Запостил: doctor_stertor, 29 Августа 2017

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

    • Люди добрые, поглядите только, что пишет этот придурок:
      http://forum.vingrad.ru/topic-60076.html
      Ответить
    • Алгоритм тестит аж до n-1 и без бряка... Специально, чтобы был повод запилить тред?
      Ответить
    • > Харви умеет в потоки, но не умеет в делфи.
      и не умеет в алгоритмы.
      Ответить

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