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

@Milena ok · Регистрация: 08.12.2011

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

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

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

2) Дана прямоугольная матрица. Получить новую матрицу путем деления всех элементов исходной матрицы на ее максимальный по модолю элемент.

Комментарий модератора

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@P-VS-S · 13.12.2011, 23:37

2) n строк, m столбцов

Delphi

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

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];

Комментарий модератора

Используйте специальные теги форматирования кода!

@Milena ok · 29.12.2011, 18:52 **[ТС]**

P-VS-S, спасииибо!

Добавлено через 21 час 43 минуты

Сообщение от P-VS-S

2) n строк, m столбцов

я снова по поводу 2й задачи
2) Дана прямоугольная матрица. Получить новую матрицу путем деления всех элементов исходной матрицы на ее максимальный по модолю элемент.

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

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

Delphi

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.

@P-VS-S · 30.12.2011, 15:59

Delphi

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, иначе на что вы делить будете!!

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

Решение

Решение

	30.12.2011, 15:59