Создать класс Pair

четверг, 10 июня 2010

13:03

все записи пользователя в сообществе Izzie

Добрый день, люди добрые, помогите, пожалуйста с курсовой. Нужно написать программу на Delphi, а я в этом не гений...

Создать класс Pair (пара целых чисел); определить методы изменения полей и операцию сложения
пар (а, b) + (с, d) = (а + b, с + d). Определить класс-наследник Long с полями: старшая часть числа и
младшая часть числа. Переопределить операцию сложения и определить методы умножения и вычитания.

P.S. можете помочь хотя бы разобраться в задании, например «определить методы изменения полей»

@темы: Delphi

URL

Ушла из дома[изображение]).Йоу! И теперь все кувырком, но... В моей не было столько текста. Приготовьтесь, грузится до... На ЮГАх сегодня больше тысячи посетителей! Это рекорд и...

День праздника плаваюший, зависит от лунного календаря и ... Стала в последнее время ощущать что не люблю лета и по... Был тихий осений вечер. По крыше тихо барабанил дождь. Он...

Комментарии

10.06.2010 в 14:21

mr Gray

Классы: http://infsis.ru/prog/. Там есть глава "методы", но лучше прочитать все.
Перегрузка операторов: http://cadmium.ru/content/view/1329/46/. Обратите внимание, что перегрузка появилась только в Delphi 8.
Рекомендую прочитать эти статьи - там нет ничего сложного.
Если возникнут вопросы по реализации - задавайте, но приведите код того, что сделали и как пытались сделать не получившуюся вещь.

URL

10.06.2010 в 14:22

Izzie

спасибо за отзывчиваость

URL

10.06.2010 в 19:24

Izzie

вот что у меня пока имеется:

Type
  TPair=Class
  V1, V2:integer;
private
  a,b,c,d: integer;
public

  function Add (Apair: TPair):Tpair;
  Constructor Create (va,vc:integer);
  Destructor Destroy;
  property Value1: Integer read V1 write V1;
  property Value2: Integer read V2 write V2;

end;

implementation

function TPair.Add(Apair: TPair):TPair;
var
  res:TPair;
begin
  res.V1:=a.V1+b.V2;
  res.V2:=c.V1+d.V2;
  result:=res;
end;

Constructor TPair.Create (va,vc: integer);
var
a,b,c,d: integer;
begin
  inherited Create;
  a:=va;
  c:=vc;
end;

Destructor TPair.Destroy;
begin
  inherited Destroy;
end;

end.

но в этом месте
« res.V1:=a.V1+b.V2;
res.V2:=c.V1+d.V2;» выдает ошибку Record, object or class type required

URL

10.06.2010 в 20:28

mr Gray

У вас в классе переменные a, b, c, d объявлены как integer:

a,b,c,d: integer;

А вы пытаетесь получить доступ к их свойствам. Если нужно сложить "a" и "c" текущего объекта с другим, то можно написать так:

function TPair.Add(Apair: TPair):TPair;
begin
  result.V1:=a+Apair.V1;
  result.V2:=c+Apair.V2;
end;

Но только это не перегрузка оператора "+". Эта операция описана во второй ссылке - нужно просто создать метод:

class operator add(a: TPair; b: TPair): TPair;
Begin
  result.Value1 := a.Value1 + b.Value1;
  result.Value2 := a.Value2 + b.Value2;
end;

URL

10.06.2010 в 20:56

Izzie

воспользовалась вашим первым примером

unit Unit2;
interface

Type
  TPair=Class
  V1, V2:extended;
private
  a,c: integer;
public

  function Add (Apair: TPair):Tpair;
  Constructor Create (va,vc:integer);
  Destructor Destroy;
  property Value1: extended read V1 write V1;
  property Value2: extended read V2 write V2;

end;

implementation

function TPair.Add(APair: TPair):TPair;
var
  res:TPair;
begin
  result.V1:=a+Apair.V1;
  result.V2:=c+Apair.V2;
end;

Constructor TPair.Create (va,vc: integer);
var
a,b,c,d: integer;
begin
  inherited Create;
  a:=va;
  c:=vc;
end;

Destructor TPair.Destroy;
begin
  inherited Destroy;
end;

end.

но выдает ошибку Access vialation at adress... и указываает на эти

result.V1:=a+Apair.V1;
  result.V2:=c+Apair.V2;

строки... Не подскажите в чем загвоздка?

URL

10.06.2010 в 21:23

mr Gray

Ошибок много: перепутаны локальные переменные, элементы класса и свойства. Типы разные ну и т.д. Еще я создать выходной объект забыл

Вот немного поправил код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Type
  TPair=Class
private
  a,c: extended;
public

  function Add (Apair: TPair):Tpair;
  Constructor Create (va,vc:extended);
  Destructor Destroy;
  property Value1: extended read a write a;
  property Value2: extended read c write c;

end;


var
  Form1: TForm1;

implementation

{$R *.dfm}


function TPair.Add(APair: TPair):TPair;
begin
  result := TPair.Create(a+Apair.Value1, c+Apair.Value2);
end;

Constructor TPair.Create (va,vc: extended);
begin
  inherited Create;
  a:=va;
  c:=vc;
end;

Destructor TPair.Destroy;
begin
  inherited Destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
var p1, p2, p3: TPair;
begin
  p1 := TPair.Create(1, 2);
  p2 := TPair.Create(3, 4);
  p3 := p1.Add(p2);
  Caption := FloatToStr(p3.Value1) + ' ' + FloatToStr(p3.Value2);
  p1.Free;
  p2.Free;
  p3.Free;
end;

end.

URL

10.06.2010 в 21:53

Izzie

ВЫ ПРОСТО ЧУДО, теперь компилируется и работает без всяких ошибок. спасибо

URL


Запомнить

Создать класс Pair

ru_programming