Вычислить многочлен

@Gluka · Регистрация: 28.04.2010

Студворк — интернет-сервис помощи студентам

есть 2 проги, считающие многочлены a0+a1*x+a2+x^2...+an*x^n и a*x^n+b*x^(n-1)...+z
работают.
но нужно избавиться от массива.
нужна рекурсия. как это сделать?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program mnogo4len1;
type mas=array[0..10] of real;
function mnogo4l(a:mas;x:real;n:integer):real;
var f,s:real;
    i:integer;
begin
f:=1;
s:=a[n];
for i:=1 to n do
 begin
  f:=f*x;
  s:=s+a[n-i]*f;
 end;
mnogo4l:=s;
end;
var i,n:byte;
    f,s,x:real;
    a:mas;
begin
write(' n=');readln(n);
write(' x=');readln(x);
writeln('vvedite ',n+1,' koef ',' mnogo4lena stepeni ',n);
for i:=0 to n do
readln(a[i]);
write('S=',mnogo4l(a,x,n):0:3);
readln
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program mnogo4l2;
type mas=array [1..10] of real;
var a:mas; i,n:integer; x:real;
 
function f(m:mas;s:integer; z:real):real;
var t:real; j:integer;
begin
t:=m[s+1];
for j:=s+1 downto 2 do
t:=m[j-1]+z*t;
f:=t;
end;
begin
write('n='); readln (n);
for i:=1 to n+1 do
    begin
    write('a',i-1,'=');readln(a[i]);
    end;
write('x='); readln(x);
write('zna4enie mnogo4lena stepeni ',n,' =  ',f(a,n,x):0:3);
readln;
end.

@Puporev · 28.04.2010, 17:43

Сообщение от Gluka

но нужно избавиться от массива.
нужна рекурсия. как это сделать?

Избавиться от массива это одно, а рекурсия совсем другое.
Вместо массива можно например использовать динамические структуры, коэффициенты все равно где-то хранить нужно.
А рекурсия нужна при вычислении многочлена.

Добавлено через 5 минут
Вот пример рекурсии при вычислении по методу Горнера.

Pascal
1
2
3
4
5
6
type mas=array[1..nmax] of real;
function Horner(m:mas;x:real;n:byte):real;
begin
if n=1 then Horner:=m[n]
else Horner:=Horner(m,x,n-1)*x+m[n];
end;

@Gluka · 28.04.2010, 17:51 **[ТС]**

мне сказали от многочлена нужно как-то избавиться

Добавлено через 16 секунд
от массива*

@Gluka · 12.05.2010, 17:25 **[ТС]**

а во второй проге не подскажете как на рекурсию заменить?

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Gluka 0 / 0 / 0 Регистрация: 28.04.2010 Сообщений: 5
	28.04.2010, 17:51 [ТС]
	мне сказали от многочлена нужно как-то избавиться Добавлено через 16 секунд от массива* 0

@Gluka 0 / 0 / 0 Регистрация: 28.04.2010 Сообщений: 5
	12.05.2010, 17:25 [ТС]
	а во второй проге не подскажете как на рекурсию заменить? 0