Кто разбирается в Паскале? Как добавить в проект с графиком y = xsinx график функции y = 0,3^2 - 4x +2 в той же системе координат красным цветом?
(задание из учебника за 11 класс В.М. Котова, с.35, №2.3)
ГРАФИК ДОЛЖЕН ВЫГЛЯДЕТЬ ВОТ ТАК, СО ВСЕМИ КНОПКАМИ. ЕСТЬ ТОЛЬКО ОБРАБОТЧИК СОБЫТИЯ CLICK ДЛЯ КНОПКИ, ВТОРАЯ ФУНКЦИЯ ДОЛЖНА БЫТЬ РАСПИСАНА ПРИМЕРНО ТАКЖЕ
![](https://st.uroker.com/files/625/6257f5674a0047a3a79bf10aca426c43.jpg)
![](https://st.uroker.com/files/df9/df9c5d69b15e1a6550dadcb4cc10de3a.jpg)
Ответы
Чтобы добавить в проект с графиком y = xsin(x) график функции y = 0,3x² - 4x + 2 в той же системе координат красным цветом, необходимо выполнить следующие шаги:
1. Объявить переменные для координат точек графика функции y = 0,3x² - 4x + 2.
2. Вычислить координаты точек графика функции y = 0,3x² - 4x + 2 с помощью цикла и формулы функции.
3. Нарисовать график функции y = 0,3x² - 4x + 2 на том же графическом окне, где уже нарисован график функции y = xsin(x), используя функцию Graph.DrawLine и задавая красный цвет для линии графика.
Примерный код на Pascal для построения графика функции y = 0,3x² - 4x + 2 в той же системе координат, где уже нарисован график функции y = xsin(x):
var
x, y: real;
i: integer;
begin
// вычисление и нарисованные графика функции y = 0,3x² - 4x + 2
for i := -100 to 100 do
begin
x := i / 10;
y := 0.3 * x * x - 4 * x + 2;
Graph.DrawLine(RGB(255, 0, 0), Round(50 * (x + Pi)), Round(50 * (Pi - y)), Round(50 * (x + Pi + 0.1)), Round(50 * (Pi - y)));
end;
end.
![](https://st.uroker.com/files/0bd/0bd6837cc59476f0db265262667aa6b0.png)