Бірілген есептің паскаль тілінде программасын құрыңыз. есептің берілгені ішінде...

Question

Функциялар.

Бастапқы мәні.

x=1.5

a=[1.2-2]; қадам a=0.2;

Answer 1

Program esep12;

var y,x,a:real;

Begin

write('x= ');

readln(x);

write('a= ');

readln(a);

if (a>x) then y:=a*a*a + sqrt(a*a+abs(x))*sqr(sin(x))

else y:=2*a*a+a*a*tan(x);

write('Y= ',y);

End.