20+10 БАЛЛОВ!!!!! Создайте функцию возведения вещественного числа в натуральную степень. С ее помощью определите, является ли введенное число корнем уравнения x³-2x²-3x+6=0.
20+10 БАЛЛОВ!!!!!
Создайте функцию возведения вещественного числа в натуральную степень. С ее помощью определите, является ли введенное число корнем уравнения x³-2x²-3x+6=0.
Гость
Ответ(ы) на вопрос:
ГостьFunction St(O:real; P:integer):real;
Begin
result:=1;
For P:= 1 to P do
result:=result*O
End;
Var
X:real;
Begin
Write('X = ');ReadLn(X);
if St(X,3)-2*St(X,2)-3*X+6 = 0 then Write(X,' - корень уравнения')
else WriteLn(X,' не является кормен уравнения')
End.
Не нашли ответ?
Похожие вопросы