pascal問題，能不能來個人幫我看看這個程式的錯誤在**？
1樓：網友
最後那個writeln(a[k]),不需要寫，你上面的k多加了乙個，a[k]實際上沒數，直接writeln即可。
2樓：網友
什麼型別的錯誤？是除錯的時候有問題還是輸出的結果不對？
給我乙個最簡單的寬搜程式和題目,pascal語言
3樓：網友
迷宮。 網上有的是。自己搜搜吧。
在pascal里程式怎麼複製自身？
4樓：網友
工具欄中 edit中copy可以。
也可以用：var
n:string;
i:longint;
beginreadln(n);
while i=0 do write(n,'
end.隨便輸，不過小心停不下來。
5樓：網友
const a=';begin write(^##39,a,#39,a)end.';begin write(^##39,a,#39,a)end.
這種程式叫quine,不過這個只能打到螢幕上。。。
6樓：匿名使用者
什麼叫複製自身？
什麼意思啊？聽不懂！
pascal程式幫忙找錯誤
7樓：網友
少寫乙個右括號。
改後程式：var year:0..10000;month,i:1..12;day:1..31;dayth:integer;
beginread(month,day,year);dayth:=0;
for i:=1 to month-1 docase i of
1,3,5,7,8,10,12:dayth:=dayth+31;
2:if((year mod 4=0)and(year mod 100<>0)or(year mod 400=0))then dayth:=dayth+29
else dayth:=dayth+28;
4,6,9,11:dayth:=dayth+30;
end;dayth:=dayth+day;writeln(dayth);
end.
8樓：網友
2:if ((year mod 4=0)and(year mod 100<>0)or(year mod 400 =0)
最右邊少乙個括號。
9樓：邴嘉
case語句體中2：最右側少一括號。
改後應為：2:if ((year mod 4=0)and(year mod 100<>0)or(year mod 400 =0)
魔術師翻牌 pascal問題(追加50)
10樓：後憶柏
你都已經說了這題是佇列問題，那還有什麼問題。。。鄭拆。哪蠢。
只要把魔術師進行的順序完全反過來就可以了：
先把k拿在手裡，然後把q放在最上面，從喊緩棗max開始往1數，q算作max，每數一次就把手中牌組裡的最下面一張放到最上面，數到1時停止，然後再把j放最上面，繼續這個動作。
最後把a放在牌組的最上面。所得的序列就是魔術師最開始的序列。
很容易看出這個佇列其實就是把魔術師表演時的佇列首尾互換得到的佇列。
然後把這個方法簡化一下。
從max開始往1數和從1開始往max數其實是一樣的，並且如果你手裡有n 張牌的話，數max張牌和數max mod n張牌是一樣的。
所以演算法就是，把桌面上剩餘的最大的牌入隊，計數器置1，然後佇列裡的元素依次出隊，入隊，每次入隊都把計數器加1，進行到計數器=max mod n為止（如果max=n就進行到計數器=n），n是佇列中當前的元素總數。把以上過程進行12次，排好k——2的順序，然後把a入隊。
最後把佇列的首和尾互換，就得到13張牌的原始順序。
至於pascal。。。我不會。。。如果一定要**的話我只能用c。。。
而且。。呃。。。小學生怎麼可能會知道佇列這種東西。。。
pascal幫我看看這程式**有問題
11樓：網友
if (a mod i= 0) and (b mod i =0) then qgys:=i;
這一句 改為if (a mod i= 0) and (b mod i =0) then begin qgys:=i;break;end;就行了。
我的pascal程式**錯了?
12樓：網友
第10行： for c:=1 to length(x) do if ord(x[c])>=97 and ord(x[c])<=122有誤。
因為and的級別比》=,<=的級別要高兩級，所以首先執行的是97 and ord(x[c])，顯然，97和ord(x[c])並不是乙個布林型的變數，應改正為。
for c:=1 to length(x) do if (ord(x[c])>=97) and (ord(x[c])<=122)
附錄：pascal運算子優先順序。
一單目運算子 (最高優先順序)
取變數或函式的位址(返回乙個指標)
not 邏輯取反或按位取反。
二乘除及按位運算子。
相乘或集合交集。
浮點相除。div 整數相除。
mod 取模 (整數相除的餘數)
as 程式執行階段型別轉換 (rtti運算子)and 邏輯或按位求和。
shl 按位左移。
shr 按位右移。
三加減運算子。
相加、集合並集、字串連線或指標增加乙個偏移量- 相減、集合差集或指標減少乙個偏移量。
or 邏輯或按位或運算。
xor 邏輯或按位異或運算。
四關係及比較運算子(最低優先順序)
判斷是否相等。
判斷是否不相等。
判斷是否小於。
判斷是否大於。
判斷是否小於或等於，或是否是乙個集合的子集》= 判斷是否大於或等於，或是否是乙個集合的父集in 判斷是否是集合成員。
is 判斷物件是否型別相容 (又乙個rtti運算子)
女孩們看一下關與選擇男友的問題
真愛是建立在物質基礎之上的。錢不要太多 至少和我的經濟條件差不多。不可能不說沒有的，基本的生活如果能解決，那就是平凡地過。如果連基本都不能解決，兩人過日子時想吃什麼想換新衣想過節各方面都要錢，如果這些都沒有，兩人都會每天貧民夫妻百日哀，要是兩個在一起就會想給對方買東西，這點要求達不到時，隨時都會把一...
大家來討論一下春運的話題吧，誰幫我想一下關於春運的議論文。。。800字左右。很急
其實我是這麼想的，要是大家都能在老家安居樂業，不用到外面打工，到了春節就不用坐車就直接在老家可以同家人一起過節了，而這個在現在兩極分化，地區發展不平衡日益惡劣的中國是不可能的，很多人到外打工都是迫不得已，都是因為發展不平衡，在老家賺不到錢迫不得就背井離鄉，到了春節又要買不到車票回家。若是國家現在就能...
解答一下關於聯通套餐變更的問題,解答一下關於聯通新勢力套餐問題？
組合 bai在沒有欠費，不是停機狀態，du 是當月可以多次變zhi更其dao他檔次的 以版最後一次為準，如因系統等權原因無法再次操作，5月份是4g全國 在沒有欠費，不是停機狀態下，且沒有任何合約限制情況下也是可以再次轉回4g組合 的。一般新開戶的卡，當月是不支援變更 的，即你4月份變更的4g全國 不...