Задание 1. Заполнить серии для синусоиды и косинусоиды

Заполнить серии для синусоиды и косинусоиды.

Form1->Series1->Active=false; //избежать мелькания изображения

Form1->Series2->Active=false; // при заполнении серии большими данными

Form1->Series1->Clear(); //Для замены предыдущих данных

Form1->Series2->Clear();

a=StrToFloat(Form1->Edit1->Text); //Получение границ отрезка

b=StrToFloat(Form1->Edit2->Text);

h=fabs(b-a)/100; //Расчет шага

x=a; //Начать с левой границы

while (x<=b) //Дойти до правой границы

{

Form1->Series1->AddXY(x, sin(x), "", clRed); //Точка первого графика

Form1->Series2->AddXY(x, cos(x), "", clBlue); //Точка второго графика

x+=h;} //Перейти к следующей точке

Form1->Series1->Active=true; //Отобразить графики

Form1->Series2->Active=true;

Рис. 2. Работа приложения построения графика функции