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);

Конец