Помогите решить плиз....
Приложения:
Ответы на вопрос
Ответил Аноним
0
Var
x:real;
Begin
X:=0.5;
Repeat
WriteLn('Z(',x,') = ',Sqr(x+1)*(x+1)-2);
x:=x+0.5
Until x > 4;
End.
Но можно третью степень вычислить и по-другому:
Var
x:real;
Begin
X:=0.5;
Repeat
WriteLn('Z(',x,') = ',Exp(3*Ln(x+1))-2);
x:=x+0.5
Until x > 4;
End.
x:real;
Begin
X:=0.5;
Repeat
WriteLn('Z(',x,') = ',Sqr(x+1)*(x+1)-2);
x:=x+0.5
Until x > 4;
End.
Но можно третью степень вычислить и по-другому:
Var
x:real;
Begin
X:=0.5;
Repeat
WriteLn('Z(',x,') = ',Exp(3*Ln(x+1))-2);
x:=x+0.5
Until x > 4;
End.
Новые вопросы