—lŽ®‚X +-------------------------------------+----------------+----------------------+ | ¼½ÃÑ–¼(º°ÄÞ): ‚`‚k‚f‚n‚o‚`‚j | | ƒVƒXƒeƒ€•ñ‘ŠT—v | +-------------------------------------+ +----------------------+ | Ó¼Þ­°Ù–¼(º°ÄÞ): POLSORT(A217) | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎ҥŠw¶”Ô†: ‘‘ò‘PŽq21SS1159 | •¶‘쬎ҥŠw¶”Ô†: ‘‘ò‘PŽq21SS1159 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 62/01/ [ / / | •¶‘쬊úŠÔ: 62/ 2/ [ / / | +-------------------------------------+---------------------------------------+ | eƒ‚ƒWƒ…[ƒ‹: ‚`‚k‚f‚n‚r | Žqƒ‚ƒWƒ…[ƒ‹: | +-------------------------------------+---------------------------------------+ | u‹`–¼E‰Û‘è–¼: ‘²‹ÆŒ¤‹† ã | ŽQl•¶Œ£(’˜ŽÒ–¼A‘–¼Ao”ÅŽÐA”­s”N)| +-------------------------------------+ | | ŠJ”­Œ`‘Ô: ˆÚA | SARA BAASE,COMPUTER ALGORITHMS | +-------------------------------------+ | | Œ`Ž®: ƒTƒuƒ‹[ƒ`ƒ“ | ADDITION WESLEY 1981 | +-------------------------------------+---------------------------------------+ | —˜—p‘ÎÛŽÒ: ˆê”Ê | Ši”[ÒÃÞ¨±Œ`Ž®: ƒtƒƒbƒs[ƒfƒBƒXƒN | +-------------------------------------+---------------------------------------+ | –Ú“Ii–â‘è‰ðàA‹@”\‰ðà|§ŒÀŽ–€j| Ši”[ÒÃÞ¨±”Ô†A̧²Ù–¼: @@@@@@@ | | ˆê–{‚̃e|ƒv‚É“ü‚Á‚½ƒf|ƒ^‚ðA‚³‚ç +---------------------------------------+ | | ‹LqŒ¾ŒêE‘–s‚n‚r: TURBO PASCAL | | ‚ÉŽO–{‚̃e|ƒv‚ðŽg‚Á‚ÄAƒ}|ƒWƒ\| +---------------------------------------+ | | ‘–sðŒiƒn[ƒhƒEƒFƒAAƒ\ƒtƒgƒEƒFƒAj| | ƒg‚Ŭ‚³‚¢‡‚É•À‚Ñ•Ï‚¦‚éB | ‚o‚b|‚X‚W‚O‚P | | | | | | ‚l‚r|‚c‚n‚r | +-------------------------------------+---------------------------------------+ | ƒL[ƒ[ƒhi“K—p•ª–ìAŽè–@‚È‚Çj F | •ª—ÞƒR[ƒhi‚b‚qƒR[ƒh‚ðŽg—pj F | | POLYPHASE MERGE SORT | | +-------------------------------------+---------------------------------------+ | ŒÄ‚Ño‚µ–@: ‚`„‚o‚n‚k‚r‚n‚q‚s | | | +-----------------------------------------------------------------------------+ | ‘€ìŽè‡(ºÝÌßØ°ÄÌßÛ¸Þ×Ñ(Ò²ÝÌßÛ¸Þ×Ñ)‚Ìê‡:1.ƒVƒXƒeƒ€‹N“®Žè‡¤2.ƒf[ƒ^“üo—Í | | Žè‡‚ÆŒ`Ž®¤3.I—¹Žè‡) | | (»ÌÞÙ°ÁÝ‚Ìê‡:1.ŒÄ‚Ño‚µŒ`Ž®-ˆø‚«”‚Ì•À‚וû-¤2.eƒ‹[ƒ`ƒ“¤3.Žqƒ‹[ | | ƒ`ƒ“¤4.‚»‚Ì‘¼) | | ‚PD錾‚ÌŽd•û | | | | EXTERNAL PROCEDURE POLSORT(VAR TAPE:DUNP; VAR J:INTEGER); | | | | ‚½‚¾‚µ TYPE DUMP=PACKED ARRAY[0..3] OF TEXT; | | | | ‚QDŒÄ‚Ño‚µŒ`Ž® | | | | ‚o‚n‚k‚r‚n‚q‚si‚s‚`‚o‚dC‚ij | | | | ƒˆø”„ VAR TAPE : DUMP TAPE[0] :“ü—̓tƒ@ƒCƒ‹ | | | | TAPE[1]..TAPE[3] :ì‹Æƒtƒ@ƒCƒ‹ | | | | VAR J : INTEGER :o—̓tƒ@ƒCƒ‹‚ÌŽw’è | | | | Œ‹‰Ê‚ÍTAPE[J]‚Éo—Í‚³‚ê‚é | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ ’. ƒVƒXƒeƒ€‚P‚‚ɂ‚«‚P–‡ì¬ •K—v‚Èꇃ‚ƒWƒ…[ƒ‹‚P‚‚ɂ‚«‚P–‡ì¬(²ÝÀ°Ìª°½Žd—l‘-—lŽ®‚P-‚ɒljÁ) —lŽ®‚V +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | –â‘è‰ðà | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚o‚n‚k‚r‚n‚q‚s | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: Œ´“c•ä | •¶‘쬎Ò: Œ´“c•ä | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/08/ [ 60/09/ | •¶‘쬊úŠÔ: 60/11/ [ 60/12/ | +-------------------------------------+---------------------------------------+ | ƒ–â ‘è„ ‚S–{‚̃e|ƒv‚ðŽg‚Á‚ÄAˆê—ñ‚É•À‚ñ‚¾ƒf|ƒ^‚𬂳‚¢‡‚É•Ï‚¦‚Ü‚· | | | | | | ‚Ü‚¸‚S–{‚̃e|ƒv‚ð‚»‚ê‚¼‚ê‚s0A‚s1A‚s2A‚s3A‚Æ‚µ‚Ü‚·B‚»‚µ‚Ä‚s0‚É | | | | ‚·‚ׂăf|ƒ^‚ð‘Å‚¿‚±‚Ý‚Ü‚·B | | | | ŽŸ‚É‚UŒÂ‚̃uƒƒbƒN‚É‹æØ‚Á‚ÄA‚»‚̃uƒƒbƒN“à‚Ńoƒuƒ‹ƒ\|ƒg‚ðŽg‚¢A | | | | ¬‚³‚¢‡‚É•À‚Ñ•Ï‚¦‚Ü‚·B‚»‚µ‚ÄA‚»‚ê‚ðŒðŒÝ‚É‚s1A‚s2‚ɂӂ蕪‚¯‚Ü‚· | | | | ¡“x‚ÍA‚s1A‚s2‚Ì“¯‚¶—ñ‚̃f|ƒ^‚ðAƒ}|ƒWƒ\|ƒg‚ðŽg‚Á‚Ĭ‚³‚¢‡‚É•À‚Ñ | | | | •Ï‚¦ŒðŒÝ‚É‚s3A‚s0‚É“ü‚ê‚Ü‚·B | | „ | | | | ƒ} Ž¦„ | | | | ‚s0 ------ ====== ------ ====== .... ƒoƒuƒ‹ƒ\|ƒg | | | | ‚s1 ------ --| ------ --| .... | | |--| |--| ƒ}[ƒWƒ\|ƒg | | ‚s2 ====== --| | ====== --| | .... | | | | | | ‚s3 ****** <----| | .... | | | | | ‚s0 ++++++ <--------------------| | | | | | | ‚±‚¤‚µ‚ÄA‡”ԂɃe|ƒv‚ðŽg‚Á‚ăf|ƒ^‚ð‚‚Ȃ°AÅŒã‚Ɉê—ñ‚É•À‚Ô‚Ü‚Å | | | | ‘±‚¯‚Ü‚·B | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚o‚n‚k‚r‚n‚q‚s | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: Œ´“c•ä 20SS1235 | •¶‘쬎Ò: Œ´“c•ä 20SS1235 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/ 8/ [ 60/ 9/ | •¶‘쬊úŠÔ: 60/ 1/ [ 60/ 1/ | +-------------------------------------+---------------------------------------+ | | | ++-------++ +-----+ ++-------++ +--------++ +---------+ | | !!MODULE !! +TYPE + !!BLOCK !! !ARRAY [1!! !INTEGER ! | | !!SORT_PO!!--!->+ +--!->!! !!---->!..6] !!---->! ! | | !!LY !! ! + + ! !! !! ! !! ! ! | | ++-------++ ! +-----+ ! ++-------++ +--------++ +---------+ | | ! ! | | ! ! ++-------++ +--------++ +---------+ | | ! ! !!DUBP !! !PACKED A!! ! TEXT ! | | ! -->!! !!---->!RRAY [0.!!---->! ! | | ! !! !! !.3] !! ! ! | | ! ++-------++ +--------++ +---------+ | | ! | | ! ++-------++ +-----+ +-------+ ++-------++ | | ! !!PROCEDU!! +PARAME + +VAR TAPE + !! DUMP !! | | -->!!RE POLS!!--!->+ TER +--!->! !---->!! !! | | !!ORT !! ! + + ! + + !! !! | | ++-------++ ! +-----+ ! +-------+ ++-------++ | | ! ! | | ! ! +-------+ +---------+ | | ! ! +VAR X + !INTEGER ! | | ! -->! !---->! ! | | ! + + ! ! | | ! +-------+ +---------+ | | ! | | ! +-----+ +---------+ | | ! +VAR + !B:MIZU2 ! | | !->+ +---->! ------- ! | | ! + + ! ! | | ! +-----+ +---------+ | | ! | | ! ++-------++ +---------+ | | ! !!PROCEDU!! !B:MIZU3 ! | | !->!!RE SORT!!---->! ------- ! | | ! !! !! ! ! | | ! ++-------++ +---------+ | | ! | | ! ++-------++ +---------+ | | ! !!PROCEDU!! !B:MIZU4 ! | | !->!!RE MGSO!!---->! ------- ! | | ! !!RT !! ! ! | | ! ++-------++ +---------+ | | ! | | ! +---------+ | | ! !B:MIZU5 ! | | -->! ------- ! | | ! ! | | +---------+ | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚o‚n‚k‚r‚n‚q‚s | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: Œ´“c•ä 20SS1235 | •¶‘쬎Ò: Œ´“c•ä 20SS1235 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/ 8/ [ 60/ 9/ | •¶‘쬊úŠÔ: 60/ 1/ [ 60/ 1/ | +-------------------------------------+---------------------------------------+ | | | +---------+ +-------+ +---------+ | | |B:MIZU2 | +ONE_RUN + |BOOLEAN | | | | ------- |--|->| |---->| | | | | | | + + | | | | +---------+ | +-------+ +---------+ | | | | | | +-------+ +---------+ | | | + + | | | | |->|N,M,L,K |---->| INTEGER | | | | + + | | | | | +-------+ +---------+ | | | | | | +-------+ +--------++ +---------+ | | | + + |ARRAY[1.|| | | | | |->| I,J |---->|.2] ||---->| INTEGER | | | | + + | || | | | | | +-------+ +--------++ +---------+ | | | | | | +-------+ ++-------++ | | | + + ||BLOCK || | | |->| C |---->|| || | | | + + || || | | | +-------+ ++-------++ | | | | | | +-------+ +--------++ +---------+ | | | + + |ARRAY[1.|| |INTEGER | | | |->| T |---->|.4,1..39||---->| | | | | + + |] || | | | | | +-------+ +--------++ +---------+ | | | | | | +-------+ +--------++ +---------+ | | | + + |ARRAY[1.|| |INTEGER | | | |->| P |---->|.4] ||---->| | | | | + + | || | | | | | +-------+ +--------++ +---------+ | | | | | | +-------+ +---------+ | | | + + | | | | -->| CCC |---->| INTEGER | | | + + | | | | +-------+ +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚o‚n‚k‚r‚n‚q‚s | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: Œ´“c•ä 20SS1235 | •¶‘쬎Ò: Œ´“c•ä 20SS1235 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/ 8/ [ 60/ 9/ | •¶‘쬊úŠÔ: 60/ 1/ [ 60/ 1/ | +-------------------------------------+---------------------------------------+ | | | +---------+ +-----+ +-------+ ++-------++ | | !B:MIZU3 ! +PARAME + + + !! !! | | ! ------- !--!->+ TER +--!->! VAR C !---->!! BLOCK !! | | ! ! ! + + ! + + !! !! | | +---------+ ! +-----+ ! +-------+ ++-------++ | | ! ! | | ! ! +-------+ +---------+ | | ! ! + + ! ! | | ! -->! NUM !---->!INTEGER ! | | ! + + ! ! | | ! +-------+ +---------+ | | ! | | ! +-----+ +-------+ +---------+ | | ! + + + + ! ! | | !->+ VAR +--!->! I,J !---->!INTEGER ! | | ! + + ! + + ! ! | | ! +-----+ ! +-------+ +---------+ | | ! ! | | ! ! +-------+ +---------+ | | ! ! + + ! ! | | ! -->! MEMO !---->!INTEGER ! | | ! + + ! ! | | ! +-------+ +---------+ | | ! | | ! +--------++ +--------++ +-------+ +---------+ | | ! !FOR I:=2!! !FOR J:=N!! !IF C[J- + !MEMO:= ! | | -->! TO NUM!!---->!UM DOWNT!!---->!1] > C[ +---->! C[J-1] ! | | ! !! !O I DO !! !J] + ^ ! ! | | +--------++ +--------++ +-------+ ! +---------+ | | ! ! | | ! +---------+ | | ! !C[J-1]:= ! | | ! ! C[J] ! | | ! ! ! | | ! +---------+ | | ! ! | | ! +---------+ | | ! !C[J]:= ! | | !-! MEMO ! | | ! ! | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚o‚n‚k‚r‚n‚q‚s | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: Œ´“c•ä 20SS1235 | •¶‘쬎Ò: Œ´“c•ä 20SS1235 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/ 8/ [ 60/ 9/ | •¶‘쬊úŠÔ: 60/ 1/ [ 60/ 1/ | +-------------------------------------+---------------------------------------+ | | | +---------+ +-----+ +-------+ +---------+ | | !B:MIZU4 ! +PARAME + +VAR TAPE1+ ! ! | | ! ------- !--!->+ TER +---->!,TAPE2,TA!---->! TEXT ! | | ! ! ! + + +PE3 + ! ! | | +---------+ ! +-----+ +-------+ +---------+ | | ! | | ! +-----+ +-------+ +---------+ | | ! + + + + ! ! | | !->+ VAR +---->! A,B !---->! INTEGER ! | | ! + + + + ! ! | | ! +-----+ +-------+ +---------+ | | ! | | ! +-----+ | | ! /READ(/ | | --> /TAPE1/ | | ^ /,A) / | | ! +-----+ | | ! ! | | ! +-----+ | | ! /READ / | | ! /(TAPE/ | | ! /2,B) / | | ! +-----+ | | ! ! | | ! +--------++ +-------+ +---------------------+ | | ! !WHILE !! !IF A! +--!-> / / | | ! !N(TAPE1)!! ! + !^ / / | | ! ! OR EOLN!! +-------+ !! +---------------------+ | | ! !(TAPE2))!! !! ! | | ! ! !! !! +-----+ | | ! ! !! !! /READ / | | ! ! !! !!- /(TAPE/ | | ! ! !! ! /1,A) / | | ! +--------++ ! +-----+ | | ! ! ! | | ! ! ! +---------------------+ | | ! ! ! / WRITE(TAPE3,B:8) / | | ! ! --> / / | | ! ! ^ / / | | ! ! ! +---------------------+ | | ! ! ! ! | | ! ! ! +-----+ | | ! ! ! /READ / | | ! ! !- /(TAPE/ | | ! ! /2,B) / | | ! ! +-----+ | | ! ! | | ! +---------+ | | ! !B:MIZU6 ! | | !-! ------- ! | | ! ! | | +---------+ | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚o‚n‚k‚r‚n‚q‚s | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: Œ´“c•ä 20SS1235 | •¶‘쬎Ò: Œ´“c•ä 20SS1235 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/ 8/ [ 60/ 9/ | •¶‘쬊úŠÔ: 60/ 1/ [ 60/ 1/ | +-------------------------------------+---------------------------------------+ | | | +---------+ +----*----+ +---------+ | | |B:MIZU5 | |RESET | | | | | | ------- |--| |(TAPE[0])| -->| N:=1 | | | | | | | | |^ | | | | +---------+ | +---------+ || +---------+ | | | || | | | | +---------+ || +--------++ +---------+ | | | |REWRITE(T| || |FOR M:=1|| | | | | -->|APE[2]) | || | TO 6 ||---->| C[M]:=0 | | | ^ | | || | || | | | | | +---------+ || +--------++ +---------+ | | | | || | | | | +---------+ || +--------++ +-----+ | | | |REWRITE(T| || |REPEAT U|| / / | | | |APE[3]) | || |NTIL (N>||----> / / | | | | | || |6) OR (E|| ^ /READ(/ | | | +---------+ || |OF(TAPE[|| | /TAPE[/ | | | | || |0])) || | /0],C[/ | | | +---------+ || | || | /N]) / | | | | | || | || | / / | | | |L:=2 | || | || | / / | | | | | || | || | / / | | | +---------+ || +--------++ | +-----+ | | | | || | | | | | | +------------------------++ || +---------+ | +---------+ | | | |REPEAT UNTIL EOF(TAPE[0]|| || |SORT(C,N-| | | | | | | |) ||--|| |1) | |-|N:=N+1 | | | | | || | | | | | | | | +------------------------++ | +---------+ +---------+ | | | | | | | | | +---------+ | +--------++ +-----+ | | | |I[1]:=2; | | |FOR K:=1|| / / | | | |I[2]:=3; | | | TO N-1 ||----> / / | | | |J[1]:=0; | | | || /WRITE/ | | | |J[2]:=1 | | +--------++ /(TAPE/ | | | | | | | /[L],C/ | | | | | | +-----+ /[K]:8/ | | | | | | / / /) / | | | | | | / / / / | | | | | | /WRITE/ / / | | | +---------+ | /LN(TA/ +-----+ | | | | | /PE[L]/ | | | +---------+ | /,0:8)/ | | | |B:MIZU7 | | / / | | |-| ------- | | / / | | | | | / / | | +---------+ | +-----+ | | | | | | | +---------+ | | | | | | | |-| L:=5-L | | | | | | | +---------+ | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚o‚n‚k‚r‚n‚q‚s | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: Œ´“c•ä 20SS1235 | •¶‘쬎Ò: Œ´“c•ä 20SS1235 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/ 8/ [ 60/ 9/ | •¶‘쬊úŠÔ: 60/ 1/ [ 60/ 1/ | +-------------------------------------+---------------------------------------+ | | | +---------+ +-------+ +--------++ +---------------------+ | | !B:MIZU6 ! !IF EOLN + !WHILE NO!! / WRITE(TAPE3,B:8) / | | ! ------- !---->!(TAPE1) +--!->!T EOLN(T!!----> / / | | ! ! ^ ! + ! !APE2) !! ^ / / | | +---------+ ! +-------+ ! +--------++ ! +---------------------+ | | ! ! ! ! ! | | ! +-----+ ! ! +-----+ | | ! /READL/ ! ! /READ(/ | | ! /N(TAP/ ! !- /TAPE2/ | | ! /E1) / ! /,B) / | | ! +-----+ ! +-----+ | | ! ! ! | | ! +-----+ ! +--------++ +---------------------+ | | ! /READL/ ! !WHILE NO!! / WRITE(TAPE3,A:8) / | | ! /N(TAP/ -->!T EOLN(T!!----> / / | | ! /E2) / !APE1) !! ^ / / | | ! +-----+ +--------++ ! +---------------------+ | | ! ! ! ! | | ! +---------------------+ ! +-----+ | | ! / WRITELN(TAPE3,0:8 / ! /READ(/ | | !- / ) / !- /TAPE1/ | | / / /,A) / | | +---------------------+ +-----+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚o‚n‚k‚r‚n‚q‚s | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: Œ´“c•ä 20SS1235 | •¶‘쬎Ò: Œ´“c•ä 20SS1235 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/ 8/ [ 60/ 9/ | •¶‘쬊úŠÔ: 60/ 1/ [ 60/ 1/ | +-------------------------------------+---------------------------------------+ | | | +---------+ +--------++ +--------++ +---------+ | | !B:MIZU7 ! !REPEAT !! !FOR M:=0!! !CLOSE(TAP! | | ! ------- !---->!UNTIL ON!!---->! TO 3 !!---->!E[M],K) ! | | ! ! ^ !E_RUN !! ^ ! !! ! ! | | +---------+ ! +--------++ ! +--------++ +---------+ | | ! ! ! ! | | ! ! ! +--------++ +---------+ | | ! ! ! !FOR M:=1!! !RESET(TAP! | | ! ! ! ! TO 2 !!---->!E[L[M]]) ! | | ! ! ! ! !! ^ ! ! | | ! ! ! +--------++ ! +---------+ | | ! ! ! ! ! ! | | ! ! ! ! ! +---------+ | | ! ! ! ! ! !REWRITE(T! | | ! ! ! ! !-!APE[J[M]]! | | ! ! ! ! !) ! | | ! ! ! ! +---------+ | | ! ! ! ! | | ! ! ! +-----------------------------------------+ | | ! ! ! !MGSORT(TAPE[I[1]],TAPE[I[2]],TAPE[J2]]);O! | | ! ! ! !NE_RUN:=EOF(TAPE[I[1]]) AND EOF(TAPE[I[2]! | | ! ! ! !]) ! | | ! ! ! +-----------------------------------------+ | | ! ! ! ! | | ! ! ! +-------+ +-------------------------+ | | ! ! ! !IF NOT + !MGSORT(TAPE[I[1]],TAPE[I[! | | ! ! !-!ONE_RUN +---->!2]],TAPE[J[2]]) ! | | ! ! ! + ^ ! ! | | ! ! +-------+ ! +-------------------------+ | | ! ! ! ! | | ! +--------++ +---------+ ! +---------+ | | ! !FOR M:=0!! !CLOSE (TA! ! ! MIZU8 ! | | ! ! TO 3 !!---->!PE[M[],K)! !-! ------- ! | | ! ! !! ! ! ! ! | | ! +--------++ +---------+ +---------+ | | ! ! | | ! +---------+ | | ! !X:=J[1] ! | | !-! ! | | ! ! | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚o‚n‚k‚r‚n‚q‚s | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: Œ´“c•ä 20SS1235 | •¶‘쬎Ò: Œ´“c•ä 20SS1235 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/ 8/ [ 60/ 9/ | •¶‘쬊úŠÔ: 60/ 1/ [ 60/ 1/ | +-------------------------------------+---------------------------------------+ | | | +---------+ +------------------------++ +---------+ | | |MIZU8 | |WHILE NOT(EOF(TAPE[I[1]]|| |MGSORT(TA| | | | ------- |---->|) AND EOF(TAPE[I[2]])) ||---->|PE[I[1]],| | | | | ^ | || |TAPE[I[2]| | | +---------+ | +------------------------++ |],TAPE[J[| | | | | |2]]); MG| | | | +---------+ |SORT(TAPE| | | | |I[1]:= | |[I[1]],TA| | | | |I[1]+2; | |PE[I[2]],| | | | |I[2]:= | |TAPE[J[2]| | | | |I[2]+2; | |]) | | | | |J[I]:= | | | | | | |J[1]+2; | | | | | | |J[2]:= | | | | | | |J[2]+2; | | | | | | | | | | | | | +---------+ +---------+ | | | | | | | +---------+ | | | |I[1]:=I[1| | | |-|] MOD 4; | | | |I[2]:=I[2| | | |] MOD 4; | | | |J[1]:=J[1| | | |] MOD 4: | | | |J[2]:=J[2| | | |] MOD 4 | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ —lŽ®‚X +-------------------------------------+----------------+----------------------+ | ¼½ÃÑ–¼(º°ÄÞ): ‚`‚k‚f‚n‚o‚`‚j | | ƒVƒXƒeƒ€•ñ‘ŠT—v | +-------------------------------------+ +----------------------+ | Ó¼Þ­°Ù–¼(º°ÄÞ): CPOLSORT(P217)@ | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎ҥŠw¶”Ô†: ‘‘ò‘PŽq21SS1159 | •¶‘쬎ҥŠw¶”Ô†: ‘‘ò‘PŽq21SS1159 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 62/01/ [ / / | •¶‘쬊úŠÔ: 62/ 2/ [ / / | +-------------------------------------+---------------------------------------+ | eƒ‚ƒWƒ…[ƒ‹: ‚`‚k‚f‚n‚r | Žqƒ‚ƒWƒ…[ƒ‹: ‚o‚n‚k‚r‚n‚q‚s | +-------------------------------------+---------------------------------------+ | u‹`–¼E‰Û‘è–¼: ‘²‹ÆŒ¤‹† | ŽQl•¶Œ£(’˜ŽÒ–¼A‘–¼Ao”ÅŽÐA”­s”N)| +-------------------------------------+ | | ŠJ”­Œ`‘Ô: ˆÚA | SARA BAASE,COMPUTER ALGORITHMS | +-------------------------------------+ | | Œ`Ž®: ƒRƒ“ƒvƒŠ[ƒg | ADDITION WESLEY 1981 | +-------------------------------------+---------------------------------------+ | —˜—p‘ÎÛŽÒ: ˆê”Ê | Ši”[ÒÃÞ¨±Œ`Ž®: ƒtƒƒbƒs[ƒfƒBƒXƒN | +-------------------------------------+---------------------------------------+ | –Ú“Ii–â‘è‰ðàA‹@”\‰ðà|§ŒÀŽ–€j| Ši”[ÒÃÞ¨±”Ô†A̧²Ù–¼: @@@@@@@ | | ˆê–{‚̃e|ƒv‚É“ü‚Á‚½ƒf|ƒ^‚ðA‚³‚ç +---------------------------------------+ | | ‹LqŒ¾ŒêE‘–s‚n‚r: TURBO PASCAL | | ‚ÉŽO–{‚̃e|ƒv‚ðŽg‚Á‚ÄAƒ}|ƒWƒ\| +---------------------------------------+ | | ‘–sðŒiƒn[ƒhƒEƒFƒAAƒ\ƒtƒgƒEƒFƒAj| | ƒg‚Ŭ‚³‚¢‡‚É•À‚Ñ•Ï‚¦‚éB | ‚o‚b|‚X‚W‚O‚P | | | | | | ‚l‚r|‚c‚n‚r | +-------------------------------------+---------------------------------------+ | ƒL[ƒ[ƒhi“K—p•ª–ìAŽè–@‚È‚Çj F | •ª—ÞƒR[ƒhi‚b‚qƒR[ƒh‚ðŽg—pj F | | POLYPHASE MERGE SORT | | +-------------------------------------+---------------------------------------+ | ŒÄ‚Ño‚µ–@: ‚`„‚b‚o‚n‚k‚r‚n‚q‚s | | | +-----------------------------------------------------------------------------+ | ‘€ìŽè‡(ºÝÌßØ°ÄÌßÛ¸Þ×Ñ(Ò²ÝÌßÛ¸Þ×Ñ)‚Ìê‡:1.ƒVƒXƒeƒ€‹N“®Žè‡¤2.ƒf[ƒ^“üo—Í | | Žè‡‚ÆŒ`Ž®¤3.I—¹Žè‡) | | (»ÌÞÙ°ÁÝ‚Ìê‡:1.ŒÄ‚Ño‚µŒ`Ž®-ˆø‚«”‚Ì•À‚וû-¤2.eƒ‹[ƒ`ƒ“¤3.Žqƒ‹[ | | ƒ`ƒ“¤4.‚»‚Ì‘¼) | | ‚PD“üo—̓f|ƒ^Œ`Ž® | | | | “ü—̓f|ƒ^Œ`Ž® ƒ“ü—̓tƒ@ƒCƒ‹–¼„ ‚s‚`‚o‚d‚O | | | | ƒ“à—e„ ƒ\|ƒg‚·‚é“ü—̓f|ƒ^ | | | | ƒeƒLƒXƒgŒ`Ž®‚ŊԂɃuƒ‰ƒ“ƒN‚ð“ü‚ê‚é | | | | ‰üs‚µ‚È‚¢ | | | | o—̓f|ƒ^Œ`Ž® ƒo—̓tƒ@ƒCƒ‹–¼„ ŽÀs‚ªI‚Á‚½Œã‚ÉŽ¦‚³‚ê‚é | | | | ƒ“à—e„ ƒ\|ƒg‚³‚ꂽŒ‹‰Ê | | | | ‰üs‚µ‚È‚¢ | | | | ‚QD‹N“®Žè‡ | | | | ‚`„‚b‚o‚n‚k‚r‚n‚q‚s | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ ’. ƒVƒXƒeƒ€‚P‚‚ɂ‚«‚P–‡ì¬ •K—v‚Èꇃ‚ƒWƒ…[ƒ‹‚P‚‚ɂ‚«‚P–‡ì¬(²ÝÀ°Ìª°½Žd—l‘-—lŽ®‚P-‚ɒljÁ)