... until i>= length(s); Insert_ope:=s; end; Function Tinh_ gia_ tri_ bieu_ thuc_ khong_dau_ngoac(s:string) : real; var s:string; begin Tinh_ gia_ tri_ bieu_ thuc_ khong_dau_ngoac:= gtbt(insert_ope(s)); end; ... s1:=copy(s,i+1,pos( ’)’,s)-i-1); delete(s,i,pos( ’)’,s) -i+1; insert(numbertostr (Tinh_ gia_ tri_ bieu_ thuc_ khong_dau_ngoac(s1)),s,i); i:=pos( ’-’,s); end; Tinh_ gia_ tri_ bieu_ thuc_ khong_co_ngoac: =Tinh_ gia_ tri_ bieu_ thuc_ khong_dau_ngoac(s); ... dấu ngoặc (5) Function Numbertostr(r:real):string; var s:string; begin str(r:0:5,s); Numbertotr :=s; end; Function Tinh_ gia_ tri_ bieu_ thuc_ co_ngoac(s:string):real; begin i:=pos(’)’,s); while i>0...