Виснет программа.паскаль

[romich.91]

Реализация золотого сечения. программа компилируется, но виснет. Думаю что проблема в goto. Посмотрите пожалуйста, может кто подскажет что не так сделал.
П.С. программа написана под конкретную задачу.

Program sechenie;
label m1;
const
D=0.5;
d1=0.15;
L=6;
eps= 0.001;
function f(l: double): double;

begin
  f := 0.5 * l * sqr((D-(D-d1)*l)/L)
end;

var
  a, b, l1, l2,l3: double;
  f_l1, f_l2,f_l3: double;
begin

  a := 0;
  b := 6;

  m1:

  l1 := b-L*0.618;
  l2 := a+L*0.618;

  f_l1 := f(l1);
  f_l2 := f(l2);

//   while(l > eps) do begin

     if f_l1 < f_l2 then begin
       a := l1;
      // l1 := b- L*0.618;
      // f_l2 := f_l1;
      // f_l1 := f(l1);
     end
     else begin

       b := l2;

      // l2 := a+L*0.618;
      // f_l1 := f_l2;
      // f_l2 := f(l2);
     end;
     if (b-a)<eps then begin

    l3:=(a+b)/2;
     f_l3:=f(l3);
      writeln('l = ', l3:4:3, ' V = ', f(l3):4:3);
      //goto m1
           end
     else begin  goto m1;
 //    l3:=(a+b)/2;
   // f_l=f(l3);
    end;
 //  writeln('l = ', l3:4:3, ' V = ', f(l3):4:3);

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Slym]

Первое -
L и l - для дельфи одно и тоже, хотя по смыслу для тебя разные

[romich.91]

d1=0.15;
s=6;
eps= 0.001;
function f(l: double): double;

begin
f := 0.5 * l * sqr((D-(D-d1)*l)/s);

end;

var
a, b, l1, l2,l3: double;
f_l1, f_l2,f_l3: double;
begin

a := 0;
b := 6;

m1:

l1 := b-s*0.618;
l2 := a+s*0.618;

f_l1 := f(l1);
f_l2 := f(l2);

// while(l > eps) do begin

if f_l1 < f_l2 then begin
a := l1;
// l1 := b- L*0.618;
// f_l2 := f_l1;
// f_l1 := f(l1);
end
else begin

b := l2;

// l2 := a+L*0.618;
// f_l1 := f_l2;
// f_l2 := f(l2);
end;
if (b-a)<eps then begin

l3:=(a+b)/2;
f_l3:=f(l3);
writeln('l = ', l3:4:3, ' V = ', f(l3):4:3);
//goto m1
end
else begin goto m1;
// l3:=(a+b)/2;
// f_l=f(l3);
end;
// writeln('l = ', l3:4:3, ' V = ', f(l3):4:3);

end.


исправил. но эффект пока тот же.

[romich.91]

спасибо. больше не актуально, разобрался сам.