[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.

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

[angvelem]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  x  : Single = 3.051522;
  y  : Single = 1.582542;
  z  : Single = 15.62388;
  dt : Single = 0.0001;
  a  : Integer = 5;
  b  : Integer = 15;
  c  : Integer = 1;
  x1, y1, z1 : Single;

procedure TForm1.FormPaint(Sender: TObject);
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;
  Image1.Canvas.Pixels[Round(19.3 * (y - x * 0.292893) + 320),
                       Round(-11 * (z + x * 0.292893) + 392)] := 9;
end;

end.

Что-то рисует.

[Andrey770]

Спасибо огромное
Только оно рисует сразу после того как запускаешь программу, как будто оно в FormCreate, я делал через Button ничего не помогло, тоесть не рисовало а только Image появлялось и все.
Делал через Events для Button всеравно рисует сразу после запуска программы.

[angvelem]

В таком случае перенесите код из FormPaint в таймер, который будет запускаться при нажатии на кнопку.