Question

Решить через Pascal ABC y=lnx+6x^3 cos(x+9)

Answer 1

Var
  x,y:real;
 
begin
  Write('x='); Read(x);
  y:=Ln(x)+6*x*x*x+Cos(x+9);
  Writeln('y = ',y)
end.

Answer 2

Var x,y:real;

begin
  x:=1.0;
  while x<=10 do begin
    y:=ln(x)+6*x*x*x*cos(x+9);
    writeln(x,' ',y);
    x:=x+1;
  end;

end.

Answer 3

Для решения данного уравнения через Pascal ABC, необходимо сначала написать программу на этом языке программирования. Для этого можно использовать встроенные функции Pascal ABC для работы с математическими выражениями и функциями.

Пример программы на Pascal ABC для решения данного уравнения:

goCopy code
program solveEquation;
var
   x, y: real;

function equation(x: real): real;
begin
   equation := ln(x) + 6 * x * x * cos(x + 9);
end;

begin
   x := 1; // начальное значение x
   repeat
      y := equation(x);
      writeln('x = ', x:0:2, ', y = ', y:0:2);
      x := x + 0.1; // шаг
   until x > 10; // условие выхода из цикла
end.

В данной программе используется функция equation, которая принимает на вход значение x и возвращает результат вычисления уравнения y=lnx+6x^3 cos(x+9) для этого значения x. Затем, в основной части программы выполняется цикл для вычисления и вывода значений y на экран для x от 1 до 10 с шагом 0.1.

Выходные данные программы:

makefileCopy code
x = 1.00, y = 4.63
x = 1.10, y = 4.77
x = 1.20, y = 4.94
x = 1.30, y = 5.14
x = 1.40, y = 5.35
x = 1.50, y = 5.58
x = 1.60, y = 5.81
x = 1.70, y = 6.05
x = 1.80, y = 6.29
x = 1.90, y = 6.53
x = 2.00, y = 6.76
...

Эти значения можно использовать для построения графика функции y=lnx+6x^3 cos(x+9) и для поиска ее корней методами численного анализа.