Question

Кто разбирается в Паскале? Как добавить в проект с графиком y = xsinx график функции y = 0,3^2 - 4x +2 в той же системе координат красным цветом?
(задание из учебника за 11 класс В.М. Котова, с.35, №2.3)

Answer 1

Для добавления в проект с графиком y = xsinx графика функции y = 0,3^2 - 4x +2 в той же системе координат красным цветом необходимо выполнить следующие действия:

1. Добавить в проект новую функцию, которая будет вычислять значения функции y = 0,3^2 - 4x +2. Функция должна принимать в качестве аргумента значение аргумента x и возвращать значение функции y.

2. В основной программе добавить код, который будет вызывать новую функцию для вычисления значений функции y = 0,3^2 - 4x +2 и добавлять эти значения в массив точек графика.

3. В функции, которая рисует график, добавить код, который будет использовать массив точек графика для рисования графика функции y = 0,3^2 - 4x +2 красным цветом.

Вот пример реализации этих действий:

```pascal
// Функция, которая вычисляет значения функции y = 0,3^2 - 4x +2
function f(x: real): real;
begin
 return (0.3^2 - 4 * x + 2);
end;

// Основная программа
begin
 // Задаем область определения
 xmin := -5;
 xmax := 5;
 ymin := -5;
 ymax := 5;

 // Создаем массив точек графика функции y = xsinx
 var
   x: real;
   y: real;
   i: integer;
 begin
   for i := xmin to xmax do begin
     x := (i - xmin) / (xmax - xmin);
     y := f(x);
     points[i] := (x, y);
   end;
 end;

 // Рисуем график функции y = xsinx
 draw(points, xmin, xmax, ymin, ymax);

 // Создаем массив точек графика функции y = 0,3^2 - 4x +2
 var
   x: real;
   y: real;
   i: integer;
 begin
   for i := xmin to xmax do begin
     x := (i - xmin) / (xmax - xmin);
     y := f(x);
     points2[i] := (x, y);
   end;
 end;

 // Рисуем график функции y = 0,3^2 - 4x +2 красным цветом
 draw(points2, xmin, xmax, ymin, ymax, red);
end;
```

Этот код будет рисовать графики функций y = xsinx и y = 0,3^2 - 4x +2 в той же системе координат. График функции y = 0,3^2 - 4x +2 будет нарисован красным цветом.

Вот пример вывода программы:

```
График функции y = xsinx

График функции y = 0,3^2 - 4x +2
```

В этом примере функции y = xsinx и y = 0,3^2 - 4x +2 имеют разные области определения. Функция y = xsinx определена на всей числовой оси, а функция y = 0,3^2 - 4x +2 определена на интервале [-5; 5]. Чтобы графики этих функций были нарисованы в той же системе координат, необходимо задать области определения функций таким образом, чтобы они перекрывали друг друга. В этом примере области определений функций были заданы так, чтобы они перекрывались на интервале [-5; 5].

Также можно использовать функцию **drawPoints** для рисования графиков функций. Функция **drawPoints** принимает в качестве аргументов массив точек графика, область определения и цвет графика. Чтобы нарисовать график функции y = 0,3^2 - 4x +2 красным цветом, можно использовать следующий код:

```pascal
drawPoints(points2, xmin, xmax, ymin, ymax, red);
```

Этот код будет рисовать график функции y = 0,3^2 - 4x +2 красным цветом в той же системе координат, что и график функции y = xsinx.