проверка программы

[swat16]

может кто проверить программу, выдает 113 ошибку в 37 строке

program poisk;
uses crt;
function f(x,y:real):real;
begin f:=x*exp(-sqr(x)-sqr(y)); end;
var x1,x2,B,M,t, R,N,y1,y2,ksi1,ksi2,ksin:real;
k,j:integer;
begin
k:=0;
j:=1;
WriteLn('vvedite x1');
ReadLn(x1);
WriteLn('vvedite x2');
ReadLn(x2);
WriteLn('vvedite B');
ReadLn(B);
WriteLn('vvedite M');
ReadLn(M);
WriteLn('vvedite t');
ReadLn(t);
WriteLn('vvedite R');
ReadLn(R);
WriteLn('vvedite N');
ReadLn(N);
while true do begin
ksi1:=2*Random-1;
ksi2:=2*Random-1;
ksin:=sqrt(ksi1*ksi1+ksi2*ksi2);
y1:=x1+t*ksi1/ksin;
y2:=x2+t*ksi2/ksin;
if f(y1,y2)<f(x1,x2) then begin
x1:=y1;
x2:=y2;
k:=k+1;
if k=N then break
else j:=1;
end;
else begin
if j<M then j:=j+1
else if t<R then break
else begin
t:=B*t; j:=1;
end;
end;
end;
end;
WriteLn(x1,x2,f(x1,x2));
ReadLN;
end.

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

[s-andriano]

Ошибка у тебя в тексте выделена жирным.

[swat16]

так это я выделил. какая тут ошибка я не пойму, выдает 113 и что с ний делать не знаю

[s-andriano]

Для того, чтобы исправить ошибку, нужно знать, что именно должна деать программа.
Увы, ты ничего об этом не написал.

[swat16]

извиняюсь. надо найти точку минимума функции методом случайного поиска с возвратом и наилучшей пробы. функция f(x,y)=x*e^(-x^2-y^2)

[s-andriano]

Ну так ты расставь комментарии, что в какой строке для чего делаешь.
И, как показывает практика, в результате такой работы автор сам находит ошибку в программе.

[Serge_Bliznykov]

так перед else точка с запятой БЫТЬ НЕ МОЖЕТ.


а вообще ОЧЕНЬ рекомендую писать код структурировано ("лесенкой").
это и понимание облегчает, и ошибок в структуре алгоритмам позволяет избежать.

вот как должен примерно выглядеть ваш код:

program poisk;
uses crt;

function f(x, y: real): real;
begin 
  f := x * exp(-sqr(x) - sqr(y)); 
end;

var x1, x2, B, M, t, R, N, y1, y2, ksi1, ksi2, ksin: real;
  k, j: integer;
begin
  k := 0;
  j := 1;
  WriteLn('vvedite x1');
  ReadLn(x1);
  WriteLn('vvedite x2');
  ReadLn(x2);
  WriteLn('vvedite B');
  ReadLn(B);
  WriteLn('vvedite M');
  ReadLn(M);
  WriteLn('vvedite t');
  ReadLn(t);
  WriteLn('vvedite R');
  ReadLn(R);
  WriteLn('vvedite N');
  ReadLn(N);
  while true do begin
    ksi1 := 2 * Random - 1;
    ksi2 := 2 * Random - 1;
    ksin := sqrt(ksi1 * ksi1 + ksi2 * ksi2);
    y1 := x1 + t * ksi1 / ksin;
    y2 := x2 + t * ksi2 / ksin;
    if f(y1, y2) < f(x1, x2) then begin
      x1 := y1;
      x2 := y2;
      k := k + 1;
      if k = N then break
      else j := 1;
    end
    else begin
      if j < M then j := j + 1
      else 
      if t < R then break
      else
        t := B * t; j := 1;
    end;
  end;
  WriteLn(x1, x2, f(x1, x2));
  ReadLN;
end.

p.s. что код делает, для чего там break-и вставлены и вообще - я не смотрел.
просто убрал ошибку и отформатировал текст....