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度,羊肉塊逐個插在竹籤上,正反兩面...