היי חבר'ה,
הייתי כאן עם השאלה הזו לפני חודשיים. בניתי תת תכנית הרצתי טבלת מעקב שעבדה לי אבל בכ"ז אני רמגיש שמשהו לא בסדר. אכפת לכם לבדוק? תודה מדובר בטנ"מ מחסנית אני אזכיר את השאלה: קולט מהמשתמש סדרה של תווים,מדפיס את התווים בסדר בו נקלטו עד שמופיע התו @. תו זה אינו מודפס אך גורם להיפוך סדר ההדפסה של התווים בינו ובין ה @ הבא. דוגמא: אם נקלט הדבר הבא: se@tp@emb@re so@gn@ אז יודפס september song והתשובה שבניתי
הייתי כאן עם השאלה הזו לפני חודשיים. בניתי תת תכנית הרצתי טבלת מעקב שעבדה לי אבל בכ"ז אני רמגיש שמשהו לא בסדר. אכפת לכם לבדוק? תודה מדובר בטנ"מ מחסנית אני אזכיר את השאלה: קולט מהמשתמש סדרה של תווים,מדפיס את התווים בסדר בו נקלטו עד שמופיע התו @. תו זה אינו מודפס אך גורם להיפוך סדר ההדפסה של התווים בינו ובין ה @ הבא. דוגמא: אם נקלט הדבר הבא: se@tp@emb@re so@gn@ אז יודפס september song והתשובה שבניתי
Procedure hipooh_mootne(stack:stack_type); Var Ezer,New:stack_type; X:stack_info_type; Begin Stack_init(new); Stack_init(ezer); While not stack_empty(stack) do begin Stack_pop(stack,x); If x<>@ then Writeln(x); Else begin Stack_push(ezer,x); Stack_pop(stack,x); While x<>@ do begin Stack_push(new,x); Stack_pop(stack,x); End; While not stack_empty(new) do begin Stack_pop(new,x); Writeln(x); End; If x=@ then Stack_push(ezer,x); End; End; End;