登录
立即注册
找回密码
搜索
搜索
本版
文章
帖子
群组
用户
快捷导航
首页
平台介绍
赛事专栏
考级专栏
资源下载
科技前沿
华未云科普平台
»
升学互动
›
竞赛专区
›
信息奥赛专区
›
计算图的传递闭包
返回列表
发帖
计算图的传递闭包
[复制链接]
发表于 2023-12-30 10:17:22
|
显示全部楼层
|
阅读模式
计算图的传递闭包
Procedure Longlink;
Var
T:array[1..maxn,1..maxn] of boolean;
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;
回复
使用道具
举报
返回列表
发帖
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
立即注册
本版积分规则
发表回复
回帖并转播
回帖后跳转到最后一页
快速回复
返回顶部
返回列表