09/12/28 04:45:07
ｽﾚﾘﾝｸ(tech板:487番)
# [1] 授業単元：計算機入門及び演習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
#
以下の問題を解くプログラムをC言語を用いて作成しなさい．
AさんとBさんは点数が書かれたカードを何枚か持っている． AさんのカードとBさんのカ
ードを1枚ずつ交換して，Aさんの持つカードの合計点数とBさんの持つカード合計点数が
等しくなるようにしたい．
このときどのカードとどのカードを交換したらよいか．ただし，カードを交換しなくても合計点数が等しい場合でも，必ずカードの交換を行うものとする．
入力は，いくつかのデータセットからなる．各データセットは次の形式で与えられる．
n m
s1
s2
...
sn
sn+1
sn+2
...
sn+m
各データセットの最初の行は空白ひとつで区切られたふたつの数 n と m を含み， n はAさんのカードの枚数，m はBさんのカードの枚数を表す．続く n+m 行には，各カードの
点数が 1 行にひとつずつ並ぶ．最初の n 個の点数 (s1 から sn まで) はAさんのカードの点数，残りの m 個の点数 (sn+1 から sn+m まで) はBさんのカードの点数を表す．
n および m は 100 以下の正の整数とし，カードの点数は 0 以上 100 以下の整数値とする．入力の終わりは，空白ひとつで区切られたふたつの 0 を含む 1 行で示される．
各データセットに対し，Aさん，Bさんの交換前のすべてのカードと交換すべき2つのカードを出力すること．形式は特に問わない(実行例を参考にすること)．
なお，合計を等しくするようなカードの交換の方法が複数ある場合は，交換するカードの点数の和が最小となるもののみを出力すること．
また，カードの点数の合計を等しくするような交換が存在しない場合はその旨を出力すること．
117:デフォルトの名無しさん
09/12/28 11:41:33
>>114
使用言語： maxima
15までできたけど、結構、大変。
0 201*0;
1 2-0-1-0;
2 20/10;
3 2+0+1+0;
4 fix(sqrt(20.10));
5 ceiling(sqrt(20.10));
6 fix(sqrt(20.10));
7 fix(exp(2.010));
8 ceiling(exp(2.010));
9 ceiling(exp(2.0)+1.0);
10 fix(exp(2.0)+exp(1.0));
11 ceiling(exp(2.0)+exp(1.0));
12 2+0+10;
13 ceiling(exp(sin(2.0))+10);
14 fix(sqrt(201.0));
15 ceiling(sqrt(201.0));
118:デフォルトの名無しさん
09/12/28 15:12:17
ｽﾚﾘﾝｸ(tech板:489番)
# [1] 授業単元：
# 画像解析
# [2] 問題文(含コード&リンク)：
# 画像を、好きな倍率で大きくしたり小さくしたりするプログラムを作成してください
119:デフォルトの名無しさん
09/12/28 18:18:38
>>30 使用言語： 十進BASIC
FUNCTION 組合せの数(n,r)
LET a=1
LET b=n
FOR i=2 TO r
LET a=a*i
LET b=b*(n-i+1)
NEXT I
LET 組合せの数=b/a
END FUNCTION
PRINT 組合せの数(35,3)*組合せの数(15,2)/組合せの数(50,5)
PRINT 組合せの数(35,4)*組合せの数(15,1)/組合せの数(50,5)
PRINT 組合せの数(35,2)*組合せの数(15,3)/組合せの数(50,5)
PRINT "組み込み関数combを使った場合"
PRINT comb(35,3)*comb(15,2)/comb(50,5)
PRINT comb(35,4)*comb(15,1)/comb(50,5)
PRINT comb(35,2)*comb(15,3)/comb(50,5)
END
実行結果
.324352451433858
.370688515924409
.127775208140611
組み込み関数combを使った場合
.324352451433858
.370688515924409
.127775208140611
120:デフォルトの名無しさん
09/12/28 21:28:47
>>114
使用言語： maxima
(%i182) makelist(i,i,fix(sin(%pi)),fix(apply("^",reverse([2.0,10]))+cos(%pi)));
(%o182) [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38,
39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57,
58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76,
77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
96, 97, 98, 99]
121:デフォルトの名無しさん
09/12/28 22:03:28
>>114
使用言語： 十進BASIC
DEF f(n)=n*n-n/n
FOR i=z TO f(20-10)
PRINT i
NEXT I
END
122:デフォルトの名無しさん
09/12/29 01:44:55
>>114
使用言語： Arc
arc> (apply range (map [-(* _ _)(/ _ _)] (list(expt 2 0) 10)))
(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82
83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99)
123:デフォルトの名無しさん
09/12/29 02:02:20
>>114
使用言語： J
i. ,~ 20 - 10
0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
20 21 22 23 24 25 26 27 28 29
30 31 32 33 34 35 36 37 38 39
40 41 42 43 44 45 46 47 48 49
50 51 52 53 54 55 56 57 58 59
60 61 62 63 64 65 66 67 68 69
70 71 72 73 74 75 76 77 78 79
80 81 82 83 84 85 86 87 88 89
90 91 92 93 94 95 96 97 98 99
124:デフォルトの名無しさん
09/12/29 08:55:53
>>114
使用言語： Haskell
Prelude> init $ (\[a,b]->[a..b]) $ map(^2)[0,10]
[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,
29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,
55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,
81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99]
125:デフォルトの名無しさん
09/12/29 11:03:55
ｽﾚﾘﾝｸ(tech板:79番)
# Windows XP上で、
# まず 同じディレクトリにあるsetting.iniを読み込んで
# その1行目, 2行目, 3行目を
# 文字列p, regex, aftに格納する。
# pをパスとして調べ、
# 1.実在するディレクトリだったらそのディレクトリの名前とサブディレクトリの名前と、
# それらの中にあるファイルの名前、およびファイルの中身に以下の置換作業を実行する。
# > 前からみて順に正規表現regexにマッチする文字列を全てaftに置換する。
# 2.実在しないディレクトリでなかったらエラーメッセージを標準出力に出力する。
126:デフォルトの名無しさん
09/12/29 11:25:43
>>114
使用言語： Scilab
-->a=2;[0:(10^a-a/a)]
127:デフォルトの名無しさん
09/12/29 16:48:55
>>125
% Prolog では正規表現は使わないので、その代わり以下のような述語を作っておく。
探索目標を真とする副文字列を置換文字列に置換(_文字列,_対象文字ならび,_探索目標,_置換文字列,X) :-
findall(S,探索目標を真とする副文字列を置換文字列に置換の一(_文字列,_対象文字ならび,_探索目標,_置換文字列,S),X).
探索目標を真とする副文字列を置換文字列に置換の一(_文字列,_対象文字ならび,_探索目標,_置換文字列,S) :-
atom_chars(_文字列,Chars),
探索目標を真とする文字ならびを得る(Chars,L1,_対象文字ならび,_探索目標,L3),
atom_chars(A1,L1),
atom_chars(A3,L3),
concat_atom([A1,_置換文字列,A3],S).
探索目標を真とする文字ならびを得る([],L1,L2,_探索目標,L3) :- !,fail.
探索目標を真とする文字ならびを得る(L,L1,L2,_探索目標,L3) :-
append(L1,L2,L3,L),
_探索目標.
探索目標を真とする文字ならびを得る(L,L1,L2,_探索目標,X) :-
変数指定項複写(_探索目標,_探索目標2,[L2],[L4]),
append(L11,L2,31,L),
_探索目標,
探索目標を真とする文字ならびを得る(L31,L1,L4,_探索目標2,X).
128:デフォルトの名無しさん
09/12/30 00:29:25
>>114
使用言語： Io
Io> list(2-0,10)reduce(a,b,b**a)repeat(v, v println)
129:デフォルトの名無しさん
09/12/30 01:18:56
>>114
使用言語： Io
Io> (20-10)squared repeat(v, v println)
130:デフォルトの名無しさん
09/12/30 06:12:33
>>127 (>>125) かなりの大間違い。訂正。
% Prolog では正規表現は使わないので、その代わり以下のような述語を作っておく。L1,L3が加わり、益々意味不明になってきた。
探索目標を真とする副文字列を置換文字列に置換(_文字列,L1,_対象文字ならび,L3,_探索目標,_置換文字列,X) :-
findall(S,探索目標を真とする副文字列を置換文字列に置換の一(_文字列,L1,_対象文字ならび,L3,_探索目標,_置換文字列,S),X).
探索目標を真とする副文字列を置換文字列に置換の一(_文字列,L1,_対象文字ならび,L3,_探索目標,_置換文字列,S) :-
atom_chars(_文字列,Chars),
探索目標を真とする文字ならびを得る(Chars,L1,_対象文字ならび,_探索目標,L3),
atom_chars(A1,L1),
atom_chars(A3,L3),
concat_atom([A1,_置換文字列,A3],S).
探索目標を真とする文字ならびを得る(L,L1,L2,_探索目標,L3) :-
append(L1,L2,L3,L),
_探索目標.
131:デフォルトの名無しさん
09/12/30 06:32:32
>>130 使い方の例。
% 行頭に「私は」を挿入。
?- 探索目標を真とする副文字列を置換文字列に置換(嘘を申しません,[],[],L3,true,私は,X).
L3 = _141192,
X = ['私は嘘を申しません']
% "d.f" を"aaa"に置換
?- 探索目標を真とする副文字列を置換文字列に置換(abcdefgdufz,_,[d,_,f],_,true,aaa,X).
_ = _141192,
_ = _141193,
_ = _141200,
X = [abcaaagdufz,abcdefgaaaz]
% "b"と"f"の間にありその中に"d"を2つ含む文字列をaaaに置換
?- 探索目標を真とする副文字列を置換文字列に置換(abcdefgdufz,_,L2,_,(append([b],LY,[f],L2),count(member(d,LY),2)),baaaf,X).
_ = _141192,
L2 = _141193,
_ = _141194,
LY = _141197,
X = [abaaafz]
132:デフォルトの名無しさん
09/12/30 08:22:02
>>131
Prologでは実際にこんな述語を呼び出して検索や置換を行うものですか？
133:デフォルトの名無しさん
09/12/30 08:57:48
>>132
一般にどうかはわからない。私の場合はcall/1を使って汎用述語を作ることは
絶対と言っていいほどしない。したがってここでは課題として書いてみたが、
>>130のような定義述語を利用することはない。少々煩わしくても、検索が必要に
なった時に一つ述語を定義する。
このスレでは、一度に書き込める行数に制限があるので、何度も使用された
述語を「汎用」のものとみなして定義なしに、呼び出している場合も多い。
これはやむを得ずそうしているのであって、それが模倣すべきプログラムスタイルだ
などと考えないでほしい。
134:デフォルトの名無しさん
09/12/30 10:15:59
ｽﾚﾘﾝｸ(tech板:496番)
# [1] 授業単元： C++実習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
# 問題２
# 個々のオブジェクトにint型の識別番号を与える（全オブジェクトに異なる整数値を与える）ように以下のクラスを書き換えよ。
# また書き換えたクラスがテストできる適切なmain関数も作成せよ。
# class Account {
# string name; //口座名義
# string no; //口座番号
# long balance; //預金額
# Date open; //口座開設日
#
# public:
# Account(string n, string num, long z, Date op);
#
# void Deposit(long k); //預ける
# void Withdraw(long k); //おろす
# string GetName() const { return name; } //口座名義を調べる
# string GetNo() const { return no; } //口座番号を調べる
# long CheckBalance() const { return balance; } //預金額を調べる
# Date OpeningDate() const { return open; } //口座開設日を調べる
# }
135:デフォルトの名無しさん
09/12/31 04:05:03
ｽﾚﾘﾝｸ(tech板:679番)
# [授業単元] : Prolog
# 知恵を貸してください。
# 今宿題で嫉妬深い恋人たちの問題をやっていて
# 初期状態とゴール状態をそれぞれ
# initial_state(jealousy, jealousy(left,[1,2,3],[1,2,3],[ ],[ ])).
# final_state(jealousy(right,[ ],[ ],[1,2,3],[1,2,3])).
# と作って指し手の移動と状態変化についてはかけたのですが
# 状態変化したときの合法性のチェックでつまっています。
# legal(jealousy(right,[[1],[1,2]], [[2,3],[3]]) ×
# legal(jealousy(left,[[2,3],[2,3]], [[1],[1]]) ○
# としたいのですがどうしたらいいのでしょうか？
136:デフォルトの名無しさん
09/12/31 04:26:43
ｽﾚﾘﾝｸ(tech板:536番)
# [1] 授業単元： C++
# [2] 問題文(含コード&リンク)：
# 課題1資料 URLﾘﾝｸ(ime.nu)
# 課題1 URLﾘﾝｸ(ime.nu)
# 課題1応用 URLﾘﾝｸ(ime.nu)
# 京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータ（URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)）がある。
# 区の名前，人口，面積のデータを格納しなさい。
# 人口についてソートした結果，面積についてソートした結果を出力する。
#
# 区の名前，人口，面積のてデータを格納し，格納したデータを調べて以下の情報を出力するプログラムを作成しなさい。
# 人口が最大の区と最小の区の、名前と人口。
# 面積が最大の区と最小の区の、名前と面積。
# 人口密度が最大の区と最小の区の、名前と人口密度。
# Kita 124306 94.92
# Kamigyo 83082 7.11
# Sakyo 168133 246.88
# Nakagyo 100145 7.38
# Higashiyama 41659 7.46
# Yamashina 136769 28.78
# Shimogyo 74897 6.82
# Minami 97877 15.78
# Ukyo 201819 291.95
# Nishikyo 155973 59.20
# Fushimi 284812 61.62
137:デフォルトの名無しさん
09/12/31 06:56:21
>>136
% Prolog
'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'('URLﾘﾝｸ(ime.nu)').
区の名前，人口，面積のデータを格納する :-
'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'(_ウェブサイト),
get_split_lines(_ウェブサイト,[' '],Lines),
member([_区の名前,_人口,_面積],Lines),
assertz('京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積)),
fail.
区の名前，人口，面積のデータを格納する.
人口についてソートする(_整列されたデータならび) :-
findall([_人口,_区の名前,_人口,_面積],'京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),L),
sort(L,L1),
降順に並べ直しながら鍵項目の削除する(L1,[],_整列されたデータならび).
面積についてソートする(_整列されたデータならび) :-
findall([_面積,_区の名前,_人口,_面積],'京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),L),
sort(L,L1),
降順に並べ直しながら鍵項目の削除する(L1,[],_整列されたデータならび).
降順に並べ直しながら鍵項目を削除する([],X,X) :- !.
降順に並べ直しながら鍵項目を削除する([[_|L]|R],Y,X) :-
降順に並べ直しながら鍵項目を削除する(R,[L|Y],X).
138:デフォルトの名無しさん
09/12/31 06:58:38
>>137 (>>136) 改行してはいけないところで折り返してしまった。
% Prolog
'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'('URLﾘﾝｸ(ime.nu)').
139:デフォルトの名無しさん
09/12/31 07:00:53
>>138
どうしても、ダメだね。勝手に改行が入ってしまう。"ある"の後の改行は
ないことにして下さい。
140:デフォルトの名無しさん
09/12/31 07:14:48
>>137 訂正
% Prolog Lines -> _区の名前・人口・面積ならび
区の名前，人口，面積のデータを格納する :-
'京都市の区ごとの人口（人）と面積（平方キロメートル）が記述されているデータがある'(_ウェブサイト),
get_split_lines(_ウェブサイト,[' '],_区の名前・人口・面積ならび),
member([_区の名前,_人口,_面積],_区の名前・人口・面積ならび),
assertz('京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積)),
fail.
区の名前，人口，面積のデータを格納する.
141:デフォルトの名無しさん
09/12/31 08:14:28
>>136
% Prolog
人口が最大の区と最小の区の、名前と人口(_人口が最大の区の名前,_人口が最大の区の人口,_人口が最小の区の名前,_人口が最小の区の人口) :-
findmax([_人口,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_人口,_),[_人口が最大の区の人口,_人口が最大の区の名前),
findmin([_人口,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_人口,_),[_人口が最小の区の人口,_人口が最小の区の名前).
面積が最大の区と最小の区の、名前と面積(_面積が最大の区の名前,_面積が最大の区の面積,_面積が最小の区の名前,_面積が最小の区の面積) :-
findmax([_面積,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_,_面積),[_面積が最大の区の面積,_面積が最大の区の名前),
findmin([_面積,_区の名前],京都市の区ごとの人口と面積のデータ(_区の名前,_,_面積),[_面積が最小の区の面積,_面積が最小の区の名前).
人口密度が最大の区と最小の区の、名前と人口密度(_人口密度が最大の区の名前,_人口密度が最大の区の人口密度,_人口密度が最小の区の名前,_人口密度が最小の区の人口密度) :-
findmax([_人口密度,_区の名前],(京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),_人口密度 is _人口 / _面積),[_人口密度が最大の区の人口密度,_人口密度が最大の区の名前),
findmin([_人口密度,_区の名前],(京都市の区ごとの人口と面積のデータ'(_区の名前,_人口,_面積),_人口密度 is _人口 / _面積),[_人口密度が最小の区の人口密度,_人口密度が最小の区の名前).
142:デフォルトの名無しさん
09/12/31 08:38:12
>>141
ほとんどの場合これで済ませてしまいますが、本当は正しくない。
これだと、同一の人口、面積、人口密度が生じた時、名前の小さいまたは大きいもの
が採られてしまいます。正しい処理は、
人口が最大の区と最小の区の、名前と人口(_人口が最大の区の名前,_人口が最大の区の人口,_人口が最小の区の名前,_人口が最小の区の人口) :-
findmax(_人口,京都市の区ごとの人口と面積のデータ(_,_人口,_),_最大の人口),
findall([_区の名前,_最大の人口],京都市の区ごとの人口と面積のデータ(_区の名前,_最大の人口,_),L1),
findmin(_人口,京都市の区ごとの人口と面積のデータ(_,_人口,_),_最小の人口),
findall([_区の名前,_最小の人口],京都市の区ごとの人口と面積のデータ(_区の名前,_最小の人口,_),L2),
member([_人口が最大の区の名前,_人口が最大の区の人口],L1),
member([_人口が最小の区の名前,_人口が最小の区の人口],L2).
% なら、人口が同一の区があっても正しく解が得られます。
143:デフォルトの名無しさん
10/01/02 13:54:46
ｽﾚﾘﾝｸ(tech板:553番)
# (問題）
# 社員データを一元管理するためのサーバークライアントシステムを作れ
# 要求仕様）
# 管理するデータは社員番号、氏名、所属、入社年月日
# クライアントから追加、削除、修正が行えること
# 管理データはCSV形式で保存すること
144:デフォルトの名無しさん
10/01/02 22:13:02
ｽﾚﾘﾝｸ(tech板:557番)
# [1] 授業単元： 情報数学
# [2] 問題文(含コード&リンク)：
# オイラー級数を用いて、πの近似値を求めよ。
145:デフォルトの名無しさん
10/01/02 22:21:57
ｽﾚﾘﾝｸ(tech板:545番)
# [1] 授業単元：基礎プログラミング実習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
p/cgi-bin/joyful/img/10325.txt
# Step 3. 不偏分散を求める次の関数を定義する．
# float variance(float data[], int n) ．この関数は，data[]配列に入っている
# n個のデータの不偏分散を求め，関数値としてその不偏分散値を返す．
# なお，不偏分散の計算に必要な平均値は，関数average()を呼び出して求めること．
146:デフォルトの名無しさん
10/01/02 22:24:19
ｽﾚﾘﾝｸ(tech板:546番)
# [1] 授業単元： プログラミング応用
# [2] 問題文(含コード&リンク)：
# 任意の奇数n(nは15以下)を入力しn×nの魔方陣を出力する。
# そして、作成した魔方陣の縦、横、斜めの合計値も同時に出力せよ。
# ただし、１は必ず一番左の列の真ん中に置くこと。
# (例)
# n=3の時
# １５
# ６ ７ ２ １５
# １ ５ ９ １５
# ８ ３ ４ １５
# １５ １５ １５ １５
147:デフォルトの名無しさん
10/01/03 06:34:05
ｽﾚﾘﾝｸ(tech板:547番)
# [1] 授業単元： 情報数学
# [2] 問題文(含コード&リンク)：
#
# 問）同時整数関係を見つけるプログラムを考えなさい。
# 整数の解を求めるプログラムと、複素数の解を求めるプログラムを考え、
# それを組み合わせることで両方の解を同時に求め示すプログラムについて考えなさい。
148:デフォルトの名無しさん
10/01/03 06:39:51
ｽﾚﾘﾝｸ(tech板:545番)
# [1] 授業単元：基礎プログラミング実習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
# 一問目
#
# Step 1. scanf()を用いてfloat型の値を入力し，それを順番にdata[]配列に格納する．
# このdata[]配列は関数の呼び出し側で宣言するものとし，宣言した配列の要素数(入力可能なデータの最大個数)をmaxとして関数を呼び出すものとする．
# また，この関数は，データ入力数が最大のmax個に達するか，負値が入力されるまでデータ入力を繰り返すものとする．
149:デフォルトの名無しさん
10/01/03 06:43:39
ｽﾚﾘﾝｸ(tech板:545番)
# [1] 授業単元：基礎プログラミング実習
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
# Step 2. 平均値を求める次の関数を定義する. float average(float data[], int n)
# この関数は， data[]配列に入っているn個のデータの平均値を求め，関数値としてその平均値を返す．
150:デフォルトの名無しさん
10/01/03 07:01:06
ｽﾚﾘﾝｸ(tech板:692番)
# 【 課題 】キーワードからクロスワードを完成させる
# URLﾘﾝｸ(rg550.hp.infoseek.co.jp)
# 【 形態 】Javaアプリケーション(main()で開始
# <template>
#
# ■２□■■
# １■□□□
# □□□■■
# ４■□□■
# ■□□３□
#
# <縦のかぎワード>
# コオリ
# ニホンカミ
# モモ
#
# <横のかぎワード>
# ウニ
# オデン
# ホクロ
# アミモノ
# カモ
151:デフォルトの名無しさん
10/01/03 07:45:45
ｽﾚﾘﾝｸ(db板:381番)
# 弁護士の名前(name)とその人の所属法律事務所の名称(ofic)から成るテーブルがあるとして、
# 法律事務所は弁護士がひとりしかいないところから300人以上いるところまでさまざまなので、
# 「所属する弁護士の数が多い事務所トップ10」 の事務所名と人数を select一発で表示させるには
# どうすればいい？
#
152:デフォルトの名無しさん
10/01/03 19:57:09
>>151
% Prolog は集約は得意としない。その場でこの述語を考えるのは負担が大きいので、
% 以下のような準備が必要だろう。SQLのcount(*)を解決する処理だが。
集約_数_逆順ならび([],L,L) :- !.
集約_数_逆順ならび([A|R1],L1,L) :-
\+(member([_,A],L1)),
集約_数_計測(A,R1,L2,1,Count),
逆順整列([Count,A],L1,L3),
集約_数_逆順ならび(L2,L3,L),!.
集約_数_計測(_,[],[],Count,Count) :- !.
集約_数_計測(A,[A|R1],L2,Count1,Count) :-
Count2 is Count1 + 1,
集約_数_計測(A,R1,L2,Count2,Count),!.
集約_数_計測(A,[B|R1],[B|R2],Count1,Count) :-
\+(A = B),
集約_数_計測(A,R1,R2,Count1,Count),!.
逆順整列(L,[],[L]) :- !.
逆順整列(L,[L1|R1],[L,L1|R1]) :-
L @>= L1,!.
逆順整列(L,[L1|R1],[L1|R2]) :-
逆順整列(L,R1,R2).
153:デフォルトの名無しさん
10/01/03 23:45:33
>>151
使用言語：J
ofic=:;:'b a b b a a c d g h c x r t a d c g j u y w q'
]ofic=:ofic,;:'g v c f g v a d e x n u y t y r t a s w'
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
|b|a|b|b|a|a|c|d|g|h|c|x|r|t|a|d|c|g|j|u|y|w|q|g|v|c|f|g|v|a|d|e|x|n|u|y|t|y|r|t|a|s|w|
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
10{.\:~(~.,.~<@#/.~)ofic
+-+-+
|6|a|
+-+-+
|4|g|
+-+-+
|4|c|
+-+-+
|3|y|
+-+-+
|3|t|
+-+-+
|3|d|
+-+-+
|3|b|
+-+-+
|2|x|
+-+-+
|2|w|
+-+-+
|2|v|
+-+-+
154:デフォルトの名無しさん
10/01/04 05:15:18
>>152 (>>151)
% Prolog 逆順ではなかった。降順だね。
集約_数_降順ならび([],L,L) :- !.
集約_数_降順ならび([A|R1],L1,L) :-
\+(member([_,A],L1)),
集約_数_計測(A,R1,L2,1,Count),
降順整列([Count,A],L1,L3),
集約_数_降順ならび(L2,L3,L),!.
集約_数_計測(_,[],[],Count,Count) :- !.
集約_数_計測(A,[A|R1],L2,Count1,Count) :-
Count2 is Count1 + 1,
集約_数_計測(A,R1,L2,Count2,Count),!.
集約_数_計測(A,[B|R1],[B|R2],Count1,Count) :-
\+(A = B),
集約_数_計測(A,R1,R2,Count1,Count),!.
降順整列(L,[],[L]) :- !.
降順整列(L,[L1|R1],[L,L1|R1]) :-
L @>= L1,!.
降順整列(L,[L1|R1],[L1|R2]) :-
降順整列(L,R1,R2).
155:デフォルトの名無しさん
10/01/04 05:37:34
>>151
% Prolog
所属する弁護士の数が多い事務所トップ10(L) :-
findall(_所属法律事務所,弁護士所属(_弁護士の名前,_所属法律事務所),L1),
集約_数_降順ならび(L1,[],L2),
length(L,10),
append(L,_,L2).
156:デフォルトの名無しさん
10/01/04 07:10:58
>>147
同時整数関係 -> 同次整数関係
であるとの訂正が出題スレに載っていました。
157:デフォルトの名無しさん
10/01/04 07:18:35
>>151
使用言語：Io
Io> ofic:="b a b b a a c d g h c x r t a d c g j u y w q"
Io> ofic=ofic .. "g v c f g v a d e x n u y t y r t a s w"
Io> ofic=ofic split
Io> ofic uniqueCount sortBy(block(x,y,x at(1)>y at(1)))slice(0,10)
==> list(list("a", 6), list("c", 4), list("b", 3), list("d", 3), list("g", 3),
list("y", 3), list("t", 3), list("v", 2), list("r", 2), list("w", 2))
158:デフォルトの名無しさん
10/01/04 07:28:00
>>109
% Prolog 出題から離れますが、2次元のリストの指定された列を取り出すユーティリティは
全ての行に対して位置指定により列を選択する(_,[],[]) :- !.
全ての行に対して位置指定により列を選択する(_選択する列位置ならび,[_行|R1],[L|R2
]) :-
列の選択(_選択する列位置ならび,_行,L),
全ての行に対して位置指定により列を選択する(_選択する列位置ならび,R1,R2).
列の選択([],_,[]) :- !.
列の選択([_列位置|R1],_行,[A|R2]) :-
integer(_列位置),
list_nth(_列位置,_行,A),
列の選択(R1,_行,R2),!.
列の選択([A|R1],_行,R2) :-
\+(integer(A)),
B は A,
integer(B),
列の選択([B|R1],_行,R2),!.
列の選択([A|R1],_行,[B|R2]) :-
\+(integer(A)),
B は A,
\+(integer(B)),
列の選択(R1,_行,R2),!.
159:デフォルトの名無しさん
10/01/04 08:04:41
>>158
list_nthは使わないで、第一引数を先にソートしてからやった方がいいと思う。
160:デフォルトの名無しさん
10/01/04 08:08:27
>>159
列の選択の第二・三節で変な事をやっているので、ソートできないw
161:デフォルトの名無しさん
10/01/04 08:13:24
そういうことか。それにしても危なっかしい仕様だな。
162:デフォルトの名無しさん
10/01/04 09:34:39
>>12
使用言語：Scala
scala> def f1(n:Int):Int={var r=0;var a=n;while(a>0){r=10*r+a%10;a/=10};r}
f1: (Int)Int
scala> f1(987654321)
res72: Int = 123456789
scala> def f2(n:Int):Int={n.toString.reverse.toInt}
f2: (Int)Int
scala> f2(987654321)
res73: Int = 123456789
163:デフォルトの名無しさん
10/01/04 11:40:11
>>144
使用言語：J
%:6*+/%2^~>:i.1000000
3.14159
164:デフォルトの名無しさん
10/01/04 12:24:50
>>144
使用言語：Io
Io> r:=0;for(i,1,1000000,r=r+1/(i*i));(r*6)sqrt
==> 3.1415916986605086
165:デフォルトの名無しさん
10/01/04 16:24:30
>>159
>>160 のような呑気なレスをつけてしまったが、取り出す順序が勝手に変わって
しまっては、後でmember/2などで取り出す時どうすればいいのかな？
166:デフォルトの名無しさん
10/01/04 17:10:15
ｽﾚﾘﾝｸ(db板:377番)
#
# Aテーブル
# aaa|ddd
#
# Bテーブル
# aaa|bbb
#
# Cテーブル
# bbb|ccc
#
# Aテーブルに対して、カラムaaaでBテーブルが紐づき、
# Bテーブルに対して、カラムbbbでCテーブルが紐づくとします。
# （つまり、Aテーブルのレコード1件は、Bテーブルを経由してCテーブルのレコード1件と紐づく）
# ここで、A.ddd = 'X'のとき、C.ccc = 'Y'に更新したいのですが
# 下記の文であってますでしょうか？
# また、もっと効率のいい方法はありますでしょうか？
#
# update C set C.ccc = 'Y' where C.bbb in
# ( select B.bbb from B where B.aaa in
# ( select A.aaa from A where A.ddd = 'X')
# ( select A.aaa from A where A.ddd = 'X')
# )
167:デフォルトの名無しさん
10/01/04 17:17:02
>>166
% Prolog
?- 'A'(A,'X'),'B'(A,B),(retract('C'(B,_)),fail;assertz('C'(B,'Y'))).
168:デフォルトの名無しさん
10/01/04 18:03:23
>>167 (>>166)
% prolog (retract('C'(B,_)),fail;assertz('C'(B,'Y'))) の部分を
update(P,Q) :-
functor(P,F,A),
functor(Q,F,A),
( retract(P),fail;assertz(Q)).
が定義されているとして、
?- 'A'(A,'X'),'B'(A,B),update('C'(B,_),'C'(B,'Y')).
169:デフォルトの名無しさん
10/01/04 19:30:52
ｽﾚﾘﾝｸ(tech板:695番)
# URLﾘﾝｸ(ime.nu)
# URLﾘﾝｸ(ime.nu)
# 問題
# 次の画面のように、サーバとクライアントでの間で文字列を送り合う
# プログラムを作れ(サーバとクライアント両方とも)
#
# 【クライアント】 【サーバ】
# サーバのアドレスは ポートは
# 202.48.53.27 12345
# ポートは 名前は
# 12345 syou
# 名前は aikawa>Hello
# aikawa syou>Hello
# aikawa>Hello
# syou>Hello
# aikawa>
#
# ただし、以下の条件を満たすようにすること
# クライアントでquitが入力された場合、クライアントは接続を切りプログラムを
# 終了し、サーバは接続が切れたら、次のクライアントの接続を待つ。
# サーバでquitが入力された場合、サーバは接続を切り、次のクライアントの
# 接続を待ち、クライアントは接続が切られたらプログラムを終了する
# エンターキーのみが入力された場合は、文字列を送らずもう一度文字列を
# 入力させて、その文字列を送るようにする
170:デフォルトの名無しさん
10/01/05 00:05:28
>>144
使用言語：Scilab
-->sqrt(6*sum(1.0 ./((1:1000000)^2)))
ans =
3.1415917
171:デフォルトの名無しさん
10/01/05 07:52:32
>>144
使用言語：Haskell
Prelude> sqrt $ 6*(sum[1/(x*x)|x<-[1..1000000]])
*** Exception: stack overflow
Prelude> sqrt $ 6*(sum[1/(x*x)|x<-[1..500000]])
3.141590743731832
172:デフォルトの名無しさん
10/01/05 11:56:40
>>151
使用言語：R
> ofic <- "b a b b a a c d g h c x r t a d c g j u y w q"
> ofic <- paste(ofic,"g v c f g v a d e x n u y t y r t a s w")
> ofic <- unlist(strsplit(ofic," "))
> head(sort(table(ofic),T),10)
ofic
a c g b d t y r u v
6 4 4 3 3 3 3 2 2 2
173:デフォルトの名無しさん
10/01/06 10:09:29
>>116
% Prolog データ入力部分は省略
カードの合計が一致するまででたらめにN回以内交換する(0,_,_,_,_,[]) :- !,fail.
カードの合計が一致するまででたらめにN回以内交換する(N,AL,BL,AL,BL,[]) :-
加算(AL,Sum1),
加算(BL,Sum2),
Sum1 = Sum2.
カードの合計が一致するまででたらめにN回以内交換する(N,AL,BL,X,Y,[[A,B,AL,BL]|Z]) :-
RA is (random mod 3) + 1,
RB is (random mod 3) + 1,
ならびの回転(左方向,RA,AL,[A|R1]),
ならびの回転(左方向,RB,BL,[B|R2]),
N1 is N - 1,
カードの合計が一致するまででたらめにN回以内交換する(N1,[B|R1],[A|R2],X,Y,Z).
174:デフォルトの名無しさん
10/01/06 15:52:03
ｽﾚﾘﾝｸ(tech板:572番)
# [1] 授業単元： 5元：プログラミング演習III
# 問題（５）
# 実行するとカラーダイヤログを表示し、選択したカラーをクリップボードに
# 送る処理を記述せよ
175:デフォルトの名無しさん
10/01/06 20:05:10
>>174
使用言語：なでしこ
「#{HEX(色選択)}」をコピー
176:デフォルトの名無しさん
10/01/06 20:33:14
>>174
使用言語：J
wd 'clipcopy "',(":3{.". wd 'mbcolor'),'"'
177:デフォルトの名無しさん
10/01/07 07:18:22
ｽﾚﾘﾝｸ(tech板:575番)
# [1]C言語入門
# [2]2つの複素数の和と積を計算して表示するプログラムを作成せよ。
# 構造体complexを定義し、和の複素数を返すadd関数、積の複素数を返すmul関数、複素数を表示するprint関数をそれぞれ作成し
# mainでは2つの複素数をキーボードから読み込み、関数を呼ぶ。
# 虚数部にはiを付加せよ。
178:デフォルトの名無しさん
10/01/07 07:29:05
ｽﾚﾘﾝｸ(db板: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:デフォルトの名無しさん
10/01/07 07:41:15
>>178
% Prolog 引数を順に処理する場合、それぞれ副目標を明示的に立てる。
テストデータ(田中,100,90).
テストデータ(鈴木,80,80).
成績マスタ('A',100).
成績マスタ('B',90).
成績マスタ('C',80).
欲しい結果(_欲しい結果) :-
findall([_氏名,_一回目成績,_二回目成績],欲しい結果(_氏名,_一回目成績,_二回目成績),_欲しい結果).
欲しい結果(_氏名,_一回目成績,_二回目成績) :-
テストデータ(_氏名,_一回目点数,_二回目点数),
成績マスタ(_一回目成績,_一回目点数),
成績マスタ(_二回目成績,_二回目点数).
180:デフォルトの名無しさん
10/01/07 09:43:07
>>178
% Prolog 元スレでｽﾚﾘﾝｸ(db板:393番)の
% 成績マスタは以下のような範囲型にしたかったのではないか、との指摘があった。
テストデータ(田中,100,90).
テストデータ(鈴木,80,80).
成績マスタ('A',91,100).
成績マスタ('B',81,90).
成績マスタ('C',71,80).
欲しい結果(_欲しい結果) :-
findall([_氏名,_一回目成績,_二回目成績],欲しい結果(_氏名,_一回目成績,_二回
目成績),_欲しい結果).
欲しい結果(_氏名,_一回目成績,_二回目成績) :-
テストデータ(_氏名,_一回目点数,_二回目点数),
成績マスタ(_一回目成績,_点数下限1,_点数上限1),
_一回目成績 >= _点数下限1,
_一回目成績 =< _点数上限1,
成績マスタ(_二回目成績,_点数下限2,_点数上限2),
_二回目成績 >= _点数下限2,
_二回目成績 =< _点数上限2.
181:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/07 16:55:46
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/07 20:30:55
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/08 05:28:41
ｽﾚﾘﾝｸ(tech板:604番)
# [1] 授業単元： 演習チャレンジ問題
# [2] 問題文(含コード&リンク)：
# あるint型配列array[256]の中身をランダムシャッフルしたい。
# 0～127の範囲の値を被らずに出す乱数関数randEx(Seed, i)を作成せよ。(iは0～127)
# ※Seedを変えることにより、異なるパターンのランダム列が出るようにする。
# ※array[i]とarray[128+randEx(Seed, i)]をスワップすることで並列計算において一気にシャッフルするのが目的です。
# ※「スワップするかしないか」の部分は別なので考えなくて良いです。
187:デフォルトの名無しさん
10/01/08 07:53:39
ｽﾚﾘﾝｸ(db板:397番)
# 基本的なことで申し訳ないんですけど、
# あるテーブルから特定のデータが1件でも存在するかどうかの判断をしたいのですが 、
# COUNT()はテーブル内の全部のレコードを検索してしまうので、もっと高速でスマー トな方法は無いか存じないでしょうか。
#
188:デフォルトの名無しさん
10/01/08 08:03:41
>>187
% Prolog (!)に意味があります。
あるテーブルから特定のデータが1件でも存在するかどうかの判断する(Q) :- call(Q),!.
189:デフォルトの名無しさん
10/01/08 08:08:37
>>187
% Prolog テーブル名,引数ならびとして与えられたら、
あるテーブルから特定のデータが1件でも存在するかどうかの判断する(_テーブル名,_引数ならび) :-
Q =.. [_テーブル名|_引数ならび],
call(Q),!.
190:デフォルトの名無しさん
10/01/08 08:14:23
>>187
% Prolog >>189は単位節データベースの自然なコードだが、条件が付加されていて、
% そこに副作用を生じる目標が記述されている懸念がある場合は、clause/2を使う。
あるテーブルから特定のデータが1件でも存在するかどうかの判断する(_テーブル名,_引数ならび) :-
Q =.. [_テーブル名|_引数ならび],
clause(Q,_),!.
191:デフォルトの名無しさん
10/01/08 08:31:47
>>187
% Prolog >>190にさらに条件を付加したい場合は、_条件として引数の条件、あるいは
% 引数と引数の関係を記述します。
あるテーブルから特定のデータが1件でも存在するかどうかの判断する(_テーブル名,_引数ならび,_条件) :-
Q =.. [_テーブル名|_引数ならび],
clause(Q,_),
call(_条件),!.
192:デフォルトの名無しさん
10/01/08 10:54:08
ｽﾚﾘﾝｸ(tech板:606番)
# プログラミングの問題なんですが、if文と繰り返し（for,whileのいずれか）を利用して次の問題を作成します。
#
# 米ドル紙幣としては次のような紙幣とコインがある。
# 100ドル、50ドル、20ドル、10ドル、5ドル、2ドル、1ドル
# 50セント、25セント、10セント、5セント、1セント
#
# 問題は、キーボードから日本円を入力し、まずドルに変換した後ドルを最適な紙幣とコインに振り分けるプログラムを作成しなさい。但し1ドルを92.69円として換算しなさい。そして、日本円が0円の時にプログラムを終了する。
193:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/08 16:35:48
ｽﾚﾘﾝｸ(tech板:620番)
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)：掃き出し法。
# 0,1のみを成分にもつｎ次正方行列Aが２重リストとしてある。Aにmod2の行基本変形を施して、階段行列に変形するプログラム
195:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/09 08:09:47
>>199
foldl' というは知らなかったので、調べてみたら、
第9回 Haskellはなぜ遅いと思われているのか - 本物のプログラマはHaskellを使う：ITpro
URLﾘﾝｸ(itpro.nikkeibp.co.jp)
に sum でスタックオーバーフローする例がのっていました。
正直、まだよくわかっていません。
どうして sum の定義にこの foldl' の方を使わないのかな。
なんか他に問題がでてくるのかな。
201:デフォルトの名無しさん
10/01/09 21:09:52
ｽﾚﾘﾝｸ(tech板:633番)
# [1]授業単元：プログラミング２
# [2]問題文：２つの最大５０桁の実数を入力し、その和・差・積を求めるプログラム
202:デフォルトの名無しさん
10/01/10 04:48:39
ｽﾚﾘﾝｸ(tech板:636番)
# [1] 授業単元：数値計算
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# ３元連立非線形方程式
#
# 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:デフォルトの名無しさん
10/01/10 04:54:14
ｽﾚﾘﾝｸ(tech板:637番)
# [1] 授業単元：コンピュターグラフィック
# [2] 問題文(含コード&リンク)：
# 1次元配列を2次元配列に・2次元配列を1次元配列に変換する二つのモジュール
# URLﾘﾝｸ(ime.nu)
#
# 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:デフォルトの名無しさん
10/01/10 04:55:40
ｽﾚﾘﾝｸ(tech板:639番)
# [1] アルゴリズム
#
# [2] 自然数の数列を入力し
# 数列内にあるｎよりも大きい数と小さい数が
# nの前後にそれぞれ一つ以上ある場合、そのnを出力する。
#
# フローチャートは以下です。
#
# 順数列の入力
# ↓ ↓
# 数列数が５以上 ４以下→終了(4以下のときどれも除外できないので)
# ↓
# 数列の中で最大最小の値と
# 最初と最後に入力した値は除外できる。
# ↓
# 残りの数値に前後に大小の値が一つ以上あれば除外
# ↓
# 残った値を表示して終了
205:デフォルトの名無しさん
10/01/10 04:59:12
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/10 05:04:02
ｽﾚﾘﾝｸ(tech板:645番)
# [1] 授業単元：プログラミング実習a
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# 実行例のとおりに，自分で五つの問題文を入力して練習するタイピング練習ソフトを
# 作成せよ．ただし，問題文は入力した五つの中から10題がランダムに出題されるものと
# し，最後に正解数を表示すること．
#
# 実行例 (下線部はユーザーの入力)
#
# 20文字までの問題文を五つ入れてください
#
# 1つ目の問題文：abcdefghijkl
#
# 2つ目の問題文：January
#
# 3つ目の問題文：xxyyzz0368GST
#
# 4つ目の問題文：MondayFriday
#
# 5つ目の問題文：qwerty.uiop,RTYU
207:デフォルトの名無しさん
10/01/10 05:08:37
ｽﾚﾘﾝｸ(tech板:640番)
# [1] 授業単元：Cプログラミング
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
# 2つの名前を入力してステータス（ランダム）を決定し 途中経過を表示し
# 攻撃が当たった時は文字色を変える
#
# 24行程度に纏められないため、問題文のリンクを直接参照してください
208:デフォルトの名無しさん
10/01/10 05:11:10
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/10 12:25:56
ｽﾚﾘﾝｸ(tech板:659番)
# [1] 授業単元： オペレーティングシステム
# [2] 問題文(含コード&リンク)：
# fork,exec*システムコールを用いて簡単なコマンドインタープリタ
# (mysh)を作成せよ。但し、作成するコマンドインタープリタは以下の
# 機能をサポートすること。
# ・設定ファイル(.path)にコマンドサーチパスを指定することが出来る。
# なお、ファイル内のパスの指定方法は、各自が考え定義すること。
# （パスにないコマンドを入力した場合には、見つからない旨のエラー
# メッセージを出力すること。）
# ・パイプを利用して複数（可変個）のコマンドの入出力を結合する
# ことができる。
# ・リダイレクションを使用してコマンドへの入力をファイルから得たり、
# ファイルへ出力したりすることができる
# ・コマンド実行中にCtrl-Cを入力すると、現在のコマンドの実行を
# 中断する
# ・exitを入力すると、myshを終了する。
#
210:デフォルトの名無しさん
10/01/11 05:10:41
ｽﾚﾘﾝｸ(tech板:676番)
# [1] 授業単元：データ構造とアルゴリズム
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(prolog.asia)
#
211:デフォルトの名無しさん
10/01/11 05:15:57
ｽﾚﾘﾝｸ(tech板:678番)
# [1] 授業単元： 基礎プログラミングおよび演習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# ある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:デフォルトの名無しさん
10/01/11 05:24:23
ｽﾚﾘﾝｸ(tech板:685番)
# [1] 授業単元：プログラミング
# [2] 問題文(含コード&リンク)：2つの名前を入力しステータス（ランダム）を決定し 勝敗表示する。
#
213:デフォルトの名無しさん
10/01/11 19:56:43
ｽﾚﾘﾝｸ(tech板:703番)
# [1] 授業単元： C
# [2] 問題文(含コード&リンク)：
# 100以下の素数をすべて出力するプログラムを作りたい。
# 自然数xに対して2以上で√x以下の素数で割り切れない数が素数である。ただし１は素数でも合成数でもない。
214:デフォルトの名無しさん
10/01/11 19:58:48
ｽﾚﾘﾝｸ(tech板:710番)
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： 数値には初期値が与えられている。
# この配列を昇順に並べ替えるプログラムを作成しなさい。
#
# 表示結果： 数値[00]=80
# 数値[01]=40
# 数値[02]=23
# 数値[03]=69
# 数値[04]=10
#
# ソート後
# 数値[01]=10
# 数値[02]=23
# 数値[03]=40
# 数値[04]=69
# 数値[03]=80
215:デフォルトの名無しさん
10/01/12 08:12:02
ｽﾚﾘﾝｸ(tech板:714番)
# 1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# 連立1次方程式の一般的な数値解法にはGaussの単純消去法がある。
# この方法についてアルゴリズムを調べ下記の連立1次方程式を例に解法手順をC言語で表示せよ。
#
# 方程式
# x1 + 5x2 + x3 =2
# 3x1 + 4x2 = 2
# 9x1 + 10x2 +4x3 = 8
216:デフォルトの名無しさん
10/01/12 08:13:26
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/12 08:14:57
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/12 08:17:00
ｽﾚﾘﾝｸ(tech板:722番)
# [1]授業単元：プログラミング２
# [2]問題文：以下の機能を備えた対コンピュータの五目並べを作成せよ
# ・置く場所を縦と横の数字で指定する
# ・人とコンピュータのどちらかが先手になるか選択できる
# ・先手の３３を禁じる
# ・勝敗の判定ができる（置く場所がなくなったら引き分け）
# ・コンピュータは人が３と４を作った場合、それを止める場所に石を置く
# ・すでに石がおいてある場所に人が石を置こうとした場合、再入力を促す
219:デフォルトの名無しさん
10/01/12 08:21:25
ｽﾚﾘﾝｸ(tech板:705番)
# 【 課題 】自然言語処理、構文解析のCYK法のプログラム
# 【 形態 】1. Javaアプリケーション(main()で開始)
# 【 期限 】2010/01/18
# 【 Ver 】java version "1.6.0_17"
# 【 用語 】CYK法 URLﾘﾝｸ(ime.nu)
220:デフォルトの名無しさん
10/01/12 08:48:39
ｽﾚﾘﾝｸ(tech板:548番)
# このスレにあった10行囲碁ソースを元に作ってみようかな。
# 展開して調べたら、あれに入ってる評価関数は
#
# 石数に比例するもの
# ・石が取れる
# ・アタリにいける
# ・囲いにいける
# ・隣接させる
221:デフォルトの名無しさん
10/01/12 20:38:24
ｽﾚﾘﾝｸ(tech板:739番)
# [1] 授業単元： プログラミング
# [2]問題文：URLﾘﾝｸ(ime.nu)
# ★演習問題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:デフォルトの名無しさん
10/01/12 22:05:13
ｽﾚﾘﾝｸ(tech板:739番)
# [1] 授業単元： プログラミング
# [2]問題文：URLﾘﾝｸ(ime.nu)
# ★演習問題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:デフォルトの名無しさん
10/01/12 22:08:32
ｽﾚﾘﾝｸ(tech板:739番)
# [1] 授業単元： プログラミング
# [2]問題文：URLﾘﾝｸ(ime.nu)
# ★演習問題３
# 次の手順に従ってプログラムを作成せよ．
# （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:デフォルトの名無しさん
10/01/12 22:11:53
ｽﾚﾘﾝｸ(tech板:741番)
# [1] 授業単元： プログラミング2
# [2]問題文：URLﾘﾝｸ(ime.nu)
# 下図(A)のテキストファイルは、ある実験を行ったときのメモであり、
# 実験の年月日と使用した材料及びその使用量が記載されている（スペースは全て半角スペース）。
# そこでこのファイルを読み込んで、最も多くの量を使用した材料の記号とその合計量、及び１回当たりの平均使用量を、
# 図(B)に示すような別のテキストファイルに書き出すプログラムを作成せよ。なおこの実験で使用する材料はＡ、Ｂ、Ｃの３種類のみである。
#
# プログラム作成に際しては、次の条件を満たすものとする。
# ・入力用のファイル名はJikkenMemo.txtで固定とし、一々キーボードからは指定しない。
# ・出力用のファイル名はキーボードから任意の名前で指定する。
# ・JikkenMemo.txtでは今回は13回分の実験が書き込まれているが、今後の実験の追加にも対応できるようにすること（即ち13行に限定しないこと）。
# ・出力ファイルにおける使用量の単位ｇは数値の後につける。
# ・出力ファイルにおける数値の表示はいずれも小数点以下１桁までとする。
#
# （補足）
# キーボードから入力した１文字がAという文字であるとき「Ａです」と表示させるには、
# char cc;
# scanf("%c",&cc);
# if(cc=='A') printf("Aです\n");
# とすればよい。
225:デフォルトの名無しさん
10/01/13 05:20:50
ｽﾚﾘﾝｸ(tech板:744番)
# [1] プログラミング
# [2] ０から１０の中からランダムに整数の２組を決める。それを平面上の座標と、座標を１０個つくる。
# ユーザに座標を入力させ、その点から最も遠い点と近い点を求める。
# 最も近い点がユーザが入力した点と重なったら◎を出力する。
# 結果は下記のように出力。
# △
# △
# △
# × ○
#
#
#
# ●
#
# ×：ユーザが入力した点
# ○：最も近い点
# ●：最も遠い点
# △：それ以外の点
#
226:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/13 18:17:53
ｽﾚﾘﾝｸ(tech板:750番)
# [1] 授業単元： 情報科学（Ｃ言語）
# [2]問題文：URLﾘﾝｸ(ime.nu)
# 課題１０
# 関数sasho は第1引数と第2引数の数値（実数）の差と商を計算し，差を
# 第3引数で与えられる場所に，商を第4引数で与える場所に格納し，第2
# 引数が0 の場合は0，その他の場合は1 を返す関数である（第2引数が
# 0 の場合は，商の計算はしない）．関数sasho を定義し，main 関数で
# は，2つの実数を入力して，sasho を利用して，2数の差と商を表示する
# （sasho の帰り値が0 の場合は差のみを表示）プログラムを作成せよ．
228:デフォルトの名無しさん
10/01/13 18:20:47
ｽﾚﾘﾝｸ(tech板:752番)
# 1] 授業単元： プログラミング
# [2]問題文：URLﾘﾝｸ(ime.nu)
#
# ★演習問題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:デフォルトの名無しさん
10/01/13 18:22:30
ｽﾚﾘﾝｸ(tech板:752番)
# 1] 授業単元： プログラミング
# [2]問題文：URLﾘﾝｸ(ime.nu)
#
# ★演習問題2
# fgetc関数とfputc関数を使って，テキストファイルの内容を，別のテキ
# ストファイルにコピーするプログラムを作成しなさい．確認のため，元の
# ファイルとコピーされたテキストファイルの中身の内容を画面にそれぞれ
# 出力せよ．
230:デフォルトの名無しさん
10/01/13 18:24:44
ｽﾚﾘﾝｸ(tech板:752番)
# 1] 授業単元： プログラミング
# [2]問題文：URLﾘﾝｸ(ime.nu)
# ★演習問題3
# 氏名，年齢，性別が５人分書かれた次のようなテキストファイルを読み
# 込んで、両面に表示するプログラムを作成せよ．このとき，構造体を利用
# せよ.
# (入力ファイル:test.txtの中身)
#
# Tanaka 31 Man
# Kawai 24 Man
# Suzuki 22 Woman
# ltoh 40 Woman
# Sugita 37 Man
231:デフォルトの名無しさん
10/01/13 18:26:54
ｽﾚﾘﾝｸ(tech板:752番)
# [1] 授業単元： プログラミング
# [2]問題文：URLﾘﾝｸ(ime.nu)
# ★演習問題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:デフォルトの名無しさん
10/01/13 18:27:52
ｽﾚﾘﾝｸ(tech板:753番)
# [1] 授業単元： プログラミング
# [2]問題文：
# モンテカルロ法による円周率の近似値の計算を行うプログラムを書け。
# 生成する点の個数はキーボードから受け取るようにせよ。
# 乱数の生成にはMersenne twisterを用いよ。
#
233:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/14 03:21:43
ｽﾚﾘﾝｸ(tech板:709番)
# 【 課題 】 URLﾘﾝｸ(prolog.asia) (仮にコピーさせていきました)
# 【 形態 】1. Javaアプリケーション(main()で開始)
# 【 期限 】1月２２日
# 【 補足 】Eclipseを使用しています。
# 内容は前向き推論のプログラムです。
# このプログラムを実行したら、「gyouzaは作ることができる。」と表示させたい# 「nikuudouは作ることができる。」は表示させない。
# またRecipe.txtの中身を修正してもよい。
235:デフォルトの名無しさん
10/01/14 03:23:46
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/14 03:25:53
ｽﾚﾘﾝｸ(tech板:770番)
#
# [1] 授業単元：Ｃ言語
# [2]問題文：
# 下記の機能を備えた極めて単純なデータベースシステムであるカード型データベシステムの構築を考える。
# 新しい科目を登録する機能
# すでに登録されている科目を修正（更新）する機能
# 登録科目のソート（並び替え）を行う機能
# 登録科目の一部分のみを検索して取り出し、表示する機能
# 登録科目から、卒業までに必要な単位を計算し、表示する機能
# 卒業要件を簡略化しても良い.
237:デフォルトの名無しさん
10/01/14 03:28:42
>>760 の訂正
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/14 03:29:53
ｽﾚﾘﾝｸ(tech板:772番)
# [1] 授業単元： プログラミング
# [2]問題文：氏名，年齢，性別が５人分書かれた次のようなテキストファイルを
# 込んで、両面に表示するプログラムを作成せよ．このとき，構造体を利用
# せよ.
# (入力ファイル:test.txtの中身)
#
# Tanaka 31 Man
# Kawai 24 Man
# Suzuki 22 Woman
# ltoh 40 Woman
# Sugita 37 Man
239:デフォルトの名無しさん
10/01/14 03:37:48
ｽﾚﾘﾝｸ(tech板:773番)
# [1] 授業単元：
# 画像処理
# [2] 問題文(含コード&リンク)：
# URLﾘﾝｸ(ime.nu)
# 以下のプログラムを参考にして、画像を指定倍率で拡大・縮小するプログラムを してください。
# ・最低限、pgm形式のモノクロ画像を入出力可能とすること
# ・コマンドラインインタフェースの仕様は各自で定めること
# ・拡大・縮小の倍率をプログラム中に埋め込んで、再コンパイルしなければ倍率 更できないような仕様は不可
# ・補間の手法、縮小時のローパスフィルタリングの手法、順方向変換を用いるか 向変換を用いるか等、
# 変換の手法は各自で工夫すること。
#
# 変換の手法、工夫した点、苦労した点などをテキストに記述し、ソースプログラ 2倍拡大画像、1/2倍縮小画像を添付すること。
240:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/14 06:04:25
ｽﾚﾘﾝｸ(tech板:775番)
# [1] 授業単元：Ｃ言語
# [2]問題文：
# 二次関数 f(x) = x2 について、x=0から３までの定積分を求めたい。
# 区分求積法により、この積分の近似値を求めよ。
# x軸方向の刻み幅Δxを0.1とする。
242:デフォルトの名無しさん
10/01/14 07:42:54
>>234 はプログラムを解読して書き直さないと出題にならないですね。
面白そうな問題なのでやってみます。
あっという間に問題ばかり溜まってしまいました。中に骨のある問題も多いようです。
私は、1月を過ぎると余裕ができるので一気に解決していきたいなと思っています。
243:デフォルトの名無しさん
10/01/14 10:34:15
ｽﾚﾘﾝｸ(db板: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:デフォルトの名無しさん
10/01/14 11:36:31
>>243
% Prolog (1/2) 祝日がわからないと1営業日後がわからないので、
% 足掛かりとして、以下の定義をしておきましょう。今後祝日に関しては第二引数を解読しましょう。
国民の祝日に関する法律('第１条','自由と平和を求めてやまない日本国民は、美しい風習を育てつつ、よりよき社会、より豊かな生活を築きあげるために、ここに国民こぞって祝い、感謝し、又は記念する日を定め、これを「国民の祝日」と名づける。').
国民の祝日に関する法律('第２条','自由と平和を求めてやまない日本国民は、美しい風習を育てつつ、よりよき社会、より豊かな生活を築きあげるために、ここに国民こぞって祝い、感謝し、又は記念する日を定め、これを「国民の祝日」と名づける。').
国民の祝日に関する法律(第２条,'「国民の祝日」を次のように定める。').
国民の祝日に関する法律(第２条,元日,１月１日,'年のはじめを祝う。').
国民の祝日に関する法律(第２条,成人の日,１月の第２月曜日,'おとなになったことを自覚し、みずから生き抜こうとする青年を祝いはげます。').
国民の祝日に関する法律(第２条,建国記念の日,政令で定める日,'建国をしのび、国を愛する心を養う。').
国民の祝日に関する法律(第２条,春分の日 春分日 自然をたたえ、生物をいつくしむ。
国民の祝日に関する法律(第２条,昭和の日,４月２９日,'激動の日々を経て、復興を遂げた昭和の時代を顧み、国の将来に思いをいたす。').
国民の祝日に関する法律(第２条,憲法記念日,５月３日,'日本国憲法の施行を記念し、国の成長を期する。').
国民の祝日に関する法律(第２条,みどりの日,５月４日,'自然に親しむとともにその恩恵に感謝し、豊かな心をはぐくむ。').
国民の祝日に関する法律(第２条,こどもの日,５月５日,'こどもの人格を重んじ、こどもの幸福をはかるとともに、母に感謝する。).
245:デフォルトの名無しさん
10/01/14 11:37:21
>>243
% Prolog (2/2) つづき
国民の祝日に関する法律(第２条,海の日,７月の第３月曜日,海の恩恵に感謝するとともに、海洋国日本の繁栄を願う。).
国民の祝日に関する法律(第２条,敬老の日,９月の第３月曜日,多年にわたり社会につくしてきた老人を敬愛し、長寿を祝う。).
国民の祝日に関する法律(第２条,秋分の日,秋分日,'祖先をうやまい、なくなった人々をしのぶ。').
国民の祝日に関する法律(第２条,体育の日,'１０月の第２月曜日,スポーツにしたしみ、健康な心身をつちかう。').
国民の祝日に関する法律(第２条,文化の日,１１月３日,'自由と平和を愛し、文化をすすめる。').
国民の祝日に関する法律(第２条,勤労感謝の日,１１月２３日,'勤労をたっとび、生産を祝い、国民たがいに感謝しあう。').
国民の祝日に関する法律(第２条,天皇誕生日,１２月２３日,'天皇の誕生日を祝う。').
国民の祝日に関する法律(第３条,'「国民の祝日」は、休日とする。').
国民の祝日に関する法律(第３条,'２ 「国民の祝日」が日曜日に当たるときは、その日後においてその日に最も近い「国民の祝日」でない日を休日とする。').
国民の祝日に関する法律(第３条,'３ その前日及び翌日が「国民の祝日」である日（「国民の祝日」でない日に限る。）は、休日とする。').
246:デフォルトの名無しさん
10/01/14 12:01:20
ｽﾚﾘﾝｸ(tech板:776番)
# [1]オペレーティングシステム
# [2]問題文(含コード&リンク)：
# URLﾘﾝｸ(ime.nu)
# fork とexec 族のシステムコールを用いて，簡単なコマンドインタープリタ（mysを作成せよ．
# ただし,作成するコマンドインタープリタは以下の機能をサポートすること．
# ・設定ファイル（.path）にコマンドサーチパスを指定することが出来る．なお，イル内のパスの指定方法は，各自が考えて定義すること．（パスにないコマンドを した場合には，
# 見つからない旨のエラーメッセージを出力すること．）
# ・パイプを利用して複数（可変個）のコマンドの入出力を結合することができる # ・コマンド実行中にCtrl-C を入力すると，現在のコマンドの実行を中断して, 次マンドを
# 入力するためにプロンプトを出力する．
# ・リダイレクション（“＜” と “＞”）を使用してコマンドへの入力をファイルから得たり，ファイルへ出力したりすることが出来る．
# ・exit を入力すると，mysh を終了する．
247:デフォルトの名無しさん
10/01/14 16:10:07
>>243
% Prolog 一営業日後の定義に祝日と曜日の定義が必要になる。
一営業日後(_今日,_一営業日後) :-
曜日(_今日,_曜日),
\+(member(_曜日,[土曜,日曜])),
\+(祝日(_今日)),
翌日(_今日,_翌日),
次の営業日(_翌日,_一営業日後),!.
一営業日後(_今日,_一営業日後) :-
翌日(_今日,_翌日),
一営業日後(_翌日,_一営業日後),!.
三営業日後(_今日,_三営業日後) :-
一営業日後(_今日,_一営業日後),
一営業日後(_一営業日後,_二営業日後),
一営業日後(_二営業日後,_三営業日後),!.
次の営業日(_基準日,_次の営業日) :-
曜日(_基準日,_曜日),
member(_曜日,[土曜,日曜]),
翌日(_基準日,_翌日),
次の営業日(_翌日,_次の営業日),!.
次の営業日(_基準日,_次の営業日) :-
祝日(_基準日),
翌日(_基準日,_翌日),
次の営業日(_翌日,_次の営業日),!.
次の営業日(_次の営業日,_次の営業日).
248:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/14 21:17:44
ｽﾚﾘﾝｸ(tech板:780番)
# [1] 授業単元： プログラミング演習
# [2] 問題文(含コード&リンク)： 0,1のみを成分にもつｎ次正方行列Aは各行を２進数とみなして整数のリストとして表現できる。
# たとえば 3次正方行列は １，０，０/０，１，０/０，０，１は｛４，２，１｝
#
# これに掃き出し法を適用し、｛５，６，３｝と入力したとき｛５，３，０｝と出力されるプログラムを作れ。
# ヒントとして、行の入れ替えは数字の入れ替えになる。
# ｎ桁２進数ｘの下位から、上位からの数字はそれぞれどう書けるか考える。
#
# まず正方行列の次数をきめ、入力できる１０進数の最大値を表示、その後
# その範囲で数値をn回キーボードから入力した後、掃き出し法を行い、
# その正方行列の行の値を１０進数に変換するプログラムです。
250:デフォルトの名無しさん
10/01/14 23:23:16
ｽﾚﾘﾝｸ(db板: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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/15 05:19:11
ｽﾚﾘﾝｸ(tech板:711番)
# 【 課題 】課題は3題です。
# URLﾘﾝｸ(ime.nu)
# 課題１
# 乱数を使って掛け算九九の練習ソフトを作れ。ただし以下の条件に従うものとする 。
#
# 10題練習したところで正解率が8割以下だったら、もう1セット10題の練習を繰り返 す。
# 10問中の正解率が8割以上になるまで繰り返し練習をさせる。
253:デフォルトの名無しさん
10/01/15 05:23:59
ｽﾚﾘﾝｸ(tech板:711番)
# 【 課題 】課題は3題です。
# URLﾘﾝｸ(ime.nu)
# 課題２
# 西暦を入力させ、うるう年かどうかを判定するプログラムを作れ。なお、うるう年 は以下で認定される。
#
# 西暦の年号が400で割り切れる年はうるう年
# 西暦の年号が400で割り切れないが、100で割り切れる年はうるう年でない
# 西暦の年号が100で割り切れないが、4で割り切れる年はうるう年
254:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/15 06:24:52
ｽﾚﾘﾝｸ(tech板:796番)
# [1] プログラミング演習
# [2] 標準入力から読み込んだテキストファイルを辞書順に整列して標準出力する。
# 辞書順：文字列比較の順番はASCIIコード文字順をベースとした辞書順であるが、文字順が一部
# が変更される A<a<B<c<C<c.....
# [5] 作業用ファイルwork.dat(内容は自由、サイズ無制限とする。プログラム終了時点で削除する必要は無い
# ものとする。）
# を使用出来る。stdio.hで定義されている標準ライブラリ関数、定数を利用出来る。
# 整列アルゴリズムは自由とする。
257:デフォルトの名無しさん
10/01/15 06:26:49
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/15 06:28:19
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/15 07:25:06
ｽﾚﾘﾝｸ(tech板: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:デフォルトの名無しさん
10/01/15 07:36:26
ｽﾚﾘﾝｸ(tech板:711番)
# 【 課題 】課題は3題です。
# URLﾘﾝｸ(ime.nu)
# 課題３
#
# 以下のプログラムに手を加え、アドレス表を利用した並び替えを行って人口の大き>
# い順に人口と県民を表示しなさい
#
# 07年の都道府県人口（csv形式ファイル）は以下の場所にあります。
# URLﾘﾝｸ(prolog.asia)
261:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/15 10:40:01
>>253
% Prolog
% URLﾘﾝｸ(prolog.asia) などにすでにあります。ここでは、
西暦を入力させ、うるう年かどうかを判定する(_西暦) :-
西暦の年号が400で割り切れる年はうるう年(_西暦),!.
西暦を入力させ、うるう年かどうかを判定する(_西暦) :-
西暦の年号が400で割り切れないが、100で割り切れる年はうるう年でない(_西暦),!.
西暦を入力させ、うるう年かどうかを判定する(_西暦) :-
西暦の年号が100で割り切れないが、4で割り切れる年はうるう年(_西暦).
西暦の年号が400で割り切れる年はうるう年(_西暦) :- 割り切れる(_西暦,400),!.
西暦の年号が400で割り切れないが、100で割り切れる年はうるう年でない(_西暦) :-
\+(割り切れる(_西暦,400)),
割り切れる(_西暦,100),!,fail.
西暦の年号が100で割り切れないが、4で割り切れる年はうるう年(_西暦) :-
\+(割り切れる(_西暦,100)),
割り切れる(_西暦,4),!.
割り切れる(A,B) :- 0 is A mod B.
266:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/15 16:12:12
ｽﾚﾘﾝｸ(tech板:810番)
# [1] 授業単元：プログラミング論(大学)
# [2] 問題文：softbankのiPhoneの使用料金を計算するプログラムを作りなさい
270:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/01/15 17:08:31
ｽﾚﾘﾝｸ(tech板:812番)
# [1] 授業単元： 授業ではないですがお願いします
# [2] 問題文(含コード&リンク)： 100個の0～10までの数字があるとするとき0じゃない数字の個数を数えて表示させたいんですが
# どうすればいいのかよくわかりませんのでお願いします
272:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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:デフォルトの名無しさん
10/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じゃない数字の個数]).
276:デフォルトの名無しさん
10/01/15 21:14:06
ｽﾚﾘﾝｸ(tech板:819番)
# [1] 授業単元：情報処理基礎
# [2] 問題文：以下はmain関数、サブ関数で作成します。
# 1.数値nを一つ入力し、各桁の和を求めよ。(123→6)
# 2.数値nを反転した値を表示せよ。(123→321)
277:デフォルトの名無しさん
10/01/15 21:15:57
ｽﾚﾘﾝｸ(tech板:820番)
# [1] 授業単元：情報処理基礎
# [2] 問題文：二次方程式ax^2+bx+c=0の解を求めるプログラムを作成せよ。
# a,b,cの値を入力する。計算結果は必ず5種類表示すること。
# a=b=c=0の場合、処理を終了する。a=b=0、Cが0以外の場合は｢不能｣と表示する。
# a=0、bが0以外の場合は｢一次方程式｣と解を表示する。
# 判別式がD＜0の場合、｢虚解｣と表示する。
# 判別式がD＜0の場合以外も、必要な表示、結果を表示します。