易语言,请每十分钟提醒我一次

58 篇文章 0 订阅
7 篇文章 0 订阅

我在魅族论坛一直潜水,上月底才注册,仅偶尔回复过几个贴子,属于论坛中的“魅族新人”。

我刚刚写一个篇文章(争抢M8内测名额,你够资格吗?兼谈测试要求),急需发表到魅族论坛上,可是魅族论坛对新人发贴有限制,只有积分在 60 以上才能发表主题贴。我现在只有 38 分,每回复一次得 1 分,需灌水 20 多次才能得到发表主题贴的资格。偏偏魅族论坛对回复贴子也有限制:每次回复必须至少间隔 10 分钟。

看来又要易语言出马了,每十分钟提醒我一次,我去灌灌水,哈哈。

程序太简单了,两行代码搞定:

我这是纯手工灌水,又不是程序自动发贴,J.Wong 应该不会封我的号吧:),我的帐号不是 liigo

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 3
    评论
以下是一个简单的易语言拓扑排序源码: ``` '定义节点数据结构 Type Node Name As String * 10 '节点名称,最多10个字符 InDegree As Long '入度 End Type '定义边数据结构 Type Edge StartNode As Long '起点 EndNode As Long '终点 End Type '定义节点数组和边数组 Dim Nodes(100) As Node '最多100个节点 Dim Edges(100) As Edge '最多100条边 '定义拓扑排序函数 Sub TopoSort() '初始化入度 For i = 1 To NodeCount Nodes(i).InDegree = 0 Next i '计算入度 For i = 1 To EdgeCount Nodes(Edges(i).EndNode).InDegree = Nodes(Edges(i).EndNode).InDegree + 1 Next i '初始化队列 Dim Queue() As Long '定义动态数组作为队列 Dim Front, Rear As Long '定义队头和队尾指针 Front = 1 Rear = 0 '将入度为0的节点入队 For i = 1 To NodeCount If Nodes(i).InDegree = 0 Then Rear = Rear + 1 Queue(Rear) = i End If Next i '开始拓扑排序 While Front <= Rear '队列非空 Dim NodeIndex As Long '定义节点索引变量 NodeIndex = Queue(Front) '取出队头节点 Front = Front + 1 '队头指针后移 Print Nodes(NodeIndex).Name '输出节点名称 For i = 1 To EdgeCount '遍历所有的边 If Edges(i).StartNode = NodeIndex Then '如果起点是当前节点 Nodes(Edges(i).EndNode).InDegree = Nodes(Edges(i).EndNode).InDegree - 1 '入度减1 If Nodes(Edges(i).EndNode).InDegree = 0 Then '如果入度为0 Rear = Rear + 1 '入队 Queue(Rear) = Edges(i).EndNode End If End If Next i Wend End Sub '测试程序 NodeCount = 5 '节点数 EdgeCount = 7 '边数 Nodes(1).Name = "A" Nodes(2).Name = "B" Nodes(3).Name = "C" Nodes(4).Name = "D" Nodes(5).Name = "E" Edges(1).StartNode = 1 Edges(1).EndNode = 2 Edges(2).StartNode = 1 Edges(2).EndNode = 3 Edges(3).StartNode = 2 Edges(3).EndNode = 3 Edges(4).StartNode = 2 Edges(4).EndNode = 4 Edges(5).StartNode = 3 Edges(5).EndNode = 4 Edges(6).StartNode = 3 Edges(6).EndNode = 5 Edges(7).StartNode = 4 Edges(7).EndNode = 5 TopoSort '调用拓扑排序函数 ``` 这个源码实现了一个简单的拓扑排序算法,用于解决有向无环图中的任务调度问题。它通过计算每个节点的入度,并将入度为0的节点入队,然后依次取出队头节点并输出其名称,同时将与该节点相连的边的终点节点的入度减1,并将入度变为0的节点入队,直到队列为空为止。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值