Помогите пожалуйста в паскале. 2.1 Найти значение функции Y(X) при
Дата публикации:

Помогите пожалуйста в паскале. 2.1 Найти значение функции Y(X) при


Помогите пожалуйста в паскале. 2.1 Найти значение функции Y(X) при заданном Х (вводится с клавиатуры), используя стандартные функции. 2.2 Вычислить целую часть значения функции Y(X) (Y звук  0.5). 2.3 Вывести на экран значения Х и Y(X), ширина поля вывода значений - 8 знаков и 3 знака после запятой.

Конечно, вот пример кода на Паскале, который выполняет указанные задачи:

program FunctionValue;

var
  X: real;
  Y: real;
  IntegerPart: integer;

begin
  // Ввод значения Х с клавиатуры
  writeln('Введите значение Х:');
  readln(X);

  // Вычисление значения функции Y(X)
  Y := sin(X); // Пример функции, здесь можно использовать любую другую

  // Вычисление целой части значения функции Y(X)
  IntegerPart := trunc(Y);

  // Вывод значений Х и Y(X) на экран
  writeln('Х = ', X:8:3);
  writeln('Y(X) = ', Y:8:3);
  writeln('Целая часть Y(X) = ', IntegerPart);
end.

При запуске программы она будет запрашивать ввод значения Х с клавиатуры. Затем она вычислит значение функции Y(X) и целую часть этого значения, и выведет все значения на экран с заданной шириной поля и количеством знаков после запятой.