1樓：匿名使用者
program project1;
type
stack=array[1..30]of integer;
vars:stack;
a:string;
t,i,j,k:integer;
procedure push(var s:stack;x:integer;t:integer);
begin
if t=30 then writeln('overflow')else begin t:=t+1;s[t]:=x;end;
end;
function pop(var s:stack;t:integer):integer;
begin
if t=0 then writeln('underflow')else begin pop:=s[t];t:=t-1;end;
end;
begin
read(a);
i:=1;t:=0;
while a[i]<>'@'do
begin
case a[i] of
'0'..'9': begin
k:=0;
repeat
k:=10*k+ord(a[i])-ord('0');
i:=i+1;
until a[i]='.';
push(s,k,t);
end;
'+':push(s,pop(s,t)+pop(s,t),t);
'*':push(s,pop(s,t)*pop(s,t),t);
'-': begin
j:=pop(s,t);
push(s,pop(s,t)-j,t);
end;
'/': begin
j:=pop(s,t);
push(s,pop(s,t)div j,t);
end;
end;
i:=i+1;
end;
write(pop(s,t));
end.
16,17行間少一個end;就是function的end;
2樓：陽光上的橋
語句else begin pop:=s[t];t:=t-1;end; 之後應該再有一個end;結束function pop(var s:
stack;t:integer):integer; 的函式定義，下面的begin已經是主程式了。
程式還有其它小錯誤。
公務員政審通不過，會對以後再考有什麼影響嗎
賁文玉世賦 1 直系親屬，比如父親，有刑事犯罪記錄，如果已經服刑完畢的，那就不會對公務員政審有影響，如果是正在服刑的，那就對公務員政審有影響，不得報考公務員，直到服刑完畢後才可以。另外，要看所犯的是什麼罪，如果是危害 罪的話，那無論怎麼樣都會有影響。還有就是，如果是正在服刑的直系親屬也是對自己的是否...
為什麼我申請廣發信用卡就是綜合審批通不過呢
申請被拒，因為你的資信過低或有不良信用記錄，沒有提供更多的資信財力證明，比如收入證明 車本 房本等 申請廣發信用卡審批不通過，可能是因為不具有以下條件中的某一條或者多條 一 年齡範圍在18至65週歲之間 二 身份證明檔案 1 中國境內居民 二代身份證 軍人證 武警證2 港 澳 居民 港澳地區居民來往...
買車貸款通不過怎麼辦，買車貸款帶不下來是怎麼回事
80後的生活點滴 一 買車貸款通不過說明貸款條件不符合銀行的要求，所以暫時是不能辦理購車貸款的，只能考慮一次性付款或暫時不買車。二 造成汽車貸款審批通不過的原因主要有以下3點 1 首付款 車貸申請，一定要借款人有能力支付汽車貸款的首付款。目前根據規定，借款人至少要擁有汽車總價值百分之三十的自有金額作...