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

    −46

    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
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    Клиентская программа:
    unit Unit3;
    interface
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Unit5, ExtCtrls, ScktComp;
    type
     mass = array[1..100] of integer;
      TForm3 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        Button5: TButton;
        Button6: TButton;
        Button7: TButton;
        Button8: TButton;
        Button9: TButton;
        Button10: TButton;
        Button11: TButton;
        Button12: TButton;
        Button13: TButton;
        Button14: TButton;
        Edit2: TEdit;
        Label2: TLabel;
        Button15: TButton;
        Button16: TButton;
        Image1: TImage;
        Label1: TLabel;
    ...(В том же духе)
    
    
    procedure TForm3.Button15Click(Sender: TObject);
    begin
      q.Delete(h-1);
      q.Insert(h-1,''+Edit2.Text+'');
      q.SaveToFile('otv\otvet.txt');
      if h=1 then form3.Shape1.Brush.Color:=clLime;
      if h=2 then form3.Shape2.Brush.Color:=clLime;
      if h=3 then form3.Shape3.Brush.Color:=clLime;
      if h=4 then form3.Shape4.Brush.Color:=clLime;
      if h=5 then form3.Shape5.Brush.Color:=clLime;
      if h=6 then form3.Shape6.Brush.Color:=clLime;
      if h=7 then form3.Shape7.Brush.Color:=clLime;
      if h=8 then form3.Shape8.Brush.Color:=clLime;
      if h=9 then form3.Shape9.Brush.Color:=clLime;
      if h=10 then form3.Shape10.Brush.Color:=clLime;
      if h=11 then form3.Shape11.Brush.Color:=clLime;
      if h=12 then form3.Shape12.Brush.Color:=clLime;
      if h=13 then form3.Shape13.Brush.Color:=clLime;
      if h=14 then form3.Shape14.Brush.Color:=clLime;
      e:=StrToInt(Edit2.Text);
    end;

    Код из серии "Дипломные работы бакалавров".
    31 страницу диплома (из 56 страниц) занимает листинг.

    Запостил: RigFox, 13 Ноября 2015

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

    • Таких надо на повторное обучение отправлять
      Ответить
      • или на солнце
        Ответить
      • А вдруг диплом не по программированию, а по общественным наукам, а программа нужна для обработки статистики? А вдруг?
        Ответить
        • Я, конечно, писал лет в 17 скрипт для подсчета количества слов на vb в экселе для диплома сестры (она филолог)...
          Ответить
        • твоя вера в человечество безгранична
          Ответить
    • Билдер нужно запретить законодательно. Или лучше законом природы.
      Ответить
      • А законом природы это как?
        Ответить
        • Убей или умри
          Ответить
        • Это когда пытаешься билдер открыть, а тебя засасывает под ткань мироздания.
          Ответить
          • Это когда пытаешься открыть билдер, а тебя не существует.
            Ответить
            • а нить твоей судьбы выжигается из ткани мироздания
              Ответить
    • Заступлюсь за бакалавра. Конечно же это не программист. Вы видели чтобы программист на паскале писал в 2015 году?
      Ответить
      • https://www.linux.org.ru/people/zamtmn/?section=3
        Ответить
        • > Не компилится потому что компилятор надо минимум 2.7.1, а лучше транковый. В 2.6.4 генерики забагованые, даже если ты руками соберешь fpc-stl (он не есть в 2.6.4, но только в виде исходников) не факт что заработает

          Паскаль. Генерики. STL.

          Дело Мичурина живёт?
          Ответить

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