составить программу для вычисления значения функции используя полную структуру ветвления. Вариант во вложении.
ПОМОГИТЕ ПОЖАЛУЙСТАА!!

Эту программу в принципе можно написать через Case, потому что функции периодичные. Но тогда ни о какой ПОЛНОЙ форме ветвления речи не идёт.

Var   x,y:real;BeginWrite('x = ');ReadLn(x);if x<0 then y:= Sin(x)else if (0<=x)and(x<=3*Pi) then y:=Cos(x)-1     else y:=Sin(x)-2;WriteLn('y = ',y);End.