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

    • ava kgm-rj 13.11.2015 17:44 # +3

      Таких надо на повторное обучение отправлять
      Ответить

      • ava kegdan 13.11.2015 18:00 # 0

        или на солнце
        Ответить

      • ava inkanus-gray 13.11.2015 18:08 # +3

        А вдруг диплом не по программированию, а по общественным наукам, а программа нужна для обработки статистики? А вдруг?
        Ответить

        • ava kgm-rj 13.11.2015 18:15 # +3

          Я, конечно, писал лет в 17 скрипт для подсчета количества слов на vb в экселе для диплома сестры (она филолог)...
          Ответить

        • ava kegdan 13.11.2015 19:11 # +1

          твоя вера в человечество безгранична
          Ответить

    • ava Abbath 13.11.2015 18:20 # +2

      Билдер нужно запретить законодательно. Или лучше законом природы.
      Ответить

      • ava kgm-rj 13.11.2015 18:23 # +3

        А законом природы это как?
        Ответить

        • ava kegdan 13.11.2015 19:11 # +3

          Убей или умри
          Ответить

        • ava Abbath 13.11.2015 19:12 # +3

          Это когда пытаешься билдер открыть, а тебя засасывает под ткань мироздания.
          Ответить

          • ava bormand 13.11.2015 19:16 # +4

            Это когда пытаешься открыть билдер, а тебя не существует.
            Ответить

            • ava kegdan 13.11.2015 19:20 # +2

              а нить твоей судьбы выжигается из ткани мироздания
              Ответить

    • ava guest 13.11.2015 21:35 # +4

      Заступлюсь за бакалавра. Конечно же это не программист. Вы видели чтобы программист на паскале писал в 2015 году?
      Ответить

      • ava Abbath 15.11.2015 02:37 # +4

        https://www.linux.org.ru/people/zamtmn/?section=3
        Ответить

        • ava inkanus-gray 15.11.2015 02:53 # +5

          > Не компилится потому что компилятор надо минимум 2.7.1, а лучше транковый. В 2.6.4 генерики забагованые, даже если ты руками соберешь fpc-stl (он не есть в 2.6.4, но только в виде исходников) не факт что заработает

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

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

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