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

いろんな言語で宿題ス ..

514:デフォルトの名無しさん
10/01/29 21:03:05
ｽﾚﾘﾝｸ(tech板:336番)
# [1] 授業単元：情報処理B
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# ★課題２★
# キーボードから(標準入力から)スペースで区切られた3つの実数 a b c を
# 受け取って(最後は改行)、二次方程式 ax２+bx+c=0 の解を画面に(標準出力に)出力せよ。
# 二次方程式の解は複素数の範囲で考えること。二次方程式を解く部分はmain関数とは
# 別にしてmain関数から呼ぶこと。グローバル変数の使用は禁止。

515:デフォルトの名無しさん
10/01/29 21:07:29
ｽﾚﾘﾝｸ(tech板:336番)
# [1] 授業単元：情報処理B
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# ★課題１★
# キーボードから(標準入力から)１つの十進数表現の正の整数を受け取って、
# その数が３の倍数かまたは各桁の数字のいづれかに３が入っている数ならば
# 画面に(標準入力に)YES、そうでなければ、NOと出力せよ。与えられた条件を
# 判定する部分はmain関数とは別の関数にしてmain関数から呼ぶこと。
# グローバル変数の使用は禁止。

516:デフォルトの名無しさん
10/01/29 21:10:17
ｽﾚﾘﾝｸ(tech板:336番)
# [1] 授業単元：情報処理B
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# ★課題３★
# キーボードから(標準入力から)スペースで区切られて最後が改行の３つの実数を
# ３回を受け取って、それらの合計９この実数からなる3行3列の行列の逆行列を
# 求めて画面に(標準出力)出力せよ。
# 逆行列を求める部分はmain関数とは別の関数にしてmain関数から呼ぶこと。
# グローバル変数の使用は禁止。

517:デフォルトの名無しさん
10/01/29 21:18:16
ｽﾚﾘﾝｸ(tech板:336番)
# [1] 授業単元：情報処理B
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# ★課題４★
# 複素数の行列を扱うことを考える。実部と虚部をdouble型のメンバーとしてもつ
# 構造体struct complex型の二次元配列を使って、２行２列の成分からなる複素数の
# 行列を扱う。Struct complex型の変数の足し算やかけ算、および上述のような
# ２行２列の複素行列の足し算やかけ算を行う関数を準備し、それらの関数を
# 利用して、２行２列の複素数の行列のexpを、Maclaurin展開の10項目までを
# 計算することによって求めなさい。グローバル変数の使用は禁止。
# 実行時に入力する行列の内容については、実数だけからなる対角行列、
# 純虚数の対角行列、一般の複素数の対角行列、その他の一般の行列などの
# 多くの場合についてテストすること。

518:デフォルトの名無しさん
10/01/29 21:22:17
ｽﾚﾘﾝｸ(tech板:336番)
# [1] 授業単元：情報処理B
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(ime.nu)
#
# ★課題５★
# １行にスペースで区切られた２つの実数が書かれているデータファイルをエディタで
# 作成して適当な名前で保存しておけ。標準入力からのリダイレクトを使って
# そのファイルからデータを読み込み、データのグラフを画面に(標準入力に)出力せよ
。
# ここで、各行の左側のデータをxデータ、右側のデータをyデータとする。
# また、グラフはテキスト画面にマイナス(‐)やプラス(＋)や縦棒(｜)や
# アスタリスク(＊)などの文字を出力することによって実現せよ。さらに、
# yデータの平均と標準偏差も求めて画面に(標準出力に)出力せよ。様々なデータ数や
# データ範囲をもつ入力データを与えられても適切に動くようにつくることが
# 望ましいが、難しければ入力データ範囲は０以上１０以下に限定するなど、
# 自分でプログラムの仕様を簡素化してもよい。

519:デフォルトの名無しさん
10/01/29 21:28:15
ｽﾚﾘﾝｸ(db板:474番)
# SQL Server Compact 3.5 で、a_tbl と b_tbl のコードが一致した場合に
# a_tbl に、b_tblの名前をセットするみたいなことしたいのですが無理ですか？
#
# UPDATE a_tbl
# SET name = b_tbl.name
# FROM b_tbl
# WHERE a_tbl.no = b_tbl.no
#
# 実行すると、「FROM 句はこのクエリの種類では使用できません」ってエラーになります。
# SQL Server 2008　だと問題ないのですが・・・

520:デフォルトの名無しさん
10/01/29 22:06:58
>>519
% Prolog

'a_tbl と b_tbl のコードが一致した場合に a_tbl に、b_tblの名前をセットする' :-
　　a_tbl(_no,_name1),
　　b_tbl(_no,_name2),
　　update_a_tbl(_no,_name2),
　　fail.
'a_tbl と b_tbl のコードが一致した場合に a_tbl に、b_tblの名前をセットする'.

update_a_tbl(_no,_name2) :-
　　retract(a_tbl(_no,_)),
　　assertz(a_tbl(_no,_name2)),
　　fail.
update_a_tbl(_,_).

521:デフォルトの名無しさん
10/01/29 22:25:00
>>515
% Prolog
'キーボードから(標準入力から)１つの十進数表現の正の整数を受け取って、その数が３の倍数かまたは各桁の数字のいづれかに３が入っている数ならば画面に(標準入力に)YES、そうでなければ、NOと出力せよ' :-
'キーボードから(標準入力から)１つの十進数表現の正の整数を受け取って(_正の整数),
その数が３の倍数かまたは各桁の数字のいづれかに３が入っている(_正の整数,_診断),
write_formatted('%t\n',[_診断]),!.

'キーボードから(標準入力から)１つの十進数表現の正の整数を受け取って(_正の整数):-
　　repeat,
　　get_integer(_正の整数),
　　integer(_正の整数),
　　_正の整数 >= 0,!.

その数が３の倍数かまたは各桁の数字のいづれかに３が入っている(_数,'YES') :-
　　0 is _数 mod 3,!.
その数が３の倍数かまたは各桁の数字のいづれかに３が入っている(_数,'YES') :-
　　各桁の数字のいづれか(_数,L),
　　member(3,L),!.
その数が３の倍数かまたは各桁の数字のいづれかに３が入っている(_,'NO').

各桁の数字のいづれか(N,[N]) :- N < 10,!.
各桁の数字のいづれか(N,[M|R]) :-
　　M is N mod 10,
　　M2 is N // 10,
　　各桁の数字のいづれか(M2,R).

522:デフォルトの名無しさん
10/01/29 22:28:41
>>521 (>>515) 一部表示し直し
% Prolog

'キーボードから(標準入力から)１つの十進数表現の正の整数を受け取って、その数が３の倍数かまたは各桁の数字のいづれかに３が入っている数ならば画面に(標準入力に)YES、そうでなければ、NOと出力せよ' :-
　　'キーボードから(標準入力から)１つの十進数表現の正の整数を受け取って(_正の整数),
　　その数が３の倍数かまたは各桁の数字のいづれかに３が入っている(_正の整数,_診断),
　　write_formatted('%t\n',[_診断]),!.

523:デフォルトの名無しさん
10/01/30 05:59:00
>>484
% Prolog (その一)

インデント深度とは(_行,_インデント深度) :-
　　'行頭からタブ、空白以外の文字が現れるまでがn回(n>=0)現れた場合深度=nとする'(_行,_n),
　　_n = _インデント深度,!.

'行頭からタブ、空白以外の文字が現れるまでがn回(n>=0)現れた場合深度=nとする'(_行,_n) :-
　　sub_atom(_行,_n,1,_,C),
　　\+(C=' '),
　　\+(C='\t'),!.

524:デフォルトの名無しさん
10/01/30 06:13:04
>>523 (>>484)
% Prolog (その一) 「インデント深度とは」の「とは」は説明的ではあるが実用上好ましいとはいえない。
% 備考的な部分の定義ではしばしば迷うところ。普通は以下だが、

インデント深度(_行,_インデント深度) :-
　　'行頭からタブ、空白以外の文字が現れるまでがn回(n>=0)現れた場合深度=nとする'(_行,_n),
　　_n = _インデント深度,!.

% 辞書引きの際は実務的な定義を参照する感じの定義。

インデント深度とは(_行,_インデント深度) :- インデント深度(_行,_インデント深度).

% ひっくり返して、実用時に辞書を引く感じ。

インデント深度(_行,_インデント深度) :- インデント深度とは(_行,_インデント深度).

525:デフォルトの名無しさん
10/01/30 06:26:39
>>523 (>>484)
% Prolog 出題が不完全でtab処理ができていない。普通は、

tab(空白,6).

'行頭からタブ、空白以外の文字が現れるまでがn回(n>=0)現れた場合深度=nとする'(_行,_n) :-
　　atom_chars(_行,Chars),
　　行頭からタブ、空白以外の文字が現れるまでの文字数(0,Chars,_n).

行頭からタブ、空白以外の文字が現れるまでの文字数(_n,[],_n) :- !.
行頭からタブ、空白以外の文字が現れるまでの文字数(_n,[A|_],_n) :- \+(A='\t'),\+(A=' '),!.
行頭からタブ、空白以外の文字が現れるまでの文字数(N,['\t'|R],_n) :-
　　tab(空白,M),
N2 is N + M,
行頭からタブ、空白以外の文字が現れるまでの文字数(N2,R,_n),!.
行頭からタブ、空白以外の文字が現れるまでの文字数(N,[' '|R],_n) :-
N2 is N + 1,
行頭からタブ、空白以外の文字が現れるまでの文字数(N2,R,_n),!.

526:デフォルトの名無しさん
10/01/30 06:28:44
>>525 (>>484) 書き直し。すみません。
% Prolog 出題が不完全でtab処理ができていない。普通は、

tab(空白,6).

'行頭からタブ、空白以外の文字が現れるまでがn回(n>=0)現れた場合深度=nとする'(_行,_n) :-
　　atom_chars(_行,Chars),
　　行頭からタブ、空白以外の文字が現れるまでの文字数(0,Chars,_n).

行頭からタブ、空白以外の文字が現れるまでの文字数(_n,[],_n) :- !.
行頭からタブ、空白以外の文字が現れるまでの文字数(_n,[A|_],_n) :- \+(A='\t'),\+(A=' '),!.
行頭からタブ、空白以外の文字が現れるまでの文字数(N,['\t'|R],_n) :-
　　tab(空白,M),
　　N2 is N + M,
　　行頭からタブ、空白以外の文字が現れるまでの文字数(N2,R,_n),!.
行頭からタブ、空白以外の文字が現れるまでの文字数(N,[' '|R],_n) :-
　　N2 is N + 1,
　　行頭からタブ、空白以外の文字が現れるまでの文字数(N2,R,_n),!.

527:デフォルトの名無しさん
10/01/30 07:35:48
>>514
% Prolog
'キーボードから(標準入力から)スペースで区切られた3つの実数 a b c を受け取って(最後は改行)、二次方程式 ax２+bx+c=0 の解を画面に(標準出力に)出力せよ。二次方程式の解は複素数の範囲で考えること。' :-
　　'キーボードから(標準入力から)スペースで区切られた3つの実数 a b c を受け取り(A,B,C),
　　二次方程式の解(A,B,C,X).

'キーボードから(標準入力から)スペースで区切られた3つの実数 a b c を受け取り(A,B,C) :-
　　get_line(Line),
　　split(Line,[' '],L),
　　findall(V,(member(A,L),atom_to_term(A,V,_)),[A,B,C]),!.

二次方程式の解(A,B,C,X) :-
　　_判別式 is B ^ 2 - 4 * A * C,
　　判別式により解を求める(_判別式,A,B,C,X).

判別式により解を求める(_判別式,A,B,C,X) :-
　　( _判別式 > 0; _判別式 > 0.0),!,
　　(　 X is ((-1) * B + sqrt(_判別式)) / ( 2 * A);
　　　　X is ((-1) * B + sqrt(_判別式)) / ( 2 * A)).
判別式により解を求める(_判別式,A,B,C,X) :-
　　(_判別式 = 0;_判別式 = 0.0),!,
　　X is ((-1) * B) / ( 2 * A).
判別式により解を求める(_判別式,A,B,C,X) :-
　　( _判別式 < 0; _判別式 < 0.0),!,
　　U is (-1) / (2 * A),
　　V is sqrt((-1) * _判別式)),
　　( X = (U + iV); X = (U - iV)).

528:デフォルトの名無しさん
10/01/30 12:11:35
ｽﾚﾘﾝｸ(tech板:815番)
# 【　課題　】URLﾘﾝｸ(ime.nu)
# 【　形態　】1. Javaアプリケーション(main()で開始)
#
# しりとりゲームをするプログラム
# 第一段階ーShiritori.javaを次に掲載する。
# 　　　　　これをEclipseに入力する
#　　　　ー与えられた単語の可否を判定するためのクラスReferee.javaを作成する
#
# 第二段階ーReferee.javaをしりとりのルールにのっとった判定をさせるように改善
#
# 第一段階のRefereeの使用
# ・直前に入力された単語の末尾の文字を記憶するchar型のフィールド
# 　　　lastChar
# ・次の単語がどの文字で始まらなければならないかをchar型で返すメソッド
# mustBeginWith()
# ・引数として与えられた単語の可否を判定し、可ならtrueを返すとともにlastCharを更新し、否ならfalseを返すメソッド
# 　　　isOK(String newWord)
# とりあえずは何でもかんでも「可」とするように作る

529:デフォルトの名無しさん
10/01/30 13:33:48
Microsoft社 Visual Studio C＋＋のソフトウェアを用いて
チャットアプリケーションを作れと言われたのですが、
当方C言語系がとても苦手で困っています；；

システムの仕様は
・1対１の環境でのみ動作。
・サーバ側はポート番号を指定して、クライアントからの接続を待つ。
・クライアント側はサーバのIPアドレスとポート番号を指定して、サーバに接続する。
・この時の通信はTCPで行う。
・クライアントが通信をやめたい場合は"endc"
・サーバ側がやめたい場合は"ends"と入力。
・WinSockを使用してWindowsのコンソールプログラムとして基本的な簡易なチャット

以上の条件でプログラミングしていただけると幸いです。
よろしくお願いします m__)m

530:デフォルトの名無しさん
10/01/30 16:46:35
ｽﾚﾘﾝｸ(tech板:351番)
# [1] 授業単元：プログラミング演習�
# [2] 問題文(含コード&リンク)：
# □１□２□３□４□５□６□７□８□９
# の□に四則の演算子（＋，－）や空白を入れて100なるような
# 小町算の全ての解を求めるプログラムを作成すること
#
# 例えば
# 12 + 3 - 4 + 5 + 67 + 8 + 9 = 100
# 123 - 45 - 67 + 89 = 100
#

531:デフォルトの名無しさん
10/01/30 16:47:53
ｽﾚﾘﾝｸ(tech板:353番)
# [1] 授業単元：コンピュータグラフィック
# [2] 問題文(含コード&リンク)：10468.txt
# モノクロ画像を読み込み,(319,239) の画素値を 0 とする
# 画像を関数を使用して読み込み，それを 2 次元配列に格納する関数を作成する．
# 指定した画素の画素値をセットする．
# 2 次元配列に格納していた画像を 1 次元配列に再度格納し，関数を使用して画像ファイルとして書き戻す．
#

532:デフォルトの名無しさん
10/01/30 17:17:04
>>528
% Prolog 全然ルールが違うのですが「馬名しりとり」というのを作ってみました。
URLﾘﾝｸ(nojiriko.asia)

533:デフォルトの名無しさん
10/01/30 17:22:56
>>532
全然違うというのは日本語として変かな。
javaの宿題とルールが違っている上に、馬名である特徴も今のところほとんどありません。
今後、血統や競争成績の検索やコメントを付与する機能を付け加えたいと思います。

534:デフォルトの名無しさん
10/01/30 23:25:03
ｽﾚﾘﾝｸ(tech板:369番)
# [1] 授業単元：プログラム演習?
# [2] 問題文(含コード&リンク)：
# 3次元空間において線分が平面を通過しているか判定するプログラムを作りなさい
# (線分の座標(x1,y1,z1) (x2,y2,z2)と平面の四隅の座標は入力する)
# 平面を通過していても平面の四隅の中に交点がない場合は通過していないものとする

535:デフォルトの名無しさん
10/01/31 13:44:22
ｽﾚﾘﾝｸ(tech板:381番)
# [1] 授業単元：プログラミング演習?
# [2] 問題文(含コード&リンク)：入出力とデータファイルへの保存とその間の処理あるプログラムを作成する
# 　　　　　　　　　　　　　　　URLﾘﾝｸ(ime.nu)
# 入出力とデータファイルへの保存とその間の処理のあるプログラムの作成
#
# 作成条件
# １．入力→処理→出力のシステムが構築されていること
# ２．データをファイルに保存しておけるようにしておく
# ３．データに構造体が用いられること
# ４．main以外を1つ以上関数化すること
# ５．datファイルも各自で作成する

536:デフォルトの名無しさん
10/01/31 19:32:39
>>530
% Prolog (その一)

空白を含む文字列の空白を取り除いて解析する(_文字列,_項) :-
　　文字列から空白を取り除く(_文字列,_空白を取り除かれた文字列),
　　文字列を解析して項を生成する(_空白を取り除いた文字列,_項).

文字列から空白を取り除く(_文字列,_空白を取り除かれた文字列) :-
　　atom_chars(_文字列,Chars),
　　ならびから空白要素を取り除く(Chars,_空白を取り除かれたならび),
　　atom_chars(_空白を取り除かれた文字列,_空白を取り除かれたならび).

ならびから空白要素を取り除く([],[]) :- !.
ならびから空白要素を取り除く([' '|R1],R2) :-
　　ならびから空白要素を取り除く(R1,R2),!.
ならびから空白要素を取り除く([A|R1],[A|R2]) :-
　　ならびから空白要素を取り除く(R1,R2),!.

文字列を解析して項を生成する(_文字列,_項) :- atom_to_term(_文字列,_項,_).

537:デフォルトの名無しさん
10/02/01 05:59:17
ｽﾚﾘﾝｸ(tech板:394番)
# [1] 授業単元：プログラミング演習
# [2] 問題文(含コード&リンク)：住所録の機能を実現するプログラムを作成せよ。

538:デフォルトの名無しさん
10/02/01 06:03:19
ｽﾚﾘﾝｸ(tech板:391番)
# すいませんが規制されてるので携帯から簡単に
# 問題文：URLﾘﾝｸ(ime.nu)
# キーボードから名前と年齢をレコードとするデータを入力し、
# ファイルに書き出すプログラムを作成しなさい。ただしデータの終わりは^z(CTRL+Z)とする。
# また、書き出す先のファイル名はコマンドライン引数を使用して指定すること。
#
# 「実行結果」
#
# C:\Kadai01>Kadai01 a.txt
#
# 名前年齢
# 上戸彩 20
# 長澤まさみ 29
# 新垣結衣 20
# ^z

539:デフォルトの名無しさん
10/02/01 06:06:12
ｽﾚﾘﾝｸ(tech板:516番)
# ２つの同じ要素数のリスト (Num a) => [a] を、
# 片方を１要素分横にずらして和を取りたいです。
# たとえば [1, 2, 3] と [7, 8, 9] であれば
# [1, 2, 3, 0] と [0, 7, 8, 9] の和です。
#
# 今は定義を素直に実装して次のようにやってます。
# shearAdd :: (Num a) => [a] -> [a] -> [a]
# shearAdd as bs = zipWith (+) (as ++ [0]) (0 : bs)
#
# もっと洗練された方法はあるでしょうか。
# たとえば (++) 演算子は左辺のリストの要素数が大きいと不利なので、
# これを改善できるとか。

540:デフォルトの名無しさん
10/02/01 06:18:46
ｽﾚﾘﾝｸ(tech板:358番)
# [1] 授業単元：プログラミング演習?
# [2] 問題文(含コード&リンク)：URLﾘﾝｸ(ime.nu)
#
# ≪問題と条件≫
# 第1引数に指定したファイルからバイナリーモードで1バイトずつファイルを読み込み、
# ファイルの内容を16進数で示したものを第2引数に指定したファイルに書き込むプログラムを作成せよ。ただし、16バイトごとに改行を入れること。

541:デフォルトの名無しさん
10/02/01 06:34:03
ｽﾚﾘﾝｸ(tech板:821番)
# 【　課題　】線分描画，点描画のメソッドをつかって，放物線を描画して下さい．

542:デフォルトの名無しさん
10/02/01 06:37:34
ｽﾚﾘﾝｸ(tech板:387番)
#
# 息抜きにって下さい。
# 自分は分からないっす
#
# お客様に「今後の夏のセールには、必ず連絡してほしい」といわれた時
#
# お客様に「もらいもので気に入らないので他の商品と取り替えて欲しい」といわれた時
#
# 販売員の正しい行動を。

543:デフォルトの名無しさん
10/02/01 07:05:19
>>539
使用言語：J

f=:dyad def '(x,0)+0,y'

1 2 3 f 7 8 9
1 9 11 9

544:デフォルトの名無しさん
10/02/01 07:14:10
>>481
使用言語：J

>:i.10
1 2 3 4 5 6 7 8 9 10

545:デフォルトの名無しさん
10/02/01 07:18:18
>>483 問1
使用言語：J

]COM=: 30?100
95 18 11 58 67 85 60 21 30 10 81 27 47 0 35 75 24 69 23 26 29 98 54 92 40 34 45 52 33 79

546:デフォルトの名無しさん
10/02/01 13:29:23
ｽﾚﾘﾝｸ(tech板:369番)
# [1] 授業単元：プログラム演習�
# [2] 問題文(含コード&リンク)：
# 3次元空間において線分が平面を通過しているか判定するプログラムを作りなさい
# (線分の座標(x1,y1,z1) (x2,y2,z2)と平面の四隅の座標は入力する)
# 平面を通過していても平面の四隅の中に交点がない場合は通過していないものとする

547:デフォルトの名無しさん
10/02/01 13:30:35
ｽﾚﾘﾝｸ(tech板:362番)
# ../test/read.cgi/tech/1263824755/361
# ≪問題と条件≫
# 第1引数に指定したファイルからバイナリーモードで1バイトずつファイルを読み込み、
# ファイルの内容を16進数で示したものを第2引数に指定したファイルに書き込むプログラムを作成せよ。ただし、16バイトごとに改行を入れること。
# (実行)
# >free1.exe　test.txt　test2.txt
#
# でしょ？

548:デフォルトの名無しさん
10/02/01 13:35:45
>>545 >>483
使用言語：J
複数の問題だと勘違いしていたのでやり直しました。

read=: 1!:1
write=: 1!:2
f=: monad define
COM=. 30?100
MAN=. y
Work=. 100#0
COM=. I.1(COM)}Work
MAN=. I.1(MAN)}Work
count=. +/MAN e. COM
data=. ,((":COM),(":MAN),:":count),.LF
data write<'result.out'
)
f 5 10 77 85 99 43
read<'result.out'
4 9 12 14 16 20 21 22 23 26 30 31 34 36 37 40 60 61 62 63 65 67 70 77 82 84 92 93 98 99
5 10 43 77 85 99
2

549:デフォルトの名無しさん
10/02/01 13:54:12
>>539
% Prolog

ならびをずらして加算(L1,L2,L) :-
　　append(L1,[0],L3),
　　append([0],L2,L4),
　　行列の転置([L3,L4],L5),
　　findsum(U,member(U,L5),L).

550:デフォルトの名無しさん
10/02/01 13:55:30
>>546 は >>536 に既出でした。>>536 の方を使ってください。

551:デフォルトの名無しさん
10/02/01 14:35:38
>>539
使用言語：R

> f <- function(a,b) c(a,0)+c(0,b)

> f(c(1,2,3),c(7,8,9))
[1] 1 9 11 9

552:デフォルトの名無しさん
10/02/01 14:37:21
>>539
使用言語：maxima

(%i3) f(a,b):=endcons(0,a)+cons(0,b);
(%o3) f(a, b) := endcons(0, a) + cons(0, b)
(%i4) f([1,2,3],[7,8,9]);
(%o4) [1, 9, 11, 9]

553:デフォルトの名無しさん
10/02/01 14:54:28
>>539
使用言語：Scilab

-->deff('r=f(a,b)','r=[a,0]+[0,b]')

-->f(1:3,7:9)
ans =

1. 9. 11. 9.

554:デフォルトの名無しさん
10/02/01 15:54:09
>>547
% Prolog

program :-
　　user_parameters([FileIn,FileOut]),
　　open(FileIn,read,Input,[type(binary)]),
　　open(FileOut,write,Output),
　　get_byte(Input,C),
　　free1(0,Input,Output,C),
　　close(Output),
　　close(Input).

free1(_,_,_,-1) :- !.
free1(16,Input,Output,C) :-
　　write(Output,'\n'),
　　free1(0,Input,Output,C),!.
free1(M,Input,Output,C) :-
　　free1(M,Input,Output,C) :-
　　Ｎ進数(16,C,A),
　　write(Output,A),
　　get_byte(Input,C2),
　　M2 is M + 1,
　　free1(M2,Input,Output,C2).

% Ｎ進数/3の定義は URLﾘﾝｸ(nojiriko.asia) 参照

555:デフォルトの名無しさん
10/02/01 16:01:21
ｽﾚﾘﾝｸ(tech板:406番)
# [1] 授業単元：プログラミング応用演習
# [2] 問題文(含コード&リンク)： URLﾘﾝｸ(mikilab.doshisha.ac.jp)
#　[5] その他の制限：ライブラリは使わず。問題文のリンク先のプログラム(DIRECT)を組む。
# よろしくお願いします。できれば解説を付けてくださると助かります。

[2]のサイトをコピーすることは困難でした。直接参照してください。

556:デフォルトの名無しさん
10/02/01 17:07:57
>>537
% Prolog (その一)
% consult/1,reconsult/1,assertz/1,retract/1,clause/2,listing/1 を最終的に使用します。
% 実務ではもっとずっと丁寧にチェックしながら進みます。ここでは簡単に

住所の登録 :-
　　名字は(_名字),
　　名前は(_名前),
　　郵便番号は(_郵便番号),
　　住所は(_住所),
　　電話番号は(_電話番号),
　　メールアドレスは(_メールアドレス),
　　住所の登録((_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス),!.

住所の登録(_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス) :-
　　\+(住所録(_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1)),
　　assertz(住所録(_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス)),
　　write('登録を完了しました\n'),!.
住所の登録(_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス) :-
　　住所録(_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1),
　　この氏名は既に登録がありますが(_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1,_郵便番号,_住所,_電話番号,_メールアドレス),!.

この氏名は既に登録がありますが(_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1,_郵便番号,_住所,_電話番号,_メールアドレス) :-
　　write_formatted('%t %tという氏名は以下の通り既に登録がありますが\n%t %t %t%t %t %t',[_名字,_名前,_名字,_名前,_郵便番号_1,_住所_1,_電話番号_1,_メールアドレス_1]),
　　write('別人と考えて登録してよいでしょうか Y or N でお答えください : '),
　　get_line(Line),
　　この氏名は既に登録がありますが(Line,_名字,_名前,_郵便番号,_住所,_電話番号,_メールアドレス).

557:デフォルトの名無しさん
10/02/01 20:23:21
ｽﾚﾘﾝｸ(tech板:409番)
# [1] C言語演習
# [2]
# int x[10]={-1,2,-3,4,-5,6,-7,8,-9,10}
# int y[10]={-5,-4,-3,-2,-1,1,2,3,4,5}
# が与えられている。
# 値x[0]*y[0]+2*x[1]*y[1]+3*x[2]*y[2]+4*x[3]*y[3]+5*x[4]*y[4]+6*x[5]*y[5]
# が最大／最小になるようにx,yの各要素を並べ替えたものを出力するプログラム

558:デフォルトの名無しさん
10/02/01 21:33:56
>>557 の訂正として出されましたが、それぞれ独立の問題としましょう。
ｽﾚﾘﾝｸ(tech板:409番)
# [1] C言語演習
# [2]
# int x[10]={-1,2,-3,4,-5,6,-7,8,-9,10}
# int y[10]={-5,-4,-3,-2,-1,1,2,3,4,5}
# が与えられている。
# 値x[0]*y[0]-2*x[1]*y[1]+3*x[2]*y[2]-4*x[3]*y[3]+5*x[4]*y[4]-6*x[5]*y[5]+7*x[6]*y[6]-8*x[7}*y[7]+9*x[8]}*y[8]-10*x[9]*x[9]
# が最大／最小になるようにx,yの各要素を並べ替えたものを出力するプログラム

559:デフォルトの名無しさん
10/02/01 21:42:32
ｽﾚﾘﾝｸ(tech板:418番)
# [1] C言語プログラミング演習(大学専門課程選択教科期末課題)
# [2]URLﾘﾝｸ(ime.nu)
.txt
# 以下のSQL文で定義されるテーブルに対する
# SQL操作をテーブルに対応する適当な構造体配列
# struct_SEISEKIHYOUを定義することにより
# １関数として実装せよ。
# 関数は
# list(struct_SEISEKIHYOU* table,int N);
# とする。処理効率を十分に考えること。
#
# テーブル定義：
# CREATE TABLE SEISEKIHYOU (
# TANNINN VARCHAR, //担任教師
# NAME VARCHAR,//生徒名
# KOKUGO INTEGER,//国語得点
# SUUGAKU INTEGER//数学得点
# RIKA INTEGER,//理科得点
# SYAKAI INTEGER,//社会得点
# EIGO INTEGER,//英語得点
# )
#

560:デフォルトの名無しさん
10/02/01 21:44:36
>>559 問題のつづきです。
#
# SQL操作　 SELECTでリストアップされる項目リスト
# をコンソール出力させる。
#
# SELECT X.TANNINN,X.NAME,X.SUUGAKU,X.KOKUGO
# FROM SEISEKIHYOU AS X
# WHERE
# SUUGAKU>=KOKUGO
# AND
# SUUGAKU>=RIKA
# AND
# SUUGAKU>=SYAKAI
# AND
# SUUGAKU>=EIGO
# AND
# (KOKUGO+SUUGAKU+RIKA+SYAKAI+EIGO)/5.0
# >=(SELECT (AVG(KOKUGO)+AVG(SUUGAKU)+AVG(RIKA)
# +AVG(SYAKAI)+AVG(EIGO))/5.0 FROM SEISEKIHYOU
# GROUP BY TANNINN) HAVING COUNT(*)>=
# (SELECT COUNT(*) FROM SEISEKHYOU GROUP BY
# TANNINN HAVING TANNINN=X.TANNNIN)
#
# ORDER BY X.TANNIN,X.NAME,X.SUUGAKU;

561:デフォルトの名無しさん
10/02/02 03:12:54
ｽﾚﾘﾝｸ(tech板:420番)
# [1] 授業単元：プログラミング実践
# [2] 問題文
# アフィン変換のプログラムを作成し、下の図の真ん中を座標の中心にして90°回転した結果を出力せよ。
# (図)affin.txt
# 00000
# 00000
# 11111
# 00000
# 00000
#

562:デフォルトの名無しさん
10/02/02 04:30:07
>>538
% Prolog (その一)
program :-
　　user_parameters([_ファイル名]),
　　'EOFがコントロールZであるファイルの読み込み'(Lines),
　　tell(_ファイル名),
　　write_formatted('%10s　　　　%4s\n',[名前,年齢]),
　　'名前・年齢の行表示'(Lines),
　　told.

'EOFがコントロールZであるファイルの読み込み'(Lines) :-
　　get_code(Code),
　　'EOFがコントロールZであるファイルの読み込み'(Code,Lines),!.

'EOFがコントロールZであるファイルの読み込み'(-1,[]) :- !.
'EOFがコントロールZであるファイルの読み込み'(Code,[[_名前,_年齢]|R]) :-
　　'EOFがコントロールZであるファイルの行読み込み'(Code,RCode,Codes),
　　atom_codes(Line,Codes),
split(Line,[' ',','],[_名前,_年齢]),
　　'EOFがコントロールZであるファイルの読み込み'(RCode,R).

'EOFがコントロールZであるファイルの行読み込み'(-1,-1,[]) :- !.
'EOFがコントロールZであるファイルの行読み込み'(26,-1,[]) :- !.
'EOFがコントロールZであるファイルの行読み込み'(10,Code2,[]) :-
　　ひとつ先読みが同時に終了ステータスにもなる(Code2),!.
'EOFがコントロールZであるファイルの行読み込み'(Code1,RCode,[Code1|R]) :-
　　get_code(Code2),
　　'EOFがコントロールZであるファイルの行読み込み'(Code2,RCode,R).

563:デフォルトの名無しさん
10/02/02 04:31:08
>>538
% Prolog (その二)

ひとつ先読みが同時に終了ステータスにもなる(Code2) :- get_code(Code2),!.

名前・年齢の行表示([]) :- !.
名前・年齢の行表示([[_名前,_年齢]|R]) :-
　　write_formatted('%12s%t\n',[_名前,_年齢]),
　　名前・年齢の行表示(R).

564:デフォルトの名無しさん
10/02/02 04:32:07
> EOFがコントロールZであるファイルの読み込み
w

565:デフォルトの名無しさん
10/02/02 04:36:16
>>564
やれやれww

566:デフォルトの名無しさん
10/02/02 04:53:35
ｽﾚﾘﾝｸ(tech板:556番)
# こんばんは．失礼します．
# 現在，次のような課題に取り組んでいます．
# もしよろしければこの難問をハックしていただけないでしょうか．
# (できればCで・・・)
#
# N個の要素があり，その，すべての組み合わせ(2^N組)に対して，
# それぞれに値が決まっているものとします．
# そして，ある組み合わせの値は，その組み合わせの中の部分集合の
# どんな和よりも大きいです．
#
# また0個の集合では値は0とします．
#
# こうした場合に，全ての組み合わせの値を以上のルールに則ったまま
# 乱数を用いて決定したいと考えています．
#
# 具体的には
# 要素が一つの組み合わせは乱数．たとえばAのみの集合の場合 v(A)=random
# 要素が2つでは，v(A,B)=v(A)+v(B) + random
# ３つでは，v(A,B,C) = max(v(A,B)+v(C), v(B,C)+v(A), v(C,A)+v(B)) + random
# となります．
#
# この方式で，全ての組み合わせに値を当てはめることを考えているのですが
# コードに落とし込むことが出来ません．

567:デフォルトの名無しさん
10/02/02 04:56:05
>>566 つづき
# 今のところ，各組み合わせを以下のような二進数で表そうと考えています．(N=3の場
合)
# 各行の一列目が1はAがその組み合わせにいることを意味し，
# 二列目はB，三列目はCを表しています．
#
# ABC V
# 000 0
# 001 rc
# 010 rb
# 011 ？
# 100 ra
# 101 ？
# 110 ？
# 111 ？
#

568:デフォルトの名無しさん
10/02/02 08:08:22
>>495
使用言語：J

f=: monad define
l=.(#y)-2
t=.(l,l)$ ucp'　'
g=.}.}:y
y,(|:g),t,|.g),|.y
)

f ucp'今日は、晴れです。'
今日は、晴れです。
日　　　　　　　す
は　　　　　　　で
、　　　　　　　れ
晴　　　　　　　晴
れ　　　　　　　、
で　　　　　　　は
す　　　　　　　日
。すでれ晴、は日今

569:デフォルトの名無しさん
10/02/02 09:37:53
>>559
% Prolog

'SQL操作に対応する述語定義'(X) :-
　　findall([TANNINN,NAME,SUGAKU,KOKUGO],
　　(
　　　　findall(TANNINN,'SEISEKIHYOU'(TANNINN,_,_,_,_,_,_),L1),sort(L1,L2),
　　　　'SEISEKIHYOU'(TANNINN,NAME,KOKUGO,SUUGAKU,RIKA,SYAKAI,EIGO),
　　　　SUUGAKU>=KOKUGO,SUUGAKU >= RIKA,SUUGAKU>=SYAKAI,SUUGAKU>=EIGO,
　　　　U1 is (KOKUGO+SUUGAKU+RIKA+SYAKAI+EIGO)/5.0,
　　　　findall(AVGs,(member(TANNINN2,L2),findavg([KOKUGO2,SUUGAKU2,RIKA2,SYAKAI2,EIGO2],'SEISEKIHYOU'(TANNINN2,NAME2,KOKUGO2,SUUGAKU2,RIKA2,SYAKAI2,EIGO2),AVGs)),L3),
　　　　sum(L3,SUM1),
　　　　U2 is SUM1 / 5.0,
　　　　U1 >= U2,
　　　　findavg(KOKUGO3,('SEISEKIHYOU'(TANNINN,_,KOKUGO3,_,_,_,_),KOKUGOAVG),
　　　　KOKUGO > AVGKOKUGO)
　　),L4),
　　sort(L4,L5),
　　member(X,L5).

570:デフォルトの名無しさん
10/02/02 11:14:43
>>496
使用言語：J

f=: monad define
t=.<;._2 y
for_i. i.#t do.
smoutput (":>:i),':',":|.;i{t
end.
)
read=: 1!:1

f ucp read <'test2.txt'
1:で雨、は日昨。すでれ晴、は日今
2:後明。うょしで曇、は日明。たし
3:。かうょしで晴快、は日

571:デフォルトの名無しさん
10/02/02 11:18:26
>>556
何をいっているのかわからないので元スレを覗いてきます。

572:デフォルトの名無しさん
10/02/02 11:24:32
>>571
すみません。>>556ではなく>>566でした。
元スレでも質問者が問題を理解していないだろうと指摘されていました。

573:デフォルトの名無しさん
10/02/02 12:01:03
>>542
% Prolog 例えばこんな具合に書き進める。これからが大変。

販売員の正しい行動(_お客様,_お客様の要求,_販売員の正しい行動) :-
　　お客様の要求の要約(_お客様,_お客様の要求,_お客様の要求の要約),
　　お客様の要求の要約から販売員の正しい行動を考える(_お客様の要求の要約,_販売員の正しい行動).

お客様の要求の要約(_お客様,_お客様の要求,_お客様の要求の要約) :-
　　お客様がどんな方か明確にする(_お客様,_お客様の情報),
　　お客様が関心をお持ちの分野を明確にする(_お客様,_お客様の情報,_お客様が関心をお持ちの分野),
　　お客様の情報を解析して要求を要約する(_お客様,_お客様の要求,_お客様の情報,_お客様が関心をお持ちの分野,_お客様の要求の要約).

お客様がどんな方か明確にする(_お客様,_お客様の情報) :- 顧客情報(_お客様,_お客様の情報).

お客様が関心をお持ちの分野を明確にする(_お客様,_お客様の情報,_お客様が関心をお持ちの分野) :-
　　購買情報(_お客様,_過去の購買情報ならび,_過去のクレームならび),
　　関心のある分野診断(_お客様,_過去の購買情報ならび,_過去のクレームならび,_お客様が関心をお持ちの分野).

お客様の情報を解析して要求を要約する(_お客様,_お客様の要求,_お客様の情報,_お客様が関心をお持ちの分野,_お客様の要求の要約) :-
　　句構造解析(_お客様の要求,_解析された句構造),
　　句構造からキーワードを拾い出して意味を推定する(_解析された句構造,_キーワードならび,_お客様の要求の要約).

574:デフォルトの名無しさん
10/02/02 12:23:19
>>497
使用言語：J

f=: monad define
t=:<;._2 y
for_i. i.#t do.
s=.;i{t
w=.":#cutopen s
smoutput (":>:i),':',":s
smoutput '＝＞',(":#s),'文字、',w,'ワード'
end.
)

read=: 1!:1

f read<'test3.txt'
1:And friends just can't be found
＝＞31文字、6ワード
2:Like a bridge over troubled water
＝＞33文字、6ワード
3:I will lay me down
＝＞18文字、5ワード

575:デフォルトの名無しさん
10/02/02 14:05:25
>>498
使用言語：J

f=: monad define
'M D'=.y
t=.0 0 31 59 90 120 151 181 212 243 273 304 334
w=.ucp'木金土日月火水'
a=.(7|(M{t)+D){w
smoutput (":M),(ucp'月'),(":D),(ucp'日は、'),a,ucp'曜日です。'
)

f 9 15
9月15日は、水曜日です。

576:デフォルトの名無しさん
10/02/02 17:22:34
>>510
使用言語：J

f=: dyad def ';,|:(;/x),:;/y'

'asdfgh' f '123'
a1s2d3fgh

577:デフォルトの名無しさん
10/02/02 17:27:22
>>512
使用言語：J

test2=: dyad def 'y-:~.x'
'abccba' test2 'abc'
1
'abcbc' test2 'cba'
0

578:デフォルトの名無しさん
10/02/02 18:11:22
ｽﾚﾘﾝｸ(tech板:827番)
# 【　課題　】 URLﾘﾝｸ(ime.nu)
# 課題１
# ラーメンをオブジェクト指向で表現。
# ３種類程度のラーメンが表現できるようにする。
# フィールド、メソッド、オーバーロード、オーバーライド、カプセル化（他クラスからのアクセスはgetメソッドとsetメソッドのみ）が確実に表現されていること。
#
# 実行は以下のクラスから呼び出される
# class RamenExample{
# public static void main(String [] args){
# Ramen shouyuRamen = new Ramen("しょうゆ");
# Ramen misoRamen = new Ramen("みそ");
# Ramen shioRamen = new Ramen("しお");
# }
# }
#
# また、以下のクラスは生成が条件
# class Ramen{ }
# class Utsuwa{ }
# class Soup{ }
# class Pasta{ }
# class Topping{ }

579:デフォルトの名無しさん
10/02/02 18:14:12
ｽﾚﾘﾝｸ(tech板:827番)
# 【　課題　】 URLﾘﾝｸ(ime.nu)
# 課題２
# 以下の、お金をうけとり、おつりを計算するプログラムをつくりなさい。
#
# ここから、よくわからなくなりました。
# たとえば、6200円の買い物をして、7000円受とると、100円を8枚って計算したいです。
#

580:デフォルトの名無しさん
10/02/02 21:11:17
>>579
% Prolog (その一)

金種計算(0,_,[]) :- !.
金種計算(_おつり残高,[],[]) :- _おつり残高 > 0,write('レジ不足です\n'),!,fail.
金種計算(_おつり残高,[_金種|R1],[(_金種,B)|R2]) :-
　　_おつり残高 >= _金種,
　　金種が足りる(_おつり残高,_金種,N,B),
　　_残り金額 is _おつり残高 mod _金種,
　　金種計算(_残り金額,R1,R2).
金種計算(_おつり残高,[_金種|R1],[(_金種,N)|R2]) :-
　　_おつり残高 >= _金種,
　　金種が足りない(_おつり残高,_金種,N,B),
　　_残り金額 is _おつり残高 - _金種 * N,
　　金種計算(_残り金額,R1,R2).
金種計算(_おつり残高,[_金種|R1],R2) :-
　　_おつり残高 >= _金種,
　　\+(レジの中(_金種,N)),
　　金種計算(_おつり残高,R1,R2).
金種計算(_おつり残高,[_金種|R1],R2) :-
　　_おつり残高 < _金種,
　　金種計算(_おつり残高,R1,R2).

金種が足りる(_おつり残高,_金種,N,B) :-
　　レジの中(_金種,N),
　　B is _おつり残高 // _金種,
　　N >= B,!.
金種が足りない(_おつり残高,_金種,N,B) :-
　　レジの中(_金種,N),
　　B is _おつり残高 // _金種,
　　N < B,!.

581:デフォルトの名無しさん
10/02/03 03:21:11
>>579 (その二)
% Prolog こちらがトップレベル　>>580 はレジの中身を更新するのを忘れている

おつりの計算(_お買い上げ金額,_うけとったお金,_金種) :-
　　_受け取ったお金 > _お買い上げ金額,
　　_おつり is　_うけとったお金 - _お買い上げ金額,
　　金種計算(_おつり,[10000,5000,2000,1000,500,100,50,10,5,1],_金種).

582:デフォルトの名無しさん
10/02/03 03:25:18
>>580 >>581
一般に、給料計算の一部に金種計算が現れる場合は、銀行がその金種を
用意するものと考えられるから、レジの中身についての考慮は必要ないが、
おつりの場合はレジの内容が計算を主導する。

583:デフォルトの名無しさん
10/02/03 05:26:20
>>225
% Prolog (その一)
'０から１０の中からランダムに整数の２組を決める。それを平面上の座標と、座標を１０個つくる。'(_１０個の座標点ならび) :-
　　'座標を１０個つくる。'(1,_１０個の座標点ならび).

座標を１０個つくる。'(N,[]) :- N > 10,!.
座標を１０個つくる。'(N,[[X,Y]|R]) :-
　　'０から１０の中からランダムに整数の２組を決める。'(X,Y),
　　N2 is N + 1,
　　座標を１０個つくる。'(N2,R).

'０から１０の中からランダムに整数の２組を決める。'(X,Y) :- X is random mod 9,Yis random mod 9.

ユーザに座標を入力させ、その点から最も遠い点と近い点を求める。(_１０個の座標点ならび,X,Y,_最も遠い点,_最も近い点) :-
　　ユーザに座標を入力させ、(X,Y),
　　その点から最も遠い点と近い点を求める(_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標),
　　ユーザ座標と１０個の座標点の表示(_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標).

ユーザに座標を入力させ、(X,Y) :-
　　催促付き整数入力('X座標を入力してください :',X),
　　催促付き整数入力('Y座標を入力してください :',Y),!.

その点から最も遠い点と近い点を求める。(_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標) :-
　　ユーザの入力点からの距離ならびを得る(_１０個の座標点ならび,X,Y,_ユーザの入力点からの距離ならび),
　　ユーザの入力座標から最も遠い点を得る(_ユーザの入力点からの距離ならび,X,Y,_最も遠い点X座標,_最も遠い点Y座標),
　　ユーザの入力座標から最も近い点を得る(_ユーザの入力点からの距離ならび,X,Y,_最も近い点X座標,_最も近い点Y座標),!.

584:デフォルトの名無しさん
10/02/03 06:20:55
>>225
% prolog (その二)

ユーザの入力点からの距離ならびを得る([],_,_,[]) :- !.
ユーザの入力点からの距離ならびを得る([[X1,Y1]|R1],X,Y,[[_距離,X1,Y1]|R2]) :-
　　_距離 is sqrt(((Y1-Y)^2 + (X1-X)^2)),
　　ユーザの入力点からの距離ならびを得る(R1,X,Y,R2).

ユーザの入力座標から最も遠い点を得る(_ユーザの入力点からの距離ならび,X,Y,_最も遠い点X座標,_最も遠い点Y座標) :-
　　findmax(L,member(L,_ユーザの入力点からの距離ならび),[_最も遠い距離,_最も遠い点X座標,_最も遠い点Y座標]).
ユーザの入力座標から最も近い点を得る(_ユーザの入力点からの距離ならび,X,Y,_最も近い点X座標,_最も近い点Y座標) :-
　　findmin(L,member(L,_ユーザの入力点からの距離ならび),[_最も近い距離,_最も近い点X座標,_最も近い点Y座標]).

ユーザ座標と１０個の座標点の表示(_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標) :-
　　ユーザ座標と１０個の座標点の表示(0,0,_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標).

ユーザ座標と１０個の座標点の表示(M,N,_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標) :- N > 9,!.
ユーザ座標と１０個の座標点の表示(M,N,_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標) :-
　　M > 9,N2 is N + 1,wr('\n'),
　　ユーザ座標と１０個の座標点の表示(0,N2,_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標),!.
ユーザ座標と１０個の座標点の表示(M,N,_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標) :-
　　座標点表示(M,N,_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標),
　　M2 is M + 1,
　　ユーザ座標と１０個の座標点の表示(M,N2,_１０個の座標点ならび,X,Y,_最も遠い点のX座標,_最も遠い点のY座標,_最も近い点のX座標,_最も近い点のY座標).

585:デフォルトの名無しさん
10/02/03 06:23:40
>>225
% Prolog (その三)

座標点表示(X,Y,_,X,Y,_,_,X,Y) :- write('◎'),!.
座標点表示(X,Y,_,X,Y,_,_,_,_) :- write('×'),!.
座標点表示(_最も遠い点のX座標,_最も遠い点のY座標,_,_,_,_最も遠い点のX座標,_最も遠い点のY座標,_,_) :- write('●'),!.
座標点表示(_最も近い点のX座標,_最も近い点のY座標,_,_,_,_,_,_最も近い点のX座標,_最も近い点のY座標) :- write('○'),!.
座標点表示(M,N,_１０個の座標点ならび,_,_,_,_,_,_) :- member([M,N],１０個の座標点ならび),write('△'),!.
座標点表示(_,_,_,_,_,_,_,_,_) :- write('　'),!.

586:デフォルトの名無しさん
10/02/03 06:38:51
>>227
% Prolog

program :-
　　user_parameters([A,B]),
　　atom_to_term(A,_実数1,_),
　　atom_to_term(B,_実数2,_),
　　sasho(_実数1,_実数2,_差,_商,_診断),
　　program_1(_差,_商,_診断),!.

sasho(_実数1,_実数2,_差,_商,0) :-
　　(_実数2 = 0.0;_実数=0),
　　_差 is _実数1 - _実数2,!.
sasho(_実数1,_実数2,_差,_商,1) :-
　　\+(_実数2 = 0.0),
　　\+(_実数=0),
　　_差 is _実数1 - _実数2,
　　_商 is _実数1 / _実数2,!.

program_1(_差,_商,0) :- write_formatted('%t',[_差]),!.
program_1(_差,_商,1) :- write_formatted('%t,%t',[_差,_商]),!.

587:デフォルトの名無しさん
10/02/03 06:42:17
>>227 訂正
% Prolog 除数検査の中で _実数2 とするべきところを _実数としていたものがある。

program :-
　　user_parameters([A,B]),
　　atom_to_term(A,_実数1,_),
　　atom_to_term(B,_実数2,_),
　　sasho(_実数1,_実数2,_差,_商,_診断),
　　program_1(_差,_商,_診断),!.

sasho(_実数1,_実数2,_差,_商,0) :-
　　(_実数2 = 0.0;_実数2=0),
　　_差 is _実数1 - _実数2,!.
sasho(_実数1,_実数2,_差,_商,1) :-
　　\+(_実数2 = 0.0),
　　\+(_実数2=0),
　　_差 is _実数1 - _実数2,
　　_商 is _実数1 / _実数2,!.

program_1(_差,_商,0) :- write_formatted('%t',[_差]),!.
program_1(_差,_商,1) :- write_formatted('%t,%t',[_差,_商]),!.

588:デフォルトの名無しさん
10/02/03 07:36:27
ｽﾚﾘﾝｸ(tech板:586番)
# 問題こちら↓
# 階乗 n! を計算する関数を作成し，
# 順列
# 　ｎ個の異なるものからｒ個取り出して並べる。
# 　このときの順列の総数をnＰrとあらわす。
# 　nＰr＝n(n-1)(n-2)・・・(n-r+1)
# を計算する関数を作成し，
#
# 組み合わせ
# 　異なるｎ個からｒ個取り出して組を作る。
# 　このときの組合せの総数をnＣrとあらわす。
# 　nCr = nPr/r!
#
# を計算するプログラムを作成してください。できればFORTRANで。

589:デフォルトの名無しさん
10/02/03 08:27:50
>>588
% Prolog

nPr(N,R,X) :-
　　U is N - R + 1,
　　階乗(U,N,X).

nCr(N,R,X) :-
　　U is N - R + 1,
　　階乗(U,N,K1),
　　階乗(R,K2),
　　X is K1 // K2 .

階乗(M,N,1) :- M > N,!.
階乗(M,N,X) :-
　　M2 is M + 1,
　　階乗(M2,N,Y),
　　X is M * Y.

階乗(0,1) :- !.
階乗(1,1) :- !.
階乗(N,X) :-
　　N2 is N - 1,
　　階乗(N2,Y),
　　X is N * Y,
　　asserta((階乗(N,X) :- (!))) .

590:デフォルトの名無しさん
10/02/03 16:35:57
>>211
% Prolog
URLﾘﾝｸ(nojiriko.asia)

591:デフォルトの名無しさん
10/02/03 16:51:15
>>216
% Prolog

search(Text,Pat,Start) :-
　　sub_atom(Text,Start,_,_,Pat),!.
search(_,_,-1).

search(Start) :-
　　write('Text :'),get_line(Text),
　　write('Pat :'),get_line(Pat),
　　search(Text,Pat,Start),!.

次ページ