第8回 基礎プログラミング I レポート課題
氏名:大島 藍
学籍番号:C1090331
語学クラス:中国語
コース(系):福祉コース
1、筆記問題
A、
インターネットなどで自分の名前と自分のパスワードを入力すると、場
所と自分が購入した商品と購入した商品の値段がでてくる。また、ゲオの会員カー
ドにも場所を曜日等に変えるなどすると使える。
B、
pan{c109033}
% cat web_data_c109033.dat [~/public_html/web08]
#氏名 #場所 #商品 #値段 #パスワード
大島藍 山形 化粧品 3500 cdpl
青木千紗 山形 iphone 3000 bgd
東北連介 秋田 ゲーム 6000 lsdp
佐藤大 岩手 食品 1500 prfgd
上野春 北海道 ipad 5000 dskl
韓国太 愛媛 みかん 3000 pldsf
中国龍 愛知 本 1200 pwxcv
語学絵 沖縄 ゴーヤ 500 lkfgd
宮川秀 福井 サバ 350 dfghtj
公益順 千葉 野菜 1300 yhfrk
2、プログラム問題
A、
・設定
インターネットなどで自分の名前と自分のパスワードを入力すると、場
所と自分が購入した商品と購入した商品の値段がでてくる。
web_order_c109033.rb を改造し、 HTML 形式で出力する。
name = 名前
basyo = 場所
syouhin = 商品
nedan = 値段
pas = パスワード
#!/usr/koeki/bin/ruby
name = Array.new # name という配列をつくる
basyo = Array.new # basyo という配列をつくる
syouhin = Array.new # syouhin という配列をつくる
nedan = Array.new# # nedan という配列をつくる
pas = Array.new # pas という配列をつくる
i = 0 # 配列の番号
print("\n") # ホームページの始まり
print("ネットの販売\n") # title の始まりと終わり
print("\n") # head の始まり
print("\n") # head の終わり
print("") # 本文の始まり
open("web_data_c109033.dat" , "r") do |html| # web_data_c109033.datという
# ファイルを開き html という
# ファイル名にする
# html がなくなったら終了
while line = html.gets # html がなくなったら終了
if /(\S+)\s+(\S+)\s+(\S+)\s+(\d+)\s+(\S+)/ =~ line
# 文字列 空白 文字列 空白 文字列 空白 数字 空白 文字列 に
# マッチするものを line も中にいれる
name[i] = $1 # $1 を name という配列にいれる
basyo[i] = $2 # $2 を basyo という配列にいれる
syouhin[i] = $3 # $3 を syouhin という配列にいれる
nedan[i] = $4.to_i # $4 を 正数に変換して nedan というる
# 配列にいれる
pas[i] = $5 # $5 を pas という配列にいれる
printf("%s さん
\n", name[i])
print("ネット販売です。
\n")
printf("%s にある %s の県別ネットで人気があります。
\n", basyo[i], syouhin[i])
printf("さて、購入品 %d 円になります。
\n",nedan[i])
printf("%s パスでネットに入れます。
\n", pas[i])
end # if に対する end
end # whlie に対する end
i += 1 # 次の配列にいれるために 1 をたす
end # open に対する end
print("\n") # 本文の終了
print("\n") # ホームページの終了
・実行結果
pan{c109033}% ./web_html_c109033.rb [~/public_html/web08]
ネットの販売
大島藍 さん
ネット販売です。
山形 にある 化粧品 の県別ネットで人気があります。
さて、購入品 3500 円になります。
cdpl パスでネットに入れます。
青木千紗 さん
ネット販売です。
山形 にある iphone の県別ネットで人気があります。
さて、購入品 3000 円になります。
bgd パスでネットに入れます。
東北連介 さん
ネット販売です。
秋田 にある ゲーム の県別ネットで人気があります。
さて、購入品 6000 円になります。
lsdp パスでネットに入れます。
佐藤大 さん
ネット販売です。
岩手 にある 食品 の県別ネットで人気があります。
さて、購入品 1500 円になります。
prfgd パスでネットに入れます。
上野春 さん
ネット販売です。
北海道 にある ipad の県別ネットで人気があります。
さて、購入品 5000 円になります。
dskl パスでネットに入れます。
韓国太 さん
ネット販売です。
愛媛 にある みかん の県別ネットで人気があります。
さて、購入品 3000 円になります。
pldsf パスでネットに入れます。
中国龍 さん
ネット販売です。
愛知 にある 本 の県別ネットで人気があります。
さて、購入品 1200 円になります。
pwxcv パスでネットに入れます。
語学絵 さん
ネット販売です。
沖縄 にある ゴーヤ の県別ネットで人気があります。
さて、購入品 500 円になります。
lkfgd パスでネットに入れます。
宮川秀 さん
ネット販売です。
福井 にある サバ の県別ネットで人気があります。
さて、購入品 350 円になります。
dfghtj パスでネットに入れます。
公益順 さん
ネット販売です。
千葉 にある 野菜 の県別ネットで人気があります。
さて、購入品 1300 円になります。
yhfrk パスでネットに入れます。
・考察
ここまでは、1年生の内容をもとにプログラムを作成できる。
B、
・設定
web_html_c109033.rb を改良し、 file open の書き込みモードを使用し HTML文
書を作成する。
#!/usr/koeki/bin/ruby
name = Array.new # name という配列をつくる
basyo = Array.new # basyo という配列をつくる
syouhin = Array.new # syouhin という配列をつくる
nedan = Array.new # nedan という配列をつくる
pas = Array.new # pas という配列をつくる
i = 0 # 配列の番号
open("c109033.html", "w") do |fire| # c109033.html というファイルに書く
# fire はファイルの名前
fire.print("\n") # ホームページの始まり
fire.print("ネットの販売\n") # title の始まりと終わり
fire.print("\n") # head の始まり
fire.print("\n") # head の終わり
fire.print("\n") # 本文の始まり
open("web_data_c109033.dat" , "r") do |htm| # web_data_c109033.datという
# ファイルを開き html という
# ファイル名にする
# html がなくなったら終了
while line = html.gets # html がなくなったら終了
if /(\S+)\s+(\S+)\s+(\S+)\s+(\d+)\s+(\S+)/ =~ line
# 文字列 空白 文字列 空白 文字列 空白 数字 空白 文字列 に
# マッチするものを line も中にいれる
name[i] = $1 # $1 を name という配列にいれる
basyo[i] = $2 # $2 を basyo という配列にいれる
syouhin[i] = $3 # $3 を syouhin という配列にいれる
nedan[i] = $4.to_i # $4 を # 正数に変換して nedan という
# 配列にいれる
pas[i] = $5 # $5 を pas という配列にいれる
fire.printf("%s さん
\n", name[i])
fire.print("ネット販売です。
\n")
fire.printf("%s にある %s の県別ネットで人気があります。
\n", basyo[i], syouhin[i])
fire.printf("さて、購入品 %d 円になります。
\n",nedan[i])
fire.printf("%s パスでネットに入れます。
\n", pas[i])
end # if に対する end
end # whlie に対する end
i += 1 # 次の配列にいれるために 1 をたす
end # open に対する end
fire.print("\n") # 本文の終了
fire.print("\n") # ホームページの終了
end # open に対する end
fire で c109033.html に書き込める。
・実行結果
pan{c109033}% ./web_open_w_c109033.rb [~/public_html/web08]
pan{c109033}% cat c109033.html [~/public_html/web08]
ネットの販売