Программирование с использованием средств

О Т Ч Е Т

ПО ЛАБОРАТОРНЫМ РАБОТАМ

по курсу:

Quot; КОНСТРУИРОВАНИЕ ПРОГРАММ И

ЯЗЫКИ ПРОГРАММИРОВАНИЯ"

Минск - 2007

Лабораторная работа №8

ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ СРЕДСТВ

ДЛЯ ОТОБРАЖЕНИЯ ГРАФИЧЕСКОЙ ИНФОРМАЦИИ

Цель лабораторной работы: изучить возможности построения графиков с помощью компонента отображения графической информации TChart. Написать и отладить программу построения на экране графика заданной функции.

Задание: составить программу, отображающую график функции на интервале [Xmin..Xmax]. Предусмотреть возможность изменения разметки координатных осей, а также шага построения таблицы.

Листинг программы:

unit Unit1;

interface

uses

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

Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;

type

TForm1 = class(TForm)

Chart1: TChart;

Series1: TLineSeries;

Button1: TButton;

Image1: TImage;

Panel1: TPanel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Xmin, Xmax, Ymin, Ymax, y, z, h: extended;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

Xmin: = 1;

Xmax: = 10;

Ymin: = 0;

Ymax: = 20;

y: = 2;

z: = 0.8;

h: = 0.4;

Edit1.Text: = FloatToStr(Xmin);

Edit2.Text: = FloatToStr(Xmax);

Edit3.Text: = FloatToStr(Ymin);

Edit4.Text: = FloatToStr(Ymax);

Edit7.Text: = FloatToStr(h);

Edit8.Text: = FloatToStr(y);

Edit9.Text: = FloatToStr(z);

Button1Click(Sender);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

x, b: extended;

begin

Series1.Clear;

Xmin: = StrToFloat(Edit1.Text);

Xmax: = StrToFloat(Edit2.Text);

Ymin: = StrToFloat(Edit3.Text);

Ymax: = StrToFloat(Edit4.Text);

h: = StrToFloat(Edit7.Text);

y: = StrToFloat(Edit8.Text);

z: = StrToFloat(Edit9.Text);

x: = Xmin;

Chart1.BottomAxis.Automatic: = False;

Chart1.BottomAxis.Maximum: = Xmax;

Chart1.BottomAxis.Minimum: = Xmin;

Chart1.LeftAxis.Automatic: = False;

Chart1.LeftAxis.Minimum: = Ymin;

Chart1.LeftAxis.Maximum: = Ymax;

Repeat

b: = sqrt(10*(exp(1/3*ln(x))+exp((y+2)*ln(x))))*(sqr(arctan(sqrt(z/(1-sqr(z)))))-abs(x-y));

Series1.AddXY(x, b, '');

x: = x+h;

Until (x> Xmax);

end;

end.

Результат выполнения программы:

Выводы: изучили возможности построения графиков с помощью компонента отображения графической информации TChart. Написали и отладили программу построения на экране графика заданной функции.