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

    +114

    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
    procedure TForm1.Button1Click(Sender: TObject);
  var
    a,b,c,x:integer;
    chas, nedel1,nedel2,nedel3:integer;
begin
  a:=0;
  b:=0;
  c:=0;
  repeat
    chas:= strtoint (edit1.text);
    nedel1:= strtoint (edit2.text);
    nedel2:= strtoint (edit3.text);
    nedel3:= strtoint (edit4.text);
    x:=((nedel1*a)+(nedel2*b)+(nedel3*c));
    if chas<>((nedel1*a)+(nedel2*b)+(nedel3*c)) then
      a:=a+1;
    if chas<>((nedel1*a)+(nedel2*b)+(nedel3*c)) then
      b:=b+1;
    if chas<>((nedel1*a)+(nedel2*b)+(nedel3*c)) then
      c:=c+1;
  until chas=x;
  label1.Caption:=inttostr (a);
  label2.Caption:=inttostr (b);
  label3.Caption:=inttostr (c);
end;
end.

    евклид плачет

    Запостил: bugmenot, 27 Мая 2011

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

    • ava guest 27.05.2011 16:53 # 0

      Говно
      Ответить

    • ava eth0 27.05.2011 19:39 # +1

      Волшебные кнопки такие волшебные.
      Ответить

      • ava bugmenot 27.05.2011 19:54 # 0

        соответствие контролов переменным выгравировать на табличке и приклепать к корпусу
        Ответить

        • ava eth0 27.05.2011 20:19 # 0

          Люди не задумываются над осмысленностью своей жизни, куда им думать над смыслом названий. Что ИДЕ даёт, то они и используют.
          Ответить

      • ava Vindicar 29.05.2011 16:43 # 0

        Ну, если есть вероятность, что подпрограмма будет вызываться более чем одним способом, я лично использую actions. Но если точно знаешь что этого не будет - зачем городить огород типа

        procedure doitfaggot;
        begin
        //тут код
        end;

        procedure TMainForm.DoItBtnClick(Sender: TObject);
        begin
        doitfaggot;
        end;

        Именование контролов - это отдельная больная тема.
        Ответить

        • ava eth0 29.05.2011 17:17 # 0

          Антипаттерн "волшебная кнопка". Ака размещение логики в интерфейсе. Дело не в том, как, кем и сколько раз используется, а в том, что быть этого не должно.
          Ответить

        • ava bugmenot 29.05.2011 18:06 # 0

          ну, рахитектура в целом соответствует тому, что это лаба или что-то вроде
          лучше обратите внимание на лютый брут в цикле
          разбрасываются академ. часы по семестрам (триместрам? какого хуя их три?) чтобы развномерно получилось. как-то так
          Ответить

          • ava Xom94ok 30.05.2011 01:33 # 0

            Хорошо хоть не подбор рандомом.
            Ответить

            • ava ctm 30.05.2011 09:53 # 0

              говнолаба. и головой думать по-ходу не умеют.
              ну да, эти и рандомом могут - а фиг ли.
              Ответить

            • ava bugmenot 30.05.2011 13:18 # 0

              RND кстати обеспечил бы лучшую сходимость
              Ответить

    • ava guest8 09.04.2019 10:50 # −999

      показать все, что скрытоvanished
      Ответить

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