freepascal.ru

Код: Выделить всё


   labelGoTo1:
      а := 'Задаётся заново только для labelGoTo1';
      b := 'Задаётся заново только для labelGoTo1';
      c := 'Задаётся заново только для labelGoTo1';
      d := 'Задаётся заново только для labelGoTo1';
      e := 'Задаётся заново только для labelGoTo1';
      
   labelGoTo2:
      f := 'Одинаковое для labelGoTo1 и labelGoTo2';
      g := 'Одинаковое для labelGoTo1 и labelGoTo2';
      k := 'Одинаковое для labelGoTo1 и labelGoTo2';

      repeat   
         ...      
         test := functionTest(a,b,c,d,e,f,g,k);
         if buttonExit = true then exit;
         ProcessMessages;
      until someGlobalBoolean = true;

   if test = 1
      then GoTo labelGoTo1
      else GoTo labelGoTo2;



Код: Выделить всё


   repeat   
          
      if test = 1 then 
          begin
             а := 'Задаётся заново только для labelGoTo1';
             b := 'Задаётся заново только для labelGoTo1';
             c := 'Задаётся заново только для labelGoTo1';
             d := 'Задаётся заново только для labelGoTo1';
             e := 'Задаётся заново только для labelGoTo1';
          end;

      f := 'Одинаковое для labelGoTo1 и labelGoTo2';
      g := 'Одинаковое для labelGoTo1 и labelGoTo2';
      k := 'Одинаковое для labelGoTo1 и labelGoTo2';

      repeat
         ...
         test := functionTest(a,b,c,d,e,f,g,k);
         if buttonExit = true then exit;
         ProcessMessages;
      until someGlobalBoolean = true;

   until buttonExit = true;



Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
  procedure Goto1;
  begin
    а := 'Задаётся заново только для labelGoTo1';
    b := 'Задаётся заново только для labelGoTo1';
    c := 'Задаётся заново только для labelGoTo1';
    d := 'Задаётся заново только для labelGoTo1';
    e := 'Задаётся заново только для labelGoTo1';
  end;
  procedure Goto2;
  begin
    f := 'Одинаковое для labelGoTo1 и labelGoTo2';
    g := 'Одинаковое для labelGoTo1 и labelGoTo2';
    k := 'Одинаковое для labelGoTo1 и labelGoTo2';
  end;
begin
  GoTo1;
  GoTo2;
  repeat
    ...
    test := functionTest(a,b,c,d,e,f,g,k);
    if buttonExit = true then exit;
    ProcessMessages;
  until someGlobalBoolean = true;
  if test = 1 then GoTo1
  else GoTo2;
end;               


xterro писал(а): блоки "labelGoTo1:" и "labelGoTo12:" можно оформить процедурами и вызывать уже их... без всяких прыжков по goto

sign писал(а):sign

Снег Север писал(а):... отказался в пользу циклов и подпрограмм/функций. Единственная причина - более удобный, компактный и читаемый код. Правда, приложений под системы реального времени я не разрабатывал, допускаю что там может быть иначе. ... блоки "labelGoTo1:" и "labelGoTo12:" можно оформить процедурами

xterro писал(а):Как показывает практика, практически всегда можно обойтись без goto

скалогрыз писал(а):а repeat..until придумали трусы и академики. Это выдуманная и ненужная конструкция, кой не существует на аппаратном уровне.

xterro писал(а):а поверх одевать шорты, но вы же так не делаете, хотя никто этого не запрещает... не носите и всё тут, дурной вкус, на улице засмеют... да и не удобно

xterro писал(а):Да и просто удобнее использовать функции или процедуры, т.к они имеют имя и уже по нему можно понять что делает та или иная ветка/условие кода

vitaly_l писал(а): Использование GoTo действительно очень плохо для программы?

И что? Вы не решили поставленный в топике вопрос

а конкретного доказательства в Вашем ответе нет.

Mikhail писал(а):выход из нескольких вложенных циклов

vitaly_l писал(а):например уважаемый скалогрыз говорит: Goto это очень полезный инструмент в наборе разработчика. И я с ним вынужден согласиться, т.к. нет реального доказательства обратного (относительно приведённых примеров)

Код: Выделить всё

labelGoTo1:
      а := 'Задаётся заново только для labelGoTo1';
      b := 'Задаётся заново только для labelGoTo1';
      c := 'Задаётся заново только для labelGoTo1';
      d := 'Задаётся заново только для labelGoTo1';
      e := 'Задаётся заново только для labelGoTo1';
     
   labelGoTo2:
      f := 'Одинаковое для labelGoTo1 и labelGoTo2';
      g := 'Одинаковое для labelGoTo1 и labelGoTo2';
      k := 'Одинаковое для labelGoTo1 и labelGoTo2';

      LabelMainLoop:
         ...     
         test := functionTest(a,b,c,d,e,f,g,k);
         if buttonExit = true then exit;
         ProcessMessages;
      if not someGlobalBoolean then goto LabelMainLoop;

   if test = 1
      then GoTo labelGoTo1
      else GoTo labelGoTo2;


скалогрыз писал(а):Правильно его писать вот так:
КОД: ВЫДЕЛИТЬ ВСЁ
labelGoTo1:
      а := 'Задаётся заново только для labelGoTo1';
      b := 'Задаётся заново только для labelGoTo1';
      c := 'Задаётся заново только для labelGoTo1';
      d := 'Задаётся заново только для labelGoTo1';
      e := 'Задаётся заново только для labelGoTo1';
     
   labelGoTo2:
      f := 'Одинаковое для labelGoTo1 и labelGoTo2';
      g := 'Одинаковое для labelGoTo1 и labelGoTo2';
      k := 'Одинаковое для labelGoTo1 и labelGoTo2';

      LabelMainLoop:
         ...     
         test := functionTest(a,b,c,d,e,f,g,k);
         if buttonExit = true then exit;
         ProcessMessages;
      if not someGlobalBoolean then goto LabelMainLoop;

   if test = 1
      then GoTo labelGoTo1
      else GoTo labelGoTo2;

потому что двойные стандарты это плохо, и программа(/модуль/текст процедуры) должна писаться используя однообразные подходы. Это важно повышения удобство чтения и понимания программы(/модуль/текста процедуры). По той же причине, что и в стихах, держится рифма.