אתגר בפסקל

[ברנדל]

וכן

בשביל הקומבינה הזו הייתי הופך הכל ל string לפני.

 

[vinney]

stack, אולי?

אפשרי גם, למרות שזה בגדול דומה לפתרון של אורי עם המחרוזות.

 

[Skate And Destroy]

אני חושבת שיש לי פיתרון....

אבל לא הרצתי אותו ככה שיש מצב שהוא גם לא נכון...יש ביקוש לתשובה?

 

[גל ישראלי]

יש ביקוש../images/Emo70.gif אבל עכשיו זה מאוחר מדי.

עוד רבע שעה אני יוצא למתכונת...וקיוויתי שהתרגיל הזה יהיה איתי במחברת, אבל אני לא הצלחתי- ואתם לא הייתם פה בזמן הנכון

לא נורא- יהיה טוב גם בלי זה (זה לא שאני על ממוצע גרוע בפסקל...בכלל לא)

 

[גל ישראלי]

טוב די....אני מנסה את מזלי וכותב

תוכנית:

Function Nice_Num (num:integer):boolean; var flg:boolean; st,st2:string; i,count,x:integer; begin count:=1; flg:=true; str(num,st); {מקווה שהתחביר נכון- ואם לא- אני הופך הכל למחרוזת} x:=pos('.',st); st2:=copy(st,1,x-1); delete(st,1,x); if length(st)<>length(st2) then flg:=false else for i:=length(st) downto 1 do begin if st<>st2[count] then flg:=false; count:=count+1; end; Nice_Num:=flg; End;​

 

[אוֹריארד]

משעשע...../images/Emo26.gif

לקחת את חוסר הבהירות של ויני ואת חוסר היעילות שלי - ושילבת ביניהם...

 

[vinney]

אל תהיה רשע ../images/Emo22.gif

 

[גל ישראלי]

שתיים זה תמיד ביחד ../images/Emo3.gif

בוא נגיד ככה-> זה נכון? זה עובד? אז שקט!