计算图的传递闭包Procedure Longlink;VarT:array[1..maxn,1..maxn] of boolean;

正确答案：A
解析：本题考查Java中的运算。首先要清楚，“&&”是逻辑与运算符；“!”是逻辑非运算符；“&”是按位与运算符。按照逻辑运算符“a&&b”是false，“!b”是false，所以c是false。“a及b”是false，所以result是false。要注意区分“&&”和“&”，以及运算符之间的优先级关系，本题虽然没有涉及，但也要作为重点掌握。

正确答案：

 

begin
fillchar(p,sizeof(p),true);
p[1]:=false;
i:=2;
while i<50000 do begin
if p[i] then begin
j:=i*2;
while j<50000 do begin
p[j]:=false;
inc(j,i);
end;
end;
inc(i);
end;
l:=0;
for i:=1 to 50000 do
if p[i] then begin
inc(l);pr[l]:=i;
end;
end;{getprime}

function prime(x:longint):integer;
var i:integer;
begin
prime:=false;
for i:=1 to l do
if pr[i]>=x then break
else if x mod pr[i]=0 then exit;
prime:=true;
end;{prime}

正确答案：

 

begin
fillchar(mark,sizeof(mark),false);
mark[1]:=true; b[1]:=0;{1为源点}
repeat
best:=0;
for i:=1 to n do
If mark[i] then {对每一个已计算出最短路径的点}
for j:=1 to n do
if (not mark[j]) and (a[i,j]>0) then
if (best=0) or (b[i]+a[i,j]<best) then begin
best:=b[i]+a[i,j]; best_j:=j;
end;
if best>0 then begin
b[best_j]:=best；mark[best_j]:=true;
end;
until best=0;
end;{bhf}

正确答案：

 

Begin
Fillchar(t,sizeof(t),false);
For k:=1 to n do
For I:=1 to n do
For j:=1 to n do T[I,j]:=t[I,j] or (t[I,k] and t[k,j]);
End;

正确答案：

 

begin
fillchar(c,sizeof(c),0);
if a[0]>b[0] then len:=a[0] else len:=b[0];
for i:=1 to len do begin
inc(c[i],a[i]+b[i]);
if c[i]>10 then begin dec(c[i],10); inc(c[i+1]); end; {进位}
end;
if c[len+1]>0 then inc(len);
c[0]:=len;
end;{plus}

参考答案：A

正确答案：D
 

正确答案：B
解析：本题考查Java的简单数据类型的变量定义及Java的命名约定。Java中的命名规则中包含如下几条：
  (1)变量名、方法名首单词小写，其余单词只有首字母大写；
  (2)常量完全大写；
  (3)变量命名采用完整的英文描述符，第一个字母小写，任何中间单词的首字母大写。
  Java语言区分大小写。简单数据类型布尔型用boolean表示。布尔型数据只有两个值： true(真)和false(假)。
  经过上述分析可知，选项B和选项C都能正确的定义一个布尔型变量，但是选项C的变量名CANCELED不符合Java中的命名规则，而选项B的变量名符合变量名的命名规则。因此，选项B是符合规范的布尔变量定义语句。
  本题的正确答案是选项B。

正确答案：

 

begin
for i:=1 to n do begin
lowcost[i]:=cost[v0,i];
closest[i]:=v0;
end;
for i:=1 to n-1 do begin
{寻找离生成树最近的未加入顶点k}
min:=maxlongint;
for j:=1 to n do
if (lowcost[j]<min) and (lowcost[j]<>0) then begin
min:=lowcost[j];
k:=j;
end;
lowcost[k]:=0; {将顶点k加入生成树}
{生成树中增加一条新的边k到closest[k]}
{修正各点的lowcost和closest值}
for j:=1 to n do
if cost[k,j]<lwocost[j] then begin
lowcost[j]:=cost[k,j];
closest[j]:=k;
end;
end;
end;{prim}

正确答案：

 

begin
fillchar(mark,sizeof(mark),false);
for i:=1 to n do begin
d[i]:=a[v0,i];
if d[i]<>0 then pre[i]:=v0 else pre[i]:=0;
end;
mark[v0]:=true;
repeat {每循环一次加入一个离1集合最近的结点并调整其他结点的参数}
min:=maxint; u:=0; {u记录离1集合最近的结点}
for i:=1 to n do
if (not mark[i]) and (d[i]<min) then begin
u:=i; min:=d[i];
end;
if u<>0 then begin
mark[u]:=true;
for i:=1 to n do
if (not mark[i]) and (a[u,i]+d[u]<d[i]) then begin
d[i]:=a[u,i]+d[u];
pre[i]:=u;
end;
end;
until u=0;
end;

正确答案：

 

begin
for i:=1 to n do
if a[now,i] and c[i]=0 then begin {对结点I染色}
c[i]:=color;
dfs(I,color);
end;
end;

正确答案：A,D

答案：A

解析：