PASCAL רשימה - צריך עזרה. (בפתר! פתרון בפנים)

[david32]

אני אמור להשלים חומר בפסקל , על רשימה (LIST) עכשיו השלמתי בערך ואני צריך לכתוב תוכנה קצרה הבעיה היא שאני ממש לא מצליח.

המשימה הראשונה:

כתוב תוכנית שתכיל שתי פרוצדורות:

1. בונה רשימה לפי קלט משתמש.

2. מדפיסה את הרשימה.

אני ניסיתי לכתוב תוכנית שעושה את שני הפרוצדורות הנ"ל רק שהם לא יהיו פרוצדורות (זאת אומרת שכול מה שהתוכנית תעשה זה לקלוט רשימה ואז להדפיס אותה)

הבעיה היא שממש לא הלך לי הכנסתי את הקלט הבא:

1

2

וזה הדפיס לי

268

ואמר (בבדיקה שעשיתי לפני ההדפסה שהרשימה ריקה - אחרי שניסיתי להכניס בה את הקלט)

מישהו יכול לעזור ולכתוב תוכנית שתעשה את זה - ככה אני אבין מה הולך ואיך משתמשים בכלל בפקודות ואז אני אוכל לפתור את שאר הבעיות לבד (בתקווה)

[מצטער שאני לא מוסיף את התוכנה שרשמתי אבל זה כי התעצבנתי וסגרתיאת החלון בלי לשמור]

תודה

______________________________________________________________________________

 
program listexe1;

uses list1, wincrt;

var
l:list_type;

procedure bulid_list(m: list_type);
var
p: pos_type;
y: list_info_type;
ans: char;
begin
   p:=list_anchor(m);
   writeln('do you want to add a number? y/n');
   readln(ans);
   while (ans='y') do
      begin
        writeln('enter number:');
        readln(y);
        list_insert (m,p,y);
        writeln('do you want to add a number? y/n');
        readln(ans);
      end;
end;

function how_many(m: list_type):integer;
var
p: pos_type;
counter: integer;
begin
   counter:=0;
   p:=list_anchor(m);
   p:=list_next(m,p);
   while (p<>nil) do
      begin
        counter:=counter+1;
        p:=list_next(m,p);
      end;
  how_many:=counter;
end;

begin
   list_init (l);
   bulid_list(l);
   writeln('how many numbers in the list: ',how_many(l));
   readkey;
end.
]/CODE[