Помогите плиз ..

[arthur457]

Необходимо с языка С++ переделать на Турбо Паскаль.

#include <iostream.h>
#include <math.h>
#include <conio.h>
void main()
{ double a, b, c, d;
  const double e=0.0001;
  long double l, x, y, x0, y0;
  cout<<"a="; cin>>a;
  cout<<"b="; cin>>b;
  cout<<"c="; cin>>c;
  cout<<"d="; cin>>d;
  l=1.0;
  x=0;
  y=0;
  while(fabs(a+exp(c*pow(x,2)+d*pow(y,2))*2*c*x)>=e/2||fabs(b+exp(c*pow(x,2)+d*pow(y,2))*2*d*y)>=e/2)
  { x0=x-l*(a+exp(c*pow(x,2)+d*pow(y,2))*2*c*x);
    y0=y-l*(b+exp(c*pow(x,2)+d*pow(y,2))*2*d*y);
    if((a*x0+b*y0+exp(c*pow(x0,2)+d*pow(y0,2)))>(a*x+b*y+exp(c*pow(x,2)+d*pow(y,2))))
    l=l/2;
    else {x=x0; y=y0;} //cout<<x<<" "<<y; getch();}
  }
  cout<<"xmin="<<x<<endl<<"ymin="<<y;
  getch();
}

[Pashan]

Давно не писал на паскале, а проверять негде, поэтому могу что-то напутать. Но в общем примерно так:

uses
  crt, math; { ??? }

const
  e = 0.0001;

var
  a, b, c, d: Real;
  l, x, y, x0, y0: Real;

begin
  write('a='); read(a);
  write('b='); read(b);
  write('c='); read(c);
  write('d='); read(d);
  l := 1.0;
  x := 0;
  y := 0;
  while (...) do begin
    x0 := ...;
    y0 := ...;
    if (...)
      l := l / 2
    else begin
      x := x0;
      y := y0;
    end;
  end;
  write('xmin=', n, 'ymin', y);
  readln;
end.

Не помню, какие типы с плавающей точкой есть кроме Real. В Delphi есть Extended, но не факт, что он есть в паскале.
Математические функции должны быть примерно такие же, как и в C++.
Только вроде вместо fabs просто abs. Возведение в степень не помню.
С названиями модулей тоже не уверен.

[arthur457]

Cпасибо большое )))кажись все догнал