I am sorry for my previous posted code.
The solution is more simple than everything.
Have n solutions to solve easy way with:
Part_Per_Sailors( n ) = 1204 * n - 820
Amount_ Initial( n ) = 15625 * n - 12504
Is it the ultimate?
What's the next steep?
procedure TForm1.B1Click(Sender: TObject);
var
n: integer;
begin
StringGrid1.Cells[ 0, 0 ]:= 'Solution';
StringGrid1.Cells[ 1, 0 ]:= 'AmountInitial';
StringGrid1.Cells[ 2, 0 ]:= 'FinalQuote/Sailors';
StringGrid1.AutoAdjustColumns;
for n:= 1 to 10 do { Ten initial solutions }
begin
StringGrid1.Cells[ 0, n ]:= IntToStr( n );
StringGrid1.Cells[ 1, n ]:= IntToStr( 15625 * n - 12504 );
StringGrid1.Cells[ 2, n ]:= IntToStr( 1024 * n - 820 );
end;
end;