Wizualne programowanie w Delphi

Kategoria: Informatyka

nauka programowania wizualnego w Delphi.

Zadanie: Narysuj wykresy funkcji; ;

tekst programu:

Jednostka

Graph;

interfejsu

zastosowania

systemu Windows, Wiadomości, SysUtils, klasy, Grafiki, sterowania, Formy, Dialogi,

StdCtrls, TeEngine, Seria, ExtCtrls, TeeProcs, Wykres,

typ

TForm1=class (TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Chart1: TChart;

rząd 1: TLineSeries;

Series2: TLineSeries;

Series3: TLineSeries;

Button1: TButton;

Procedura

Button1Click (Sender: TObject);

prywatne

{prywatne deklaracje}

publicznego

{deklaracje publiczne}

koniec;

var

Form1: TForm1;

realizacja

{$ R *. DFM}

Procedura

TForm1.Button1Click (Sender: Piła);

VAR T0, TK, Q, W, Y 1, Y2, Y3: real;

, H: real;

zacząć

P:=StrToFloat (Edit1.Text),

W:=strToFloat (Edit2.Text),

H=StrToFloat (Edit3.Text),

T0:=StrToFloat (Edit4.Text),

TK:=StrToFloat (Edit5.Text),

i:=T0,

Series1.Clear;

Series2.Clear;

Series3.Clear;

gdy i <= TK Do

zacząć

Y1:=exp (-Q * i) * sin (W * i);

Y2: =-exp (-Q * i);

Y3:=exp (-Q * i);

Series1.AddXY (i, Y 1,'', clTeeColor),

Series2.AddXY (i, Y2,'', clTeeColor),

Series3.AddXY (i, Y 3,'', clTeeColor),

i:=i + h,

koniec;

koniec;

koniec.

Aplikacje

zewnętrzne: