Question

Паскаль. составить программу для решения задачи (y:=x в квадрате + модуль x) и округлить результат до целого числа. (var, begin)

Answer 1

Var x: real; y: integer;
begin
write('Введите x: ');
readln(x);
y:=trunc(sqr(x)+abs(x));
write('y равен ',y);
readln;
end.

Answer 2

Для решения этой задачи в Pascal можно использовать следующий код. В нем используется переменная x, которая представляет входное значение, и переменная y, которая будет содержать результат вычислений.

pascalCopy code
program SquareAndAbsoluteValue;

var
  x, y: real;

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

  // Вычисление y = x^2 + |x|
  y := x * x + abs(x);

  // Округление результата до целого числа
  y := round(y);

  // Вывод результата
  writeln('Результат: ', y);
end.

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