様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): MINIMAL1(A301) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 増沢善子21SS1159 | 文書作成者･学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/ 1/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ＡＬＧＯＳ | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | SARA BAASE,COMPUTER ALGORITHMS. | +-------------------------------------+ | | 形式: サブルーチン | ADDINSON WESLEY,1978 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: | | MINIMAL SPNNING TREE の +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBO PASCAL | | サブルーチン プログラム +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | | PC-9801 , MS-DOS | | | | | | | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | MINIMAL SUPANNING TREE | | +-------------------------------------+---------------------------------------+ | 呼び出し法: minspn1(adjmat,wgtmat,f1) | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | 1.minを使う時は 次のような宣言が必要である. | | | | const maxnode=9; | | | | type mat=array[1..maxnode,1..maxnode]of integer; | | | | enternal procedure minspn1(var adjmat,wgtmat:mat;var f1:edgeset); | | | | 2 (入力) ADJMAT グラフのそれぞれの頂点を１から９までとする。各頂点と隣接す | | | | る辺を１とおき それ以外を０とおいた各頂点をインデックスとする２次元配列で | | | | ある。 | | | | WGTMAT グラフのそれぞれの頂点を１から９までとする。各頂点と隣接する辺を重 | | | | さとおき それ以外を０とおいた各頂点をインデックスとする２次元配列である. | | | | (出力) | | | | f1 (f1[i,j])の和集合が求める辺集合である. | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加) 様式７ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | 問題解説 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増沢 善子 | 文書作成者: 増沢 善子 | +-------------------------------------+---------------------------------------+ | 作成期間: 60/10/25 ー / / | 文書作成期間: 60/10/25 ー / / | +-------------------------------------+---------------------------------------+ | | | あるグラフに対して 辺の重みの和が最小となる全域木（すべての頂点を含んで | | | | いるグラフ）を最小全域木という。 | | | | ここでは 各辺に重みとしてある実数が割り当てられている重み付きグラフの２次 | | | | 元テーブルを使って表現したものである。 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): CMINIMAL1(P301) | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 増沢善子21SS1159 | 文書作成者･学生番号: 増沢善子21SS1159 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/ 1/ ー / / | 文書作成期間: 62/ 2/ ー / / | +-------------------------------------+---------------------------------------+ | 親モジュール: ＡＬＧＯＳ | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | SARA BAASE,COMPUTER ALGORITHMS. | +-------------------------------------+ | | 形式: コンプリート | ADDISON WESLEY,1978 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: | | MINIMAL SPANNING TREE の +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBO PASCAL | | コンプリートプログラム +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | | PC-9801 , MS-DOS | | | | | | | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | MINIMAL SPANNING TREE | | +-------------------------------------+---------------------------------------+ | 呼び出し法: CMINSPAN1 | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | 　　　　　　　 | | | | 　　　　　　　　　　　　　　　　　　　　 | | | | >CMINSPN1 | | | | 2.（入力） | | | | ファイル名 ADJ1,WGT1 のテキストファイルに次のデータを入れておく | | | | ADJ1 １から９ までをノード番号とし、ノード番号をインデックスとする２次 | | | | 元配列ノードiからノードjに辺があれば(i,j)=1、辺がなければ(i,j)=0とする | | | | WGT1 １から９ までをノード番号とし、ノード番号をインデックスとする２次 | | | | 元配列 でノードi からノードj に 辺があれば(i,j)=重さ, 辺がなければ(i,j)=0 | | | | とする。 | | | | （出力) MINIMAL SPANNING TREEが出力される。１から９までをノード番号とし, | | | | ノード番号をインデックスとする２次元配列でノードiからノードjに辺があれば | | | | (i,j)=1, 辺がなければ（i,j)=0 とする。 | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加) 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | ++-------++ +-----+ ++-------++ +---------+ | | ||module || +const + ||maxnode|| |9 | | | ||spnmin1||-+--+ +----|| ||----| | | | || || | + + || || | | | | ++-------++ | +-----+ ++-------++ +---------+ | | | | | | +-----+ ++-------++ +--------++ +---------+ | | | +type + ||mat || |array [ || |integer | | | +--+ +-+--|| ||----|1 .. max||----| | | | | + + | || || |node , 1|| | | | | | +-----+ | ++-------++ | .. maxn|| +---------+ | | | | |ode ] || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | ++-------++ +--------++ +---------+ | | | | ||nodeset|| |array [ || |integer | | | | +--|| ||----|1 .. max||----| | | | | | || || |node ] || | | | | | | ++-------++ | || +---------+ | | | | | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | ++-------++ +--------++ +---------+ | | | | ||edgeset|| |array [ || |integer | | | | +--|| ||----|1 .. max||----| | | | | || || |node , 1|| | | | | | ++-------++ | .. maxn|| +---------+ | | | |ode ] || | | | | || | | | | || | | | | || | | | | || | | | +--------++ | | | | | | ++-------++ +-----+ +-------+ ++-------++ | | | ||procedu|| +paramet+ +var adjma+ ||mat || | | +--||re mins||-+--+ er +-+--|t , wgtma|----|| || | | ||pn1 || | + + | |t | || || | | ++-------++ | +-----+ | | | ++-------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | + + | | | | +-------+ | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫj | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | +-------+ ++-------++ | | | | +var f1 + ||edgeset|| | | | +--| |----|| || | | | + + || || | | | +-------+ ++-------++ | | | | | | +-----+ +-------+ +---------+ | | | +var + +e + |integer | | | +--+ +-+--| |----| | | | | + + | + + | | | | | +-----+ | +-------+ +---------+ | | | | | | | | +-------+ ++-------++ | | | | +v1 , v2 ,+ ||nodeset|| | | | +--| v3 |----|| || | | | | + + || || | | | | +-------+ ++-------++ | | | | | | | | +-------+ ++-------++ | | | | +f2 , f3 + ||edgeset|| | | | +--| |----|| || | | | | + + || || | | | | +-------+ ++-------++ | | | | | | | | +-------+ +---------+ | | | | +i , j , x+ |integer | | | | +--| , y |----| | | | | | + + | | | | | | +-------+ +---------+ | | | | | | | | +-------+ +---------+ | | | | +e1 , e2 ,+ |integer | | | | +--| z |----| | | | | | + + | | | | | | +-------+ +---------+ | | | | | | | | +-------+ ++-------++ | | | | +w + ||edgeset|| | | | +--| |----|| || | | | | + + || || | | | | +-------+ ++-------++ | | | | | | | | +-------+ ++-------++ | | | | +sav + ||nodeset|| | | | +--| |----|| || | | | + + || || | | | +-------+ ++-------++ | | | | | | ++-------++ +-----+ +-------+ | | | ||procedu|| +paramet+ +var e1 , + | | +--||re find||-+--+ er +----|e2 |---| | | || || | + + + + | | | ++-------++ | +-----+ +-------+ | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | +-----+ +-------+ | | | | +var + +x , i , j+ | | | +--+ +-+--| |---| | | | + + | + + | | | | +-----+ | +-------+ | | | | | | | | | | +-------+ | | | | | +weight + | | | | +--| |---| | | | + + | | | | +-------+ | | | | | | | | +---------+ | | | | |x := 9999| | | | ++-| | | | | | | | | | | | +---------+ | | | | | | | | | +--------++ +--------++ | | | | |for i :=|| |for j :=|| | | | +-| 1 to ma||----| 1 to ma||---| | | |xnode || |xnode || | | | | || | || | | | | || | || | | | | || | || | | | | || | || | | | | || | || | | | | || | || | | | +--------++ +--------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ +-----+ +-------+ | | | ||procedu|| +paramet+ +var sav + | | +--||re init||-+--+ er +----| |---| | | || || | + + + + | | | ++-------++ | +-----+ +-------+ | | | | | | | | +-----+ +-------+ | | | | +var + +i + | | | +--+ +----| |---| | | | + + + + | | | | +-----+ +-------+ | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | T: T: | | +-------+ +-------+ +---------+ | | |if f2 [ + |if wgtma+ |x := wgtm| | |---|i , j ] +----|t [ i , +--+-|at [ i , | | | |= 1 | |j ] <= x | | |j ] | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | + | + | | | | | | + | + | | | | | +-------+ +-------+ | +---------+ | | | | | | | +---------+ | | | |e1 := i | | | | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |e2 := j | | | +-| | | | | | | | +---------+ | | | | ++-------++ | | ||nodeset|| | |---|| || | | || || | | ++-------++ | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | +--------++ +---------+ | | | | |for i :=|| |sav [ i ]| | | | +--| 1 to ma||----| := 0 | | | | |xnode || | | | | | | || +---------+ | | | | || | | | | || | | | | || | | | | || | | | | || | | | +--------++ | | | | | | ++-------++ +-----+ +-------+ | | | ||functio|| +paramet+ +v1 + | | +--||n array||-+--+ er +----| |---| | | ||eq || | + + + + | | | ++-------++ | +-----+ +-------+ | | | | | | | | +---------+ | | | | |boolean | | | | +--| | | | | | | | | | | | +---------+ | | | | | | | | +-----+ +-------+ | | | | +var + +i + | | | +--+ +-+--| |---| | | | + + | + + | | | | +-----+ | +-------+ | | | | | | | | | | +-------+ | | | | | +j + | | | | +--| |---| | | | + + | | | | +-------+ | | | | | | | | +---------+ | | | | |j := true| | | | ++-| | | | | | | | | | | | +---------+ | | | | | | | | | +--------++ +---------+ | | | | |for i :=|| |j := ( v1| | | | | | 1 to ma||----| [ i ] = | | | | | |xnode || |1 ) and j| | | | | | || | | | | | | | || | | | | | | | || | | | | | | | || | | | | | | | || | | | | | | | || | | | | | | +--------++ +---------+ | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | ||nodeset|| | |---|| || | | || || | | ++-------++ | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | +---------+ | | |boolean | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | +---------+ | | | | |arrayeq :| | | | +-|= j | | | | | | | | | +---------+ | | | | | | ++-------++ +-----+ +-------+ | | | ||functio|| +paramet+ +v2 + | | +--||n adjac||-+--+ er +-+--| |---| | | ||ent || | + + | + + | | | ++-------++ | +-----+ | +-------+ | | | | | | | | | | +-------+ | | | | | +x + | | | | +--| |---| | | | | + + | | | | | +-------+ | | | | | | | | | | +-------+ | | | | | +var y + | | | | +--| |---| | | | + + | | | | +-------+ | | | | | | | | +---------+ | | | | |boolean | | | | +--| | | | | | | | | | | | +---------+ | | | | | | | | +-----+ +-------+ | | | | +var + +i + | | | +--+ +----| |---| | | | + + + + | | | | +-----+ +-------+ | | | | | | | | +---------+ | | | | |y := 0 | | | | ++-| | | | | | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | ++-------++ | | ||nodeset|| | |---|| || | | || || | | ++-------++ | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | +--------++ +-------+ | | | | |for i :=|| |if ( v2 + | | | | | 1 to ma||----|[ i ] = +---| | | | |xnode || |1 ) and | | | | | | || |( adjmat | | | | | | || | [ x , i | | | | | | || | ] = 1 ) | | | | | | || | and ( s | | | | | | || |av [ i ] | | | | | | || | = 0 ) | | | | | +--------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | + | | | | | | + | | | | | +-------+ | | | | | T: | | | | +-------+ +---------+ | | | | |if y <> + |sav [ y ]| | | | | |0 +----| := 1 | | | | | | + | | | | | | +-------+ +---------+ | | | | | T: | | | | +-------+ +---------+ | | | | |if y = 0+ |adjacent | | | | +-| +-+--|:= false | | | | | + | | | | | | +-------+ | +---------+ | | | | F: | | | | +---------+ | | | | |adjacent | | | | +--|:= true | | | | | | | | | +---------+ | | | | | | ++-------++ +-----+ +-------+ | | | ||functio|| +paramet+ +y + | | +--||n incid||-+--+ er +----| |---| | | ||ent || | + + + + | | | ++-------++ | +-----+ +-------+ | | | | | | | | +---------+ | | | | |integer | | | | +--| | | | | | | | | | | | +---------+ | | | | | | | | +-----+ +-------+ | | | | +var + +i + | | | +--+ +-+--| |---| | | | + + | + + | | | | +-----+ | +-------+ | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | T: | | +---------+ | | |y := i | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | +-------+ | | | | | +z + | | | | +--| |---| | | | + + | | | | +-------+ | | | | | | | | +---------+ | | | | |i := 0 | | | | ++-| | | | | | | | | | | | +---------+ | | | | | | | | | +--------++ +-------+ | | | | |for z :=|| |if f2 [ + | | | | | 1 to ma||----|y , z ] +---| | | | |xnode || |= 1 | | | | | | || | | | | | | | || | | | | | | | || | | | | | | | || | | | | | | | || | + | | | | | || | + | | | | +--------++ +-------+ | | | | | T: | | | | +-------+ +-------+ | | | | |if i = 0+ +write (+ | | | +-| +-+-- | '?' ) | | | | | + | + + | | | +-------+ | +-------+ | | | | F: | | | | +---------+ | | | | |incident | | | | +--|:= i | | | | | | | | | +---------+ | | | | | | ++-------++ +-----+ +-------+ | | | ||functio|| +paramet+ +f2 + | | +--||n empty||-+--+ er +----| |---| | | || || | + + + + | | | ++-------++ | +-----+ +-------+ | | | | | | | | +---------+ | | | | |boolean | | | | +--| | | | | | | | | | | | +---------+ | | | | | | | | +-----+ +-------+ | | | | +var + +i , j + | | | +--+ +-+--| |---| | | | + + | + + | | | | +-----+ | +-------+ | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | T: | | +---------+ | | |i := z | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | ||edgeset|| | |---|| || | | || || | | ++-------++ | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | +-------+ | | | | | +x + | | | | +--| |---| | | | + + | | | | +-------+ | | | | | | | | +---------+ | | | | |x := true| | | | ++-| | | | | | | | | | | | +---------+ | | | | | | | | | +--------++ +--------++ | | | | |for i :=|| |for j :=|| | | | | | 1 to ma||----| 1 to ma||---| | | | |xnode || |xnode || | | | | | || | || | | | | | || | || | | | | | || | || | | | | | || | || | | | | | || | || | | | | | || | || | | | | +--------++ +--------++ | | | | | | | | | +---------+ | | | | |empty := | | | | +-|x | | | | | | | | | +---------+ | | | | | | ++-------++ +-----+ +-------+ | | | ||functio|| +paramet+ +e1 , e2 + | | +--||n in_v2||-+--+ er +----| |---| | | || || | + + + + | | | ++-------++ | +-----+ +-------+ | | | | | | | | +---------+ | | | | |integer | | | | +--| | | | | | | | | | | | +---------+ | | | | T: | | | | +-------+ +---------+ | | | | |if v2 [ + |in_v2 := | | | | +--|e1 ] = 1 +-+--|e1 | | | | | + | | | | | | +-------+ | +---------+ | | | | F: | | | | +-------+ | | | | |if v2 [ + | | | +--|e2 ] = 1 +---| | | | + | | | +-------+ | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | +---------+ | | |boolean | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | +---------+ | | |x := ( f2| | |---| [ i , j | | | |] = 0 ) a| | | |nd x | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | | | | | | | | | | +---------+ | | |integer | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | T: | | +---------+ | | |in_v2 := | | |+--|e2 | | || | | | || +---------+ | || | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | +--------++ +---------+ | | | |for i :=|| |v1 [ i ] | | | ++-| 1 to ma||--+-|:= 0 | | | | |xnode || | | | | | | | || | +---------+ | | | | || | | | | | | || | | | | | | || | | | | | | || | | | | | | || | | | | | +--------++ | | | | | | | | | | | | | +---------+ | | | | | |v2 [ i ] | | | | | | |:= 0 | | | | | | | | | | | | | +---------+ | | | | | | | | | | | +---------+ | | | | | |v3 [ i ] | | | | | +-|:= 0 | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |x := 1 | | | | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |v1 [ x ] | | | | |:= 1 | | | | | | | | | +---------+ | | | | | | | +--------++ +---------+ | | | |for i :=|| |v3 [ i ] | | | | | 2 to ma||----|:= 1 | | | | |xnode || | | | | | | || +---------+ | | | | || | | | | || | | | | || | | | | || | | | | || | | | +--------++ | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ || F: | || +-------+ | || +writeln+ | |+-- | ( '?' | | | +) + | | +-------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | +--------++ +--------++ +---------+ | | | |for i :=|| |for j :=|| |f1 [ i , | | | | | 1 to ma||----| 1 to ma||--+-|j ] := 0 | | | | |xnode || |xnode || | | | | | | | || | || | +---------+ | | | | || | || | | | | | | || | || | | | | | | || | || | | | | | | || | || | | | | | | || | || | | | | | +--------++ +--------++ | | | | | | | | | | | | | +---------+ | | | | | |f2 [ i , | | | | | +-|j ] := 0 | | | | | | | | | | | +---------+ | | | | | | | +--------++ ++-------++ | | | |while no|| ||init ( || | | +-|t arraye||--+-||sav ) || | | |q ( v1 )|| | || || | | | || | ++-------++ | | | || | | | | | || | | | | | || | | | | | || | | | | | || | | | | +--------++ | | | | | | | | | +--------++ +---------+ | | | |while ad|| |e := inci| | | | |jacent (||--+-|dent ( y | | | | | v2 , x || | |) | | | | |, y ) || | | | | | | | || | | | | | | | || | | | | | | | || | | | | | | | || | | | | | | | || | | | | | | +--------++ | +---------+ | | | | | | | | | | | +-------+ | | | | | |if wgtma+ | | | | +-|t [ x , +---| | | | |y ] < wg | | | | | |tmat [ y | | | | | | , e ] | | | | | | | | | | | | | | | | | | + | | | | | + | | | | +-------+ | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | T: | | +---------+ | | |f2 [ y , | | |-+-|e ] := 0 | | | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | | ||init ( || | | | ||sav ) || | | | || || | | | ++-------++ | | | | | | | +--------++ +---------+ | | | |while ad|| |v2 [ y ] | | | | |jacent (||--+-|:= 1 | | | | | v3 , x || | | | | | | |, y ) || | +---------+ | | | | || | | | | | | || | | | | | | || | | | | | | || | | | | | | || | | | | | +--------++ | | | | | | | | | | | | | +---------+ | | | | | |v3 [ y ] | | | | | | |:= 0 | | | | | | | | | | | | | +---------+ | | | | | | | | | | | +---------+ | | | | | |f2 [ y , | | | | | | |x ] := 1 | | | | | | | | | | | | | +---------+ | | | | | | | | | | | +---------+ | | | | | |f2 [ x , | | | | | +-|y ] := 1 | | | | | | | | | | | +---------+ | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | +---------+ | | | |f2 [ e , | | | | |y ] := 0 | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |f2 [ x , | | | | |y ] := 1 | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |f2 [ y , | | | +-|x ] := 1 | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | T: | | | +-------+ +-------+ | | | |if empty+ +writeln+ | | | | ( f2 ) +---- | ( 'no | | | | | + |spannin| | | | +-------+ |g tree'| | | | | | ) | | | | | | | | | | | | | | | | | | | | | | | + + | | | | +-------+ | | | | | | | ++-------++ | | | ||find ( || | | | ||e1 , e2|| | | | || ) || | | | ++-------++ | | | | | | | +---------+ | | | |x := in_v| | | | |2 ( e1 , | | | | |e2 ) | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |f1 [ e1 ,| | | | | e2 ] := | | | | |1 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |f1 [ e2 ,| | | | | e1 ] := | | | | |1 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | アルゴリズム流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: MINIMAL1 | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 増 沢 善 子 | 文書作成者: 増 沢 善 子 | +-------------------------------------+---------------------------------------+ | 作成期間: 61/01/ ー 61/02/ | 文書作成期間: 61/01/ ー 61/02/ | +-------------------------------------+---------------------------------------+ | | | | | | +---------+ | | | |f2 [ e1 ,| | | | | e2 ] := | | | | |0 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |f2 [ e2 ,| | | | | e1 ] := | | | | |0 | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |v1 [ x ] | | | | |:= 1 | | | | | | | | | +---------+ | | | | | | | +---------+ | | | |v2 [ x ] | | | +-|:= 0 | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+