このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1245853701/552
# [1] 授業単元:情報処理
# [2] 問題文(含コード&リンク):
# (1)
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9670.txt
# (2)
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9671.txt

:- op(350,fx,i).
:- op(450,xfx,分の).

複素数の割り算(A+iB,C+iD,X+iY) :-
    X is (A * C + B * D) / ( C ^ 2 + D ^ 2),
    Y is (B * C - A * D) / ( C ^ 2 + D ^ 2).

複素数の掛け算(A+iB,C+iD,X+iY) :-
    X is A * C - B * D,
    Y is A * D + B * C.

複素数の足し算(A+iB,C+iD,X+iY) :-
    X is A + C,
    Y is B + D.

分数の積(A 分の B,C 分の D,X 分の Y) :-
    X is A * C,
    Y is B * D.