Вычислите значения функции w=y^2+1/y^2-1 ** отрезке [0;0,5] с шагом 0,1 (составить...

Question

Вычислите значения функции w=y^2+1/y^2-1 на отрезке [0;0,5] с шагом 0,1
(составить блок-схему алгоритма и программу для программирования Pascal.ABC

Comments

Можно без блок-схемы?

---

желательно с ней конечно ,но сделайте без неё

Answer 1

Var
Y:real;
Begin
Y:=0;
Repeat
WriteLn('W(',Y,') = ',(Y*Y+1)/(Y*Y-1));
Y:=Y+0.1;
Until Y>0.5
End.