Question

помогите сделать программу в паскале, 15 вариант

Answer 1

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var x := ReadReal('x=');

 var y: real;

 if x >= 0 then y := Cos(x)

 else

 if x <= 1 then y := x * x - x

 else y := x * x - Sin(Pi * x * x) - 1;

 Println('y=', y)

end.

Пример

x= -4.21

y= 21.9341

begin

 var(a, x) := ReadReal2('Введите х и а:');

 var F := 2 ** x + Ln(Abs(ArcTan(x) - Sin(a * x))) + Sqrt(x / (a * Pi));

 Println('F=', F)

end.

Пример

Введите х и а: 2.16 3.7

F= 12.5835195753621