我做了这些 帕斯卡 </跨度> 。
Proceure Max_Heapify(a:Table; i:longint);var tmp,l,r,k:longint;开始 L:= 2 * I;R:= 2 * I + 1;if(heapsize&gt; = l)和(a [i]&lt; a [l])则k:= l else k:= i;if(heapsize&gt; = r)和(a [i]&lt; a [r …])则k:= r;如果k&lt;&gt;那么 开始 交换(A [1],A [K]); Max_Heapify(A,K); 结束;结束;
我写了这个程序 帕斯卡 </跨度> ,但它似乎无法正常工作,我无法弄清楚有人可以帮我解决什么问题?谢谢 …
你错误拼写了PROCEDURE。 a:表 - 表不是数据类型。