Question

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

Answer 1

Var
   x,y:real;
Begin
Write('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.

Answer 2

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