このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1322562648/968
#  [1] 授業単元:計算機アルゴリズム  
#  [2] 問題文(含コード&リンク):  
#  設問1-1 
#  y=2x2乗+3(-10≦x≦10)を刻み幅1で計算し、x、yの組を1行ごとにファイルに書き込むプログラムを作成しなさい。 
#   
#  設問1-2 
#  上記設問1-1のプログラムが作成したファイルを読み込んで xとyの値をprintf文で表示するプログラムを作成しなさい。 
#    

'ファイルを読み込んで xとyの値をprintf文で表示する'(_ファイル) :-
         get_split_lines(_ファイル,[','],LL),
         append(_,[[_x,_y]|R],LL),
         writef('%t,%t\n',[_x,_y]),
         R = [].

'y=2x2乗+3(-10≦x≦10)を刻み幅1で計算し、x、yの組を1行ごとにファイルに書き込む'(_ファイル) :-
        'y=2x2乗+3(-10≦x≦10)を刻み幅1で計算し'(LL),
        'x、yの組を1行ごとにファイルに書き込む'(_ファイル,LL).

'y=2x2乗+3(-10≦x≦10)を刻み幅1で計算し'(LL) :-
        findall([_x,_y],(
                    for(-10,_x,10),
                    _y is 2 * _x * _x + 3),
                LL).

'x、yの組を1行ごとにファイルに書き込む'(_ファイル,LL) :-
        open(_ファイル,write,Outstream),
        'x、yの組を1行ごとに書きこむ'(Outstream,LL),
        close(Outstream).

'x、yの組を1行ごとに書きこむ'(Outstream,LL) :-
        append(_,[[_x,_y]|R],LL),
        writef(Outstream,'%t,%t\n',[_x,_y]),
        R = [].