VPF::[Delphi]Класс Полином - Форум программистов

Xrymz

Дата 16.1.2008, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.11.2007
Где: дом! О.о

Репутация: нет
Всего: нет

Ребята помогите с программой... надо создать Класс Полинома... я ее сделал но преподу непонравился..
т.к. я сделал полином но немного не так.. я сделал чтобы он был допустим 2x^2+13x^+123=0
а преподователь хочет чтобы он был n размерности.. вот этого я незнаю как сделать..
прилаживаю картинку.. это то что надо...
$user posted image$

а это само задание
Ввести класс для работы с объектом "полином" (Tpolinom).
Реализовать следующие операции:
а) сложение(вычитание) 2х полиномов
б)умножение 2х полиномов
с) умножение полинома на число

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Unit2, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button2: TButton;
    BitBtn1: TBitBtn;
    Button3: TButton;
    Label10: TLabel;
    Button4: TButton;
    Memo1: TMemo;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  z1,z2:TPolinom;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
z1.ProizPolinChislo(strtofloat(Edit4.Text));
memo1.Lines.Add(floattostr(z1.fa2)+'*x2+'+floattostr(z1.fa1)+'*x+'+floattostr(z1.fa0));

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
z1.Sum(z2);
memo1.Lines.Add(floattostr(z1.fa2)+'x^2+'+floattostr(z1.fa1)+'x+'+floattostr(z1.fa0));

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
z1.Proiz2Polin(z2);
memo1.Lines.Add(floattostr(z1.fa2)+'x^2+'+floattostr(z1.fa1)+'x+'+floattostr(z1.fa0));

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 memo1.Lines.Clear();
 edit1.text:='';
 edit2.text:='';
 edit3.text:='';
 edit4.text:='';
 edit5.text:='';
 edit6.text:='';
 edit7.text:='';
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'-','.','0'..'9',#8:;
',':key:='.';
else
key:=#0;
end;end;


procedure TForm1.Button5Click(Sender: TObject);
begin
z1.Raz(z2);
memo1.Lines.Add(floattostr(z1.fa2)+'x^2+'+floattostr(z1.fa1)+'x+'+floattostr(z1.fa0));
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
memo1.Lines.Clear;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
z1:=TPolinom.Create(Strtofloat(edit1.Text),strtofloat(edit2.Text),strtofloat(edit3.Text));
z2:=TPolinom.Create(Strtofloat(edit5.Text),strtofloat(edit6.Text),strtofloat(edit7.Text));
end;

end.

Сам Класс

Код


unit Unit2;

interface
uses sysutils;
type
 Tpolinom=Class(TObject)
  fa2:real;
  fa1:real;
  fa0:real;
 constructor Create(Aa2,Aa1,Aa0:real);
 procedure Sum(chislo:TPolinom);
 procedure Proiz2Polin(Chislo:TPolinom);
 procedure ProizPolinChislo(a:real) ;
 procedure Raz(f:TPolinom);
 end;
implementation
  Constructor TPolinom.Create(Aa2,Aa1,Aa0:real);
  begin
   inherited Create;
  fa2:=Aa2;
  fa1:=Aa1;
  fa0:=Aa0;
   end;
  procedure Tpolinom.Sum(Chislo:TPolinom);
   begin
   fa2:=fa2+chislo.fa2;
   fa1:=fa1+chislo.fa1;
   fa0:=fa0+chislo.fa0;
    end;
procedure Tpolinom.ProizPolinChislo(a: real);
begin
   fa2:=fa2*a;
   fa1:=fa1*a;
   fa0:=fa0*a;
end;
  procedure Tpolinom.Proiz2Polin(Chislo:TPolinom);
   begin
   fa2:=fa2*chislo.fa2;
   fa1:=fa1*chislo.fa1;
   fa0:=fa0*chislo.fa0;
   end;
  Procedure TPolinom.Raz(f:TPolinom);
   begin
   fa2:=fa2-f.fa2;
   fa1:=fa1-f.fa1;
   fa0:=fa0-f.fa0;
   end;
end.

Помогите плиз... зарание спасибо! =)

ivan219

Дата 17.1.2008, 02:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 1
Всего: 12

Что-то типа этого:

Код


type
 Tpolinom=Class(TObject)
  fa: Array of TPolinom;
  constructor Create(Aa:Array of real);
.
.
Constructor TPolinom.Create(Aa: Array of real);
begin
 inherited Create;
 SetLength(fa, High(Aa));
 fa := copy(Aa);
end;
.

procedure Tpolinom.Sum(Chislo:TPolinom);
var
  I: Integer;
begin
 for I := 0 to High(fa) do
   fa[I]:=fa[I]+chislo.fa[I];
end;


 Polinom := TPolinom.Create([Num1,...., NumN]);

Это сообщение отредактировал(а) ivan219 - 17.1.2008, 03:10

--------------------

Мой первый сайт и моя первая программа!!!!!

Xrymz

Дата 17.1.2008, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 29.11.2007
Где: дом! О.о

Репутация: нет
Всего: нет

Спасибо огромное!!!! =)
хотя я уже сделал)
эх...пожелайте мне удачи))

ivan219

Дата 17.1.2008, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 1
Всего: 12

Цитата(Xrymz @ 17.1.2008, 09:58

)

эх...пожелайте мне удачи))

Удачи

--------------------

Мой первый сайт и моя первая программа!!!!!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »