עבור לתוכן

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

Featured Replies

פורסם

אני אמור להשלים חומר בפסקל , על רשימה (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[

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

דיונים חדשים