8. Напишите программу вычисления выражения s= x3+ x5+ xn, где x и n вводятся с клавиатуры. Используйте подпрограмму вычисления степени.
Ответ
Вот пример программы на Паскале, которая вычисляет значение выражения s = x^3 + x^5 + x^n, где x и n вводятся с клавиатуры, используя подпрограмму для вычисления степени числа x:
program PowerExpression;
function power(base, exponent: integer): integer;
var
i, result: integer;
begin
result := 1;
for i := 1 to exponent do
result := result * base;
power := result;
end;
var
x, n, s: integer;
begin
writeln('Введите значение x:');
readln(x);
writeln('Введите значение n:');
readln(n);
s := power(x, 3) + power(x, 5) + power(x, n);
writeln('Значение выражения s = x^3 + x^5 + x^n:');
writeln(s);
end.В этой программе мы сначала определяем подпрограмму power, которая принимает два параметра: base (основание) и exponent (показатель степени). Мы инициализируем переменную result значением 1 и затем в цикле for умножаем ее на основание base exponent раз.
Затем мы объявляем переменные x, n и s.
После этого мы запрашиваем у пользователя ввод значения x и n.
Затем мы вычисляем значение выражения s = x^3 + x^5 + x^n, используя подпрограмму power, чтобы возвести x в степени 3, 5 и n.
В конце мы выводим значение выражения s.
Пример работы программы:
Введите значение x:
2
Введите значение n:
4
Значение выражения s = x^3 + x^5 + x^n:
56