Interface
uses
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart;
type
TForm1
= class(TForm)
Chart1:
TChart;
Series1:
TLineSeries;
Image1:
TImage;
Button1:
TButton;
Button2:
TButton;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObject);
private
{
Private declarations }
public
{
Public declarations }
end;
var
Form1:
TForm1;
Implementation
{$R
*.dfm}
procedure
TForm1.Button1Click(Sender: TObject);
Var
i:integer;
ro,fi,x,e,y:real;
Begin
for
i:=0 to 100 do
begin
fi:=2.0*pi*i/100;
ro:=(20*exp(ln(e))*(-fi)*sin(4*fi));
x:=ro*cos(fi);
y:=ro*sin(fi);
Series1.AddXY(x,y);
end;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
Результаты
Блок-схема
Procedure
TForm1.Button1Click(Sender: TObject);
Начало
For
i=1 to n do
ro:=(20*exp(ln(e))*(-fi)*sin(4*fi));
x:=ro*cos(fi);
y:=ro*sin(fi);
Конец