| נשלח בתאריך: 11 February 2006 בשעה 11:38 | | IP רשוּם
|
|
|
|
שלום, אני חדש כאן, ודי צר לי לכתוב פה לראשונה עם בקשה לעזרה, אז סליחה =)
אוקיי, כחלק מעבודה במחשבים ניתנה לנו קטע תוכנית לעבוד עם רשימה ועם מצביעים. הקטע ארוך למדי ומכיל סעיפים רבים, אבל אני אעתיק לכאן את החלק העיקרי שלא עובד (כול שאר הקטעים בנויים על אותו עיקרון ככה שאני מקווה שזה יפתור את כל שאר הבעיות).
מטרת הקטע: למצוא את המספר המקסימאלי ברשימה.
קוד:
function maximum(list:list_type):real;
var
temp,max:list_info_type;
endd,p,t:pos_type;
begin
p:=list_anchor(list);
p:=list_next(list,p);
list_retrieve(list,p,max);
endd:=list_end(list);
while ((list_next(list,p))<>endd) do
begin
list_next(list,p);
list_retrieve(list,p,temp);
if temp > max then
max:=temp;
end;
maximum:=max
end; |
|
|
כשאני מריץ את התוכנית הקטע נתקע לי בלולאה שם, ורץ עד אינסוף... אין לי מושג למה. יצרתי רשימה חדשה קודם לכן, והזנתי פנימה נתונים, ועדיין לא ברור לי מדוע זה לא עובד .
תודה רבה מראש,
דרור
|
נושאים פעילים
רשימת משתמשים
חיפוש
עזרה
הרשמה
התחברות
UnderWarrior Forums : 
תיכנות
