Задание:
Составить алгоритм и программу вычисления значения функции: y=1/x*sin^8(1/x), где х=2,84+a^2

Текст программы:
Program Lab1;
Var a,x,y : real;
Begin
Writeln(‘a=’);
Readln(a);
X:=2.84+a*a;
Y:=1/x*sqr(sqr(sqr(sin(1/x)));
Writeln(‘y=’,y);
End.




Контрольный расчёт:
A=0, y=7.0476149680E-5