Question

100 БАЛЛОВ Напишите программный код на языке Паскаль для вычисления модуля разности максимального и минимального значений у, если y = tgx³ · sin x, x ∈ [–2π; 2π], при шаге π/4

Answer 1

Ответ:

program z;

var x,y,mx,mn:real;

begin

x:=-2*pi;

mx:=tan(x*x*x)*sin(x);

mn:=tan(x*x*x)*sin(x);

while x<=2*pi do

begin

y:=tan(x*x*x)*sin(x);

writeln('x = ',x:6:3,'y = ':7,y:0:3);

if y>mx then mx:=y;

if y<mn then mn:=y;

x:=x+pi/4

end;

write('|',mx:0:3,' - (',mn:0:3,')| = ',abs(mx-mn):0:3)

end.

Answer 2

Вот пример программного кода на языке Паскаль для вычисления модуля разности максимального и минимального значений у, если y = tg(x³) · sin(x), x ∈ [–2π; 2π], при шаге π/4:

program CalculateModuleDifference;

uses
  Math;

var
  x: Real;
  y: Real;
  max_y: Real;
  min_y: Real;
  step: Real;
  i: Integer;

begin
  step := Pi / 4;
  max_y := -MaxInt;
  min_y := MaxInt;

for i := -2 to 2 do
  begin
    x := i * Pi;
    y := Tan(Power(x, 3)) * Sin(x);

if y > max_y then
      max_y := y;

if y < min_y then
      min_y := y;
  end;

writeln('Максимальное значение y: ', max_y);
  writeln('Минимальное значение y: ', min_y);
  writeln('Модуль разности: ', abs(max_y - min_y));
end.

В этом коде мы используем цикл `for` для перебора значений x от -2π до 2π с шагом π/4. Для каждого значения x мы вычисляем значение y с помощью формулы y = tg(x³) · sin(x). Затем мы сравниваем полученное значение y с текущим максимальным и минимальным значениями и обновляем их при необходимости.

После завершения цикла мы выводим на экран максимальное и минимальное значения y, а также модуль разности между ними.

Примечание: Пожалуйста, убедитесь, что ваш компилятор Паскаля поддерживает функции `Tan` и `Power` из модуля `Math`, так как они используются в данном коде.