Вычислите значение функции:(задание №3)

Question

Вычислите значение функции:(задание №3)

---

Answer 1

Var a,x,y:real;
Begin
a:=6.4;
While a <= 7.8 do<br>   Begin
   x:=(a+2)/(7*a);
   if x < 6 then y:= Sin(x/2)+3
   else if x <= 7.5 then y:=x*(x-3)<br>        else y:=Exp(6*Ln(7*x*x));
   WriteLn('y(',x:0:3,') = ',y);
   a:=a+0.3
   End;
End.