様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): ERAST | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 北村 健一 E2J045 | 文書作成者･学生番号: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | 親モジュール: CERAST | 子モジュール: | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | 飯島 淳一 訳 PASCAL入門 | +-------------------------------------+ | | 形式: サブルーチン | 工学社 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: ERAST.SRC | | ﾊｲﾁｬ-ﾄのﾗｲﾌﾞﾗﾘ-の一部 +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBOPASCAL,MS-DOS| | 1から10000迄の素数をかもしだすﾌﾟﾛｸ +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | ﾞﾗﾑ | PC-9801 | | | | | | MS-DOS | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | ERAST | | +-------------------------------------+---------------------------------------+ | 呼び出し法: ERAST.SRC | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加) 様式７ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | 問題解説 | +-------------------------------------+ +----------------------+ | モジュール名: ERAST | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | まず２は素数だが、他の偶数は素数でないから、３から先は、奇数だけをかく｡ | | 次に３から数えて３つめ毎の数,9,15,21,････を取り除く。次に5から数えて５つめ | | 毎の数,15,25,35,････を取り除く。次に7から数えて７つめ毎の数,11から数えて11 | | め毎の数,････と順々に取り除く。こういうふうにして残った数,素数だけを表す｡ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: ERAST | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | +-----+ +-------+ +---------+ | | +paramet+ +nyuuryoku+ |integer | | | +--+ er +----| |----| | | | | + + + + | | | | | +-----+ +-------+ +---------+ | | | | | | +-----+ ++-------++ +---------+ | | | +const + ||gendo || |10000 | | | +--+ +----|| ||----| | | | | + + || || | | | | | +-----+ ++-------++ +---------+ | | | | | | +--------++ | | | |array [ || | | | +--|2 .. ||---| | | | |gendo ] || | | | | | || | | | | | || | | | +-------+ | | || | | | +find_s + | | || | | | +--| |-+ | || | | | | + + | || | | | | +-------+ +--------++ | | | | | | | +-----+ | +-------+ +---------+ | | | +var + | +count , + |0 .. | | | +--+ +-+--|insuu , |----|gendo | | | | + + +baisuu + | | | | | +-----+ +-------+ +---------+ | | | | | ++-------++ ++-------++ | +---------+ | | ||module || ||procedu|| | |find_s [ | | | ||erast ||----||re ||-+ +--|insuu ] | | | || || ||erast || | | |:= true | | | ++-------++ ++-------++ | | | | | | | | | | | | | +--------++ | | | | | | |for || | | | | | ++-|insuu :=||-+ | | | | | |2 to || | | | | | |nyuuryok|| +---------+ | | | |u || T: | | | | || +---------+ +-------+ | | | | || |insuu := | +write + | | | | || +-|insuu + | +- |( | | | | | || | |1 | | |insuu :| | | | +--------++ | +---------+ | |5 ) | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | + + | | | | | | | +-------+ | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: ERAST | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | |boolean | | |---| | | | | | | | +---------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | T: | | +---------+ | | |find_s [ | | | +-|insuu * | | | | |baisuu ] | | | | |:= false | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +---------+ | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: ERAST | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | | | | | | | +---------+ | | | | | | | |insuu := | | | | | | | | |1 | | | | | | | | | | | | | | | | | +---------+ | | | | | | | | | | | | | | | +--------++ | +-------+ | +--------++ | | | |for || | |if + | |for || | | +-|count :=||--+-|find_s [ +--+-|baisuu ||---| | |1 to || |insuu ] | |:= 1 to || | | |nyuuryok|| | | |nyuuryok|| | | |u - 1 || | | |u div || | | | || | | |insuu || | | | || | | | || | | | || | + | || | | | || | + | || | | +--------++ +-------+ +--------++ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式６ +-------------------------------------+----------------+----------------------+ | システム名: ＡＬＧＯＰＡＫ | | ｱﾙｺﾞﾘｽﾞﾑ流れ図 | +-------------------------------------+ +----------------------+ | モジュール名: ERAST | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者: 北村 健一 E2J045 | 文書作成者: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | | | | +-------+ | | | |if + | | |+--|find_s [ +--+ | || |insuu * | | || |baisuu | | || |] | | || | | | || | | | |+- | + | | | + | | +-------+ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 様式９ +-------------------------------------+----------------+----------------------+ | ｼｽﾃﾑ名(ｺｰﾄﾞ): ＡＬＧＯＰＡＫ | | システム報告書概要 | +-------------------------------------+ +----------------------+ | ﾓｼﾞｭｰﾙ名(ｺｰﾄﾞ): CERAST | ﾗｲﾌﾞﾗﾘ-登録番号: | +-------------------------------------+---------------------------------------+ | 作成者･学生番号: 北村 健一 E2J045 | 文書作成者･学生番号: 北村 健一 E2J045 | +-------------------------------------+---------------------------------------+ | 作成期間: 62/01/ ー 62/01/ | 文書作成期間: 62/01/ ー 62/01/ | +-------------------------------------+---------------------------------------+ | 親モジュール: | 子モジュール: ERAST | +-------------------------------------+---------------------------------------+ | 講義名・課題名: 卒業研究 | 参考文献(著者名、書名、出版社、発行年)| +-------------------------------------+ | | 開発形態: 新規 | 飯島 淳一 訳 PASCAL入門 | +-------------------------------------+ | | 形式: コンプリート | 工学社 | +-------------------------------------+---------------------------------------+ | 利用対象者: 一般 | 格納ﾒﾃﾞｨｱ形式: フロッピーディスク | +-------------------------------------+---------------------------------------+ | 目的（問題解説、機能解説−制限事項）| 格納ﾒﾃﾞｨｱ番号、ﾌｧｲﾙ名: CERAST.SRC | | ﾊｲﾁｬ-ﾄのﾗｲﾌﾞﾗﾘ-の一部 +---------------------------------------+ | | 記述言語・走行ＯＳ: TURBOPASCAL,MS-DOS| | 1から10000迄の素数をかもしだすﾌﾟﾛｸ +---------------------------------------+ | | 走行条件（ハードウェア、ソフトウェア）| | ﾞﾗﾑ | PC-9801 | | | | | | MS-DOS | +-------------------------------------+---------------------------------------+ | キーワード（適用分野、手法など） ： | 分類コード（ＣＲコードを使用） ： | | CERAST | | +-------------------------------------+---------------------------------------+ | 呼び出し法: CERAST.SRC | | | +-----------------------------------------------------------------------------+ | 操作手順(ｺﾝﾌﾟﾘｰﾄﾌﾟﾛｸﾞﾗﾑ(ﾒｲﾝﾌﾟﾛｸﾞﾗﾑ)の場合:1.システム起動手順､2.データ入出力 | | 手順と形式､3.終了手順) | | (ｻﾌﾞﾙｰﾁﾝの場合:1.呼び出し形式-引き数の並べ方-､2.親ルーチン､3.子ルー | | チン､4.その他) | | 1. >TURBO | | | | >Y | | | | >R | | | | >CERAST.SRC | | | | 2. （入力） ｎ | | | | （出力） 2,3,5,7,11,13,･････,(nまでの素数) | | | | 3. >(CR) | | | | >Q | | | | | | | | | | | | | | | | | | | | | | | +-----------------------------------------------------------------------------+ 注. システム１つにつき１枚作成 必要な場合モジュール１つにつき１枚作成(ｲﾝﾀｰﾌｪｰｽ仕様書-様式１-に追加)