pascal 符串的處理,PASCAL 字串的處理

2021-12-23 10:01:43 字數 1762 閱讀 2362

1樓:

好啊,我是oier哦,這個顯然很簡單。

const

fuhao=['+','-','*','/','^'];

kuohao=['(',')'];

varst,s1:string;

function ji(ch:char):integer;

begin case ch of '+':ji:=1;'-':

ji:=1;'*':ji:

=2;'/':ji:=2;'^':

ji:=3;end;end;

function geti(st : string; i : longint) : longint;

var t:longint;

begin

t :=1;

while t <> 0 do begin

inc(i);

if st[i] = '(' then inc(t);

if st[i] = ')' then dec(t);

end;

geti:=i;

end;

function va(s:string):longint;

var min,i,code:longint;

begin min:=0;

val(s,va,code);

if code=0 then exit;

for i:=1 to length(s) do begin

if s[i] in fuhao then if min=0 then min:=i

else if ji(s[i])<=(ji(s[min])) then min:=i;

if s[i]='(' then begin str(va(copy(s,i+1,geti(s,i)-i-1)),s1);

delete(s,i,geti(s,i)-i+1);

insert(s1,s,i);

va:=va(s);

exit

end;end;

case s[min] of

'+':va:=va(copy(s,1,min-1))+va(copy(s,min+1,length(s)));

'-':va:=va(copy(s,1,min-1))-va(copy(s,min+1,length(s)));

'*':va:=va(copy(s,1,min-1))*va(copy(s,min+1,length(s)));

'/':va:=va(copy(s,1,min-1)) div va(copy(s,min+1,length(s)));

'^':va:=round(exp(va(copy(s,min+1,length(s)))*ln(va(copy(s,1,min-1)))));

end;

end;

begin

readln(st);

writeln(va(st));

end.

2樓:匿名使用者

1. 樓上的回答才是 「太爛了」

2. 這不是一句話能說得明白的,請看一下演算法語言有關的章節(算術表示式)

3樓:匿名使用者

恰好我以前編了一個:(好像是去年編的

基本上符合要求..(但對判斷是否有非法字元支援不夠好)

4樓:匿名使用者

這種東西應該自己練習才對

輸入字串以回車符為結束,刪除其中的所有的e字母(包括大

include int main continue i i 1 printf s n s return 0 c語言中輸入一個字串,將字串中大寫字母刪除後,輸出該新字串。做一陣列 迴圈 用指標每個都判斷 把小寫字母填充到空字串裡 如下 你自己加上必要的標頭檔案吧 int main char resul...

化太歲錦囊裡的太歲符卡用過後如何處理?是卡片似多!

那個東西有用沒,我明年本命年。在寺院 合一點金紙燒了。化太歲錦囊,太歲符怎麼用,要注意什麼 奉請太歲錦囊 太歲符是一件莊嚴神聖的事情,既請之則敬之。化太歲錦囊 太歲符可以放在提包裡 書包內,衣櫃裡,床頭櫃裡,枕頭下面,辦公桌裡等地方。也可安放在車裡以保平安。使用化太歲錦囊 太歲符需要注意勿將其置於汙...

如何烤羊肉串,烤羊肉串之前是怎樣處理羊肉的

材料羊肉,洋蔥,鹽,孜然,辣椒 做法1.孜然加幹辣椒炒出香味,顏色稍變深 2.把炒香後放涼的孜然和幹辣椒打成粉或者用蒜臼搗成粉備用3.竹籤用冷水泡透,羊肉洗淨 4.羊肉肥瘦分開切塊 5.洋蔥半個切小塊,倒入適量清水,放羊肉塊浸泡半小時以上,撈出瀝水6.烤箱預熱220度,羊肉塊逐個插在竹籤上,正反兩面...