Учебное пособие 1958

19

Продолжение табл. 2

20

4.ЗАДАНИЕ № 3. СОЗДАНИЕ ГРАФИКА ФУНКЦИИ

Вданном задании требуется составить программу для расчета значений функций на определенном интервале, а также для построения графиков данных функций.

Главная форма программы должна состоять из двух закладок и иметь вид, приведенный на рис. 5 и 6 (приведена главная форма программы с активной первой и второй закладкой).

Рис. 5. Главная форма с активной первой закладкой

22

Рис 6. Главная форма с активной второй закладкой

Для создания закладок следует воспользоваться компонентом класса TPageControl (закладка Win32). Его следует разместить на форме, растащив компонент, можно задать нужный размер. С помощью контекстного меню можно создать на нем две закладки (пункт NewPage). Затем необходимо щелкнуть по имени закладки (например, по TabShit1) и по рабочей области закладки. Потом следует с помощью свойства Caption для каждой закладки задать поясняющую надпись, первую назвать «Функции», вторую - «Графики».

На первой закладке следует разместить компоненты следующих классов:

–TStringGrid (вкладка Additional) для отображения значений аргумента Х и функций Y1, Y2;

–TEdit (вкладка Standard) для создания полей ввода;

–TLabel (вкладка Standard) для создания поясняющих надписей;

23

–TButton (вкладка Standard) для создания кнопок Выход, Рассчитать.

На второй закладке следует разместить компонент TChart (вкладка Additional) для отображения графиков функций.

В программе должно быть реализовано следующее.

1) Задание параметров функций.

Пользователь должен иметь возможность задавать следующие параметры:

–значения коэффициентов и констант в уравнениях функций;

–начальное и конечное значения аргумента функции (т.е. интервал расчета);

–шаг изменения аргумента функции.

Ввод данных параметров должен осуществляться через компоненты типа TEdit.

2) Расчет значений функций на заданном интервале.

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

StringGrid.

При установке таблицы на форму следует осуществить следующие настройки:

–свойства FixedRows (фиксированные строки) и FixedCols (фиксированные столбцы) установить в значение 1;

–свойство RowCount установить в значение 2;

–свойство ColCount установить в значение 4. Добавление заголовков в таблицу осуществляется про-

граммно. Например, для формы в целом в событии OnShow можно написать следующую процедуру:

StringGrid1.Cells [0,0]:='№ п/п'; StringGrid1.Cells [1,0]:=' x '; StringGrid1.Cells [2,0]:=' y1 '; StringGrid1.Cells [3,0]:=' y2 ';

24

Замечание: при указании номера ячейки сначала идет номер столбца, потом строки.

Занесение данных в таблицу тоже осуществляется программно с присвоением соответствующим ячейкам вычисленных значений.

3) Построение графиков функций согласно рассчитанным значениям.

Для компонента класса TChart после размещения на форме во второй закладке следует настроить следующие свойства:

–через контекстное меню вызвать редактор компонента (пункт Edit Chart) и добавить две серии (закладка 1-го уровня Chart, закладка 2-го уровня Series, кнопка Add, выбрать вид графика, например, Fast line); нажатие кнопки Add надо повторить два раза для каждого графика; затем нажать кнопки ОК и

Close;

–в свойствах компонента Chart через окно Инспектор объектов указать следующее:

–в группе свойств Title (щелчок по +) прописать заголовок «Графики функций» в свойстве Text, с помощью свойства Font можно задать шрифт;

–в группах свойств LeftAxis и BottomAxis (щелчок по кнопке +) прописать заголовки осей Y и X (подгруппа свойств Title, свойство Caption); с помощью свойства Font можно задать шрифт;

–по желанию можно отключить псевдотрехмерное изображение графика (свойство Viev3D) и настроить градиентную заливку (группа свойств Gradient).

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

Chart1.SeriesList[0].Title:='y(x)=k*x+b';

Chart1.SeriesList[1].Title:='y(x)=a*x^2+c';

25

Здесь свойство SeriesList – список серий графика (т.е. первая серия имеет индекс 0, вторая 1 и т.д.).

Добавление точек на график осуществляется в программе через метод AddXY (добавляется точка с двумя координатами):

Chart1.SeriesList[0].AddXY(x1,k*x1+b);

Chart1.SeriesList[1].AddXY(x1,a*sqr(x1)+c);

Возможный текст программы для кнопки «Рассчитать» приведен ниже. В данной программе осуществляется:

-преобразование введенных данных в числа;

-вывод на графике названия линий;

-в цикле while расчет функций, вывод в таблицу номера, аргумента и рассчитанных функций с преобразованием их в строку, добавление точек на график, увеличение количества строк в таблице на единицу и увеличение аргумента функций на шаг.

var

a, b, c, d, y1, y2, x, xn, xk, xh : real; i : integer;

xn := StrToFloat(Edit5.Text); xk := StrToFloat(Edit6.Text); xh := StrToFloat(Edit7.Text);

x := xn; i := 1; Chart1.SeriesList[0].Title :='Y1'; Chart1.SeriesList[1].Title :='Y2'; while x <= xk do

begin

y1 := a*x*x+c;

y2 := b*sqrt(abs(x))+d; StringGrid1.Cells[0,i] := IntToStr(i); StringGrid1.Cells[1,i] := FloatToStr(x);

StringGrid1.Cells[2,i] := floatToStrF(y1,ffFixed,6,2); StringGrid1.Cells[3,i] := floatToStrF(y2,ffFixed,6,2);

26

Chart1.SeriesList[0].AddXY(x,y1);

Chart1.SeriesList[1].AddXY(x,y2); StringGrid1.RowCount := StringGrid1.RowCount + 1; i := i+1; x := x+ xh; end; end;

Возможный текст программы для кнопки «Очистить»

Варианты задания по расчету функций и по построению графиков приведены в табл. 3.

Обе функции следует вывести на одном и том же графи-

ке.

Таблица 3

Варианты задания № 3