Вопрос по информатике:
20+10 БАЛЛОВ!!!!!
Создайте функцию возведения вещественного числа в натуральную степень. С ее помощью определите, является ли введенное число корнем уравнения x³-2x²-3x+6=0.
Пожаловаться
- 21.12.2017 04:49
- Информатика
- remove_red_eye 11169
- thumb_up 45
Ответы и объяснения 1
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.
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.
Пожаловаться
- 23.12.2017 00:28
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы