![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Программирование с использованием средств
О Т Ч Е Т ПО ЛАБОРАТОРНЫМ РАБОТАМ
по курсу: Quot; КОНСТРУИРОВАНИЕ ПРОГРАММ И ЯЗЫКИ ПРОГРАММИРОВАНИЯ"
Минск - 2007 Лабораторная работа №8 ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ СРЕДСТВ ДЛЯ ОТОБРАЖЕНИЯ ГРАФИЧЕСКОЙ ИНФОРМАЦИИ
Цель лабораторной работы: изучить возможности построения графиков с помощью компонента отображения графической информации TChart. Написать и отладить программу построения на экране графика заданной функции. Задание: составить программу, отображающую график функции
Листинг программы: 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. Написали и отладили программу построения на экране графика заданной функции.
|