Question

Решите пожалуйста программу в Pascal: x=y^2-sqrt(y), при y>=0; x=3/y+y, при y<0.Напишите пожалуйста решение программы.

Answer 1

var

  x, y: real;

begin

  readln(y);

  if y >= 0 then x := sqr(y) - sqrt(y) else

    x := 3 / y + y;

  writeln(x);

end.

Answer 2

Я могу помочь вам с решением программы на Pascal. Вот пример кода, который реализует заданную функцию x:

program FunctionX;
var
  x, y: real;
begin
  writeln('Введите значение y:');
  readln(y);
  if y >= 0 then
    x := y*y - sqrt(y)
  else
    x := 3/y + y;
  writeln('Значение x равно ', x:0:2);
end.

Этот код считывает значение y с клавиатуры, проверяет его знак и вычисляет значение x по соответствующей формуле. Затем он выводит значение x с двумя знаками после запятой. Надеюсь, это поможет вам.