[Andrey770]

Привет всем!
Помогите перевести код с Паскаль на Делфи

Код:

Uses crt, graph;
Const
  x: Real = 3.051522;
  y: Real = 1.582542;
  z: Real = 15.62388;
  dt = 0.0001;
  a = 5;
  b = 15;
  c = 1;
Var
  gd, gm: Integer;
  x1, y1, z1: Real;
Begin
  gd:=Detect;
  InitGraph(gd, gm, 'c:\bp\bgi');
  While not KeyPressed Do Begin
      x1 := x + a*(-x+y)*dt;
      y1 := y + (b*x-y-z*x)*dt;
      z1 := z + (-c*z+x*y)*dt;
      x := x1;
      y := y1;
      z := z1;
     PutPixel(Round(19.3*(y - x*0.292893) + 320),
               Round(-11*(z + x*0.292893) + 392), 9);
    End;
    CloseGraph;
    ReadKey;
End.

Я так понял нужно использовать Image i Canvas. Вроде все сделал, а как переобразовать этот кусочек

Код:

 PutPixel(Round(19.3*(y - x*0.292893) + 320),
               Round(-11*(z + x*0.292893) + 392), 9)

Выручайте, ребята!

[angvelem]

Код:

  Canvas.Pixel[Round(19.3*(y - x*0.292893) + 320),
               Round(-11*(z + x*0.292893) + 392] := 9;

А уже Canvas возьмёшь от чего потребуется - от TForms, TImage и т.д.

[Andrey770]

Это все так, только у меня выбивает ошибку

Код:

x := x1;
      y := y1;
      z := z1;

вот здесь, а почему не могу разобраться.
left side cannot be assigned to delphi

[angvelem]

Константам нельзя присваивать, измени:

Код:

var
  x : Single = 3.051522;
  y : Single = 1.582542;
  z : Single = 15.62388;
  dt = 0.0001;
  a = 5;
  b = 15;
  c = 1;

хотя Real до сих пор поддерживается, использовать не рекомендуется.

[Andrey770]

но ведь в паскале работает?

[Andrey770]

Код:

Program Lorenz;
Uses CRT, Graph;
Const
  x: Real = 3.051522;
  y: Real = 1.582542;
  z: Real = 15.62388;
  dt = 0.0001;
  a = 5;
  b = 15;
  c = 1;
Var
  gd, gm: Integer;
  x1, y1, z1: Real;
Begin
  gd:=Detect;
  InitGraph(gd, gm, 'c:\bp\bgi');
  While not KeyPressed Do Begin
      x1 := x + a*(-x+y)*dt;
      y1 := y + (b*x-y-z*x)*dt;
      z1 := z + (-c*z+x*y)*dt;
      x := x1;
      y := y1;
      z := z1;
      PutPixel(Round(19.3*(y - x*0.292893) + 320),
               Round(-11*(z + x*0.292893) + 392), 9);
    End;
    CloseGraph;
    ReadKey;
End.

это код в пасале мне нужно реализовать это на делфи, только ничего не получаеться((