{冒泡排序}
{输入m,表示要排序的数的个数；接着输入m个整数；
输出从小到大排序后的结果}
program p
var integer i,j,num;
array[1..20] of integer a;
procedure q(integer num);
var integer i,j,k;
integer t;
begin
i:=1;
j:=1;
while i < num do
j:=num-i+1;
k:=1;
while k<j do
if a[k+1] < a[k]
then t:=a[k];
a[k]:=a[k+1];
a[k+1]:=t
else t:=0
fi;
k:=k+1
endwh;
i:=i+1
endwh
end
begin
read(num);
i:=1;
while i<(num+1) do
read(j);
a[i]:=j;
i:=i+1
endwh;
q(num);
i:=1;
while i<(num+1) do
write(a[i]);
i:=i+1
endwh
end.
snlc编译器 c java
5星 · 超过95%的资源 需积分: 11 87 浏览量
2008-09-28
14:42:50
上传
评论 1
收藏 1.29MB RAR 举报 
snlc编译器 c java （363个子文件） 
chszsj43.chh 200B Opt.class 20KB Opt.class 18KB Opt.class 17KB Gongg.class 16KB Recursion.class 16KB AnalYuyi.class 15KB Const.class 14KB Recursion.class 13KB Recursion.class 13KB Recursion.class 13KB AnalYuyi.class 13KB Recursion.class 13KB Recursion.class 13KB Recursion.class 13KB Recursion.class 13KB AnalYuyi.class 13KB Recursion.class 13KB AnalYuyi.class 13KB Xunh.class 13KB AnalYuyi.class 13KB AnalYuyi.class 13KB AnalYuyi.class 13KB AnalYuyi.class 13KB Translator.class 13KB Target.class 11KB Target.class 11KB Midcode.class 10KB compiler.class 6KB CreatToken.class 5KB Mywindow.class 1KB MyWin.class 1KB XWindow.class 921B TreeNode.class 799B TreeNode.class 785B TreeNode.class 777B MyWindow.class 757B TreeNode.class 745B TreeNode.class 741B TreeNode.class 723B TreeNode.class 720B TreeNode.class 712B TreeNode.class 711B Mywindow$1.class 590B XWindow$1.class 586B ValuNum.class 581B ValuNum.class 544B ValuNum.class 528B ValuNum.class 525B MyWin$1.class 509B MyWindow$1.class 508B Attr.class 493B ConstDefT.class 491B AttributeIR.class 487B MyWindow$CloseWin.class 485B Attr.class 485B Attr.class 480B FieldChain.class 478B AttributeIR.class 477B AttributeIR.class 471B SymbTable.class 470B FieldChain.class 470B FieldChain.class 465B Attr.class 463B Attr.class 463B Attr.class 462B SymbTable.class 462B ConstDefT.class 460B SymbTable.class 457B CodeFile.class 453B Attr.class 450B AttributeIR.class 449B ConstDefT.class 448B FieldChain.class 448B AttributeIR.class 447B FieldChain.class 447B Attr.class 447B UsableExpr.class 445B Attr.class 445B CodeFile.class 445B ConstDefT.class 445B SymbTable.class 440B ChainNodeType.class 440B CodeFile.class 440B SymbTable.class 439B FieldChain.class 435B AttributeIR.class 433B ChainNodeType.class 432B FieldChain.class 432B AttributeIR.class 430B FieldChain.class 430B FieldChain.class 429B ParamTable.class 429B SymbTable.class 427B ChainNodeType.class 427B AttributeIR.class 426B AttributeIR.class 425B SymbTable.class 424B CodeFile.class 423B UsableExpr.class 422B共 363 条
- 1
- 2
- 3
- 4
资源评论
qq_278516592015-12-02好的学习资料，谢谢··~~- linyu_20132012-04-17挺不错的，功能比较齐全！
