Developing.ru

Код: Выделить всё

const nump = 10;

type
TPoint = record X,Y :D ouble; EqId: Integer; end;
TLineEq = record A,B: Double; refs: Integer; end;

var
I : TPoint;
Pts : Array[1..Nump] of TPoint;
Eqs : Array[1..Nump] of TLineEq;
EqID  : Integer;
NumEq : Integer;

function GetMeEqWithMaxRefCountLessThan(K:Integer):Integer;
begin
// do search max refs count through Eqs which ID <> K and puts it into result
end;

function GetEquationId(var E:TLineEq):Integer;
begin
// Do search through Eqs by E.A, E.B params, if they are identical then result = position, else result = 0;
end;

procedure CreateEquations;
var x, y:Integer; e: TLineEq;
begin
numeq := 0;
For x := 1 to nump do 
  begin
  e.A := .......... // Calc A
  e.B := .......... // Calc B
  e.Refs := 1;
  y := GetEquationID(E);
  If y = 0 then begin; inc(numeq); Eqs[numeq] := E; end
      else inc(Eqs[y].refs);
  end;
end;

begin
Clrscr;
InputPoints;
CreateEquations;
EqID := GetMeEqWithMaxRefCountLessThan(0);
DisplayEquation(Eqs[EqID]);
Eq := GetMeEqWithMaxRefCountLessThan(EqID);
DisplayEquation(Eqs[EqID]);
end;