составить программу для вычисления значения функции используя полную структуру ветвления. Вариант во вложении.
ПОМОГИТЕ ПОЖАЛУЙСТАА!!
Приложения:
Ответы на вопрос
Ответил Аноним
0
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.
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.
Ответил Аноним
0
Эту программу в принципе можно написать через Case, потому что функции периодичные. Но тогда ни о какой ПОЛНОЙ форме ветвления речи не идёт.
Новые вопросы