יש לי בעיה קטנה עם רשימה - יש לי שאלה בספר עשיתי אותה טוב(את החלק הראשון, השאלה תופיע בהמשך) אבל החלק שאני מדפיס אותה יש לי לולאה אינסופית שמדפיסה אפסים.

השאלה היא: כתובת תתכנית המקבלת שני מספרים שלמים: איבר ראשון first ומספר איברים num. כל איברי הרשימה הם מספרים שלמים עוקבים, כך שfirst הוא הערך הקטן ביותר.

לדוגמא: first = 5, num=4 תוחזר הרשימה 5,6,7,8

להלן התוכנית:

קוד:

program xyz;

uses wincrt, list2;

var first, num,i,x: integer;

var list: list_type;

p:pos_type;

begin

list_init(list);

p := list_anchor(list);

write('enter first number and border: ');

read(first, num);

for i := first to (first+num) do begin

list_insert(list,p,i);

p:=list_next(list,p);

writeln(i);

end;

list_init(list);

p:=list_anchor(list);

while p <> list_end(list) do begin

list_retrieve(list,p,x);

writeln(x);

list_next(list,p);

end;

end.

אני לא מבין כל כך מה הבעיה. אשמח אם תעזרו.

[br]פורסם בתאריך: 9.05.2007 בשעה 19:06:40

---

נפתר, תודה רבה.

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