Pascal二元一次方程组整数解代码
pascal吧
全部回复
仅看楼主
level 11
John_Steve_C 楼主
var
x,y:longint;
begin
for x:=-10000 to 10000 do
for y:=-10000 to 10000 do
if (方程1) and (方程2) then
begin writeln(x,' ',y); halt: end;
writeln('wujie');
end.
2016年09月03日 13点09分 1
level 11
John_Steve_C 楼主
求大神改进[呵呵]
2016年09月03日 13点09分 2
level 9
这tm是暴力吧[滑稽],大多数情况100%超时[滑稽][滑稽]
2016年09月03日 13点09分 3
自己运行时就5秒左右[滑稽]
2016年09月03日 13点09分
@John_Steve_C 这就尴尬了[滑稽]
2016年09月03日 14点09分
@John_Steve_C 然而显示生活中还有实数的存在,有种你去循环实数[滑稽]
2016年09月03日 14点09分
@John_Steve_C 规定时间1秒左右[滑稽]
2016年09月03日 14点09分
level 1
Cramer法则[滑稽]
2016年09月04日 11点09分 4
1