様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 北村 健一 E2J045 | 文書作成者･学生番号: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | 親モジュール: CSIERPIN | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | WIRTH 著 ｱﾙｺﾞﾘｽﾞﾑ+ﾃﾞ-ﾀ構造=ﾌﾟﾛｸﾞﾗﾑ | +-------------------------------------+ | | 形式: サブルーチン | 日本ｺﾝﾋﾟｭ-ﾀ協会 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: SIERPIN.SRC | | ﾊｲﾁｬ-ﾄのﾗｲﾌﾞﾗﾘ-の一部 +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBOPASCAL,MS-DOS| | ｼｪﾙﾋﾟﾝｽｷ-曲線を描くﾌﾟﾛｸﾞﾗﾑ +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | | PC-9801 | | | | | | MS-DOS | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | SIERPIN | | +-------------------------------------+---------------------------------------+ | 呼び出し法: SIERPIN.SRC | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加) 様式７ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | 問題解説 | +-------------------------------------+ +----------------------+ | モジュール名: SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | ｼｪﾙﾋﾟﾝｽｷ-曲線をﾋﾙﾍﾞﾙﾄ曲線と同様,ﾌﾟﾛｯﾀによって描きだす｡ｼｪﾙﾋﾟﾝｽｷ-は、交点を | | 持たない閉曲線であり、このことは、基本再帰形が開いた曲線でなければならず, | | また４つの部分は、再帰ﾊﾟﾀ-ﾝ自身には、属さないﾘﾝｸによって結合されていること | | を意味する｡再帰の形は、簡単に定められる。４つの部分をＡ，Ｂ，Ｃ，Ｄで表し | | 結合線も そのままの形で描くことにする｡４つの再帰ﾊﾟﾀ-ﾝは,90ﾟの回転を除いて | | は、実際には、同一である。 | | | | | | （入力例） | | | | | | ３ １０００ | | | | ４ ５００ | | | | ５ ２００ | | | | ６ １００ | | | | ７ ５０ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | ++-------++ +---------+ | | ||procedu|| |x2 := x | | | +--||re ||----|; | | | | ||setplot|| |y2 := y | | | | ++-------++ +---------+ | | | | | ++-------++ | ++-------++ | | ||module || | ||line ( || | | ||sierpin||-+ +-||x2 , || | | || || | | ||y2 , x || | | ++-------++ | | ||, y ) || | | | | || || | | | ++-------++ | || || | | | ||procedu|| | || || | | +--||re ||--+ || || | | ||plot || | || || | | ++-------++ | ++-------++ | | | | | | | ++-------++ | | | ||setplot|| | | +-|| || | | || || | | ++-------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | T: | | ++-------++ | | ||a ( i || | | +-||- 1 ) || | | | || || | | | ++-------++ | | | | | | | +---------+ | | | |x := x + | | | | |h ; | | | | |y := y - | | | | +---------+ | | | | | | | ++-------++ | | | ||plot || | | | || || | | | || || | | | ++-------++ | | | | | | | ++-------++ | | | ||b ( i || | | | ||- 1 ) || | | | || || | | | ++-------++ | | | | | | | +---------+ | | | |x := x + | | | | |2 * h | | | | | | | | | +---------+ | | | | | | ++-------++ +-------+ | ++-------++ | | ||procedu|| |if i > + | ||plot || | | +--||re a ||----|0 +--+ || || | | | || || | + | || || | | | ++-------++ +-------+ | ++-------++ | | | | | | | | | ++-------++ | | | | ||d ( i || | | | | ||- 1 ) || | | | | || || | | | | ++-------++ | | | | | | | | | +---------+ | | | | |x := x + | | | | | |h ; | | | | | |y := y + | | | | | +---------+ | | | | | | | | | ++-------++ | | | | ||plot || | | | | || || | | | | || || | | | | ++-------++ | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | | | | | ++-------++ | | | | ||a ( i || | | | +-||- 1 ) || | | | || || | | | ++-------++ | | | T: | | | ++-------++ | | | ||b ( i || | | | +-||- 1 ) || | | | | || || | | | | ++-------++ | | | | | | | | | +---------+ | | | | |x := x - | | | | | |h ; | | | | | |y := y - | | | | | +---------+ | | | | | | | | | ++-------++ | | | | ||plot || | | | | || || | | | | || || | | | | ++-------++ | | | | | | | | | ++-------++ | | | | ||c ( i || | | | | ||- 1 ) || | | | | || || | | | | ++-------++ | | | | | | | | | +---------+ | | | | |y := y - | | | | | |2 * h | | | | | | | | | | | +---------+ | | | | | | | | ++-------++ +-------+ | ++-------++ | | | ||procedu|| |if i > + | ||plot || | | +--||re b ||----|0 +--+ || || | | | || || | + | || || | | | ++-------++ +-------+ | ++-------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | | | ||a ( i || | | | | ||- 1 ) || | | | | || || | | | | ++-------++ | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | | | | | +---------+ | | | | |x := x + | | | | | |h ; | | | | | |y := y + | | | | | +---------+ | | | | | | | | | ++-------++ | | | | ||plot || | | | | || || | | | | || || | | | | ++-------++ | | | | | | | | | ++-------++ | | | | ||b ( i || | | | +-||- 1 ) || | | | || || | | | ++-------++ | | | T: | | ++-------++ | ++-------++ | | ||module || | ||c ( i || | | ||sierpin||-+ +-||- 1 ) || | | || || | | || || | | ++-------++ | | ++-------++ | | | | | | | | | +---------+ | | | | |x := x - | | | | | |h ; | | | | | |y := y + | | | | | +---------+ | | | | | | | | | ++-------++ | | | | ||plot || | | | | || || | | | | || || | | | | ++-------++ | | | | | | | | | ++-------++ | | | | ||d ( i || | | | | ||- 1 ) || | | | | || || | | | | ++-------++ | | | | | | | | | +---------+ | | | | |x := x - | | | | | |2 * h | | | | | | | | | | | +---------+ | | | | | | | | ++-------++ +-------+ | ++-------++ | | | ||procedu|| |if i > + | ||plot || | | +--||re c ||----|0 +--+ || || | | | || || | + | || || | | | ++-------++ +-------+ | ++-------++ | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | | | | | ++-------++ | | | | ||b ( i || | | | | ||- 1 ) || | | | | || || | | | | ++-------++ | | | | | | | | | +---------+ | | | | |x := x - | | | | | |h ; | | | | | |y := y - | | | | | +---------+ | | | | | | | | | ++-------++ | | | | ||plot || | | | | || || | | | | || || | | | | ++-------++ | | | | | | | | | ++-------++ | | | | ||c ( i || | | | +-||- 1 ) || | | | || || | | | ++-------++ | | | T: | | | ++-------++ | | | ||d ( i || | | | +-||- 1 ) || | | | | || || | | | | ++-------++ | | | | | | | | | +---------+ | | | | |x := x + | | | | | |h ; | | | | | |y := y + | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | ++-------++ | | | | ||plot || | | | | || || | | | | || || | | | | ++-------++ | | | | | | | | ++-------++ +-------+ | ++-------++ | | | ||procedu|| |if i > + | ||a ( i || | | |--||re d ||----|0 +--+ ||- 1 ) || | | | || || | + | || || | | | ++-------++ +-------+ | ++-------++ | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | | | +---------+ | | | |y := y - | | | | |2 * h | | | | | | | | | +---------+ | | | | | | | ++-------++ | | | ||plot || | | | || || | | | || || | | | ++-------++ | | | | | | | ++-------++ | | | ||c ( i || | | | ||- 1 ) || | | | || || | | | ++-------++ | | | | | | | +---------+ | | | |x := x - | | | | |h ; | | | | |y := y + | | | | +---------+ | | | | | | | ++-------++ | | | ||plot || | | | || || | | | || || | | | ++-------++ | | | | | | | ++-------++ | | | ||d ( i || | | +-||- 1 ) || | | || || | | ++-------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | +-----+ +-------+ +---------+ | | +paramet+ +n + |integer | | | +--+ er +----| |----| | | | | + + + + | | | | | +-----+ +-------+ +---------+ | | | | | | ++-------++ | | | ||opengra|| | | ++-||ph || | | || || || | | || ++-------++ | | || | | | || ++-------++ | | || ||cleargr|| | | || ||aph || | | || || || | | || ++-------++ | | || | | | || +---------+ | | || |h := h0 | | | || |; | | | || |x := | | | || |1000 ; | | | || |y := | | | || |maxint - | | | || |1 | | | || | | | | || | | | | || +---------+ | | || | | | || ++-------++ | | || ||setplot|| | | || || || | | || || || | | || ++-------++ | | || | | | || ++-------++ | | || ||a ( n || | | || ||) || | | || || || | | || ++-------++ | | || | | | || +---------+ | | || |x := x + | | | || |h ; | | | || |y := y - | | | || +---------+ | | || | | | || ++-------++ | | || ||plot || | | || || || | | || || || | | || ++-------++ | | || | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: SIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | || | | | ++-------++ ++-------++ || ++-------++ | | ||module || ||procedu|| || ||b ( n || | | ||sierpin||----||re ||-+| ||) || | | || || ||sierpin|| | || || | | ++-------++ ++-------++ | ++-------++ | | | | | | | +---------+ | | | |x := x - | | | | |h ; | | | | |y := y - | | | | +---------+ | | | | | | | ++-------++ | | | ||plot || | | | || || | | | || || | | | ++-------++ | | | | | | | ++-------++ | | | ||c ( n || | | | ||) || | | | || || | | | ++-------++ | | | | | | | +---------+ | | | |x := x - | | | | |h ; | | | | |y := y + | | | | +---------+ | | | | | | | ++-------++ | | | ||plot || | | | || || | | | || || | | | ++-------++ | | | | | | | ++-------++ | | | ||d ( n || | | | ||) || | | | || || | | | ++-------++ | | | | | | | +---------+ | | | |x := x + | | | | |h ; | | | | |y := y + | | | | +---------+ | | | | | | | ++-------++ | | | ||plot || | | +-|| || | | || || | | +---------+ | | | +-----------------------------------------------------------------------------+ 様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): CSIERPIN | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 北村 健一 E2J045 | 文書作成者･学生番号: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | 親モジュール: | 子モジュール: SIERPIN | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | ｱﾙｺﾞﾘｽﾞﾑ + ﾃﾞ-ﾀ 構造 = ﾌﾟﾛｸﾞﾗﾑ | +-------------------------------------+ | | 形式: コンプリート | WIRTH 著 日本ｺﾝﾋﾟｭ-ﾀ協会 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: CSIERPIN.SRC | | ﾊｲﾁｬ-ﾄのﾗｲﾌﾞﾗﾘ-の一部 +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBOPASCAL,MS-DOS| | ｼｪﾙﾋﾟﾝｽｷ-曲線を描くﾌﾟﾛｸﾞﾗﾑ +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | | PC-9801 | | | | | | MS-DOS | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | CSIERPIN | | +-------------------------------------+---------------------------------------+ | 呼び出し法: CSIERPIN.SRC | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | 1. >GRX | | | | >TURBO | | | | >Y | | | | >R | | | | >CSIERPIN.SRC | | | | 2. （入力） N（位数）＿h0 | | | | （出力） 図形 | | | | 3. >(CR) | | | | >Q | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加)