... 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...