上一页 1 ··· 53 54 55 56 57 58 59 60 61 ··· 91 下一页
摘要: //以下依次是冒泡、选择、插入排序 var n,i:longint; a:array[0..20] of longint;procedure BUB;var i,j,t:longint;begin for i:=1 to n-1 do for j:=1 to n-i do if a[j]>a[j+1 阅读全文
posted @ 2016-10-20 13:11 KYRIE`RUSSAL 阅读(123) 评论(0) 推荐(0)
上一页 1 ··· 53 54 55 56 57 58 59 60 61 ··· 91 下一页