text代码片段【snl】(代码片段)

关键词：

program bubble
var integer i,j,num
    array[1..] of integer a;
procedure q(integer num);
var integer i,j,k;
    integer t;
begin
   i:=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 temp:=0
       fi;
     k:=k+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.

text片段(代码片段)

查看详情

text片段(代码片段)

查看详情

text片段(代码片段)

查看详情

text测试片段(代码片段)

查看详情

text主片段(代码片段)

查看详情

text片段沟通(代码片段)

查看详情

text测试片段(代码片段)

查看详情

text生活片段(代码片段)

查看详情

text数学片段(代码片段)

查看详情

text角代码(代码片段)

查看详情

text格式代码(代码片段)

查看详情

text银行代码(代码片段)

查看详情

text获取代码(代码片段)

查看详情

text货币代码(代码片段)

查看详情

text代码管道(代码片段)

查看详情

text银行代码(代码片段)

查看详情

text卷曲代码(代码片段)

查看详情

text代码段(代码片段)

查看详情