21. Запрограммируйте команду «Табулировать».

Свойство Lines объекта типа Memo комплексное, то есть оно также является объектом со своими свойствами и методами. Результат работы данной программы - это таблица, которая состоит из нескольких строк. Чтобы добавить в поле Memol новую строку таблицы, надо поменять значения комплексного свойства Lines (строки) с помощью его метода Add (добавить) с одним аргументом — символьной строкой: Memo1->Lines->Add(“cTpoKa символов”). Щелкните на команде «Табулировать» из главного меню один раз. Появится заготовка к процедуре, которую заполните так:

Void __fastcall tForm1::n3Click(tObject *Sender)

{

float x,y,h,a,b;

char str1[8], str2[8];

Memo1->Lines->Add(" X F(X)"); //B объект Memol вставляем строку с подписями столбцов значений //аргумента и функции (“ X F(X) “);

a=StrToFloat(Edit1->Text); //Получаем числовое значение левой границы

b=StrToFloat(Edit2->Text); //Получаем числовое значение правой границы

h=StrToFloat(Edit3->Text); //Получаем числовое значение шага

x=a;

//Табулируем функцию пока аргумент х не превысит правую границу с определенным запасом

while (x<=b+h/2)

{

y=sin(x)+1; // Вычисляем значения функции

// Формируем символьные строки из значений аргумента и функции и вставляем строку в поле Memo1

if (CheckBox1->Checked) Memo1->Lines->Add(" "+FloatToStrF(x,ffFixed,10,2)+" "+FloatToStrF(y,ffFixed,8,2));

x=x+h;// Увеличиваем аргумент на величину шага

}

}

22. Выполните программу и поупражняйтесь с разными значениями левой, правой границы и шага аргумента. Закройте окно программы «Табулирование функции».

23. Сохраните созданную программу в своей папке.

24. Создайте ехе-файл программы.

25. Закройте BilderC++, запустите созданную программу и выполните вычисления для различных входных данных.

26. Оформите отчет, скопировав текст модуля из окна кода программы в WORD и запустите программу на выполнение, затем клавишами ALT и PrtSс ( одновременно нажимая) скопируйте в буфер памяти изображение интерфейса программы (скриншот) , после перейдите опять в WORD и вставьте командой Правка-Вставить или клавишами Shift и Insert (одновременно нажимая). Отчет оформлять в соответствии с документом Требование к оформлению отчета по проекту.

Самостоятельная работа

Задача 3.1. Добавьте к контекстному меню команду «Выход» и запрограммируйте ее.

Задача 3.2. Создайте и запрограммируйте еще одно контекстное меню, содержащее команды "Убрать все флажки", "Включить все флажки", "Включить инверсивно". Такое меню должно появляться после щелчка правой клавишей мыши в любой точке панели с флажками. Не забудьте "привязать" это меню (PopupMenu2) к панели с флажками (см. пункт 20).

Задача 3.3. Модифицируйте программу, предусмотрев возможность табулирования функции и ее производной. Выбор варианта (с производной или без неё) осуществить с помощью дополнительного флажка.

Подсказка. Выполните такие действия:

« вставьте в форму объект типа CheckBox (флажок), его свойству Caption присвойте значение «Производная», выберите для подписи кирилизованный шрифт 12-го размера, выровняйте вставленный объект.

• поменяйте программный код кнопки «Табулировать», использовав в тексте процедуры ButtonlClick такие команды:

if (CheckBox4->Checked) Memo1->Lines->Add(" X F(X) F ‘(X) ");

//Строка содержит подписи для столбцов значений аргумента, функции и ее производной

else

//Иначе — ёсли флажок не установлен Строка содержит лишъ подписи для столбцов значений аргумента и функции

Memo1->Lines->Add(" X F(X)");• * •

Затем в содержимое тела цикла необходимо внести изменения

// После вычисления значение функции y , добавляем вычисление производной y1

yl:=cos(x); //Вычисляем значение производной

if (CheckBox4->Checked) Memo1->Lines->Add(" "+FloatToStrF(x,ffFixed,10,2)+" "+FloatToStrF(y,ffFixed,8,2)+” “+ FloatToStrF(y1,ffFixed,8,2));

else

//Если флажок не установлен]

Memo1->Lines->Add(" "+FloatToStrF(x,ffFixed,10,2)+" "+FloatToStrF(y,ffFixed,8,2));

Замечание. Номера объектов в Вашей программе могут отличаться от приведённых выше.

Задача 3.4. Вставьте в форму объект Chart из закладки Additional для построения графика функции.

Щелкните два раза на объекте, появится следующее окно

Выберите команду Add…на кнопке справа

Выберите тип диаграммы, например FastLine

Получится следующее окно

Закройте его по клавише Close

Появится окно формы с видом

Теперь в текст программы добавьте команду

Из пункта 22.

В конце цикла while, перед командой увеличения аргумента на шаг добавить

Series1->AddXY(x,y);