كيف يتم تحويل الinfix الى Postfix ؟

التحويل من infix notation الى Postfix notation سهل بس يحتاج شغل strings شوي ...بس الاهم هل مطلوب بعد البرنامج يسوي evaluates او لا ؟ اذا يحتاج ذلك فاهذا يحتاج شغل متعب شوي.

تسلم يا أخ خالد عبد الكريم على هذا ردك بالفعل انا محتاجه له

والبرنامج لا يحتاج الى ل evaluates

وانا اعرف مبرمجه مبتدئه وحتاجه الى من يععلمني وكذلك محتاجه البرنامج

بضرورة

شكرا مرة ثانية يا أخ خالد

وأنتظر المساعده ....

العفو اختي ...هذا هو البروسيجر اللي يقوم بالتحويل...

procedure TForm1.InfixToPrefix(S: string);
var sToken,sInput,sStack,stackS,xXpress,skStack,sResult: string;
     xI,IStack,iPos,IInput,StackIput,I: integer;
begin
     sToken := '#-+*/^abcdefghijklmnopqrstuvwxyz0123456789()';
     sInput := '03344599999999999999999999999999999999999992';
     sStack := '03344599999999999999999999999999999999999929';
     xI := 1 - 1;
     IStack := 1 - 1;
     iPos := -1;
     IInput := -1;
     StackIput := -1;
     I := 0;
     IStack := IStack + 1;
     stackS := '#';
     repeat
          xI := xI + 1;
          xXpress := Midstr(S, xI, 1);
          iPos := Pos(xXpress, sToken);
          if (iPos = 0) then
               begin
                  StatusBar1.SimpleText:=xXpress + ' not in Token ' + sToken;
                    Exit;
               end;
          IInput := StrToInt(Midstr(sInput, iPos, 1));
          skStack := Midstr(stackS, 1, 1);
          iPos := Pos(skStack, sToken);
          if iPos = 0 then
               begin
                    StatusBar1.SimpleText:=skStack + ' not found in Token ' + sToken;
                    Exit;
               end;
          StackIput := StrToInt(Midstr(sStack, iPos, 1));
          if IInput > StackIput then
               begin
                    stackS := xXpress + stackS;
               end
          else
               begin
                    repeat
                         skStack := Midstr(stackS, 1, 1);
                         if (skStack <> '(') and (skStack <> ')') then
                              begin
                                   sResult := sResult + skStack;
                              end;

                         stackS := Midstr(stackS, 2, Length(stackS) - 1);
                         skStack := Midstr(stackS, 1, 1);
                         iPos := Pos(skStack, sToken);
                         if iPos = 0 then
                              begin
                                   StatusBar1.SimpleText:=skStack + ' not found in Token ' + sToken;
                                   Exit
                              end;
                         StackIput := StrToInt(Midstr(sStack, iPos, 1));
                    until (IInput > StackIput);
                    stackS := xXpress + stackS;
               end;
     until xI >= Length(S);
     I := 1 - 1;
     repeat
          I := I + 1;
          skStack := Midstr(stackS, I, 1);
          if (skStack <> '#') and (skStack <> '(') and (skStack <> ')')
               then
               begin
                    sResult := sResult + skStack;
               end;
     until I >= Length(stackS);
     Edit2.Text:= sResult;
end;

في المرفقات ملف exe جاهز للتفيذ .

تحياتي

Project1.zip

تعيش وتسلم يداك

على هذه المساعده أتمنى لك التوفيق

وشكرا

الفجر البعيد