Question

Задание №3. Написать программу, которая по введенному значению аргументу вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры.

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

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

begin

 var x := ReadReal;

 var y: real;

 if x < 0 then y := -(x + 6) / 2

 else

    if x < 3 then y := -Sqrt(9 - x * x)

    else

        if x < 6 then y := Sqrt(9 - (Sqr(x - 6)))

        else y := 0;

 Println(y)

end.

Вариант с условным выражением

(а то все подумают, что на javascript круче) )))

begin

 var x := ReadReal;

 Println(x < 0 ? -(x + 6) / 2 :

   x < 3 ? -Sqrt(9 - x * x) :

   x < 6 ? Sqrt(9 - (Sqr(x - 6))) : 0)

end.

Answer 2

javascript:var x = prompt("x:"),

y = x < 0 ? - (x + 6) / 2 : x < 3 ? - Math.sqrt(9 - Math.pow(x, 2)) : x < 6 ? Math.sqrt(9 - Math.pow(x - 6, 2)) : 0;

alert(y);