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

Эникей, я конечно все понимаю но по моему я очень корректно Вам написал, извинился и спросил сможете ли переделать. Далее читайте свой ответ, а потом говорите про нормальных людей

Я конечно дико извиняюсь, но в задании написано что R вводится с клавиатуры

amd216, чтоб быстро набрать баллы советую брать вызовы по 25 вопросов (они самые выгодные), а на чем-то простеньком набрать 25 решений не составляет особого труда. В свое время я за месяц 5000 баллов набрала

Я не знаю, зачем вводить R с клавиатуры, когда на графике совершенно четно указаны точки с абсциссами 3 и 6. Тогда нужно было указывать R и 2R. Но этого не сделано. Если в условии есть противоречие, я должен был его разрешить. Разрешил в соответствии с явно указанными числовыми значениями.

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.

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);