—lŽ®‚X +-------------------------------------+----------------+----------------------+ | ¼½ÃÑ–¼(º°ÄÞ): ‚`‚k‚f‚n‚o‚`‚j | | ƒVƒXƒeƒ€•ñ‘ŠT—v | +-------------------------------------+ +----------------------+ | Ó¼Þ­°Ù–¼(º°ÄÞ): SEQUEN(A703) | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎ҥŠw¶”Ô†: ‘‘ò‘PŽq21SS1159 | •¶‘쬎ҥŠw¶”Ô†: ‘‘ò‘PŽq21SS1159 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 62/ 1/ [ / / | •¶‘쬊úŠÔ: 62/ 2/ [ / / | +-------------------------------------+---------------------------------------+ | eƒ‚ƒWƒ…[ƒ‹: ‚`‚k‚f‚n‚r | Žqƒ‚ƒWƒ…[ƒ‹: | +-------------------------------------+---------------------------------------+ | u‹`–¼E‰Û‘è–¼: ‘²‹ÆŒ¤‹† ã | ŽQl•¶Œ£(’˜ŽÒ–¼A‘–¼Ao”ÅŽÐA”­s”N)| +-------------------------------------+ | | ŠJ”­Œ`‘Ô: ˆÚA | SARA BAASE,COMPUTER ALGORITHM | +-------------------------------------+ | | Œ`Ž®: ƒTƒuƒ‹[ƒ`ƒ“ | ADDISION WESLRY,1978 | +-------------------------------------+---------------------------------------+ | —˜—p‘ÎÛŽÒ: ˆê”Ê ñ | Ši”[ÒÃÞ¨±Œ`Ž®: ƒtƒƒbƒs[ƒfƒBƒXƒN | +-------------------------------------+---------------------------------------+ | –Ú“Ii–â‘è‰ðàA‹@”\‰ðà|§ŒÀŽ–€j| Ši”[ÒÃÞ¨±”Ô†A̧²Ù–¼: @@@@@@@ | | ƒOƒ‰ƒt‚ÉÅ“K‚ÌF‚ð“h‚éƒvƒƒOƒ‰ƒ€ +---------------------------------------+ | | ‹LqŒ¾ŒêE‘–s‚n‚r: TURBO PASCAL | | +---------------------------------------+ | | ‘–sðŒiƒn[ƒhƒEƒFƒAAƒ\ƒtƒgƒEƒFƒAj| | | PC-9801,MS-DOS | | | | | | | +-------------------------------------+---------------------------------------+ | ƒL[ƒ[ƒhi“K—p•ª–ìAŽè–@‚È‚Çj F | •ª—ÞƒR[ƒhi‚b‚qƒR[ƒh‚ðŽg—pj F | | GRAPH COLORING | | +-------------------------------------+---------------------------------------+ | ŒÄ‚Ño‚µ–@: >B:COLORDATA | | | +-----------------------------------------------------------------------------+ | ‘€ìŽè‡(ºÝÌßØ°ÄÌßÛ¸Þ×Ñ(Ò²ÝÌßÛ¸Þ×Ñ)‚Ìê‡:1.ƒVƒXƒeƒ€‹N“®Žè‡¤2.ƒf[ƒ^“üo—Í | | Žè‡‚ÆŒ`Ž®¤3.I—¹Žè‡) | | (»ÌÞÙ°ÁÝ‚Ìê‡:1.ŒÄ‚Ño‚µŒ`Ž®-ˆø‚«”‚Ì•À‚וû-¤2.eƒ‹[ƒ`ƒ“¤3.Žqƒ‹[ | | ƒ`ƒ“¤4.‚»‚Ì‘¼) | | ‚P | | | | ‚d(“ü—Í):ÚG‚µ‚Ä‚¢‚é’¸“_‚Ì”z—ñ | | | | ‚ui“ü—ÍjF’¸“_‚ÌŒ©•û‚̇˜ | | | | ‚b‚uio—ÍjFF‚Âh‚¯ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ ’. ƒ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ƒ…[ƒ‹–¼: ‚r‚d‚p‚t‚d‚m | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: HŽR´”ü 20SS1201 | •¶‘쬎Ò: HŽR´”ü 20SS1201 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/ 6/ [ 60/11/ | •¶‘쬊úŠÔ: 60/11/ [ 60/12/ 6 | +-------------------------------------+---------------------------------------+ | ‘½‚­‚Ì”­Œ©‚ÌŽ‘‚Æ‚È‚éƒAƒ‹ƒSƒŠƒYƒ€‚ÍAƒOƒ‰ƒt‚ÉF‚ð“h‚é–â‘è‚Ì‚½‚ß‚ÉŠJ”­‚³‚ê | | ‚Ä‚¢‚é. ‚µ‚©‚µ,•sK‚È‚±‚Æ‚ÉA‚»‚ê‚ç‚̃Aƒ‹ƒSƒŠƒYƒ€‚ÍAÅ“K‚ȃOƒ‰ƒt‚ð, | | ‚¯‚µ‚Äì‚èo‚µ‚Ä‚Í‚¢‚È‚¢. | | ‚±‚ê‚ç‚̃Aƒ‹ƒSƒŠƒYƒ€‚ÍŠô‚‚©‚Í,Sequential Coloring ‚ƌĂ΂ê‚él‚¦•û‚ª, | | Šî–{‚Æ‚È‚é. | | Sequential Coloring | | | | ‚fiV,E):ƒOƒ‰ƒt | | ‚u :’¸“_(vertex),(‚i,‚‚i‚Í,‚u‚Ì—v‘f.1<=i<=k) | | ‚d F•Ó(ege) | | | | ƒOƒ‰ƒt‚Ì’¸“_‚Ì‚»‚ꂼ‚ê‚Ɍ݂¢‚É—×Ú‚µ‚½2“_‚ªA“¯‚¶F‚É‚È‚ç‚È‚¢‚悤‚É, | | F‚ð‚‚¯A’¸“_‚ɂ‚¢‚ć˜‚Âh‚¯‚ç‚ꂽ•Ó‚ðC‚u[K]‚̇‚ÉColoring‚·‚é. | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚r‚d‚p‚t‚d‚m‚P | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: HŽR´”ü 20SS1201 | •¶‘쬎Ò: HŽR´”ü 20SS1201 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/06/ [ 60/11/ | •¶‘쬊úŠÔ: 60/11/ [ 60/12/6 | +-------------------------------------+---------------------------------------+ | | | ++---------++ +-------+ +-------+ +--------+ | | !!MODULE !! + + + + ! ! | | !! SEQUEN !!--->+ CONST +--->! N !--->! 10 ! | | !! !! ! + + + + ! ! | | ++---------++ ! +-------+ +-------+ +--------+ | | ! | | ! | | ! +-------+ ++-------++ +--------++ +--------+ | | ! + + !! !! !ARRAY !! ! ! | | !-+ TYPE +--->!! ARY !!--->![1..N] !!--->!INTEGER ! | | ! + + ! !! !! ! !! ! ! | | ! +-------+ ! ++-------++ +--------++ +--------+ | | ! ! ++-------++ +--------++ +--------+ | | ! ! !! !! ! !! ! ! | | ! !->!! EGE !!--->![1..N, !!--->!INTEGER ! | | ! ! !! !! ! 1..N] !! ! ! | | ! ! ++-------++ +--------++ +--------+ | | ! ! | | ! ! ++-------++ +--------++ +--------+ | | ! ! !! !! !ARRAY !! ! ! | | ! !->!!COLOR !!--->! [1..N] !!--->!INTEGER ! | | ! !! ING !! ! !! ! ! | | -------------! ++-------++ +--------++ +--------+ | | ! | | ! ++---------++ +-------+ +-------+ ++-------++ | | ! !!PROCEDURE!! +PARAMA + +VAR + !! !! | | !-!! ACCEPT !!--->+ TER +--->! E !--->!! EGE !! | | !! COLOR !! ! + + ! + + !! !! | | ++---------++ ! +-------+ ! +-------+ ++-------++ | | ! ! | | ! ! +-------+ ++-------++ | | ! ! +VAR + !! !! | | ! !->! V !--->!! ARY !! | | ! ! + + !! !! | | ! ! +-------+ ++-------++ | | ! ! | | ! ! +-------+ ++-------++ | | ! ! +VAR + !! !! | | ! !->! CV !--->!!COLOR !! | | ! + + !! ING !! | | ! +-------+ ++-------++ | | ! | | ! +-------+ +-------+ +--------+ | | ! + + + + ! ! | | !->+ VAR +--->!K,I,J,C !--->!INTEGER ! | | ! + + + + ! ! | | ! +-------+ +-------+ +--------+ | | ! | | ! | | +--------+ | | !IROZUKE ! | | ---------- | | !--------! | +-----------------------------------------------------------------------------+ —lŽ®‚U +-------------------------------------+----------------+----------------------+ | ƒVƒXƒeƒ€–¼: ‚`‚k‚f‚n‚o‚`‚j | | ƒAƒ‹ƒSƒŠƒYƒ€—¬‚ê} | +-------------------------------------+ +----------------------+ | ƒ‚ƒWƒ…[ƒ‹–¼: ‚r‚d‚p‚t‚d‚m‚Q | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎Ò: HŽR´”ü 20SS1201 | •¶‘쬎Ò: HŽR´”ü 20SS1201 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 60/06/ [ 60/11/ | •¶‘쬊úŠÔ: 60/11/ [ 60/12/6 | +-------------------------------------+---------------------------------------+ | ! | | +-------+ | | !IROZUKE! | | --------- | | !-------! | | ! | | ! | | ! ++---------++ +--------+ | | ! !!FUNCTION !! ! ! | | !->!! COLORED!!--->!BOOLEAN ! | | ! !! !! ! ! ! | | ! ++---------++ ! +--------+ | | ! ! | | ! ! +-------+ +-------+ | | ! ! +PARAMA + + VAR + | | ! !->+ TER +--->! V,C ! | | ! ! + + + + | | ! ! +-------+ +-------+ | | ! ! | | ! ! +-------+ +------+ +--------+ | | ! ! + + + + ! ! | | ! !->+ VAR +--->! I !--->!INTRGER ! | | ! ! + + + + ! ! | | ! ! +-------+ +------+ +--------+ | | ! ! | | ! ! +--------+ | | ! ! !COLORED ! | | ! !->! := ! | | ! ! ! FALSE! | | ! ! +--------+ | | ! ! | | ! ! +--------++ +-------+ +-------+ | | ! ! !FOR I:= !! !IF + !IF + | | ! !->! TO N !!--->! E[V,I] +--->! CV[I] +---+ | | ! ! DO !! ! =1 + ! =C + ! | | ! +--------++ +-------+ +-------+ ! | | ! +--------++ +--------+ ----------! | | ! !FOR K:= !! ! ! ! T | | !->! 1 TO !!--->!CV[K] ! ! +--------+ | | ! ! N DO !! ! :=0 ! ! ! ! | | ! +--------++ +--------+ !->!COLORED ! | | ! +--------++ +--------+ ! ! | | ! !FOR I:= !! ! ! +--------+ | | !->! 1 TO !!--->! C:=1 ! | | ! N DO !! ! ! ! | | +--------++ ! +--------+ | | ! +--------++ +--------+ | | ! !WHILE !! !C:=C+1 ! | | !->!COLORED(!!--->!CV[V[i]]! | | !V[i],C) !! ! ! | | +--------++ +--------+ | | | | | | | +-----------------------------------------------------------------------------+ —lŽ®‚X +-------------------------------------+----------------+----------------------+ | ¼½ÃÑ–¼(º°ÄÞ): ‚`‚k‚f‚n‚o‚`‚j | | ƒVƒXƒeƒ€•ñ‘ŠT—v | +-------------------------------------+ +----------------------+ | Ó¼Þ­°Ù–¼(º°ÄÞ): CSEQUEN(P703) | ײÌÞ×Ø-“o˜^”Ô†: | +-------------------------------------+---------------------------------------+ | 쬎ҥŠw¶”Ô†: ‘‘ò‘PŽq21SS1159 | •¶‘쬎ҥŠw¶”Ô†: ‘‘ò‘PŽq21SS1159 | +-------------------------------------+---------------------------------------+ | 쬊úŠÔ: 62/01/ [ / / | •¶‘쬊úŠÔ: 62/ 2/ [ / / | +-------------------------------------+---------------------------------------+ | eƒ‚ƒWƒ…[ƒ‹: ‚`‚k‚f‚n‚r | Žqƒ‚ƒWƒ…[ƒ‹: ‚l‚n‚b‚n‚k‚n‚q | +-------------------------------------+---------------------------------------+ | u‹`–¼E‰Û‘è–¼: ‘²‹ÆŒ¤‹† | ŽQl•¶Œ£(’˜ŽÒ–¼A‘–¼Ao”ÅŽÐA”­s”N)| +-------------------------------------+ | | ŠJ”­Œ`‘Ô: ˆÚA | SARA BAASE,COMPUTER ALGORITHM | +-------------------------------------+ | | Œ`Ž®: ƒRƒ“ƒvƒŠ[ƒg | ADDISION WESLRY,1978 | +-------------------------------------+---------------------------------------+ | —˜—p‘ÎÛŽÒ: ˆê”Ê | Ši”[ÒÃÞ¨±Œ`Ž®: ƒtƒƒbƒs[ƒfƒBƒXƒN | +-------------------------------------+---------------------------------------+ | –Ú“Ii–â‘è‰ðàA‹@”\‰ðà|§ŒÀŽ–€j| Ši”[ÒÃÞ¨±”Ô†A̧²Ù–¼: | | ƒOƒ‰ƒt‚ÉÅ“K‚ÌF‚ð“h‚éƒvƒƒOƒ‰ƒ€ +---------------------------------------+ | | ‹LqŒ¾ŒêE‘–s‚n‚r: TURBO PASCAL | | +---------------------------------------+ | | ‘–sðŒiƒn[ƒhƒEƒFƒAAƒ\ƒtƒgƒEƒFƒAj| | | PC-9801 ,MS-DOS | | | | | | | +-------------------------------------+---------------------------------------+ | ƒL[ƒ[ƒhi“K—p•ª–ìAŽè–@‚È‚Çj F | •ª—ÞƒR[ƒhi‚b‚qƒR[ƒh‚ðŽg—pj F | | GRAPH COLORING | | +-------------------------------------+---------------------------------------+ | ŒÄ‚Ño‚µ–@: >B:COLORDATA | | | +-----------------------------------------------------------------------------+ | ‘€ìŽè‡(ºÝÌßØ°ÄÌßÛ¸Þ×Ñ(Ò²ÝÌßÛ¸Þ×Ñ)‚Ìê‡:1.ƒVƒXƒeƒ€‹N“®Žè‡¤2.ƒf[ƒ^“üo—Í | | Žè‡‚ÆŒ`Ž®¤3.I—¹Žè‡) | | (»ÌÞÙ°ÁÝ‚Ìê‡:1.ŒÄ‚Ño‚µŒ`Ž®-ˆø‚«”‚Ì•À‚וû-¤2.eƒ‹[ƒ`ƒ“¤3.Žqƒ‹[ | | ƒ`ƒ“¤4.‚»‚Ì‘¼) | | @@@@ | | | | > B:COLOR @@ | | | | @@@@@@@@@@@@@@@@@@@ @ | | | | COLOR < B:COLORDATA @ | | | | 2. “ü—̓f[ƒ^ | | | | ‚bFs—ñ‚b‚̬•ª | | | | ‚dFs—ñ‚d‚̬•ª | | | | o—̓f[ƒ^ | | | | ‡˜‚Â"‚¯‚ç‚ꂽ’¸“_‚ÌF•ª‚¯ | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ ’. ƒVƒXƒeƒ€‚P‚‚ɂ‚«‚P–‡ì¬ •K—v‚Èꇃ‚ƒWƒ…[ƒ‹‚P‚‚ɂ‚«‚P–‡ì¬(²ÝÀ°Ìª°½Žd—l‘-—lŽ®‚P-‚ɒljÁ)