Bài toán tính giá trị biểu thức
... 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; ... Function Head(s:string;c:char):string; { hàm trả về chuỗi đứng trước dấu c đầu tiên } begin Head:=copy(s,1,pos(c,s)-1); end; Function Tail(s:string;c:char):string; { hàm tr...
Ngày tải lên: 07/09/2012, 10:55