いろんな言語で宿題スレ 第三編

1 名前：デフォルトの名無しさん mailto:sage [2009/12/22(火) 09:57:19 ] 第二編も512Kbyte越えで終了しました。 前スレで未解決な課題は順次このスレにコピーします。 175 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 20:05:10 ] >>174 使用言語：なでしこ 「#{HEX(色選択)}」をコピー 176 名前：デフォルトの名無しさん mailto:sage [2010/01/06(水) 20:33:14 ] >>174 使用言語：J wd 'clipcopy "',(":3{.". wd 'mbcolor'),'"' 177 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 07:18:22 ] pc12.2ch.net/test/read.cgi/tech/1260532772/575 # [1]C言語入門 # [2]2つの複素数の和と積を計算して表示するプログラムを作成せよ。 # 構造体complexを定義し、和の複素数を返すadd関数、積の複素数を返すmul関数、複素数を表示するprint関数をそれぞれ作成し # mainでは2つの複素数をキーボードから読み込み、関数を呼ぶ。 # 虚数部にはiを付加せよ。 178 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 07:29:05 ] pc11.2ch.net/test/read.cgi/db/1252492296/393 # SELECT文について質問です。 # テストデータ # 名前 |1回目点数|2回目点数| # ----+--------+--------| # 田中 | 100　　　　| 90　　　 　| # 鈴木 | 80　　 　　 | 80　　　 　| # # 成績マスタ # 成績 | 点数 | # ----+-------| # A　　　|　100　 　| # B　　　|　 90　　　| # C　　　|　 80　　　| # ・欲しい結果 # 名前 |成績（1回目）|成績（2回目）| # ----+---------+---------| # 田中 | A　　　　　| B　　　　　| # 鈴木 | C　　　　　| C　　　　　| # ・説明 2TABLEを連結してSELECTしたいのですが、テストデータの点数を # 下に、成績マスタから（1回目）と（2回目）の値をひっぱってくるには # どう書けばよいでしょうか。 179 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 07:41:15 ] >>178 % Prolog 引数を順に処理する場合、それぞれ副目標を明示的に立てる。 テストデータ(田中,100,90). テストデータ(鈴木,80,80). 成績マスタ('A',100). 成績マスタ('B',90). 成績マスタ('C',80). 欲しい結果(_欲しい結果) :- 　　findall([_氏名,_一回目成績,_二回目成績],欲しい結果(_氏名,_一回目成績,_二回目成績),_欲しい結果). 欲しい結果(_氏名,_一回目成績,_二回目成績) :- 　　テストデータ(_氏名,_一回目点数,_二回目点数), 　　成績マスタ(_一回目成績,_一回目点数), 　　成績マスタ(_二回目成績,_二回目点数). 180 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 09:43:07 ] >>178 % Prolog 元スレでpc11.2ch.net/test/read.cgi/db/1252492296/393の % 成績マスタは以下のような範囲型にしたかったのではないか、との指摘があった。 テストデータ(田中,100,90). テストデータ(鈴木,80,80). 成績マスタ('A',91,100). 成績マスタ('B',81,90). 成績マスタ('C',71,80). 欲しい結果(_欲しい結果) :- 　　findall([_氏名,_一回目成績,_二回目成績],欲しい結果(_氏名,_一回目成績,_二回 目成績),_欲しい結果). 欲しい結果(_氏名,_一回目成績,_二回目成績) :- 　　テストデータ(_氏名,_一回目点数,_二回目点数), 　　成績マスタ(_一回目成績,_点数下限1,_点数上限1), 　　_一回目成績 >= _点数下限1, 　　_一回目成績 =< _点数上限1, 　　成績マスタ(_二回目成績,_点数下限2,_点数上限2), 　　_二回目成績 >= _点数下限2, 　　_二回目成績 =< _点数上限2. 181 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 09:49:26 ] >>180 (>>178) % Prolog このような場合、RDBからは遠くなるが、 テストデータ(田中,100,90). テストデータ(鈴木,80,80). 成績マスタ('A',_点数) :- _点数 >= 91,_点数 =< 100. 成績マスタ('B',_点数) :- _点数 >= 81,_点数 =< 90. 成績マスタ('C',_点数) :- _点数 >= 71,_点数 =< 80. 欲しい結果(_欲しい結果) :- 　　findall([_氏名,_一回目成績,_二回目成績],欲しい結果(_氏名,_一回目成績,_二回目成績),_欲しい結果). 欲しい結果(_氏名,_一回目成績,_二回目成績) :- 　　テストデータ(_氏名,_一回目点数,_二回目点数), 　　成績マスタ(_一回目成績,_一回目点数), 　　成績マスタ(_二回目成績,_二回目点数). % の方がPrologの特性を生かしたコードといえるだろう。 182 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 13:10:38 ] >>177 使用言語：J add=:dyad def 'x+y' mul=:dyad def '(-/x*y),+/y*|.x' print=:monad def 'smoutput (":y),''i'' ' a=: 1 2 b=: 3 4 print a add b 4 6i print a mul b _5 10i NB.標準サポートの複素数の場合 datatype 1j2 complex 1j2 + 3j4 4j6 1j2 * 3j4 _5j10 183 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 16:55:46 ] pc12.2ch.net/test/read.cgi/tech/1260532772/582 # 【質問テンプレ】 # [1] 授業単元：セミナー # [2] 問題文(含コード&リンク)：∫(x=0,4)∫(y=0,3)∫(x=0,2) 4*x^3 + x*y^2 + 5*y + y*z + 6*z dz dy dx # 　を解くプログラムを書け 184 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 18:27:21 ] >>183 使用言語：maxima (%i1) integrate(integrate(integrate(4*x^3+x*y^2+5*y+y*z+6*z,z,0,2),y,0,3),x,0,4); (%o1) 2040 x= が２回出てきますが、２回目のx= は勝手にz= と解釈しました。 185 名前：デフォルトの名無しさん mailto:sage [2010/01/07(木) 20:30:55 ] pc12.2ch.net/test/read.cgi/tech/1260532772/588 # [1] 授業単元： 情報プログラム # # [2] 問題文(含コード&リンク)： # 　　次の関数の積分を、台形公式を使って求めたい。 # 　　ただし、積分区間は(0,2）きざみ幅はh=0.01とする。 # 　　f(x)=(4-x2)1/2 # # 　※台形公式は積分区間を(a,b)とすると n=(b-a)/h # S=h*{1/2(f(a))+f(b))+f(a+h)+f(a+2h)+…+f(a+(n-1)h}となる。 # 186 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 05:28:41 ] pc12.2ch.net/test/read.cgi/tech/1260532772/604 # [1] 授業単元： 演習チャレンジ問題 # [2] 問題文(含コード&リンク)： # あるint型配列array[256]の中身をランダムシャッフルしたい。 # 0〜127の範囲の値を被らずに出す乱数関数randEx(Seed, i)を作成せよ。(iは0〜127) # ※Seedを変えることにより、異なるパターンのランダム列が出るようにする。 # ※array[i]とarray[128+randEx(Seed, i)]をスワップすることで並列計算において一気にシャッフルするのが目的です。 # ※「スワップするかしないか」の部分は別なので考えなくて良いです。 187 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 07:53:39 ] pc11.2ch.net/test/read.cgi/db/1252492296/397 # 基本的なことで申し訳ないんですけど、 # あるテーブルから特定のデータが1件でも存在するかどうかの判断をしたいのですが 、 # COUNT()はテーブル内の全部のレコードを検索してしまうので、もっと高速でスマー トな方法は無いか存じないでしょうか。 # 188 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 08:03:41 ] >>187 % Prolog (!)に意味があります。 あるテーブルから特定のデータが1件でも存在するかどうかの判断する(Q) :- call(Q),!. 189 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 08:08:37 ] >>187 % Prolog テーブル名,引数ならびとして与えられたら、 あるテーブルから特定のデータが1件でも存在するかどうかの判断する(_テーブル名,_引数ならび) :- 　　Q =.. [_テーブル名|_引数ならび], 　　call(Q),!. 190 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 08:14:23 ] >>187 % Prolog >>189は単位節データベースの自然なコードだが、条件が付加されていて、 % そこに副作用を生じる目標が記述されている懸念がある場合は、clause/2を使う。 あるテーブルから特定のデータが1件でも存在するかどうかの判断する(_テーブル名,_引数ならび) :- 　　Q =.. [_テーブル名|_引数ならび], 　　clause(Q,_),!. 191 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 08:31:47 ] >>187 % Prolog >>190にさらに条件を付加したい場合は、_条件として引数の条件、あるいは % 引数と引数の関係を記述します。 あるテーブルから特定のデータが1件でも存在するかどうかの判断する(_テーブル名,_引数ならび,_条件) :- 　　Q =.. [_テーブル名|_引数ならび], 　　clause(Q,_), 　　call(_条件),!. 192 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 10:54:08 ] pc12.2ch.net/test/read.cgi/tech/1260532772/606 # プログラミングの問題なんですが、if文と繰り返し（for,whileのいずれか）を利用して次の問題を作成します。 # # 米ドル紙幣としては次のような紙幣とコインがある。 # 100ドル、50ドル、20ドル、10ドル、5ドル、2ドル、1ドル # 50セント、25セント、10セント、5セント、1セント # # 問題は、キーボードから日本円を入力し、まずドルに変換した後ドルを最適な紙幣とコインに振り分けるプログラムを作成しなさい。但し1ドルを92.69円として換算しなさい。そして、日本円が0円の時にプログラムを終了する。 193 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 11:02:14 ] >>186 使用言語：J randEx=:dyad def 'y{?~128[(9!:1)x' 123 randEx 0 126 123 randEx 1 57 8 16 $ 123 randEx i.128 126 57 86 113 124 79 46 115 67 27 101 54 70 4 30 5 62 98 31 121 11 9 119 50 75 89 71 117 68 74 108 81 22 47 34 102 55 3 48 105 96 122 52 110 85 88 14 58 116 84 1 82 118 20 39 44 19 41 28 93 16 78 92 87 17 104 6 123 109 23 40 100 91 73 24 111 106 38 80 94 83 56 60 33 42 15 66 13 72 64 32 8 103 77 29 112 18 76 25 10 125 127 65 51 37 43 97 0 35 36 120 45 2 90 26 12 99 114 21 63 7 95 59 69 61 107 49 53 321 randEx 0 116 321 randEx 1 46 8 16 $ 321 randEx i.128 116 46 112 67 45 53 9 7 106 114 82 3 20 86 77 110 113 42 1 29 117 18 93 58 38 52 90 15 79 97 25 50 99 49 27 51 126 89 111 16 115 119 4 39 19 76 54 118 0 108 65 125 47 55 63 14 88 103 73 48 30 23 59 87 5 33 101 36 91 12 22 95 24 43 74 37 69 26 28 57 68 94 11 32 122 92 100 66 104 34 123 17 75 13 40 2 60 56 70 98 64 62 84 80 109 35 85 121 105 61 102 44 8 71 96 124 107 41 83 21 127 10 120 78 6 31 72 81 194 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 16:35:48 ] pc12.2ch.net/test/read.cgi/tech/1260532772/620 # [1] 授業単元： プログラミング演習 # [2] 問題文(含コード&リンク)：掃き出し法。 # 　　0,1のみを成分にもつｎ次正方行列Aが２重リストとしてある。Aにmod2の行基本変形を施して、階段行列に変形するプログラム 195 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 17:20:51 ] >>183 使用言語：Yacas In> Integrate(x,0,4)Integrate(y,0,3)Integrate(z,0,2)4*x^3+x*y^2+5*y+y*z+6*z Out> 2040 196 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 18:26:58 ] >>183 使用言語：Axiom (8) -> integrate(integrate(integrate(4*x^3+x*y^2+5*y+y*z+6*z,z=0..2),y=0..3),x=0..4) (8) 2040 197 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 23:10:58 ] >>192 使用言語：J a=:10000 50000 20000 1000 500 200 100 50 25 10 5 1 b=:<;._1' 100$ 50$ 20$ 10$ 5$ 2$ 1$ 50C 25C 10C 5C 1C' f=:}:@;@(((}:@>@{.,(0,{.@>@}.)#:{:@>@{.);}.@>@{:)^:(#@>@}.)) g=:3 :'((b#~*),.;/@-.&0)f a;~<.y%0.9269' g 1980 +---+-+ |10$|2| +---+-+ |1$ |1| +---+-+ |25C|1| +---+-+ |10C|1| +---+-+ |1C |1| +---+-+ 198 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 23:18:24 ] >>197 テーブルのデータ間違えました。訂正します。 > a=:10000 50000 20000 1000 500 200 100 50 25 10 5 1 a=:10000 5000 2000 1000 500 200 100 50 25 10 5 1 199 名前：デフォルトの名無しさん mailto:sage [2010/01/08(金) 23:36:00 ] >>171 foldl' 使えば Prelude> :m +Data.List Prelude Data.List> sqrt $ 6*(foldl' (+) 0 [1/(x*x)|x<-[1..1000000]]) 3.14159169866051 200 名前：デフォルトの名無しさん mailto:sage [2010/01/09(土) 08:09:47 ] >>199 foldl' というは知らなかったので、調べてみたら、 第9回　Haskellはなぜ遅いと思われているのか - 本物のプログラマはHaskellを使う：ITpro itpro.nikkeibp.co.jp/article/COLUMN/20070403/267180/?ST=develop&P=1 に sum でスタックオーバーフローする例がのっていました。 正直、まだよくわかっていません。 どうして sum の定義にこの foldl' の方を使わないのかな。 なんか他に問題がでてくるのかな。 201 名前：デフォルトの名無しさん [2010/01/09(土) 21:09:52 ] pc12.2ch.net/test/read.cgi/tech/1260532772/633 # [1]授業単元：プログラミング２ # [2]問題文：２つの最大５０桁の実数を入力し、その和・差・積を求めるプログラム 202 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 04:48:39 ] pc12.2ch.net/test/read.cgi/tech/1260532772/636 # [1] 授業単元：数値計算 # [2] 問題文(含コード&リンク)：　ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10342.txt # # ３元連立非線形方程式 # # x_1^2 + x_2^2 + x_3^2 - 4 = 0 # x_1^2 - 2x_1 + x_2^2 + x_3 - 2 = 0 # x_1^2 + sin^2x_2 + x_3^2 - 3 = 0 # # を解くNewton法のC++のプログラムをつくり、領域 0 < x_1,x_2,x_3 < 2　にある解を求めよ # ただし、Jacobianの計算に必要となる偏導関数は数値微分により計算し、連立１次方程式の解法には # Gaussの消去法あるいはLU分解法を用いること 203 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 04:54:14 ] pc12.2ch.net/test/read.cgi/tech/1260532772/637 # [1] 授業単元：コンピュターグラフィック # [2] 問題文(含コード&リンク)： # 1次元配列を2次元配列に・2次元配列を1次元配列に変換する二つのモジュール # ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10343.txt # # int Conv_1Dto2D(unsigned char *src, unsigned char dest[][X_SIZE]) # /*機能 : src を dest に格納する。戻り値は格納した要素数 # src: ソースとなる 1 次元配列 # dest: 格納先となる 2 次元配列 # */ # # int Conv_2Dto1D(unsigned char src[][X_SIZE], unsigned char *dest) # /*機能 : src を dest に格納する。戻り値は格納した要素数 # src: ソースとなる 2 次元配列 # dest: 格納先となる 1 次元配列 # */ 204 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 04:55:40 ] pc12.2ch.net/test/read.cgi/tech/1260532772/639 # [1] アルゴリズム # # [2] 自然数の数列を入力し # 数列内にあるｎよりも大きい数と小さい数が # nの前後にそれぞれ一つ以上ある場合、そのnを出力する。 # # フローチャートは以下です。 # # 　　　　順数列の入力 # 　　　　↓　　　　　　↓ # 数列数が５以上　４以下→終了(4以下のときどれも除外できないので) # 　　　　↓ # 数列の中で最大最小の値と # 最初と最後に入力した値は除外できる。 # 　　　　↓ # 残りの数値に前後に大小の値が一つ以上あれば除外 # 　　　　↓ # 残った値を表示して終了 205 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 04:59:12 ] pc12.2ch.net/test/read.cgi/tech/1260532772/644 # [1]授業単元：プログラミング２ # [2]問題文：次のような10×10の半角文字+を碁盤の目として、一対コンピュータで五目並べ # 　　　　　をするプログラムを作成せよ。碁石を表す文字は、半角の@,0を用いよ。 # # 　　　abcdefghij # a++++++++++ # b++++++++++ # c+++++@++++ # d++++++0+++ # e++++++++++ # f++++++++++ # g++++++++++ # h++++++++++ # i++++++++++ # j++++++++++ # @の場所は、cf , 0の場所は、dg とあらわす # # ・人とコンピュータのどちらかが先手になるか選択できる # ・先手の33を禁止する # ・勝敗の判定ができる。（置く場所がなくなったら引き分けとする） # ・コンピュータは人が3と4を作った場合、それを止める場所におく # ・すでに石がおいてある場所に人が石を置こうとした場合、再入力を促す。 206 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 05:04:02 ] pc12.2ch.net/test/read.cgi/tech/1260532772/645 # [1] 授業単元：プログラミング実習a # [2] 問題文(含コード&リンク)： ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10346.txt # # 実行例のとおりに，自分で五つの問題文を入力して練習するタイピング練習ソフトを # 作成せよ．ただし，問題文は入力した五つの中から10題がランダムに出題されるものと # し，最後に正解数を表示すること． # # 実行例 (下線部はユーザーの入力) # # 20文字までの問題文を五つ入れてください # # 1つ目の問題文：abcdefghijkl # # 2つ目の問題文：January # # 3つ目の問題文：xxyyzz0368GST # # 4つ目の問題文：MondayFriday # # 5つ目の問題文：qwerty.uiop,RTYU 207 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 05:08:37 ] pc12.2ch.net/test/read.cgi/tech/1260532772/640 # [1] 授業単元：Cプログラミング # [2] 問題文(含コード&リンク)：ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10344.txt # 　　2つの名前を入力してステータス（ランダム）を決定し　途中経過を表示し # 　　　　　　　　　　　　　　攻撃が当たった時は文字色を変える # # 24行程度に纏められないため、問題文のリンクを直接参照してください 208 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 05:11:10 ] pc12.2ch.net/test/read.cgi/tech/1260532772/642 # [1] 初級C言語実習 # [2] 次の関数copyStringを同じ動作をするように書き換えよ。ただし変数の追加、削除（未使用を含む） # if文(三項演算子を含む）while,do while,for文 goto文を使用してはならない。 # char *copyString(char *s){ # char *p=s,*t=s,tmp; # if(s==NULL)return NULL; # while(*p++); p--;while(!*p)p--; # while(p>s){tmp=*p;*p--=*s;*s++=tmp;} # return t; # } 209 名前：デフォルトの名無しさん mailto:sage [2010/01/10(日) 12:25:56 ] pc12.2ch.net/test/read.cgi/tech/1260532772/659 # [1] 授業単元： オペレーティングシステム # [2] 問題文(含コード&リンク)： # fork,exec*システムコールを用いて簡単なコマンドインタープリタ # (mysh)を作成せよ。但し、作成するコマンドインタープリタは以下の # 機能をサポートすること。 # ・設定ファイル(.path)にコマンドサーチパスを指定することが出来る。 # なお、ファイル内のパスの指定方法は、各自が考え定義すること。 # （パスにないコマンドを入力した場合には、見つからない旨のエラー # メッセージを出力すること。） # ・パイプを利用して複数（可変個）のコマンドの入出力を結合する # ことができる。 # ・リダイレクションを使用してコマンドへの入力をファイルから得たり、 # ファイルへ出力したりすることができる # ・コマンド実行中にCtrl-Cを入力すると、現在のコマンドの実行を # 中断する # ・exitを入力すると、myshを終了する。 # 210 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 05:10:41 ] pc12.2ch.net/test/read.cgi/tech/1260532772/676 # [1] 授業単元：データ構造とアルゴリズム # [2] 問題文(含コード&リンク)：prolog.asia/img/shinryoshitsu.pdf # 211 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 05:15:57 ] pc12.2ch.net/test/read.cgi/tech/1260532772/678 # [1] 授業単元： 基礎プログラミングおよび演習 # [2] 問題文(含コード&リンク)： ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10352.txt # # あるWebページに対する24時間分の閲覧者の名前、閲覧開始時刻および閲覧継続時間を表す「閲覧データ」があるとしよう。 # 1名以上の閲覧データから、閲覧している人数がもっとも多い30分刻みでの時間帯を求め、そのときの閲覧者名を印字する # プログラムを作成せよ。状況によっては日をまたぐこともあるが、ここではどの時間帯に閲覧が多いのかを知りたいので # 日の違いは考えなくてよい。各閲覧データは標準入力から、 # # 閲覧者名 # 閲覧開始時刻 閲覧継続時間 # # の2行で与えられる。ここで閲覧者名は英小文字2文字の後に4桁の数字が続く。閲覧開始時刻は24時間制での時を100倍し、 # 分を加えた数を表す4桁の数字、閲覧継続時間は分を表す高々3桁の数字である。時刻および時間は30分刻み(つまり0分か30分) # である。たとえば、 # # ku7535 # 0130 60 # # は、名前がku7535、開始時刻が1時30分、継続時間が60分、つまり1時30分から2時30分直前まで閲覧していたことを表す。 # 　まず閲覧データに対する構造体 user を定義し、それを要素とする大きさNの大域的な配列 users を用意せよ(Nはマクロ # である)。次に、N人分のデータを読み込むか、閲覧者名としてアスタリスク(*)が与えられるまで、標準入力から閲覧データを # 読み込み、配列 users にセットするとともに閲覧データを返す関数 int read_users(void) を作成せよ。最後に配列 users の # 先頭からn個の閲覧データを対象に、24時間中で最大人数が閲覧している30分刻みでの時間帯と、そのときの閲覧者名を印字 # する関数 void print_prime_time(int n) を定義せよ。ただし最大閲覧者数となる時間帯は一般に複数あることに注意すること。 # さらに以下のmain関数と組み合わせてプログラムを作成せよ。 212 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 05:24:23 ] pc12.2ch.net/test/read.cgi/tech/1260532772/685 # [1] 授業単元：プログラミング # [2] 問題文(含コード&リンク)：2つの名前を入力しステータス（ランダム）を決定し 勝敗表示する。 # 213 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 19:56:43 ] pc12.2ch.net/test/read.cgi/tech/1260532772/703 # [1] 授業単元： C # [2] 問題文(含コード&リンク)： # 　　100以下の素数をすべて出力するプログラムを作りたい。 # 自然数xに対して2以上で√x以下の素数で割り切れない数が素数である。ただし１は素数でも合成数でもない。 214 名前：デフォルトの名無しさん mailto:sage [2010/01/11(月) 19:58:48 ] pc12.2ch.net/test/read.cgi/tech/1260532772/710 # [1] 授業単元： プログラミング演習 # [2] 問題文(含コード&リンク)： 数値には初期値が与えられている。 # 　　　　　　　　　　　　　　　この配列を昇順に並べ替えるプログラムを作成しなさい。 # # 表示結果：　数値[00]=80 # 数値[01]=40 # 数値[02]=23 # 数値[03]=69 # 数値[04]=10 # # 　ソート後 # 数値[01]=10 # 数値[02]=23 # 数値[03]=40 # 数値[04]=69 # 数値[03]=80 215 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 08:12:02 ] pc12.2ch.net/test/read.cgi/tech/1260532772/714 # 1] 授業単元： プログラミング演習 # [2] 問題文(含コード&リンク)： ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10353.txt # # 連立1次方程式の一般的な数値解法にはGaussの単純消去法がある。 # この方法についてアルゴリズムを調べ下記の連立1次方程式を例に解法手順をC言語で表示せよ。 # # 方程式 # x1 + 5x2 + x3 =2 # 3x1 + 4x2 = 2 # 9x1 + 10x2 +4x3 = 8 216 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 08:13:26 ] pc12.2ch.net/test/read.cgi/tech/1260532772/715 # [1] 授業単元：プログラミング実習 # [2] 問題文(含コード&リンク)： # 文字列text[]と文字列pat[]が与えられたとき、文字列text中に文字列patが含まれるときは最初に現れるその文字列の先頭の位置（0〜）を返し、含まれないときは-1を返す関数searchを作成せよ。 # また、その関数を用いて、2つの文字列text[]とpat[]（空白は含まない）を入力すると関数searchの値を返すプログラムを作成せよ。ここでtextとpatには長さ1以上の文字列が入っているものとする。 # （例：text[]="thisisatesttextdata"の中に、pat[]="this"は0の位置に、pat[]="test"は7の位置に現れる。） # 217 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 08:14:57 ] pc12.2ch.net/test/read.cgi/tech/1260532772/718 # [1] 授業単元： C言語演習 # [2] 問題文(含コード&リンク)： 再帰を使って自然対数の底eを求めるプログラムを作成しなさい # 下記のようにnを0から30まで増加させながら # n=0のときe=1/0!　n=30のときe=1/0!+1/1!+1/2!+1/3!+……1/30!　の計算を行い下 のように表示しなさい # # n=0:e=1.000000000000000 # n=1:e=2.000000000000000 # ・ # ・ # n=30:e=2.718281828459046 # 218 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 08:17:00 ] pc12.2ch.net/test/read.cgi/tech/1260532772/722 # [1]授業単元：プログラミング２ # [2]問題文：以下の機能を備えた対コンピュータの五目並べを作成せよ # 　・置く場所を縦と横の数字で指定する # ・人とコンピュータのどちらかが先手になるか選択できる # ・先手の３３を禁じる # ・勝敗の判定ができる（置く場所がなくなったら引き分け） # ・コンピュータは人が３と４を作った場合、それを止める場所に石を置く # ・すでに石がおいてある場所に人が石を置こうとした場合、再入力を促す 219 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 08:21:25 ] pc12.2ch.net/test/read.cgi/tech/1248012902/705 # 【　課題　】自然言語処理、構文解析のCYK法のプログラム # 【　形態　】1. Javaアプリケーション(main()で開始) # 【　期限　】2010/01/18 # 【　Ver　 】java version "1.6.0_17" # 【　用語　】CYK法　 ime.nu/ja.wikipedia.org/wiki/CKY%E6%B3%95 220 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 08:48:39 ] pc12.2ch.net/test/read.cgi/tech/1024024666/548 # このスレにあった10行囲碁ソースを元に作ってみようかな。 # 展開して調べたら、あれに入ってる評価関数は # # 石数に比例するもの # ・石が取れる # ・アタリにいける # ・囲いにいける # ・隣接させる 221 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 20:38:24 ] pc12.2ch.net/test/read.cgi/tech/1260532772/739 # [1] 授業単元： プログラミング # [2]問題文：ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyf0355.txt # ★演習問題1* # 次の仕様に従って，生徒の科目得点から平均点と評価を求め，出力フォームのように両面表示するプログラムを作成せよ # (仕様) # (a)プログラムに組み込むデータについては，構造体の初期値として与え， # メンバは，生徒番号，各科目点数，平均点，評価で，次のとおりとすること。 # (b)処理手順は，次のとおりとすること， # 生徒番号　国語　数学　理科　社会 # 1001　　　　85　　74　　63　　90 # 1002　　　　78　　65　　70　　62 # 1003　　　　89　　92　　88　　76 # 1004　　　　32　　48　　66　　25 # 1005　　　　92　　76　　81　　98 # 各人の４科目の平均点を求め，構造体に格納すること # 各人の評価を求め，構造体に格納すること，尚，４段階の評価基準は，次のとおとすること # 平均点　　　　　　　評価 # 80点以上　　　　　　 Ａ # 70点以上80点未満　　 Ｂ # 60点以上70点未満 Ｃ # 60点未満 Ｄ 222 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 22:05:13 ] pc12.2ch.net/test/read.cgi/tech/1260532772/739 # [1] 授業単元： プログラミング # [2]問題文：ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyf0355.txt # ★演習問題2* # 構造体を用いて，２個の複素数(x＝1.0十2.0i,x＝2.0十1.0i)の和と積 # を求めるプログラムを構造体を用いて作成せよ. # 　(出力結果例) # #　X=1.0+2.0i #　y=2.0+1.0i #　x+y=3.0+3.0i #　x+y=0.0+5.0i 223 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 22:08:32 ] pc12.2ch.net/test/read.cgi/tech/1260532772/739 # [1] 授業単元： プログラミング # [2]問題文：ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10355.txt # ★演習問題３ # 次の手順に従ってプログラムを作成せよ． # 　（a）mainO関数の処理 # （a.l）以下の11個の点数を配列として持つ．ただし，最後の-1はストッ # パーとする.（a.2）この配列を「成績データ取得関数」にアドレス渡しする。 # 　78　86　56　77　47　63　94　37　50　74　-1 # （a,3）成績データ取得関数」より，次の構造体を返却値にして，最高点，最低点均点を得る。 # （a.4）最高点、最低点、平均点を表示する。 # 　（a）成績データ取得関数の処理 # （b.1）引数で渡された点数が-1になるまでループし，最高点，最低点，合 # 　　　計点，点数総数を求める. # （b.2）合計点と点数総数から平均点を求める. # （b.3）最高点、最低点、平均点を上記（a.3）と同じ型の構造体にセットし # 　　　て返却する. # （出力結果例） # 最高点=94 # 最低点=37 # 平均点=66.2 224 名前：デフォルトの名無しさん mailto:sage [2010/01/12(火) 22:11:53 ] pc12.2ch.net/test/read.cgi/tech/1260532772/741 # [1] 授業単元： プログラミング2 # [2]問題文：ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10356.txt # 下図(A)のテキストファイルは、ある実験を行ったときのメモであり、 # 実験の年月日と使用した材料及びその使用量が記載されている（スペースは全て半角スペース）。 # そこでこのファイルを読み込んで、最も多くの量を使用した材料の記号とその合計量、及び１回当たりの平均使用量を、 # 図(B)に示すような別のテキストファイルに書き出すプログラムを作成せよ。なおこの実験で使用する材料はＡ、Ｂ、Ｃの３種類のみである。 # # プログラム作成に際しては、次の条件を満たすものとする。 # ・入力用のファイル名はJikkenMemo.txtで固定とし、一々キーボードからは指定しない。 # ・出力用のファイル名はキーボードから任意の名前で指定する。 # ・JikkenMemo.txtでは今回は13回分の実験が書き込まれているが、今後の実験の追加にも対応できるようにすること（即ち13行に限定しないこと）。 # ・出力ファイルにおける使用量の単位ｇは数値の後につける。 # ・出力ファイルにおける数値の表示はいずれも小数点以下１桁までとする。 # # （補足） # 　キーボードから入力した１文字がAという文字であるとき「Ａです」と表示させるには、 # 　　char cc; # 　　scanf("%c",&cc); # 　　if(cc=='A') printf("Aです\n"); # とすればよい。 225 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 05:20:50 ] pc12.2ch.net/test/read.cgi/tech/1260532772/744 # [1] プログラミング # [2] ０から１０の中からランダムに整数の２組を決める。それを平面上の座標と、座標を１０個つくる。 # ユーザに座標を入力させ、その点から最も遠い点と近い点を求める。 # 最も近い点がユーザが入力した点と重なったら◎を出力する。 # 結果は下記のように出力。 # △ # 　　　　　　　　　　　　　　　　△ # 　　　　　△ # 　　　　　　　　　　　　　　　　　　　　　　×　○ # # # # ● # # ×：ユーザが入力した点 # ○：最も近い点 # ●：最も遠い点 # △：それ以外の点 # 226 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 06:30:13 ] >>224 （補足） # 　キーボードから入力した１文字がAという文字であるとき「Ａです」と表示させるには、 # 　　char cc; # 　　scanf("%c",&cc); # 　　if(cc=='A') printf("Aです\n"); # とすればよい。 # 図(A)　読み込み用ファイルの内容 # 実験メモ # 年 月 日 材料 使用量[g] # 2007 9 28 C 289.1 # 2007 10 4 A 254.3 # 2007 10 8 B 187.4 # 2007 10 15 A 211.3 # 2007 10 16 C 400.8 # 2007 10 18 B 34.2 # 2007 10 25 C 343.6 # 2007 10 31 A 102.6 # 2007 11 6 A 155.2 # 2007 11 12 B 87.5 # 2007 11 20 C 98.7 # 2007 11 27 A 177.8 # 2007 11 28 C 44.7 # 図(B)　出力ファイルの内容例 # （仮に、最も多く使用した材用がAで、合計使用量が100.0g、１回の平均使用量が10.0gであった場合） # 最多使用材料A # 合計使用量 100.0g # 平均使用量 100.g 227 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 18:17:53 ] pc12.2ch.net/test/read.cgi/tech/1260532772/750 # [1] 授業単元： 情報科学（Ｃ言語） # [2]問題文：ime.nu/www.f.csce.kyushu-u.ac.jp/~ogi/kougi/10.pdf # 課題１０ # 関数sasho は第1引数と第2引数の数値（実数）の差と商を計算し，差を # 第3引数で与えられる場所に，商を第4引数で与える場所に格納し，第2 # 引数が0 の場合は0，その他の場合は1 を返す関数である（第2引数が # 0 の場合は，商の計算はしない）．関数sasho を定義し，main 関数で # は，2つの実数を入力して，sasho を利用して，2数の差と商を表示する # （sasho の帰り値が0 の場合は差のみを表示）プログラムを作成せよ． 228 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 18:20:47 ] pc12.2ch.net/test/read.cgi/tech/1260532772/752 # 1] 授業単元： プログラミング # [2]問題文：ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10358.txt # # ★演習問題1 # 構造体を用いて，２個の複素数(x＝1.0十2.0i,x＝2.0十1.0i)の和と積 # を求めるプログラムを構造体を用いて作成せよ. # 　(出力結果例) # # X=1.0+2.0i # y=2.0+1.0i # x+y=3.0+3.0i # x+y=0.0+5.0i 229 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 18:22:30 ] pc12.2ch.net/test/read.cgi/tech/1260532772/752 # 1] 授業単元： プログラミング # [2]問題文：ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10358.txt # # ★演習問題2 # fgetc関数とfputc関数を使って，テキストファイルの内容を，別のテキ # ストファイルにコピーするプログラムを作成しなさい．確認のため，元の # ファイルとコピーされたテキストファイルの中身の内容を画面にそれぞれ # 出力せよ． 230 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 18:24:44 ] pc12.2ch.net/test/read.cgi/tech/1260532772/752 # 1] 授業単元： プログラミング # [2]問題文：ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10358.txt # ★演習問題3 # 氏名，年齢，性別が５人分書かれた次のようなテキストファイルを読み # 込んで、両面に表示するプログラムを作成せよ．このとき，構造体を利用 # せよ. # 　(入力ファイル:test.txtの中身) # # Tanaka 31 Man # Kawai 24 Man # Suzuki 22 Woman # ltoh 40 Woman # Sugita 37 Man 231 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 18:26:54 ] pc12.2ch.net/test/read.cgi/tech/1260532772/752 # [1] 授業単元： プログラミング # [2]問題文：ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyfmg/10358.txt # ★演習問題4 # 九九表を作り，テキストファイルに書き出すプログラムを作成せよ # 　(出力ファイル:test.txtの中身) # # 1 2 3 4 5 6 7 8 9 # 2 4 6 8 10 12 14 16 18 # 3・・・・・・・・・・・ # 4・・・・・・・・・・・ # 5・・・・・・・・・・・ # 6・・・・・・・・・・・ # 7・・・・・・・・・・・ # 8・・・・・・・・・・・ # 9・・・・・・・・・・・ # # 232 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 18:27:52 ] pc12.2ch.net/test/read.cgi/tech/1260532772/753 # [1] 授業単元： プログラミング # [2]問題文： # モンテカルロ法による円周率の近似値の計算を行うプログラムを書け。 # 生成する点の個数はキーボードから受け取るようにせよ。 # 乱数の生成にはMersenne twisterを用いよ。 # 233 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 21:56:15 ] rubyで >>231 f=File.open("out.txt","w") for i in 1..9 do for j in 1..9 do f.printf("%3d"%[i*j]) end f.puts() end f.close >>232 N=10000 num=0 for i in 1..N if rand()**2+rand()**2<=1 then num+=1 end end puts(4.0*num/N) #print("PI=",4.0*num/N) 234 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 03:21:43 ] pc12.2ch.net/test/read.cgi/tech/1248012902/709 # 【　課題　】 prolog.asia/html/prolog/872.html (仮にコピーさせていきました) # 【　形態　】1. Javaアプリケーション(main()で開始) # 【　期限　】1月２２日 # 【　補足　】Eclipseを使用しています。 # 内容は前向き推論のプログラムです。 # このプログラムを実行したら、「gyouzaは作ることができる。」と表示させたい# 「nikuudouは作ることができる。」は表示させない。 # またRecipe.txtの中身を修正してもよい。 235 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 03:23:46 ] pc12.2ch.net/test/read.cgi/tech/1260532772/760 # [1] 授業単元：Ｃ言語 # [2] 問題文(含コード&リンク)： # # 非線形方程式の解を求めるアルゴリズムのひとつに、ニュートン法と呼ばれる方ある。 # この方法ではf(x)=0の解の近似値を次の漸化式から求める。 # x_(i+1) =x_i - f(x_i)/f'(x_i) # # x_i の初期値を x_0 としたとき i=1から i=5すなわちx_1からx_5までをC言語で計算して示せ。 236 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 03:25:53 ] pc12.2ch.net/test/read.cgi/tech/1260532772/770 # # [1] 授業単元：Ｃ言語 # [2]問題文： # 下記の機能を備えた極めて単純なデータベースシステムであるカード型データベシステムの構築を考える。 # 新しい科目を登録する機能 # すでに登録されている科目を修正（更新）する機能 # 登録科目のソート（並び替え）を行う機能 # 登録科目の一部分のみを検索して取り出し、表示する機能 # 登録科目から、卒業までに必要な単位を計算し、表示する機能 # 卒業要件を簡略化しても良い. 237 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 03:28:42 ] >>760 の訂正 pc12.2ch.net/test/read.cgi/tech/1260532772/771 # 問題分が足りてなかったので再投稿させてもらいます。 # # [1] 授業単元：Ｃ言語 # [2] 問題文(含コード&リンク)： # # 非線形方程式の解を求めるアルゴリズムのひとつに、ニュートン法と呼ばれる方ある。 # この方法ではf(x)=0の解の近似値を次の漸化式から求める。 # ただしf'(x)はxによる微分を表す。 # x_(i+1) =x_i - f(x_i)/f'(x_i) # # f(x)=2^2-e^x-2=0 # # x_i の初期値を x_0 としたとき i=1から i=5すなわちx_1からx_5までをC言語で計算して示せ。 238 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 03:29:53 ] pc12.2ch.net/test/read.cgi/tech/1260532772/772 # [1] 授業単元： プログラミング # [2]問題文：氏名，年齢，性別が５人分書かれた次のようなテキストファイルを # 込んで、両面に表示するプログラムを作成せよ．このとき，構造体を利用 # せよ. # 　(入力ファイル:test.txtの中身) # # Tanaka 31 Man # Kawai 24 Man # Suzuki 22 Woman # ltoh 40 Woman # Sugita 37 Man 239 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 03:37:48 ] pc12.2ch.net/test/read.cgi/tech/1260532772/773 # [1] 授業単元： # 画像処理 # [2] 問題文(含コード&リンク)： # ime.nu/ux.getuploader.com/pyonpyon2009/download/6/%E8%AA%B2%E9%A1zip # 以下のプログラムを参考にして、画像を指定倍率で拡大・縮小するプログラムを してください。 # ・最低限、pgm形式のモノクロ画像を入出力可能とすること # ・コマンドラインインタフェースの仕様は各自で定めること # ・拡大・縮小の倍率をプログラム中に埋め込んで、再コンパイルしなければ倍率 更できないような仕様は不可 # ・補間の手法、縮小時のローパスフィルタリングの手法、順方向変換を用いるか 向変換を用いるか等、 # 　変換の手法は各自で工夫すること。 # # 変換の手法、工夫した点、苦労した点などをテキストに記述し、ソースプログラ 2倍拡大画像、1/2倍縮小画像を添付すること。 240 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 03:51:17 ] >>238 Luaで f=io.open("test.txt","r") t={} line = f:read() while line do tmp={} for s in string.gmatch(line,"[%w]+") do table.insert(tmp,s); end table.insert(t,{["氏名"]=tmp[1],["年齢"]=tmp[2],["性別"]=tmp[3]}); line = f:read() end f:close() for i=1,#t do print(t[i]["氏名"].." "..t[i]["年齢"].." "..t[i]["性別"]) end 241 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 06:04:25 ] pc12.2ch.net/test/read.cgi/tech/1260532772/775 # [1] 授業単元：Ｃ言語 # [2]問題文： # 二次関数　f(x) = x2 について、x=0から３までの定積分を求めたい。 # 区分求積法により、この積分の近似値を求めよ。 # x軸方向の刻み幅Δxを0.1とする。 242 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 07:42:54 ] >>234 はプログラムを解読して書き直さないと出題にならないですね。 面白そうな問題なのでやってみます。 あっという間に問題ばかり溜まってしまいました。中に骨のある問題も多いようです。 私は、1月を過ぎると余裕ができるので一気に解決していきたいなと思っています。 243 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 10:34:15 ] pc11.2ch.net/test/read.cgi/db/1252492296/425 # SELECT * FROM tableA WHERE code = 7 # というＳＱＬで以下のように表示されるのですが、 # # id , code , name , date , 売上 # 1 , 7 , りんご , 2010-01-12 , 350 # 1 , 7 , りんご , 2010-01-07 , 250 # 2 , 7 , みかん , 2010-01-12 , 450 # 2 , 7 , みかん , 2009-05-05 , 550 # # それを、売上があった日の１営業日後と3営業日後のそれぞれのidの価格も取得 いと考えております。 # # id , code , name , date , 売上 , 1営業日後売上 , 3営業日後売上 # 1 , 7 , りんご , 2010-01-12 , 350 , 400 , 500 # 1 , 7 , りんご , 2010-01-07 , 250 , 200 , 250 # 2 , 7 , みかん , 2010-01-10 , 450 , 500 , 300 # 2 , 7 , みかん , 2009-05-05 , 550 , 220 , 350 # （ちなみに実際のdateはUNIXTIMEで格納しています。） # １営業日後にしているのは、休日の関係で１日後とできないからです。 # ここまでやるのは厳しいでしょうか？ 244 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 11:36:31 ] >>243 % Prolog (1/2) 祝日がわからないと1営業日後がわからないので、 % 足掛かりとして、以下の定義をしておきましょう。今後祝日に関しては第二引数を解読しましょう。 国民の祝日に関する法律('第１条','自由と平和を求めてやまない日本国民は、美しい風習を育てつつ、よりよき社会、より豊かな生活を築きあげるために、ここに国民こぞって祝い、感謝し、又は記念する日を定め、これを「国民の祝日」と名づける。'). 国民の祝日に関する法律('第２条','自由と平和を求めてやまない日本国民は、美しい風習を育てつつ、よりよき社会、より豊かな生活を築きあげるために、ここに国民こぞって祝い、感謝し、又は記念する日を定め、これを「国民の祝日」と名づける。'). 国民の祝日に関する法律(第２条,'「国民の祝日」を次のように定める。'). 国民の祝日に関する法律(第２条,元日,１月１日,'年のはじめを祝う。'). 国民の祝日に関する法律(第２条,成人の日,１月の第２月曜日,'おとなになったことを自覚し、みずから生き抜こうとする青年を祝いはげます。'). 国民の祝日に関する法律(第２条,建国記念の日,政令で定める日,'建国をしのび、国を愛する心を養う。'). 国民の祝日に関する法律(第２条,春分の日 春分日 自然をたたえ、生物をいつくしむ。 国民の祝日に関する法律(第２条,昭和の日,４月２９日,'激動の日々を経て、復興を遂げた昭和の時代を顧み、国の将来に思いをいたす。'). 国民の祝日に関する法律(第２条,憲法記念日,５月３日,'日本国憲法の施行を記念し、国の成長を期する。'). 国民の祝日に関する法律(第２条,みどりの日,５月４日,'自然に親しむとともにその恩恵に感謝し、豊かな心をはぐくむ。'). 国民の祝日に関する法律(第２条,こどもの日,５月５日,'こどもの人格を重んじ、こどもの幸福をはかるとともに、母に感謝する。). 245 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 11:37:21 ] >>243 % Prolog (2/2) つづき 国民の祝日に関する法律(第２条,海の日,７月の第３月曜日,海の恩恵に感謝するとともに、海洋国日本の繁栄を願う。). 国民の祝日に関する法律(第２条,敬老の日,９月の第３月曜日,多年にわたり社会につくしてきた老人を敬愛し、長寿を祝う。). 国民の祝日に関する法律(第２条,秋分の日,秋分日,'祖先をうやまい、なくなった人々をしのぶ。'). 国民の祝日に関する法律(第２条,体育の日,'１０月の第２月曜日,スポーツにしたしみ、健康な心身をつちかう。'). 国民の祝日に関する法律(第２条,文化の日,１１月３日,'自由と平和を愛し、文化をすすめる。'). 国民の祝日に関する法律(第２条,勤労感謝の日,１１月２３日,'勤労をたっとび、生産を祝い、国民たがいに感謝しあう。'). 国民の祝日に関する法律(第２条,天皇誕生日,１２月２３日,'天皇の誕生日を祝う。'). 国民の祝日に関する法律(第３条,'「国民の祝日」は、休日とする。'). 国民の祝日に関する法律(第３条,'２ 「国民の祝日」が日曜日に当たるときは、その日後においてその日に最も近い「国民の祝日」でない日を休日とする。'). 国民の祝日に関する法律(第３条,'３ その前日及び翌日が「国民の祝日」である日（「国民の祝日」でない日に限る。）は、休日とする。'). 246 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 12:01:20 ] pc12.2ch.net/test/read.cgi/tech/1260532772/776 # [1]オペレーティングシステム # [2]問題文(含コード&リンク)： # ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/1036t # fork とexec 族のシステムコールを用いて，簡単なコマンドインタープリタ（mysを作成せよ． # ただし,作成するコマンドインタープリタは以下の機能をサポートすること． # ・設定ファイル（.path）にコマンドサーチパスを指定することが出来る．なお，イル内のパスの指定方法は，各自が考えて定義すること．（パスにないコマンドを した場合には， # 見つからない旨のエラーメッセージを出力すること．） # ・パイプを利用して複数（可変個）のコマンドの入出力を結合することができる # ・コマンド実行中にCtrl-C を入力すると，現在のコマンドの実行を中断して, 次マンドを # 入力するためにプロンプトを出力する． # ・リダイレクション（“＜” と “＞”）を使用してコマンドへの入力をファイルから得たり，ファイルへ出力したりすることが出来る． # ・exit を入力すると，mysh を終了する． 247 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 16:10:07 ] >>243 % Prolog 一営業日後の定義に祝日と曜日の定義が必要になる。 一営業日後(_今日,_一営業日後) :- 　　曜日(_今日,_曜日), 　　\+(member(_曜日,[土曜,日曜])), 　　\+(祝日(_今日)), 　　翌日(_今日,_翌日), 　　次の営業日(_翌日,_一営業日後),!. 一営業日後(_今日,_一営業日後) :- 　　翌日(_今日,_翌日), 　　一営業日後(_翌日,_一営業日後),!. 三営業日後(_今日,_三営業日後) :- 　　一営業日後(_今日,_一営業日後), 　　一営業日後(_一営業日後,_二営業日後), 　　一営業日後(_二営業日後,_三営業日後),!. 次の営業日(_基準日,_次の営業日) :- 　　曜日(_基準日,_曜日), 　　member(_曜日,[土曜,日曜]), 　　翌日(_基準日,_翌日), 　　次の営業日(_翌日,_次の営業日),!. 次の営業日(_基準日,_次の営業日) :- 　　祝日(_基準日), 　　翌日(_基準日,_翌日), 　　次の営業日(_翌日,_次の営業日),!. 次の営業日(_次の営業日,_次の営業日). 248 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 17:22:10 ] >>243 % Prolog '商品売上、1営業日後、3営業日後、比較表示' :- 　　setof([_id,_name,_date],tableA( _id , 7 , _name , _date , _売上),L1), 　　write('id, code, name, date,　　売上,1営業日後売上,3営業日後売上\n'), 　　member([_id_1,_name_1,_date_1],L1), 　　split(_date_1,['-'],L2), 　　concat_atom(L2,_日付), 　　一営業日後(_日付,_1営業日後), 　　三営業日後(_日付,_3営業日後), 　　データベース日付表現(_1営業日後,_日付1), 　　データベース日付表現(_3営業日後,_日付3), 　　findsum(_売上,tableA( _id , 7 , Name , _日付 , _売上),Sum), 　　findsum(_売上,tableA( _id , 7 , Name , _日付1 , _売上),Sum1), 　　findsum(_売上,tableA( _id , 7 , Name , _日付3 , _売上),Sum3), 　　wr('%t,%t,%t,%t,%t,%t\n',[_id_1,7,_name_1,Sum,Sum1,Sum3]), 　　fail. '商品売上、1営業日後、3営業日後、比較表示'. データベース日付表現(_日付,_データベース日付表現) :- 　　sub_atom(_日付,0,4,_,_年), 　　sub_atom(_日付,4,2,_,_月), 　　sub_atom(_日付,6,2,_,_日), 　　concat_atom([_年,'-',_月,'-',_日],_データベース日付表現). 249 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 21:17:44 ] pc12.2ch.net/test/read.cgi/tech/1260532772/780 # [1] 授業単元： プログラミング演習 # [2] 問題文(含コード&リンク)： 0,1のみを成分にもつｎ次正方行列Aは各行を２進数とみなして整数のリストとして表現できる。 # たとえば　3次正方行列は　１，０，０/０，１，０/０，０，１は｛４，２，１｝ # # これに掃き出し法を適用し、｛５，６，３｝と入力したとき｛５，３，０｝と出力されるプログラムを作れ。 # ヒントとして、行の入れ替えは数字の入れ替えになる。 # ｎ桁２進数ｘの下位から、上位からの数字はそれぞれどう書けるか考える。 # # まず正方行列の次数をきめ、入力できる１０進数の最大値を表示、その後 # その範囲で数値をn回キーボードから入力した後、掃き出し法を行い、 # その正方行列の行の値を１０進数に変換するプログラムです。 250 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 23:23:16 ] pc11.2ch.net/test/read.cgi/db/1252492296/434 # ■テーブルデータ # ○荷物テーブル # id 中身id 荷受け # 1 1 2009/12/11 # 2 1 2009/12/21 # 3 2 2010/12/25 # ○中身テーブル # id 品物 重さ # 1 本 500 # 2 テレビ 1000 # ○作業テーブル # 荷物id 作業項目id 作業者名 作業状況 # 1 1 佐藤 完了 # 1 3 志村 作業中 # 2 1 鈴木 完了 # 2 2 鈴木 未 # 2 3 田中 未 # 3 1 佐藤 完了 # 3 3 田中 未 # ○作業項目テーブル # id 作業内容 # 1 品物を入れる # 2 領収書を入れる # 3 封をして発送する 251 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 23:24:21 ] >>250 問題つづき # # ■欲しい結果 # 荷物id 品物 重さ 作業者名※1 作業内容※1 作業状況 対応班※2 # 2 本 500 鈴木 領収書を入れる 未 2 # 3 テレビ 1000 田中 領収書を入れる 未 1 # ※1　作業状況が完了以外かつ作業項目idが一番小さいもの # ※2　重さが1000以上→作業班1、作業者名が鈴木かつ作業状況が未→作業班2、 作業状況にかかわらず、作業者名に田中がある荷物→作業班3 # 　　　(班1 > 班2 > 班3の順で優先し、荷物idを重複させない) # # ■説明 # 荷受けが2009/12/31以前の荷物かつ対応班が存在するものを抽出したいです。 # 荷物は沢山ありますのでパフォーマンスもできれば考慮したいです。 # 「パッとわからないけどちょっと考えればわかるだろJK」→「2時間考えてもできないorz」(今ここ) 252 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 05:19:11 ] pc12.2ch.net/test/read.cgi/tech/1248012902/711 # 【　課題　】課題は3題です。 # ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/873.zip # 課題１ # 乱数を使って掛け算九九の練習ソフトを作れ。ただし以下の条件に従うものとする 。 # # 10題練習したところで正解率が8割以下だったら、もう1セット10題の練習を繰り返 す。 # 10問中の正解率が8割以上になるまで繰り返し練習をさせる。 253 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 05:23:59 ] pc12.2ch.net/test/read.cgi/tech/1248012902/711 # 【　課題　】課題は3題です。 # ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/873.zip # 課題２ # 西暦を入力させ、うるう年かどうかを判定するプログラムを作れ。なお、うるう年 は以下で認定される。 # # 西暦の年号が400で割り切れる年はうるう年 # 西暦の年号が400で割り切れないが、100で割り切れる年はうるう年でない # 西暦の年号が100で割り切れないが、4で割り切れる年はうるう年 254 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 05:58:31 ] >>217 使用言語：J ('n',.'=',.":,.a),.':',.'e',.'=',.0j15":,.+/\%!a=.i.31x n= 0:e=1.000000000000000 n= 1:e=2.000000000000000 n= 2:e=2.500000000000000 n= 3:e=2.666666666666667 n= 4:e=2.708333333333333 n= 5:e=2.716666666666667 n= 6:e=2.718055555555556 n= 7:e=2.718253968253968 n= 8:e=2.718278769841270 n= 9:e=2.718281525573192 n=10:e=2.718281801146384 : n=29:e=2.718281828459045 n=30:e=2.718281828459045 255 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 06:20:01 ] >>253 使用言語：J f=:monad def '-.=/*400 4 100|y' f 1800 0 f 2000 1 f 2008 1 f 2010 0 256 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 06:24:52 ] pc12.2ch.net/test/read.cgi/tech/1260532772/796 # [1] プログラミング演習 # [2] 標準入力から読み込んだテキストファイルを辞書順に整列して標準出力する。 # 辞書順：文字列比較の順番はASCIIコード文字順をベースとした辞書順であるが、文字順が一部 # が変更される A<a<B<c<C<c..... # [5] 作業用ファイルwork.dat(内容は自由、サイズ無制限とする。プログラム終了時点で削除する必要は無い # ものとする。） # を使用出来る。stdio.hで定義されている標準ライブラリ関数、定数を利用出来る。 # 整列アルゴリズムは自由とする。 257 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 06:26:49 ] pc12.2ch.net/test/read.cgi/tech/1260532772/797 # [1] 授業単元：プログラミング演習 # [2] 問題文(含コード&リンク)：問題1　戻値を持たず、一つの double 型の引数を持ち、過去に関数が # 呼ばれた時、全ての引数の値の総和を表示する関数、d_total # を定義し、動作の確認ができるプログラムとして作成せよ。例えば、 # d_total(0.1); # d_total(0.2); # d_total(0.3); # と呼べば、d_total の内部の処理にて # 0.1 # 0.3 # 0.6 # # と表示するということである。 # ただし, プログラム中の変数として、外部変数は使ってはな # らない。「内部変数か」自動変数のみを使って実現せよ。 # 問題2　 戻値を持たず、二つの float 型のポインタの引数を持ち、二つ # の引数の値を交換する関数、f_swap を定義し、動作の確認がで # きるプログラムとして作成せよ。 # 問題3　4行4列のint型の行列を、転置するプログラムを作成せよ。動作の確認のため、転置前と転置後 # の行列の内容を表示するようにせよ 258 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 06:28:19 ] pc12.2ch.net/test/read.cgi/tech/1260532772/798 # [1] やさしいC # [2] 次の関数workをコンパイル出来るように,正しく動作するように修正し、 # 正しく実行出来るかどうかを確かめられるプログラムを作りなさい。 # double *work(double[] a,int N){ # double result[N]; # result[0] = a[N-2] ,a[N-1],a[0],a[1] a[2]を1:3:4:3:1の重みで平均した値 # result[1] = a[N-1],a[0],a[1],a[2] を1:3:4:3:1の重みで平均した値 # result[2] = a[0],a[1],a[2],a[3]を1:3:4::3:1の重みで平均した値 # result[3] = a[1],a[2],a[3],a[4] を1:3:4:3:1の重みで平均した値 # .... # result[N-2] = a[N-4],a[N-3],a[N-2],a[N-1],a[0] を1:3:4:3:1の重みで平均した値 # result[N-1] = a[N-3],a[N-2],a[N-1],a[0],a[1] を1:3:4:3:1の重みで平均した値 # return (double)&result[0]; # } 259 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 07:25:06 ] pc12.2ch.net/test/read.cgi/tech/1260532772/800 # [1]Cプログラミング演習 # [2] # 関数 op(int a,int b,int c)は次の結果を返す。 # 結果： a op1 b op2 c op3 a op4 b op5 c (op1,op2,op3,op4,op5は # + - * %(剰余) xor and orの何れか一つ) # +:演算0 -:演算1 *:演算2 /:演算3 xor:演算4 and:演算5 or:演算6 # op1=(3*a+5*b)の７による剰余がkの場合、演算kを選択 # op2=(5*b+4*c)の７による剰余がkの場合、演算kを選択 # op3=(a+3*c)の７による剰余がkの場合、演算kを選択 # op4=(a+2*b)の７による剰余がkの場合、演算kを選択 # op5=(3*c+2*b)の７による剰余がkの場合、演算kを選択 # ここで演算子の優先順位は高い順に　+ > - > * > % >xor > and > orとする # 例えば1　+　3 xor 5　*　7　-　5は(1+3) xor (5*(7-5))を意味する # 関数opをコードせよ。どのような演算が行われたか具体的に出力するprintf文も同時に出力すること。 260 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 07:36:26 ] pc12.2ch.net/test/read.cgi/tech/1248012902/711 # 【　課題　】課題は3題です。 # ime.nu/rg550.hp.infoseek.co.jp/cgi-bin/joyful/img/873.zip # 課題３ # # 以下のプログラムに手を加え、アドレス表を利用した並び替えを行って人口の大き> # い順に人口と県民を表示しなさい # # 07年の都道府県人口（csv形式ファイル）は以下の場所にあります。 # prolog.asia/html/prolog/jinkou07.csv 261 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 07:38:49 ] >>259 訂正 修正前 →　+:演算0 -:演算1 *:演算2 /:演算3 xor:演算4 and:演算5 or:演算6 修正後 → +:演算0 -:演算1 *:演算2 %（剰余):演算3 xor:演算4 and:演算5 or:演算6 262 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 08:09:06 ] >>250 欲しい結果(_荷受日下限,_荷受日上限) :- 　　write('荷物id 品物 重さ 作業者名1 作業内容1 作業状況 対応班2\n'), 　　荷物テーブル(_id,_中身id,_荷受け), 　　_荷受け @>= _荷受日下限, 　　_荷受け @=< _荷受日上限, 　　中身テーブル(_中身id,_品物,_重さ), 　　作業テーブル(_id,_作業項目id,_作業者名,_作業状況), 　　作業項目テーブル(_作業項目id,_作業内容), 　　作業班(_作業者名,_作業状況,_重さ,_対応班), 　　write_formatted('%t %t %t %t %t %t %t\n',[_id,_品物,_重さ,_作業者名,_作 業内容,_作業状況,_対応班]), 　　fail. 欲しい結果(_,_). 作業班(_,_,_重さ,1) :- _重さ >= 1000,!. 作業班(_作業者名,_作業状況,_,2) :- _作業者名=鈴木,_作業状況='未',!. 作業班(田中,_,_,3) :- !. 263 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 08:11:05 ] >>250 変なところで折り返しが出たので書き直し。 % Prolog 欲しい結果(_荷受日下限,_荷受日上限) :- 　　write('荷物id 品物 重さ 作業者名1 作業内容1 作業状況 対応班2\n'), 　　荷物テーブル(_id,_中身id,_荷受け), 　　_荷受け @>= _荷受日下限, 　　_荷受け @=< _荷受日上限, 　　中身テーブル(_中身id,_品物,_重さ), 　　作業テーブル(_id,_作業項目id,_作業者名,_作業状況), 　　作業項目テーブル(_作業項目id,_作業内容), 　　作業班(_作業者名,_作業状況,_重さ,_対応班), 　　write_formatted('%t %t %t %t %t %t %t\n',[_id,_品物,_重さ,_作業者名,_作業内容,_作業状況,_対応班]), 　　fail. 欲しい結果(_,_). 作業班(_,_,_重さ,1) :- _重さ >= 1000,!. 作業班(_作業者名,_作業状況,_,2) :- _作業者名=鈴木,_作業状況='未',!. 作業班(田中,_,_,3) :- !. 264 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 10:33:47 ] >>201 使用言語：　十進BASIC OPTION ARITHMETIC DECIMAL_HIGH !10進1000桁モード INPUT PROMPT "a =":a INPUT PROMPT "b =":b PRINT "a + b =";a+b PRINT "a - b =";a-b PRINT "a * b =";a*b END 実行結果 a =1.9999999999999999999999999 b =0.0000000000000000000000001 a + b = 2 a - b = 1.9999999999999999999999998 a * b = .00000000000000000000000019999999999999999999999999 265 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 10:40:01 ] >>253 % Prolog % prolog.asia/html/prolog/t815.html などにすでにあります。ここでは、 西暦を入力させ、うるう年かどうかを判定する(_西暦) :- 　　西暦の年号が400で割り切れる年はうるう年(_西暦),!. 西暦を入力させ、うるう年かどうかを判定する(_西暦) :- 　　西暦の年号が400で割り切れないが、100で割り切れる年はうるう年でない(_西暦),!. 西暦を入力させ、うるう年かどうかを判定する(_西暦) :- 　　西暦の年号が100で割り切れないが、4で割り切れる年はうるう年(_西暦). 　 西暦の年号が400で割り切れる年はうるう年(_西暦) :- 割り切れる(_西暦,400),!. 西暦の年号が400で割り切れないが、100で割り切れる年はうるう年でない(_西暦) :- 　　\+(割り切れる(_西暦,400)), 　　割り切れる(_西暦,100),!,fail. 西暦の年号が100で割り切れないが、4で割り切れる年はうるう年(_西暦) :- 　　\+(割り切れる(_西暦,100)), 　　割り切れる(_西暦,4),!. 割り切れる(A,B) :- 0 is A mod B. 266 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 11:19:21 ] >>260 % Prolog 並び替えを行って人口の大きい順に人口と県名を表示する(_ファイル) :- 　　see(_ファイル), 　　findall([_人口,_県名],(repeat,get_line(X),(X=end_of_file,!,fail; 　　　　　　split(X,[','],[_県名,_人口])),L), 　　seen, 　　降順に整列する(L,L1), 　　人口と県名を表示する(L1). 人口と県名を表示する([]) :- !. 人口と県名を表示する([[_人口,_県名]|R]) :- 　　write_formatted('%t %t\n',[_人口,_県名]), 　　人口と県名を表示する(R). 267 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 11:40:30 ] >>213 使用言語：J p:i._1 p: 100 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 268 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 12:19:34 ] >>215 使用言語：maxima (%i41) display2d:false; (%o41) false (%i42) solve([x1+5*x2+x3=2,3*x1+4*x2=2,9*x1+10*x2+4*x3=8],[x1,x2,x3]); (%o42) [[x1 = 2/5,x2 = 1/5,x3 = 3/5]] 269 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 16:12:12 ] pc12.2ch.net/test/read.cgi/tech/1260532772/810 # [1] 授業単元：プログラミング論(大学) # [2] 問題文：softbankのiPhoneの使用料金を計算するプログラムを作りなさい 270 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 16:13:13 ] >>215 使用言語：J ]a=:3 3 $ 1 5 1,3 4 0,9 10 4 1 5 1 3 4 0 9 10 4 ]b=:2 2 8 2 2 8 (%.a)(+/ .*)b 0.4 0.2 0.6 271 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 17:08:31 ] pc12.2ch.net/test/read.cgi/tech/1260532772/812 # [1] 授業単元： 授業ではないですがお願いします # [2] 問題文(含コード&リンク)： 100個の0〜10までの数字があるとするとき0じゃない数字の個数を数えて表示させたいんですが # どうすればいいのかよくわかりませんのでお願いします 272 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 17:45:51 ] >>271 使用言語：J a=: ?100#11 4 25 $ a 2 4 3 9 5 10 4 6 10 3 2 3 0 10 9 7 1 2 2 9 5 2 6 9 2 1 3 6 2 6 5 7 9 8 7 8 10 0 8 4 6 3 4 2 8 3 0 5 4 4 0 2 7 8 1 6 6 8 8 5 8 10 6 6 3 7 1 9 8 5 6 2 0 9 3 6 5 1 3 1 2 0 6 9 2 3 4 1 7 7 10 7 3 2 3 4 3 4 8 8 +/0=a 6 273 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 17:52:53 ] >>272 >>271 使用言語：J 間違えました。０の個数を数えてました。 a=: ?100#11 4 25 $ a 2 4 3 9 5 10 4 6 10 3 2 3 0 10 9 7 1 2 2 9 5 2 6 9 2 1 3 6 2 6 5 7 9 8 7 8 10 0 8 4 6 3 4 2 8 3 0 5 4 4 0 2 7 8 1 6 6 8 8 5 8 10 6 6 3 7 1 9 8 5 6 2 0 9 3 6 5 1 3 1 2 0 6 9 2 3 4 1 7 7 10 7 3 2 3 4 3 4 8 8 +/0~:a 94 274 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 18:14:48 ] >>217 使用言語：maxima (%i50) for n:0 thru 30 do printf(true,"n=~2d:e=~,15f~%",n,sum(1/i!,i,0,n)); n= 0:e=1.000000000000000 : n=30:e=2.718281828459045 275 名前：デフォルトの名無しさん mailto:sage [2010/01/15(金) 18:20:58 ] >>271 % Prolog '100個の0〜10までの数字を発生させる'(L) :- 　　length(L,100), 　　'0〜10までの数字を発生させる'(L). '0〜10までの数字を発生させる'([]) :- !. '0〜10までの数字を発生させる'([N|R]) :- 　　N is random mod 11, 　　'0〜10までの数字を発生させる'(R). '0じゃない数字の個数を数えて表示させる'(L) :- 　　count((member(A,L),number(A),\+(A=0)),_0じゃない数字の個数), 　　write_formatted('0じゃない数字は%t個です\n',[_0じゃない数字の個数]).

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef