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

(составить блок-схему алгоритма и программу для программирования Pascal. ABC

Question

Марлен

15 января, 08:52

+2

Ответы (1)

Знаете ответ на вопрос?

Марюша · 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.

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