Question

Y=sinx+6x+x^3 написать программу решения через PascalABCNET

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  Writeln('y=',Sin(x)+6*x+x**3)
end.

Answer 2

Sure! Below is a simple PascalABC.NET program that calculates the value of the function Y = sin(x) + 6x + x^3 for a given value of x:

pascalCopy code
program FunctionCalculation;

uses
  System;

function CalculateY(x: Double): Double;
begin
  CalculateY := sin(x) + 6 * x + x * x * x;
end;

var
  x, result: Double;

begin
  WriteLn('Enter the value of x: ');
  ReadLn(x);

  result := CalculateY(x);

  WriteLn('Y = ', result);
end.

To run this program, you'll need to have PascalABC.NET installed on your computer. Simply copy the code above into a PascalABC.NET code editor, compile, and run the program. It will prompt you to enter the value of x, and then it will calculate and display the corresponding value of Y.