このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/949
#   
#  /* オリジナル関数calc */  
#  /* calc(入力データ、計算結果のアドレスを格納するポインタ) */  
#  int calc(double input_data, double * data_ptr)  
#  {  
#  /*ポインタを使って、呼び出し元のデータ格納場所に値を設定　*/  
#  *data_ptr = input_data * 2;  
#  return0; /* 正常終了 */  
#  }  
#   
#  上記プログラムを参考に、  
#  二つの入力データの変数(倍精度実数型)  
#  double input_data1, input_data2;  
#  に対しての、四則演算（＋、−、＊、／）の結果を、それぞれ  
#  double plus_data, minus_data, multiply_data, divide_data;  
#  の４変数に設定する機能を持つ、オリジナル関数calcを作成せよ。 
#  ただし、main関数上でのcalc関数の呼び出し方法は、以下のようにすること。  
#  calc(inpt_data1, input_data2, &plus_data, &minus_data, &multiply_data, _data);  
#  最後に、main関数上で上記４変数に格納された計算結果を画面に出力せよ。  
#  以上の仕様のプログラムを、calc.cという名前で作成せよ。  
#  calc.cをVisual Studioで実行して、実行結果をcalc.c内の文末に「コメント行」として記載せよ 。  
# 

program :-
    user_parameters([Atom1,Atom2]),
    atom_to_term(Atom1,Input_data1,_),
    atom_to_term(Atom2,Input_data2,_),
    calc(Input_data1,Input_data2,Plus_data,Minus_data,Multiply_data,Divide_data),
    write_formatted('%t + %t = %t\n',[Input_data1,Input_data2,Plus_data]),
    write_formatted('%t - %t = %t\n',[Input_data1,Input_data2,Minus_data]),
    write_formatted('%t * %t = %t\n',[Input_data1,Input_data2,Multiply_data]),
    write_formatted('%t / %t = %t\n',[Input_data1,Input_data2,Divide_data]).

calc(Input_data1,Input_data2,Plus_data,Minus_data,Multiply_data,Divide_data) :-
    Plus_data is Input_data1 + Input_data2,
    Minus_data is Input_data1 - Input_data2,
    Multiply_data is Input_data1 * Input_data2,
    Divide_data is Input_data1 / Input_data2.