Руфиниан
5 год назад
Пожалуйста посчитайте решить плиз....
ОТВЕТЫ
Прокофий
Oct 24, 2020
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.
180
Смежные вопросы:
