Срочноо, помогите!! Напишите программу В ПАСКАЛЕ вычисления выражения: s=x^3+x^5+x^n, где...

Question

Срочноо, помогите!!
Напишите
программу В ПАСКАЛЕ вычисления выражения: s=x^3+x^5+x^n, где x и n вводятся с клавиатуры. Используйте функцию вычисления
степени.

Comments

Power для возведения в степень использовать можно?

---

нет

---

Написать свою функцию

---

?.

---

стооооп, можно,просто перепуточки вышли

Answer 1

Var
X,N:real;
Begin
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+power(x,n));
End.



С помощью функции возведения в степень, при условии, что основание - число вещественное, а показатель - целое.


Function St(O:real;P:integer):real;
Begin
result:=1;
For P:= 1 to P do
    result:=result*P;
End;

Var
X:real;
n:integer;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+St(x,n));
End.

Comments

в 6 строке выдаёт ошибку

---

Turbo? Free? ABC? Lazarus? Delphi? ABC.net?

---

ABC.net

---

Ну да, забыл знак умножения поставить - исправил

---

СПАСИБО!!!