רוטר - צריך עזרה במחשבים (פסקל

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"צריך עזרה במחשבים (פסקל - 5 יחידות)"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #8309	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 8309

warezlover

11:22 16.11.02

צריך עזרה במחשבים (פסקל - 5 יחידות)

מישהו יודע איך עושים מיון מחסניות
למשל יש לי 2 מחסניות ממיונות כך שהמספר הגדול למעלה, ואני צריך
למיין אותם למחסנית אחת כך שהמספר הגדול יהיה למעלה ולפי הסדר.
תודה

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
אתה נעזר במחסנית ביניים.	dryice	16.11.02 15:01	1
אחי קבל הסבר פשוט יותר	דור_י	16.11.02 21:10	2
קבל	gil_soffer1	20.11.02 11:29	3

dryice

15:01 16.11.02

1. אתה נעזר במחסנית ביניים.
בתגובה להודעה מספר 0

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

DRYICE

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

דור_י

21:10 16.11.02

2. אחי קבל הסבר פשוט יותר
בתגובה להודעה מספר 1

מה שאתה רוצה זה למזג 2 מארכים ממוינים
לצורך זה נשתמש בשיטת המיזוג:
(בהנחה ש-N הוא גודל המערכים)
procedure merge(A,B:arr);
var
C:array of integer;
up,down,i:integer;
begin
up:=1;
down:=1;
while (up <= N) and (down <= N) do
if A < B then
begin
C:= A;
up:=up+1;
end
else
begin
C:= B;
down:=down+1;
end;
if down>N then
for i:=up+down-1 to N*2 do
begin
C:=A;
up:=up+1;
end
else
for i:=up+down-1 to N*2 do
begin
C:=B;
down:=down+1;
end;
writeln;
for i:=1 to N*2 do
write(C,'|');
readln

end;

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

gil_soffer1

11:29 20.11.02

3. קבל
בתגובה להודעה מספר 0

מיין-2-מחסניות-ממויינות(st1,st2:stackType)
==========
(1) אתחל-מחסנית(st3)
(2) כל עוד לא מחסנית-ריקה?(st1) וגם לא מחסנית-ריקה?(st2) בצע
(1.1) אם מחסנית-ריקה?(st1) אזי
(1.1.1) דחוף-לחמסנית(st3, שלוף-ממחסנית(st2))
(1.2) אחרת אם מחסנית-ריקה?(st2) אזי
(1.2.1) דחוף-למחסנית(st3, שלוף-ממחסנית(st1))
(1.3) אחרת
(1.3.1) אם הצץ-למחסנית(st1) > הצץ-למחסנית(st2) אזי
(1.3.1.1) דחוף-למחסנית(st3, שלוף-ממחסנית(st1))
(1.3.2) אחרת אם הצץ-למחסנית(st1) < הצץ-למחסנית(st2) אזי
(1.3.2.1) דחוף-למחסנית(st3, שלוף-ממחסנית(st2))
(1.3.3) אחרת
(1.3.3.1) דחוף-למחסנית(st3, שלוף-ממחסנית(st1))
(1.3.3.2) סתם פרמטר <--- שלוף-ממחסנית(st2)
(3) כל עוד לא מחסנית-ריקה?(st3) בצע
(3.1) דחוף-למחסנית(st1, שלוף-ממחסנית(st3))
(4) החזר st1

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד