1樓：匿名使用者
福建noip訓練營的吧，同學這樣子怎麼能這樣子搞啊，這才第一天啊
2樓：匿名使用者
福建noip訓練營的吧，同學怎麼能這樣子搞啊，這才第一天啊
3樓：匿名使用者
第一題：
vars:array[1..100000]of longint;
n,k,i,j:longint;
procedure sort(l,r:longint);
vari,j,mid,t:longint;
begin
i:=l;
j:=r;
mid:=s[(l+r)div 2];
repeat
while s[i]mid do dec(j);
if i<=j then
begin
t:=s[i]; s[i]:=s[j]; s[j]:=t;
inc(i); dec(j);
end;
until i>j;
if il then sort(l,j);
end;
begin
readln(n);
for i:=1 to n do read(s[i]);
sort(1,n);
for i:=1 to n-1 do write(s[i],' ');
writeln(s[n]);
end.
4樓：匿名使用者
vars:array[1..100000]of longint;
n,k,i,j:longint;
procedure sort(l,r:longint);
vari,j,mid,t:longint;
begin
i:=l;
j:=r;
mid:=s[(l+r)div 2];
repeat
while s[i]mid do dec(j);
if i<=j then
begin
t:=s[i]; s[i]:=s[j]; s[j]:=t;
inc(i); dec(j);
end;
until i>j;
if il then sort(l,j);
end;
begin
readln(n);
for i:=1 to n do read(s[i]);
sort(1,n);
for i:=1 to n-1 do write(s[i],' ');
writeln(s[n]);
end.快排
freepascal之數學黑洞，Free Pascal 之 數學黑洞
program sxhd var a,i,j,l,k integer begin readln a while a 6174 do begin i a div 1000 j a div 100 mod 10 l a mod 100 div 10 k a mod 10 a1 i 10 j 100 l ...
free pascal 能在win7下執行嗎
free pascal ide可以在windows7作業系統中執行，一般來說，常用的free pascal ide有 free pascal ide 2.6.0，free pascal ide 2.4.0，最近出了free pascal ide 2.6.2 1.開啟free pascal ide快捷...
Visual C 程式設計，Visual C 程式設計
看到上面的回答我無語了 這是很簡單的遞迴演算法 其實說實話我沒有完全理解你的意思。我是這麼理解你的當輸入乙個小於30的數時，顯示你輸入那個數的所有相。當你輸入大於30的數時只顯示前三十相。因為後面的那些相太大如果用int型會溢位，導致輸出會不正常顯示。我的程式如下 include int fib i...