在 pascal 中找到堆疊中編寫的四個操作

新增劑結構：

d:=d+k;

呼叫減法結構：

d:=d-k;

呼叫乘法結構：

d:=d*k;

呼叫部門結構：

d:=d/k;

如果你在談論遞迴，請打電話，然後寫給你。

樓上，留下QQ

其他人都問過了，我就不抄別人的東西了，這個**，看看，

實現堆疊的：

procedure dg;

varch:char;

beginif not eoln then begin if not 在行尾 read（ch）; 讀入 ch

dg;轉到下乙個位置。

write(ch);其餘的都是輸出，輸出在這個位置。

end;end;

begindg;writeln;

end.Array 模擬堆疊的：

varstack:array[1..10000]of char;堆疊陣列就是堆疊。

i,n:longint;n 表示字串的長度。

beginn:=0;

雖然不是 eoln do begin 公司（n）; 增加長度。

read(stack[n]);

end;readln;

for i:=n downto 1 do write(stack[i]);由於堆疊是先進後出的，因此它從最後一位 n 向後輸出到 1。

writeln;

end.

1.不。 只是堆疊的操作有這些，需要你自己編寫，以後所有的資料結構都是這樣，沒有已經定義的函式。 （你下面有偽函式，用人類語言描述。

沒有 telement、elemtp、queueptr 等關鍵字。 這只是偽**。

這些僅表示資料型別，這意味著您可以使用陣列、指標等資料型別實現此資料結構。

==你可以去這個**學習資料結構，裡面有更多的中文解釋，而且更詳細*************************====如果你對演算法和資料結構有任何疑問可以加我百度

1。不。

這些只是堆疊支援的操作的指令，您必須自己編寫它們。 這些行動將根據情況而有所不同。

2.那是偽**，elemtp，queuetr 只是表示一種資料型別。

ELEMTP 是指標範圍的資料型別，因主題而異。

queuetr 是指標，前面已經定義過了，queueptr= queuenode;

typequeueptr=^queuenode;將 queuetr 定義為指標型別。

queuenode=record

data:elemtp;

next:queueptr;下乙個欄位也是指標型別，因此指標儲存在鏈狀結構中。

end;linkedquetp=record

front,rear:queueptr;將前部和後部定義為指標型別。

end;

1.這些函式不能直接呼叫，需要自己定義函式

過程 inistack（var s：tstack），如文中所示; begin

end;2.它是偽**。

補充部分：以下老師原話：

inistack（s） gettop（s） pop（s） push（s，x） empty（s） 這5個函式可以直接使用嗎？

這五個功能不應該直接使用，應該首先實現。

Telement elemtp 只是乙個代號，使用時會被特定型別取代。

queueptr 是什麼意思？

是指向 queueNode 的指標的型別。

yfj:31:51

element type 表示佇列節點的型別。

根據問題，選擇不同型別的替換。

yfj:33:07

也就是說，這只是乙個代號，而不是乙個可執行程式，當你真的想使用它時，選擇正確的型別。

yfj:33:58

queueptr 是什麼意思？

是指向 queueNode 的指標型別。

繼續諮詢老師......

最好在陣列中定義它，這可以通過過程來完成。

保證“先進先出、後進後出”的原則就足夠了。

建議使用陣列模擬堆疊的實現，這樣堆疊可以非常大，直接遞迴。

差不多就是這樣。

但是，它不能用於常規檢查。

如果你談論的是資料結構的“堆疊”，只需使陣列變大，如果它是“遞迴堆疊”，它與你的機器的效能直接相關。

樓上的這種方法在比賽期間不可用。

在程式頂部鍵入一行。

x 不是字母。

是乙個數值。

尺寸由您自己設定。

一般來說，在NOIP比賽中，“堆疊”是不能開啟的。