Почему delphi после окончания процедуры переходит в начало/середину процедуры?

@syomuch_dill · Регистрация: 16.12.2016

Author24 — интернет-сервис помощи студентам

Почему delphi после второго end; переходит к while, а в полной версии процедуры в ее середину?

Delphi

program hren;
uses
   SysUtils,
   Math,
   Windows ;
 
CONST
   h=10;
 
 
 
VAR
   d1: integer;
   a,b,c,d: real;
 
 
{$APPTYPE CONSOLE}
 
 
 
   Procedure vich_c;
      Begin
                        
         While c<n do
                   
              Begin
                    
                          
                 c:=c+1;
                 writeln(c);
                 d:=(b*b)-(4*a*c);
                 d1:=round(d);
 
 
                 If (d>0) or (d=0) Then
           
                 d:=d+1
                 Else
                     If c<n then
                    
                        vich_c;
 
          End;
 
      End;
 
 
begin
  n:=2;
  c:=-2;
  a:=-2;
  b:=-2;
  vich_c;
  write(c);
end.

@Nanotentacle · 27.12.2016, 16:30

У вас есть процедура и есть тело программы. Выполняться начинает тело программы (48-55 строчки). После вызова процедуры (53 строка) у вас начинает выполняться код процедуры (26-45 строки)

@syomuch_dill · 27.12.2016, 18:46 **[ТС]**

Оно - то выполняется, но при окончании работы процедуры delphi возвращается к строке 24, после чего по невыполнению условия переходит на строку 45, и дальше идет как надо. Однако по мере увеличения в процедуре условных операторов, цикл "от 45 к 24" начинает повторятся. Мне приходится тыкать по F7 по 6 -7 раз, пока оно не выйдет из процедуры. самое страшное, что в полной версии процедуры оно не выходит из процедуры, а переходит на строку, стоящую по средине процедуры, после чего закрывает выполняет еще две строки и неожиданно заканчивает всю программу.

@Nanotentacle · 27.12.2016, 18:52

syomuch_dill, это у вас рекурсия. Вы в 41 строке в функции вызываете её саму, вот она и начинается сначала. А не выходит из цикла потому, что условие выхода из цикла не выполняется. Вернее, выполняется, но не вместе с условием из строки 35, вот и бегает ваша рекурсия...

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	27.12.2016, 16:30	2
	У вас есть процедура и есть тело программы. Выполняться начинает тело программы (48-55 строчки). После вызова процедуры (53 строка) у вас начинает выполняться код процедуры (26-45 строки) 0

@syomuch_dill 0 / 0 / 0 Регистрация: 16.12.2016 Сообщений: 6
	27.12.2016, 18:46 [ТС]	3
	Оно - то выполняется, но при окончании работы процедуры delphi возвращается к строке 24, после чего по невыполнению условия переходит на строку 45, и дальше идет как надо. Однако по мере увеличения в процедуре условных операторов, цикл "от 45 к 24" начинает повторятся. Мне приходится тыкать по F7 по 6 -7 раз, пока оно не выйдет из процедуры. самое страшное, что в полной версии процедуры оно не выходит из процедуры, а переходит на строку, стоящую по средине процедуры, после чего закрывает выполняет еще две строки и неожиданно заканчивает всю программу. 0

@Nanotentacle 884 / 404 / 174 Регистрация: 20.10.2016 Сообщений: 1,828
	27.12.2016, 18:52	4
	Сообщение было отмечено syomuch_dill как решение Решение syomuch_dill, это у вас рекурсия. Вы в 41 строке в функции вызываете её саму, вот она и начинается сначала. А не выходит из цикла потому, что условие выхода из цикла не выполняется. Вернее, выполняется, но не вместе с условием из строки 35, вот и бегает ваша рекурсия... 1

Почему delphi после окончания процедуры переходит в начало/середину процедуры?

Решение