רשימת הודעות בפורום

צמק נלנ םורופ

םורופה להנמ תעדוהל

תועדוה
(דומעה שארב תועיפומ םורופב תונורחאה תועדוהה)

תועדוהה לכ תא רוגס

תועדוהה לכ תא חתפ

(14:53 04/05/02) ינדימה רהוז לטילו הליה

(16:04 04/05/02) תוטטומתה ףס לע הליה ...המכח יפוי

(18:31 04/05/02) רימע הינטו ודיע [ת"ל]

לק הז לקספ

(21:57 04/05/02) רימע ודיע .הככ ?המל

unit Queue;

interface
Uses list2;
(*------------------------------------------------*)

Type
Tor = list_type;

(*------------------------------------------------*)

procedure tor_init(var Q : list_type);
(* Initialize s to be an empty queue. *)

function tor_empty( Q : list_type) : boolean;
(* Returns TRUE if queue is empty, FALSE otherwise. *)

procedure tor_push(var Q : list_type; x : list_info_type);
(* Place item x in queue end. *)

tor_pop(var Q : list_type; var x : list_info_type);
procedure
item in stack head to x, and remove it from the stack. *)
(* Move the
s is not empty *)
(* Assumption:

procedure tor_top( Q : list_type; var x : list_info_type);
item in stack head to x, without changing the stack *)
(* Copy the
s is not empty *)
(* Assumption:

implementation

procedure tor_init(var Q : list_type);
begin
list_init(Q);
end;

function tor_empty( Q : list_type) : boolean;
begin
tor_empty:=list_is_empty(Q);
end;

procedure tor_push(var Q : list_type; x : list_info_type);
Var
end_of_line: pos_type;
begin
end_of_line:=list_end(Q);
end_of_line:=list_prev(Q, end_of_line);
list_insert(Q, end_of_line, x);
end;

tor_pop(var Q : list_type; var X : list_info_type);
procedure
Var
Y:pos_type;
begin
y:=list_anchor(Q);
y:=list_next(Q, y);
list_retrieve(Q, Y, x);
list_delete(Q, Y);
end;

procedure tor_top( Q :list_type; var x :list_info_type);
Var
y:pos_type;
begin
y:=list_anchor(Q);
y:=list_next(Q, Y);
list_retrieve(Q, Y, x);
end;

begin
(* No initialization needed *)
end.

Program Ex1;
Type
Dept = (Milk, Elec, Meet);
Objects = Record
ObjCode:LongInt;
ObjName:String;
ProviderCode:LongInt;
case ObjDept:Dept of
Milk: (Fat:byte;
Bio:Boolean);
Elec: (Watt:Byte);
Meet: (MeetType:String;
Fresh: Boolean);
End;

Var
ObjData: File of Objects;
Rec: Objects;
Cont:Boolean;
ObjDept: integer;
Continue, BioChk, FreshChk: Char;
Begin
Assign (ObjData, 'ObjData1.dat');
ReWrite (ObjData);
Cont:=True;

While Cont do
Begin
WriteLn ('What is the item code? ' );
Readln ( Rec.ObjCode);
WriteLn (' what is the item name? ' );
ReadLn (Rec.ObjName);
WriteLn (' what is the item provider code? ' );
ReadLn (Rec.ProviderCode);
WriteLn (' which department does the item belong to? ' );

WriteLn (' For milk press 1');
WriteLn (' For electricity press 2' );
WriteLn (' For Meet press 3' );
Readln (ObjDept);
Case ObjDept of
1: Begin
Rec.ObjDept:=Milk;
WriteLn(' How much fat is there on the item? ' );

ReadLn (Rec.fat);
WriteLn(' is it a bio product? Y/N' );
Readln (BioChk);
If ((BioChk='y') or (BioChk='Y')) then
Rec.bio:=True
Else
Rec.bio:=False;
End;
2: Begin
Rec.ObjDept:=Elec;
Writeln (' How much Watt does the product uses? ' );

Readln (Rec.Watt);
End;
3: Begin
Rec.ObjDept:=Meet;
WriteLn (' What is the meet type? ' );
ReadLn (Rec.MeetType);
WriteLn (' Does the product fresh? Y/N' );
ReadLn (FreshChk);
If ((FreshChk='Y') or (FreshChk='y')) then
Rec.Fresh:=True

Else
Rec.Fresh:=False;

End;
End;
WriteLn (' Would you like to continue? ' );
Readln (continue);
If ((Continue='Y') or (Continue='y')) then
Cont:=True
Else
Cont:=False;
Write (ObjData, Rec);
WriteLn;WriteLn;WriteLn;WriteLn;WriteLn;WriteLn;WriteLn;

End;
Close(ObjData);
End.

רשק רוצ

העדוה ספדה הכנת ההודעה להדפסה

רבחל חלש

הבוגת

:תויורשפא

(13:31 03/05/02) אריפש הליה (ודיע) ילש אתבסל יטרפ

(14:25 03/05/02) רימע ודיע שפנ לעוגה לכ לע טעמכ

(17:11 03/05/02) אריפש הליה ...ו

(11:59 04/05/02) ןוארב ןוג ?הליה

(12:45 04/05/02) אריפש הליה ): יתעמש ,ןכ

(18:27 04/05/02) רימע הינטו ודיע רומג רדסב ינא ריבחת

(19:43 30/04/02) רב תימע :לכה רכוזש ודיע

(19:44 30/04/02) רימע ודיע גשומ לש ץמש ולו יל ןיא

(19:46 30/04/02) רב תימע !םידע יל שי

(19:49 30/04/02) רימע ודיע .לוכו לכמ לכה שיחכהל ינירה

(19:51 30/04/02) רב תימע ?רכוז התא היקוקב היה ךלש רעישה הז תאו

(19:53 30/04/02) רימע ודיע .רבדמ הת' המ ,דלי

(19:55 30/04/02) רב תימע ...עגר

(12:08 04/05/02) ינדימה רהוז רקי דלי תימע

(14:28 01/05/02) ןפייר ףחש תורעטצמ כ"כ ונחנא

(18:29 01/05/02) רימע ודיע

תפצחתמ תא ,ןפייר

(19:48 01/05/02) ! ףחשו ברמ ...הדובעל ירבח בגא

,ונלש ףינסב שמחב 'א םויב תוריחב תאילמ
!התוא ריבעמ התאו

...ו

..הליקט ךתיא איבת לא םעפה
!!ךלש(?ןייוזמה)ןונקתה תא איבת קר

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

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

:הפה
םייחל םידדצב ךיחה הלעמל עולל דע םייתפשב ליחתמ הנושארה הנחתה
אלש הנוילע תסל הפב שי לדיפאה ותוא םידפרמ הנותחת תסל הטמל
הזז
:לוכיע יגוס ינש שי הפב ןוזמה תא תסעולו הענ הנותחתה
םיינישה י"ע -ינכמ
קור י"ע -ימיכ

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

ןוזמה יקיקלח תא קיבדמ ןלימעה תא תימיכ לכעמ קורה -ימיכ לוכיע
םייקלח םישוגל סועלה
םירמוח םיסמנ םכותבו םימ 99.5% -מ בכרומ קורה תושבייתה עדומ
.םיחלמו םיינגרוא
ןילאיתפ םימיזנאה םה הזטלמו ןילאתפ םיקרפמש םימיזנא ינש לכמ
הזוטמל לשובמ ןלימע קרפמ
.תילרטיינ הביבסב םיבנע רכוסל ךפוהש

.קורה י"ע בטרייש ידכ הפב ןוזמה תא בברעל :ןושלה דיקפת
.מ"ס 25 ךורא -טשווה
המידקמ המישנה ינק ןיב אצמנ הביקל הבה ןיב רבעמ רוניצ שמשמ
הרוחאמ הרדשה דומעו
העונת תיתלטסירפ העונת תופיחד יע הביקל לכואה תא ריבעמ
.ןוזמה תא ףחוד אוה ךכ םירירשה תוצווכתה

ייב ייב
.ףחשו ברמ

רשק רוצ

העדוה ספדה הכנת ההודעה להדפסה

רבחל חלש

הבוגת

:תויורשפא

(19:52 01/05/02) רימע ודיע [ת"ל] D-:> יל אוה דובכל

(22:35 01/05/02) לוגדה רויה - לוגד שונמ שי ינוי לש אמאל - רומ ????האילמה תא ריבעמ ודיע המל בגא

(14:34 02/05/02) ןפייר ףחש ...הככ זא בוט

(22:40 03/05/02) לוגדה רויה - רומ ,קנראב לקש 850 יל שי ףחש

(15:43 04/05/02) ןפייר ףחש רבכ םא

(14:23 01/05/02) ימע-ןב ברמ ..הדע ינא ..ןכ

(17:13 01/05/02) אריפש אריפש ...יל ריכזמש המ

(18:32 01/05/02) רימע ודיע הבר הדות ,רומג רדסב

(19:55 01/05/02) ! ףחשו ברמ ...חחחח

(20:43 01/05/02) רימע ודיע .יופש ינא

(21:23 01/05/02) ! ףחשו ברמ ..ךחכגל ונל השרת

חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח

חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח

חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח

חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח

חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח

...חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח
חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח

חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח

חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח

חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח
חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח
חחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחחח

רשק רוצ

העדוה ספדה הכנת ההודעה להדפסה

רבחל חלש

הבוגת

:תויורשפא

(22:23 01/05/02) רימע ודיע [ת"ל] ?ךגחגל ךל השרה והשימ