... 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); ... end; end; 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)); ... 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 begin repeat dec(i);...
... Trng i hc Thu li Trnh Minh Th, Nguyn Cụng Mn, Hong Vit Hựng, Nguyn Hng Nam, Phm Huy Dng, Nguyn Quang Tun (2006), Nghiờn cu thit k, xut gii phỏp thi cụng cc cỏt x lý nn t yu cỏc cụng trỡnh thy...