Реферат: Построение блок схем алгоритмов. Алгоритмические языки высокого уровня

ListBox1: TListBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; Const

dx=0.25;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject); begin

Close(); end;

procedure TForm1.Button1Click(Sender: TObject); var

Code:integer;

x,y:real;

s:string[11]; begin

x:=2.0;

while (x<5.0+0.5*dx) do

begin

if x<=3.5 then y:=sqr(cos(x))

else y:=sin(x)*ln(x);

x:=x+dx;

Str(y:2:7,s);

Listbox1.Items.Add(s);

end; end;

procedure TForm1.Button3Click(Sender: TObject); begin