Практична робота «Табулювання функції»

Створити проект для табулювання функції y=sin(2x)-2cos(x) на проміжку [a;b] з кроком h.

На форму встановимо такі компоненти: memo1, Edit1,Edit2,Edit3, Label1, Label2,Label3. Також на форму встановимо компонент MainMenu1  для створення головного меню.

Для компонента меню Мемо встановимо властивість Align =alLeft (вирівнювання по лівому краю).

Для того, щоб створити головне меню потрібно на форму поставити компонент MainMenu, який знаходиться в закладці Standart.

Після цього клацнемо двічі по цьому компоненту,   з’явиться вікно в якому створимо пункти меню через властивість Caption.

Далі створимо події для пунктів меню: Табулювання, Очистити, Вихід.

Для цього достатньо двічі клацнути по пункту меню і написати код процедури.

Програма для даного проекту буде такою:

procedure TForm1.N2Click(Sender: TObject);

var x,y,a,b,h:real;

xs,ys:string;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

h:=StrToFloat(Edit3.Text);

x:=a;

while x<=b+h/2 do

begin

  y:=sin(2*x)-2*cos(x);

  xs:=FloatToStr(x);

  ys:=FloatToStrf(y,ffnumber,6,2);

  Memo1.Lines.Add(xs+'        '+ys);

  x:=x+h;

end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

memo1.Clear;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

 Close;

end;