Почему некоторые участники форума считают, что усложнять код - показать высокого интеллекта? - Обо всем! - Ответ 10600565

@Соколиный глаз · 05.07.2017, 17:41 **[ТС]**

Например, писал я сегодня код:

Pascal

{$reference System.Windows.Forms.dll} 
{$reference System.Drawing.dll} 
uses System.Windows.Forms;
 
const
  n = 11;
 
type
  OperationType = (PLUS, MINUS, DIVIDE, MULT);
 
var
  f: Form;
  ///Some buttons: "0".."9", "." and "=".
  Btns: array [0..n] of Button;
  ///Field for typing.
  Field: System.Windows.Forms.Label;
  ///Buttons Btns's index.
  i: byte;
  ///Properties for number.
  FirstN, HasDot: Boolean;
  ///Numbers.
  a, b: string;
  ///Running operation.
  Operation: OperationType;
  ///Operation's buttons.
  PlusBtn, MinusBtn, DivBtn, MultBtn: Button;
  ///Extra buttons.
  ResetBtn, ClearBtn: Button;
 
procedure AddFreeChar(c: char);
begin
  if FirstN then
  begin
    a := a + c;
    Field.Text := a;
  end
    else
  begin
    b := b + c;
    Field.Text := b;
  end;
end;
 
procedure AddChar(c: char);
begin
  if c <> '.' then AddFreeChar(c) else
  if not HasDot and ((FirstN and (a <> '')) or (not FirstN and (b <> ''))) then
  begin
    AddFreeChar(c);
    HasDot := true;
  end;
end;
 
procedure Btn0Click(sender: Object; e: System.EventArgs):=AddChar('1');
 
procedure Btn1Click(sender: Object; e: System.EventArgs):=AddChar('2');
 
procedure Btn2Click(sender: Object; e: System.EventArgs):=AddChar('3');
 
procedure Btn3Click(sender: Object; e: System.EventArgs):=AddChar('4');
 
procedure Btn4Click(sender: Object; e: System.EventArgs):=AddChar('5');
 
procedure Btn5Click(sender: Object; e: System.EventArgs):=AddChar('6');
 
procedure Btn6Click(sender: Object; e: System.EventArgs):=AddChar('7');
 
procedure Btn7Click(sender: Object; e: System.EventArgs):=AddChar('8');
 
procedure Btn8Click(sender: Object; e: System.EventArgs):=AddChar('9');
 
procedure Btn9Click(sender: Object; e: System.EventArgs):=AddChar('0');
 
procedure BtnDotClick(sender: Object; e: System.EventArgs):=AddChar('.');
 
 
procedure Reset();
begin
  FirstN := false;
  HasDot := false;
end;
 
procedure BtnPlusClick(sender: Object; e: System.EventArgs);
begin
  if a <> '' then
  begin
    Reset();
    Operation := OperationType.PLUS;
  end;
end;
 
procedure BtnMinusClick(sender: Object; e: System.EventArgs);
begin
  if a <> '' then
  begin
    Reset();
    Operation := OperationType.MINUS;
  end;
end;
 
procedure BtnDivClick(sender: Object; e: System.EventArgs);
begin
  if a <> '' then
  begin
    Reset();
    Operation := OperationType.DIVIDE;
  end;
end;
 
procedure BtnMultClick(sender: Object; e: System.EventArgs);
begin
  if a <> '' then
  begin
    Reset();
    Operation := OperationType.MULT;
  end;
end;
 
 
procedure BtnEqualClick(sender: Object; e: System.EventArgs);
begin
  if b <> '' then
  begin
    FirstN := true;
    HasDot := false;
    if Operation = OperationType.PLUS then
      Field.Text := FloatToStr(StrToFloat(a) + StrToFloat(b));
    if Operation = OperationType.MINUS then
      Field.Text := FloatToStr(StrToFloat(a) - StrToFloat(b));
    if Operation = OperationType.DIVIDE then
      Field.Text := FloatToStr(StrToFloat(a) / StrToFloat(b));
    if Operation = OperationType.MULT then
      Field.Text := FloatToStr(StrToFloat(a) * StrToFloat(b));
    a := '';b := '';
  end;
end;
 
 
procedure BtnResetClick(sender: Object; e: System.EventArgs);
begin
  FirstN := true;
  HasDot := false;
  a := '';b := '';Field.Text := '';
end;
 
procedure BtnClearClick(sender: Object; e: System.EventArgs);
begin
  if FirstN then a := '' else b := '';
  Field.Text := '';
end;
 
begin
  FirstN := true;
  HasDot := false;
  
  f := new Form();
  f.Width := 310;
  f.Height := 350;
  f.Text := 'Calculator';
  
  i := 0;
  for var y := 1 to 4 do
    for var x := 1 to 3 do
    begin
      if i > n then break;
      Btns[i] := new Button();
      Btns[i].Width := 50;
      Btns[i].Height := 50;
      Btns[i].Left := 60 * x - 50;
      Btns[i].Top := 60 + 60 * y - 50;
      f.Controls.Add(Btns[i]);
      Inc(i);
    end;
  
  for i := 0 to n - 2 do Btns[i].Text := IntToStr(i + 1);
  
  Btns[n - 2].Text := '0';
  Btns[n - 1].Text := '.';
  
  Btns[n].Text := '=';
  Btns[n].Click += BtnEqualClick;
  
  Btns[0].Click += Btn0Click;
  Btns[1].Click += Btn1Click;
  Btns[2].Click += Btn2Click;
  Btns[3].Click += Btn3Click;
  Btns[4].Click += Btn4Click;
  Btns[5].Click += Btn5Click;
  Btns[6].Click += Btn6Click;
  Btns[7].Click += Btn7Click;
  Btns[8].Click += Btn8Click;
  Btns[9].Click += Btn9Click;
  Btns[10].Click += BtnDotClick;
  
  
  Field := new System.Windows.Forms.Label();
  Field.Width := 170;
  Field.Height := 50;
  Field.Left := 10;
  Field.Top := 10;
  Field.BackColor := System.Drawing.Color.WhiteSmoke;
  Field.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
  f.Controls.Add(Field);
  
  
  PlusBtn := new Button();
  PlusBtn.Width := 100;
  PlusBtn.Height := 50;
  PlusBtn.Left := 190;
  PlusBtn.Top := 10;
  PlusBtn.Text := 'Add';
  PlusBtn.ForeColor := System.Drawing.Color.Red;
  PlusBtn.Click += BtnPlusClick;
  f.Controls.Add(PlusBtn);
  
  MinusBtn := new Button();
  MinusBtn.Width := 100;
  MinusBtn.Height := 50;
  MinusBtn.Left := 190;
  MinusBtn.Top := 70;
  MinusBtn.Text := 'Minus';
  MinusBtn.ForeColor := System.Drawing.Color.Red;
  MinusBtn.Click += BtnMinusClick;
  f.Controls.Add(MinusBtn);
  
  DivBtn := new Button();
  DivBtn.Width := 100;
  DivBtn.Height := 50;
  DivBtn.Left := 190;
  DivBtn.Top := 130;
  DivBtn.Text := 'Divide';
  DivBtn.ForeColor := System.Drawing.Color.Red;
  DivBtn.Click += BtnDivClick;
  f.Controls.Add(DivBtn);
  
  MultBtn := new Button();
  MultBtn.Width := 100;
  MultBtn.Height := 50;
  MultBtn.Left := 190;
  MultBtn.Top := 190;
  MultBtn.Text := 'Multiple';
  MultBtn.ForeColor := System.Drawing.Color.Red;
  MultBtn.Click += BtnMultClick;
  f.Controls.Add(MultBtn);
  
  ResetBtn := new Button();
  ResetBtn.Width := 45;
  ResetBtn.Height := 50;
  ResetBtn.Left := 190;
  ResetBtn.Top := 250;
  ResetBtn.Text := 'Reset';
  ResetBtn.ForeColor := System.Drawing.Color.Green;
  ResetBtn.Click += BtnResetClick;
  f.Controls.Add(ResetBtn);
  
  ClearBtn := new Button();
  ClearBtn.Width := 45;
  ClearBtn.Height := 50;
  ClearBtn.Left := 245;
  ClearBtn.Top := 250;
  ClearBtn.Text := 'Clear';
  ClearBtn.ForeColor := System.Drawing.Color.Green;
  ClearBtn.Click += BtnClearClick;
  f.Controls.Add(ClearBtn);
  
  System.Windows.Forms.Application.EnableVisualStyles();
  Application.Run(f); 
end.

Я не согласен с тем, что он идеален. Но я и не старался использовать что-то лишнее.
Вот код того товарища:

Pascal

{$reference System.Windows.Forms.dll} 
{$reference System.Drawing.dll} 
uses System.Windows.Forms , System.Drawing , System.Reflection;
 
const
  n = 11;
 
type
  OperationType = (PLUS, MINUS, DIVIDE, MULT);
 
type
  CalculationForm = class(Form)
  private 
    Btns: array [0..n] of Button;
    Field: System.Windows.Forms.Label;
    i: byte;
    FirstN, HasDot: Boolean;
    a, b: string;
    Operation: OperationType;
    PlusBtn, MinusBtn, DivBtn, MultBtn: Button;
    ResetBtn, ClearBtn: Button;
    //Добавляет все приват поля приводимые к Control
    procedure AddComponentsInForm();
    var
      FormFields := GetType().GetFields(BindingFlags.NonPublic or BindingFlags.Instance);
    begin
      foreach var el in FormFields do
      begin
        var Component := el.GetValue(Self) as Control;
        if (Component <> nil) then Self.Controls.Add(Component );
      end;
    end;
    
    procedure AddFreeChar(c: char);
    begin
      if FirstN then
      begin
        a := a + c;
        Field.Text := a;
      end
      else
      begin
        b := b + c;
        Field.Text := b;
      end;
    end;
    
    procedure AddChar(c: char);
    begin
      if c <> '.' then AddFreeChar(c) else
      if not HasDot and ((FirstN and (a <> '')) or (not FirstN and (b <> ''))) then
      begin
        AddFreeChar(c);
        HasDot := true;
      end;
    end;
    
    procedure Btn0Click(sender: Object; e: System.EventArgs) := AddChar('1');
    
    procedure Btn1Click(sender: Object; e: System.EventArgs) := AddChar('2');
    
    procedure Btn2Click(sender: Object; e: System.EventArgs) := AddChar('3');
    
    procedure Btn3Click(sender: Object; e: System.EventArgs) := AddChar('4');
    
    procedure Btn4Click(sender: Object; e: System.EventArgs) := AddChar('5');
    
    procedure Btn5Click(sender: Object; e: System.EventArgs) := AddChar('6');
    
    procedure Btn6Click(sender: Object; e: System.EventArgs) := AddChar('7');
    
    procedure Btn7Click(sender: Object; e: System.EventArgs) := AddChar('8');
    
    procedure Btn8Click(sender: Object; e: System.EventArgs) := AddChar('9');
    
    procedure Btn9Click(sender: Object; e: System.EventArgs) := AddChar('0');
    
    procedure BtnDotClick(sender: Object; e: System.EventArgs) := AddChar('.');
    
    
    procedure Reset();
    begin
      FirstN := false;
      HasDot := false;
    end;
    
    procedure BtnPlusClick(sender: Object; e: System.EventArgs);
    begin
      if a <> '' then
      begin
        Reset();
        Operation := OperationType.PLUS;
      end;
    end;
    
    procedure BtnMinusClick(sender: Object; e: System.EventArgs);
    begin
      if a <> '' then
      begin
        Reset();
        Operation := OperationType.MINUS;
      end;
    end;
    
    procedure BtnDivClick(sender: Object; e: System.EventArgs);
    begin
      if a <> '' then
      begin
        Reset();
        Operation := OperationType.DIVIDE;
      end;
    end;
    
    procedure BtnMultClick(sender: Object; e: System.EventArgs);
    begin
      if a <> '' then
      begin
        Reset();
        Operation := OperationType.MULT;
      end;
    end;
    
    
    procedure BtnEqualClick(sender: Object; e: System.EventArgs);
    begin
      if b <> '' then
      begin
        FirstN := true;
        HasDot := false;
        if Operation = OperationType.PLUS then
          Field.Text := FloatToStr(StrToFloat(a) + StrToFloat(b));
        if Operation = OperationType.MINUS then
          Field.Text := FloatToStr(StrToFloat(a) - StrToFloat(b));
        if Operation = OperationType.DIVIDE then
          Field.Text := FloatToStr(StrToFloat(a) / StrToFloat(b));
        if Operation = OperationType.MULT then
          Field.Text := FloatToStr(StrToFloat(a) * StrToFloat(b));
        a := '';b := '';
      end;
    end;
    
    
    procedure BtnResetClick(sender: Object; e: System.EventArgs);
    begin
      FirstN := true;
      HasDot := false;
      a := '';b := '';Field.Text := '';
    end;
    
    procedure BtnClearClick(sender: Object; e: System.EventArgs);
    begin
      if FirstN then a := '' else b := '';
      Field.Text := '';
    end;
    
    procedure InitializeComponent();
    begin
      FirstN := true;
      HasDot := false;
      
      self.Width := 310;
      self.Height := 350;
      self.Text := 'Calculator';
      
      i := 0;
      for var y := 1 to 4 do
        for var x := 1 to 3 do
        begin
          if i > n then break;
          Btns[i] := new Button();
          Btns[i].Width := 50;
          Btns[i].Height := 50;
          Btns[i].Left := 60 * x - 50;
          Btns[i].Top := 60 + 60 * y - 50;
          self.Controls.Add(Btns[i]);
          Inc(i);
        end;
      
      for var i := 0 to n - 2 do Btns[i].Text := IntToStr(i + 1);
      
      Btns[n - 2].Text := '0';
      Btns[n - 1].Text := '.';
      
      Btns[n].Text := '=';
      Btns[n].Click += BtnEqualClick;
      
      Btns[0].Click += Btn0Click;
      Btns[1].Click += Btn1Click;
      Btns[2].Click += Btn2Click;
      Btns[3].Click += Btn3Click;
      Btns[4].Click += Btn4Click;
      Btns[5].Click += Btn5Click;
      Btns[6].Click += Btn6Click;
      Btns[7].Click += Btn7Click;
      Btns[8].Click += Btn8Click;
      Btns[9].Click += Btn9Click;
      Btns[10].Click += BtnDotClick;
      
      
      Field := new System.Windows.Forms.Label();
      Field.Width := 170;
      Field.Height := 50;
      Field.Left := 10;
      Field.Top := 10;
      Field.BackColor := System.Drawing.Color.WhiteSmoke;
      Field.BorderStyle := System.Windows.Forms.BorderStyle.Fixed3D;
      self.Controls.Add(Field);
      
      
      PlusBtn := new Button();
      PlusBtn.Width := 100;
      PlusBtn.Height := 50;
      PlusBtn.Left := 190;
      PlusBtn.Top := 10;
      PlusBtn.Text := 'Add';
      PlusBtn.ForeColor := System.Drawing.Color.Red;
      PlusBtn.Click += BtnPlusClick;
      self.Controls.Add(PlusBtn);
      
      MinusBtn := new Button();
      MinusBtn.Width := 100;
      MinusBtn.Height := 50;
      MinusBtn.Left := 190;
      MinusBtn.Top := 70;
      MinusBtn.Text := 'Minus';
      MinusBtn.ForeColor := System.Drawing.Color.Red;
      MinusBtn.Click += BtnMinusClick;
      self.Controls.Add(MinusBtn);
      
      DivBtn := new Button();
      DivBtn.Width := 100;
      DivBtn.Height := 50;
      DivBtn.Left := 190;
      DivBtn.Top := 130;
      DivBtn.Text := 'Divide';
      DivBtn.ForeColor := System.Drawing.Color.Red;
      DivBtn.Click += BtnDivClick;
      self.Controls.Add(DivBtn);
      
      MultBtn := new Button();
      MultBtn.Width := 100;
      MultBtn.Height := 50;
      MultBtn.Left := 190;
      MultBtn.Top := 190;
      MultBtn.Text := 'Multiple';
      MultBtn.ForeColor := System.Drawing.Color.Red;
      MultBtn.Click += BtnMultClick;
      self.Controls.Add(MultBtn);
      
      ResetBtn := new Button();
      ResetBtn.Width := 45;
      ResetBtn.Height := 50;
      ResetBtn.Left := 190;
      ResetBtn.Top := 250;
      ResetBtn.Text := 'Reset';
      ResetBtn.ForeColor := System.Drawing.Color.Green;
      ResetBtn.Click += BtnResetClick;
      self.Controls.Add(ResetBtn);
      
      ClearBtn := new Button();
      ClearBtn.Width := 45;
      ClearBtn.Height := 50;
      ClearBtn.Left := 245;
      ClearBtn.Top := 250;
      ClearBtn.Text := 'Clear';
      ClearBtn.ForeColor := System.Drawing.Color.Green;
      ClearBtn.Click += BtnClearClick;
      self.Controls.Add(ClearBtn);
      
      System.Windows.Forms.Application.EnableVisualStyles();
      Application.Run(self);
    end;
    
    public constructor();
    begin
      InitializeComponent;
      AddComponentsInForm;
    end;
    
    procedure StartApplication();
    begin
      Application.Run(Self);
    end;
  end;
 
begin
  var f := new CalculationForm;
  f.StartApplication;
end.

Один вопрос. Зачем было создавать класс, если можно без него?

Вернуться к обсуждению:
Почему некоторые участники форума считают, что усложнять код - показать высокого интеллекта? Обо всем!

Следующий ответ

Другие темы раздела
Обо всем! Совет по работе https://www.cyberforum.ru/ dump/ thread2013451.html Ребят, хотел бы узнать ваше мнение. Учусь на 3 курсе, заканчиваю через год уже, сейчас нашел работу, прохожу исп.срок, уже почти 2 месяца, но на днях понял, что не совсем то, что мне надо. Нет. Программировать люблю, но я больше люблю создавать что-то новое, для бизнеса, ну или что-то в этой сфере. А в данной сфере занимаемся одним и тем же, уже все разработано, крупная БД, свое ПО, но...	Обучение Traffic Inspector Обо всем! Добрый день коллеги. Учебный центр подготовки компании "Смарт-Софт" предлагает обучение работе с продуктом Traffic Inspector. Мы предлагаем различные виды обучения как для пользователей, так и специалистов. Более подробную информацию Вы сможете получить по ссылке: http://www.smart-soft.ru/support/certification/
Обо всем! Нормально ли я срисовал текстуру с оригинала? Прошу конструктивной критики. https://www.cyberforum.ru/ dump/ thread2012604.html	Обо всем! Как узнать максимальное число, которое можно закодировать 12 байтами? https://www.cyberforum.ru/ dump/ thread2012253.html Как узнать максимальное число, которое можно закодировать 12 байтами (96 битами)? Добавлено через 50 секунд Вопрос встал после прочтения http://matveev.kiev.ua/macceass/ch1/gl3/005.htm.
За сколько можно освоиться на работе Обо всем! Сколько вам понадобилось время освоится на первой работе? Понять саму структуру предприятия, по мимо самих технологий	Обо всем! Как будет именоваться следующий период в истории? Тут прочел про периодизацию истории, которая выглядит так: Первобытное общество; Древний мир; Средние века; Новое время; Новейшее время: 1918 год — наши дни. Мой вопрос: Как будет называться следующий период и когда он начнется? Как бы Вы его назвали? https://www.cyberforum.ru/ dump/ thread2011262.html
Обо всем! Книги по программированию Здравствуйте, пользователи форума! Я начинающий программист и хотелось бы попросить у вас посоветовать хорошие книги по программированию. Направления, которые меня интересуют: хакерство, бызы данных, информационная безопасность. Можете посоветовать книги в этих направлениях? Спасибо! https://www.cyberforum.ru/ dump/ thread2009426.html	Обо всем! Каким образом смартфон на андроиде определяет своё местоположение? У меня есть такой вопрос: каким образом смартфон на андроиде определяет своё местоположение при отсутствии в нём модуля GPS? Предыстория: не единожды ездил по разным городам и весям, да и в самом моём родном городке всё так же - в смысле: это проверено не раз и в разных населённых пунктах. В моём Alcatel Pixi 3,5 GPS-модуль отсутствует в принципе, но имеется приложение "Карты", в котором можно...
Обо всем! Какие влияет параметр поля зрения (ФОВ) в играх на физическое состояние человека? https://www.cyberforum.ru/ dump/ thread2009021.html Здравствуйте. Сегодня брат поиграл в Half-Life 2 и почувствовал некие позывы тошноты, в общем, плохо себя чувствовал. После пошел в гугл и выяснилось, что он не один такой(Это не самовнушение, он не знал о том, что такое есть, впрочем как и я.) Некоторые люди жаловались на плохое самочувствие после прохождения некоторых игрушек, в том числе HF2. Вскользь пробежавшись по некоторым страницам...	Обо всем! На кого мне идти при таких увлечениях? На какую специальность мне лучше пойти, если у меня такие интересы: Pascal, VBA, Python (также применяемый в Blender 2.78); интересны алгоритмы сортировки, обработки односвязных списков и графов? https://www.cyberforum.ru/ dump/ thread2008948.html
Все ли технические и технологические документы являются правовыми документами? Обо всем! Все ли технические и технологические документы являются правовыми документами? К примеру, технические и технологические документы содержащие ноу-хау являются ли правовыми документами имеющими силу закона?	Обо всем! Продаю дешево швейно-вышивальную машину Bernette Chicago 7 Всем добрый день! Срочно продаю швейно-вышивальную машину Bernette Chicago 7. Пользовалась очень мало. Машина в идеальном состоянии,на дисплее даже осталась защитная пленка. Инструкция,чек,гарантия. Полный комплект. Отдам комплект лапок. 200 операций Компьютерное управление Петли, эластичные строчки,потайные строчки, оверлочные и т.д. Она может буквально все! Цена 29 000. Покупала за 57тр.... https://www.cyberforum.ru/ dump/ thread2008174.html

	05.07.2017, 17:41