Розв’язання задачі з побудовою віконного інтерфейсу, підключення форм Delphi та з використанням графіки

Розробити програму побудови графіка заданої функції на проміжку з кроком розбиття .

, ,

Код програми:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TForm1 = class(TForm)

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Image2: TImage;

Button2: TButton;

Image3: TImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button3: TButton;

procedure Button1Click(Sender: TObject);

function f (x:real):real;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function tform1.f (x:real):real;

begin

f:=sin(x);

end;

procedure TForm1.Button1Click(Sender: TObject);

var x0,y0,h,a,b:integer;

y,x:real;

begin

image1.Canvas.Create;

image1.Canvas.Rectangle(0,0,clientwidth,clientheight);

image1.Canvas.Pen.Color:=clwhite;

y0:=image1.Height div 2;

x0:=image1.Width div 2;

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

h:=strtoint(edit3.Text);

image1.Canvas.Pen.Color:=clblue;

image1.Canvas.Pen.Width:=2;

image1.Canvas.MoveTo(x0,0);

image1.Canvas.LineTo(x0,clientheight);

image1.Canvas.MoveTo(0,y0);

image1.Canvas.LineTo(clientwidth,y0);

x:=a;

y:=-(sin(x)+1)/(3-cos(x));

image1.Canvas.MoveTo(trunc(x*h)+x0,trunc(y*h)+y0);

image1.Canvas.Pen.Color:=clred;

repeat

x:=x+0.01;

y:=-(sin(x)+1)/(3-cos(x));

image1.Canvas.LineTo(trunc(x*h)+x0,trunc(y*h)+y0);

until x>=b;

end;

procedure TForm1.Button2Click(Sender: TObject);

var x0,y0,h,a,b:integer;

y,x:real;

begin

image1.Canvas.Create;

image1.Canvas.Rectangle(0,0,clientwidth,clientheight);

image1.Canvas.Pen.Color:=clwhite;

y0:=image1.Height div 2;

x0:=image1.Width div 2;

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

h:=strtoint(edit3.Text);

image1.Canvas.Pen.Color:=clblue;

image1.Canvas.Pen.Width:=2;

image1.Canvas.MoveTo(x0,0);

image1.Canvas.LineTo(x0,clientheight);

image1.Canvas.MoveTo(0,y0);

image1.Canvas.LineTo(clientwidth,y0);

x:=a;

y:=-((x*x)+x+1)/(5+(sin(x)*cos(x)));

image1.Canvas.MoveTo(trunc(x*h)+x0,trunc(y*h)+y0);

image1.Canvas.Pen.Color:=clgreen;

repeat

x:=x+0.01;

y:=-((x*x)+x+1)/(5+(sin(x)*cos(x)));

image1.Canvas.LineTo(trunc(x*h)+x0,trunc(y*h)+y0);

until x>=b;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

Поиск по сайту: