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.

Answer 2

Для добавления графиков в Pascal нужно использовать графические модули, такие как Graph или WinGraph. Эти модули предоставляют набор функций для работы с графикой и системой координат.

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

Для первого графика функция y = x*sin(x) будет выглядеть следующим образом:

program GraphExample;
uses graph;
var
  x, y: real;
begin
  // Инициализация графического режима
  InitGraph;
  
  // Отрисовка осей координат
  Line(0, GetMaxY div 2, GetMaxX, GetMaxY div 2); // Ось X
  Line(GetMaxX div 2, 0, GetMaxX div 2, GetMaxY); // Ось Y
  
  // Отрисовка графика
  x := -2 * Pi;
  while x <= 2 * Pi do
  begin
    y := x * Sin(x); // Функция y = x*sin(x)
    
    // Перевод координат из декартовой системы в систему координат графика
    x := x * 30 + GetMaxX div 2;
    y := -y * 30 + GetMaxY div 2;
    
    // Отрисовка точки на графике
    PutPixel(round(x), round(y), Blue);
    
    x := x + 0.01; // Приращение координаты X
  end;
  
  // Завершение отображения графика
  ReadLn;
  CloseGraph;
end.

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

var
  x, y: real;
begin
  // Весь предыдущий код
  
  // Отрисовка графика
  x := -5;
  while x <= 5 do
  begin
    y := 0.3 * 0.3 - 4 * x * x; // Функция y = 0.3^2 - 4x^2
    
    // Перевод координат из декартовой системы в систему координат графика
    x := x * 30 + GetMaxX div 2;
    y := -y * 30 + GetMaxY div 2;
    
    // Отрисовка точки на графике
    PutPixel(round(x), round(y), Red);
    
    x := x + 0.01; // Приращение координаты X
  end;
  
  // Завершение отображения графика
  ReadLn;
  CloseGraph;
end.

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

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