[Andrey770]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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. Вроде все сделал, а как переобразовать этот кусочек

Код:

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

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

[angvelem]

Код:

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

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

[Andrey770]

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

Код:

1 2 3

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

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

[angvelem]

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

Код:

1 2 3 4 5 6 7 8

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]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

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 в таймер, который будет запускаться при нажатии на кнопку.