第12回 基礎プログラミング II レポート課題 氏名 : 藤井 駿 学籍番号 : C1091307 語学クラス : 英語3 コース : 地域共創 チーム名 : FAKE チームホームページアドレス : http://roy/~c109001/fake/fake.html プロジェクト名 : 1) シラベマス 2) SIPSIPサロンパス 1. 企画書・解説書などの必要なものは全て完成している。プログラムの方はあ る程度の骨組が完成している。あとは、細かいところを修正していけば良い。 そして、見映えの良いものが出来るようにしていきたい。 2. シラベマスのほうは完成間近となった。あとは、見映えの良さと、methodを 入れていないのでこれから入れていけるようにしていく。また、dat を全て 完成させることだ。 SIPSIPサロンパスは、今のところは基本となるところは出来ている。あとは、 自分の選択外の表示のところをおこなうことだ。Hashもしっかり入れること が出来た。 3. 担当プロジェクト : シラベマス 担当部分は、プログラム & ページ & 企画書 & デモ版 4. シラベマスの指摘 ・コメント削除が出来たら良い。 ・コメント記入欄へいく所を見のがしてしまう ・誤字脱字を確認 SIPSIPサロンパスの指摘 ・実行結果の所をグラフにする。 ・色を付ける。 ・タイトルを付ける。 ・文字の大きさを工夫する。 5. コメント削除については、教えてもらい出来るようにしていく。 コメント欄へいくのを見のがしてしまうことについては、バックグラウンド を変えて改善した。 誤字脱字については、しっかり見直しをしていきたい。 6. ※ 担当分野に解説は莫大のデータ量のため添付ファイルを参照して下さい。 A. 担当外のため実施せず B. デモ版(syllabus_demo.html)
プログラム(syllabus_demo.rb) #!/usr/bin/env ruby $KCODE = 'e' # 文字化け防止 require 'cgi' # CGI を宣言 c = CGI.new("html4") kamo = c["kamoku"] print("Content-type: text/html; charset=EUC-JP\n\n") # 日本語コード print("\n") print("\n") print("\n") print("
\n") print("
%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end if kamo == "基礎の自然科学(化学)" open("kagaku.dat","r")do|data| while line = data.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ =~ line print("%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end if kamo == "基礎の自然科学(物理)" open("buturi.dat","r")do|data| while line = data.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ =~ line print("%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end if kamo == "基礎の自然科学(生物)" open("seibutu.dat","r")do|data| while line = data.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ =~ line print("%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end if kamo == "社会調査論(2009)" open("syakaichosa.dat","r")do|data| while line = data.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S)/ =~ line print("%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end if kamo == "情報と社会(旧:生活と情報)" open("zhouhotosyakai.dat","r")do|data| while line = data.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ =~ line print("%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end if kamo == "法と現代社会(旧:憲法)" open("kenpou.dat","r")do|data| while line = data.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ =~ line print("%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end if kamo == "会計学基礎論" open("kaikeigaku.dat","r")do|data| while line = data.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ =~ line print("%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end if kamo == "山形地域論(2010)" open("yamagatachiiki.dat","r")do|data| while line = data.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ =~ line print("%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end if kamo == "共創まちづくり論(2010)" open("sirabasu_12.dat","r")do|data| while line = data.gets if /(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/ =~ line print("%s
\n",$1) print("%s
\n",$2) print("%s
\n",$3) print("%s
\n",$4) print("%s
\n",$5) print("%s
\n",$6) print("%s
\n",$7) print("%s
\n",$8) end end end end print("