Question

Составить на языке Паскаля программу, вычисляющую функцию y=x^x, если x<0, иначе y=√x

Answer 1

Var x: Integer;
begin
writeln('Введите значение числа x');
readln(x);
if x<0 then
writeln('y=',x*x)
else
writeln('y=',Sqrt(x));
end.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая вычисляет функцию \( y = x^x \), если \( x < 0 \), иначе \( y = \sqrt{x} \):

program ComputeFunction;

var
  x, y: real;

begin
  // Ввод значения x
  write('Введите значение x: ');
  readln(x);

// Проверка условия и вычисление функции
  if x < 0 then
  begin
    // Если x < 0, вычисляем y = x^x
    y := power(x, x);
  end
  else
  begin
    // Если x >= 0, вычисляем y = sqrt(x)
    y := sqrt(x);
  end;

// Вывод результата
  writeln('Значение функции y = ', y);
end.

Эта программа запрашивает у пользователя значение переменной `x`, затем проверяет условие. Если `x < 0`, программа вычисляет \( y = x^x \) с помощью функции `power`, иначе вычисляет \( y = \sqrt{x} \) с помощью функции `sqrt`. Результат выводится на экран.