Question

Составьте программу в Pascal ABC.NET , которая строит график зависимости: a) Y(x)=5x(1-tgx) b) Y(x)=2x(sin(x+1)cos(3x))

Answer 1

// PascalABC.NET 3.2, сборка 1447 от 22.05.2017
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;
begin
  draw(x->5*x*(1-tan(x)));
  ReadlnChar; // нажатие любой клавиши
  draw(x->2*x*(sin(x+1)*cos(3*x)))
end.

Answer 2

К сожалению, я не могу предоставить вам готовую программу на языке Pascal ABC.NET, так как мой ответ ограничен текстовым форматом. Однако, я могу объяснить вам, как построить графики для данных функций.

Построение графика функции Y(x) = 5x(1 - tg(x))

Для построения графика функции Y(x) = 5x(1 - tg(x)) вам понадобится использовать математическую библиотеку Pascal ABC.NET для вычисления значений функции и графическую библиотеку для отображения графика.

Вот пример программы на Pascal ABC.NET, которая строит график функции Y(x) = 5x(1 - tg(x)):

uses GraphABC, Math;

const
  minX = -10; // Минимальное значение x
  maxX = 10;  // Максимальное значение x

var
  x, y: Real;
  i: Integer;

begin
  SetWindowSize(800, 600); // Установка размера окна графика
  SetWindowCaption('График функции Y(x) = 5x(1 - tg(x))'); // Установка заголовка окна графика

// Отрисовка осей координат
  Line(0, 300, 800, 300); // Ось X
  Line(400, 0, 400, 600); // Ось Y

// Отрисовка графика
  for i := 1 to 800 do
  begin
    x := (i - 400) / 40; // Преобразование координаты x
    y := 5 * x * (1 - Tan(x)); // Вычисление значения функции Y(x)

// Преобразование координаты y и отрисовка точки на графике
    PutPixel(i, Round(300 - y * 40), clBlack);
  end;

Readln;
end.

Построение графика функции Y(x) = 2x(sin(x + 1)cos(3x))

Для построения графика функции Y(x) = 2x(sin(x + 1)cos(3x)) также понадобится использовать математическую библиотеку Pascal ABC.NET и графическую библиотеку.

Вот пример программы на Pascal ABC.NET, которая строит график функции Y(x) = 2x(sin(x + 1)cos(3x)):

uses GraphABC, Math;

const
  minX = -10; // Минимальное значение x
  maxX = 10;  // Максимальное значение x

var
  x, y: Real;
  i: Integer;

begin
  SetWindowSize(800, 600); // Установка размера окна графика
  SetWindowCaption('График функции Y(x) = 2x(sin(x + 1)cos(3x))'); // Установка заголовка окна графика

// Отрисовка осей координат
  Line(0, 300, 800, 300); // Ось X
  Line(400, 0, 400, 600); // Ось Y

// Отрисовка графика
  for i := 1 to 800 do
  begin
    x := (i - 400) / 40; // Преобразование координаты x
    y := 2 * x * (Sin(x + 1) * Cos(3 * x)); // Вычисление значения функции Y(x)

// Преобразование координаты y и отрисовка точки на графике
    PutPixel(i, Round(300 - y * 40), clBlack);
  end;

Readln;
end.

Обратите внимание, что в обоих примерах используется функция `PutPixel` для отрисовки точек на графике. Вы также можете использовать другие функции для более гладкого отображения графика, например, `LineTo` для соединения точек линиями.

Надеюсь, эти примеры помогут вам построить графики для данных функций на языке Pascal ABC.NET! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.