Цитата(volvo @ 22.04.2007 16:47)

Цитата(volvo @ 22.04.2007 16:47)

fraction = object
		num,
		den:integer;
	
		constructor init;
		procedure reduction;
	end;
	
FrRes =object(fraction)
		procedure print;
	end;
{...методы...}
var
	f1,
	f2:fraction;
	FRes:FrRes;

procedure FrRes.subtract(const f1,f2: fraction);
  begin
  num:=f1.num*f2.den-f2.num*f1.den;
  den:=f1.den*f2.den;
  end;

{$mode objfpc}

type
  fraction = object
    num, den: integer;

    constructor create;
    constructor init;

    procedure reduction;
    procedure print;
  end;


constructor fraction.create;
begin end;

constructor fraction.init;
begin
  read(num, den);
  reduction;
end;

procedure fraction.reduction;
var
  a,b,nod:integer;
begin
  a:=num;
  b:=den;
  while (a <> 0) and (b <> 0) do
    if a >= b then a := a mod b
    else b := b mod a;

  nod := a + b;
  num := num div nod;
  den := den div nod;
end;

procedure fraction.print;
begin
  write(num, ' / ', den);
end;

var
  f1, f2: fraction;

operator - (const first, second: fraction) the_result: fraction;
begin
  the_result.create;

  the_result.den := first.den * second.den;
  the_result.num := first.num * second.den - second.num * first.den;
  the_result.reduction;
end;


begin
  f1.init;
  f2.init;

  (f1 - f2).print;
  readln;
end.

f1.init;
f2.init; 
f1.reduction; 
f2.reduction; 

FRes.subtract(f1,f2); //вот
FRes.reduction;  
FRes.print;

operator - (const first, second: fraction) the_result: fraction;

type
    TMyClass = class
    private
        class function GetSingletonObject: TMyClass;
    public
        property SingletonObject: TMyClass read GetSingletonObject;
    end;

unit z;

interface

type
  T = class
  private
    function GetMaxSize: integer;
  public
    property maxSize: integer read GetMaxSize;
  end;

implementation

const
  the_max_size = 20;

function T.GetMaxSize: integer;
begin
  result := the_max_size;
end;

end.

uses z;

var
  obj: T;

begin
  obj := T.create;
  writeln(obj.maxSize);
end.