NierTaotao
NierTaotao
苶啊苶
关注数: 16
粉丝数: 24
发帖数: 589
关注贴吧数: 45
这是一串神奇的小尾巴 苶~ ✄ ฌููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููููู็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็็ฏ๎๎๎๎๎๎๎๎๎ฏ๎๎๎
苶吧●外交 虽然我是个很不称职得吧主……甚至懒到传送门都不打…… 但还是希望乃们能来苶吧踩踩 留下爪印
苶 RT
【新年快乐】新年第一贴 2013第一帖是我滴！
咳呀，送切糕了 来签到的来留个爪印啊 送切糕一斤
这个群是干什么用的…… 难道是纯无聊贴吧？
我的一个仅仅是快排的程序怎么编译会出现202错误？ 我查了下202是溢出，但我这个程序怎么会溢出.... program NieKspx; const n=5; var a:array[0..100] of integer; i:integer; procedure Nie(l,r:integer); var i,j,k:integer; begin if l<r then begin i:=l;j:=r; k:=a[l]; repeat while (a[j]>k)and(j>i) do dec(j); if j>i then begin a[i]:=a[j];inc(i);end; while (a[i]<k)and(i>j) do inc(i); if j>i then begin a[j]:=a[i];dec(j);end; until j=i; a[i]:=k; nie(1,j-1); nie(i+1,n); end; end; begin writeln('Input the array'); for i:=1 to n do readln(a[i]); Nie(1,n); writeln('The output:'); for i:=1 to n do writeln(a[i]); readln; end.
本人之新号…… 建议取出格式贴 & 申请把主贴。
1
下一页
