Pascal Разработать алгоритмы и записать программу вычисления значения y в зависимости от...

Question

Pascal

Разработать алгоритмы и записать программу вычисления значения y в зависимости от введенного с клавиатурой x

---

Answer 1

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  var y:real;
  if x<=-2 then y:=Cos(2*x)<br>  else
    if x<0 then y:=(3+2*x)/(x*x)<br>    else y:=Ln(x)+x*x;
  Writeln(y)
end.

Пример
x= 2.11
5.19878794748797

x= 0
-бесконечность

Answer 2

Var
  x: real;

begin
  write('Введите x >> ');
  readln(x);
  if x <= -2 then<br>    writeln('y = ', cos(2*x))
  else if (x < 0) and (x > - 2) then
    writeln('y = ', (3 + 2*x) / (x*x))
  else if x > 0 then
    writeln('y = ', ln(x) + x*x)
  else
    writeln('Выражение не определено')
end.

Comments

спасибо))