noip（pascal）普及組2007第一題
1樓：網友
lz，有沒有搞錯，是2006的吧！是不是明明的隨機數，是的話，我告訴你。
你的這種排序我在書上見過，但我一般不用這種排序。
我的程式如下：
var n,i,j,t,s:longint;a:packed array[1..10000] of integer;
beginreadln(n);for i:=1 to n do read(a[i]);s:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;
for i:=2 to n do if a[i]=abs(a[i-1]) then a[i]:=-a[i];
for i:=1 to n do if a[i]>0 then inc(s);writeln(s);
for i:=1 to n do if a[i]>0 then write(a[i],' ');writeln;
end.至於你的錯誤，如下：
1：你的排序過程s，在主程式中沒有呼叫，陣列沒有進行排序。
2：你怎麼讀入了兩次n。
3：主程式第7行，for迴圈語句到n-1就可以了，因為下面if語句中用到了i+1。
總之你這麼做不行，你的風格和思路和我的不太一樣，所以有可能改錯，這一點請見諒，但我的程式絕對正確，而且是我自己寫的，你可以拿去參考一下。
2樓：網友
少乙個end。。。
最後那裡應該改成：
if a[i]<>1 then write(a[i],' ')比較好。。
求noip2007普及組pascal語言試題
3樓：網友
今天才剛開始考 哪來題目啊？
守望者逃離 pascal 2007noip普及組第三題
4樓：網友
你可以看看我的 思路幾乎和你一樣 看你的程式 應該是在for 中的else 判斷有點沒考慮全 估計是m小於3的時候。
varm,s,f,t,time,i:longint;
k:boolean;
begink:=false;
readln(m,f,time);
s:=f;t:=time;
while (m>=10)and(t>0) do
beginm:=m-10;
dec(t);
s:=s-60;
if s<=0 then begin k:=true; writeln('yes'); writeln(time-t); break;end;
end;if (not(k)) and (t<=0) then begin k:=true;writeln('no');writeln(f-s);end;
if not(k) then begin
while (t>0) and (s>0) do
beginif (m<=1) and (s>119) and (t>=7)
then begin
t:=t-7;
s:=s-120;
endelse
if (t>=2) and (m>=6) and (s>34)
then begin
t:=t-2;
m:=m-6;
s:=s-60;
endelse
if (t>=3) and(m>=2) and(s>51)
then begin
t:=t-3;
m:=m-2;
s:=s-60;
endelse
begindec(t);
s:=s-17;
end;end;
if s<=0 then if t>=0 then begin writeln('yes'); writeln(time-t);end
else begin writeln('no');writeln(f-s);end
else begin writeln('no');writeln(f-s);end;
end;end.
5樓：網友
你最好用動規+高精度。
pascal回溯pascal回溯
var a array 1.20,1.20 of integer s set of 1.20 min,sum,n,i,j integer procedure work r integer var i integer begin for i 1 to n do if not i in s then b...
Pascal詳解 指標型別 ，pascal所有資料型別
第十一章 指標型別 11.1 指標 11.2 單鏈表 11.1 指標 指標是通過位址來訪問變數的一種特殊的資料型別，屬於動態的資料結構，它可以在需要時產生，用完後則又可以取消或 以減少占用的記憶體空間。指標變數與其他型別的變數不同，它占有的不是資料，而是位址。由於動態資料結構的變數是在程式執行過程中...
pascal問題求解
隻數 n x div 4 x mod 4 0,1,2,3 0元 全4元的 1元 乙隻5元的 2乙隻元6元 3元乙隻5元的,乙隻元6元，4元的 n 2，程式在下面，錢太少會有1 3元剩餘的！7元有1元剩餘，3 1元,買不起鋼筆全是剩餘的 program pen x var n4,n5,n6,x int...