x的最多有1224个,y最多有2449个 for x := 0 to 1224 do begin for y := 0 to 2449 do begin if 4*x + 2*y = 4898 then memo1.lines.add('x = '+inttostr(x)+'; y = '+inttostr(y)); end end;
4X+2Y=4898-->X = (4898 - 2Y)/4for i:=0 to (4898 div 2) do begin m := 4898 - 2*i; if m mod 4 = 0 then begin //记录一组x,y,此时y=i,x=m div 4 end; end;
4*X+2*Y=N
X:=N div 4;
Y:=(N mod 4) div 2;
for x := 0 to 1224 do
begin
for y := 0 to 2449 do
begin
if 4*x + 2*y = 4898 then
memo1.lines.add('x = '+inttostr(x)+'; y = '+inttostr(y));
end
end;
begin
m := 4898 - 2*i;
if m mod 4 = 0 then
begin
//记录一组x,y,此时y=i,x=m div 4
end;
end;