Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/34: Рейтинг темы: голосов - 34, средняя оценка - 4.53
1 / 1 / 0
Регистрация: 16.12.2010
Сообщений: 42
1

Вычисление полинома по схеме Горнера

15.02.2011, 20:42. Показов 6605. Ответов 2
Метки нет (Все метки)

Дана вроде бы стандартная задача, на вычисление суммы, но портит ее то, что надо вычислить ее по схеме Горнера(http://ru.wikipedia.org/wiki/%... 1%80%D0%B0), которую я как не пытался понять, уже 3 день не могу(
Так вот сама задача:
Вычислить значение полинома по схеме Горнера по заданному массиву одномерному массиву размерностью 10, x выбрать произвольно:

https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\sum_{k=0}^{n}{a}_{k}*{x}^{k}

Добавлено через 39 минут
Чтобы не думали, что я просто лентяй, не желающий учиться, приложу программу написанную НЕ по схеме Горнера. Еще раз повторю, что сложность вся состоит именно в этом.
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
28
29
30
31
32
Program Lab13;
Uses
  CRT;
Const
  nmax=100;
Var
  a: array[0..nmax] of integer;
  k, n:integer;
  x, s, y:real;
Begin
  CLRSCR;
  Randomize;
  Writeln('Введите размер массива');
  Read(n);
  For k:=1 to n do
    Begin
      a[k]:=random(100);
      write(a[k],' ');
    End;
  x:=random(100);
  Writeln;
  Writeln(x:4:2);
  y:=0;
  For k:=0 to n do
    Begin
      s:=a[k]*exp(ln(x)*k);
      y:=y+s;
      s:=0;
    End;
  Writeln('y=',y:4:2);
  Readkey;
End.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.02.2011, 20:42
Ответы с готовыми решениями:

Вычислить значение полинома по схеме Горнера
ПОМОГИТЕ МОЖАЛУЙСТА,НУЖНО НАПИСАТЬ ПРОГРАММУ: Вычислить: p(x)=a(n)x^n+a(n-1)x^(n-1)+...+a1x+a(o)...

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

Полином по схеме Горнера
Помогите найти ошибку, вроде все правильно, но почему-то в ответе всегда получается 0. program...

паскаль.вычислить по схеме горнера
11. Вычислить по схеме Горнера: a. y=x10+2x9+3x8+..+10x+11; b. y=11x10+10x9+9x8+…+2x+1.

2
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
15.02.2011, 23:22 2
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
28
29
30
31
32
program Gorner;
    uses crt;
    const nmax=100;
    var n,i:integer;
        A,B:array[1..nmax] of real;
        epsilon:real;
begin
  Randomize;
  Repeat
  Write('Kolichestvo elementov: ');
  Readln(n);
  Until (n > 1);
  Write('Vvedite epsolon: ');
  Readln(epsilon);
  Writeln('Vyvodim ishodn. elementy :');
  for i:=1 to n do
  Begin
    A[i]:=random(100);
    Write(A[i]:2:2,' ');
  End;
  Writeln;
  B[1]:=A[1];
  for i:=2 to n do
  Begin
    B[i]:=B[i-1]*epsilon;
    B[i]:=B[i]+A[i];
    Write(B[i]:2:2, ' ');
  End;
  Writeln;
  Writeln('Otvet: ', B[n-1]:2:2);
  
end.
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
16.02.2011, 12:09 3
https://www.cyberforum.ru/post512271.html
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.02.2011, 12:09

Перевод числа n в 7 систему счисления по схеме Горнера
Необходимо перевести число n из 10 системы счисления в 7 систему счисления с помощью схемы Горнера.

Суммируя элементы по возрастанию степени x и по схеме Горнера
Нужна помощь по 8 примеру

Даны целые числа n0,d0,n1,d1,.,n7,d7,a,b (d0d1.d7b не равна 0) Вычислить по схеме Горнера
Даны целые числа n0,d0,n1,d1,...,n7,d7,a,b (d0d1...d7b не равна 0) Вычислить по схеме Горнера ...

Составить подпрограмму вычисления значение полинома n-го порядка по схеме Горнера
Здравствуйте. помогите пожалуйста. Задание: составить подпрограмму вычисления значение полинома...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.