Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
2 / 1 / 1
Регистрация: 08.12.2011
Сообщений: 30
1

Вычислить значение многочлена по схеме Горнера

13.12.2011, 16:18. Показов 2627. Ответов 3
Метки нет (Все метки)

Добрый день!
помогите пожалуйста

1) Многочлен степени n задан массивом своих коэффициентов. Вычислить значение многочлена по схеме Горнера.

2) Дана прямоугольная матрица. Получить новую матрицу путем деления всех элементов исходной матрицы на ее максимальный по модолю элемент.
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2011, 16:18
Ответы с готовыми решениями:

Вычислить значения многочлена и его первую производную, используя формулу Горнера
Помогите пожалуйста.Вычислить значения много члена и его первую производную, используя формулу...

Вычислить по схеме Горнера значение многочлена
Многочлен степени n задан массивом своих коэффициентов.Вычислить значение многочлена по схеме...

Вычислить по схеме Горнера значение многочлена с комплексными коэфициентами
вычислить по схеме Горнера значение многочлена с комплексными коэфициентами. см.рисунок ...

Вычислить по схеме Горнера значение многочлена с комплексными коэффициентами
Даны: натуральное число N, массивы действительных чисел A(N), B(N), действительные числа X, Y....

3
4 / 4 / 4
Регистрация: 01.12.2009
Сообщений: 32
13.12.2011, 23:37 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

2) n строк, m столбцов
Delphi
1
2
3
4
5
6
7
8
9
10
11
max : extended;
 
for i=0 to n - 1 do
begin
  for j=0 to m -1 do
   begin
     if matrica[i,j] > max
        max := matrica[i,j];
   end;
 
end;
нашли максимальный элемент - это max

далее такие же циклы

Delphi
1
2
3
4
5
6
7
for i=0 to n - 1 do
begin
  for j=0 to m -1 do
   begin
     matrica[i,j] := matrica[i,j] / max;
end;
end;
Добавлено через 1 минуту
сорри,

Delphi
1
2
if matrica[i,j] > max
max := matrica[i,j];
заменить на:
Delphi
1
2
if Math.Abs(matrica[i,j]) > max
max := Math.Absmatrica[i,j];
 Комментарий модератора 
Используйте специальные теги форматирования кода!
1
2 / 1 / 1
Регистрация: 08.12.2011
Сообщений: 30
29.12.2011, 18:52  [ТС] 3
P-VS-S, спасииибо!

Добавлено через 21 час 43 минуты
Цитата Сообщение от P-VS-S Посмотреть сообщение
2) n строк, m столбцов
я снова по поводу 2й задачи
2) Дана прямоугольная матрица. Получить новую матрицу путем деления всех элементов исходной матрицы на ее максимальный по модолю элемент.


посмотрите пожалуйста,
Преподаватель говорит, что не хватает "блока поиска максимального числа"
и не может быть такого, что задача сама ищет Max

пожалуйста, помогите доделать

Delphi
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Edit3: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
n:integer; 
 m:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
 m:=StrToInt(Edit2.Text);
 StringGrid1.ColCount:=m;
 StringGrid1.RowCount:=n;
 StringGrid2.ColCount:=m;
 StringGrid2.RowCount:=n;
 end;
 
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
var a:array[1..100,1..100] of integer;
 b:array[1..100,1..100] of single;
 i:integer;
 j:integer;
 max,del:integer;
 begin
 for i:=1 to n do
 for j:=1 to m do
 begin
 randomize;
 a[i,j]:=random(50)-50;
 StringGrid1.Cells[j-1,i-1]:=FloatToStrF(a[i,j],ffFixed,5,2);
 end;
 
 max:=abs(a[1,1]);del:=a[1,1];
 for i:=1 to n do
 for j:=1 to m do
 if abs(a[i,j])>max 
 then
 begin
max:=abs(a[i,j]);
del:=a[i,j];
 end;
 Edit3.Text:=IntToStr(del);
 for i:=1 to n do
 for j:=1 to m do
 b[i,j]:=a[i,j]/del;
 for i:=1 to n do
 for j:=1 to m do
 StringGrid2.Cells[j-1,i-1]:=FloatToStrF(b[i,j],ffFixed,5,2);
 end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
 
end.
0
4 / 4 / 4
Регистрация: 01.12.2009
Сообщений: 32
30.12.2011, 15:59 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
max:=abs(a[1,1]);del:=a[1,1];
 for i:=1 to n do
 for j:=1 to m do
 if abs(a[i,j])>max 
 then
 begin
max:=abs(a[i,j]);
del:=a[i,j];
 end;
это "блок поиска максимального числа"
правда не понятно почему вы делите на del и для чего он вообще нужен, у вас задача делить на максимальное по модулю число,а это у вас max, вот на него и делите.

Добавлено через 4 минуты
"и не может быть такого что задача ищет max".
Вот это я совсем не понял, если вам неизвестны элементы матрицы, то программа должна искать max, иначе на что вы делить будете!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2011, 15:59

Записи. Вычислить значение многочлена над рациональными числами по схеме Горнера ("слева").
Вычислить значение многочлена над рациональными числами по схеме Горнера ("слева"). Многочлен...

Найти значение многочлена по схеме Горнера
Найти значение многочлена y=11*x^10+10*x^9+...+2*x+1 по схеме Горнера.На языке Си. Добавлено...

Вычислить значение многочлена, воспользовавшись схемой Горнера
Недавно взялась изучать С++ и споткнулась на этой задачке. Дан многочлен P(x)=anxn+ an-1xn-1+ …...

Пользуясь схемой Горнера, вычислить значение многочлена
2.Пользуясь схемой Горнера, вычислить значение многочлена : f(x)= x^4 - 6x^3 + 12x^2 - 26x +37


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru