您所在位置：主题：[讨论]“架设桥梁”问题
feibird
[专家分：0] 发布于 2007-11-25 11:06:00
2007年赣州市青少年计算机奥林匹克竞赛上机试题，第七题“架设桥梁”问题
这个题目我是找规律算出来的，不知道对不对，大家还有没有其他的算法？
PROGRAM BRIDGE;
VAR
m,n,i,j,s:integer;
procedure jif(j:integer; var s:integer);
var k,w:integer;
begin
k:=j div 2; w:=j mod 2;
s:=(k-1)*(2+k)-k+w*k+2;
end;
begin
m:=2; readln(n);
if n<0 then writeln('input error')
else if (n>=0) and (n<=1) then m:=0
else if n=2 then m:=2
else jif(n,m);
writeln('m=',m);
end.
其中N是城市个数，M是假架设桥梁数的最大值
这个题目我是找规律算出来的，不知道对不对，大家还有没有其他的算法？
PROGRAM BRIDGE;
VAR
m,n,i,j,s:integer;
procedure jif(j:integer; var s:integer);
var k,w:integer;
begin
k:=j div 2; w:=j mod 2;
s:=(k-1)*(2+k)-k+w*k+2;
end;
begin
m:=2; readln(n);
if n<0 then writeln('input error')
else if (n>=0) and (n<=1) then m:=0
else if n=2 then m:=2
else jif(n,m);
writeln('m=',m);
end.
其中N是城市个数，M是假架设桥梁数的最大值
