このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1322562648/792
#  [1] 授業単元:計算機アルゴリズム 
#  [2] 問題文(含コード&リンク): 
#  メンバとして映画のタイトル(文字列)と公開年(int 
#  型整数)をもつ構造体movie を宣言し,movie 型構造 
#  体のメンバの値を設定してその構造体を返す関数struct movie set_movie(void)を作成しプログラムを完成させよ. 
#  [実行例] 
#  映画のタイトルを入力してください:HAYABUSA 
#  公開年を入力してください:2011 
#  データを設定しました。 
#  タイトル:HAYABUSA 公開年:2011 
#  

'メンバとして映画のタイトル(文字列)と公開年(int型整数)をもつ構造体movie を宣言し,movie 型構造体のメンバの値を設定してその構造体を返す'(映画(_タイトル,_公開年)) :-
        'メンバとして映画のタイトル(文字列)と公開年(int型整数)をもつ構造体movie を宣言し',
        映画に値を設定する(_映画のタイトル,_公開年),
        assertz(映画(_映画のタイトル,_公開年)),
        write('データを設定しました。\n'),
        writef('タイトル:%t 公開年:%t\n',[_タイトル,_公開年]).

'メンバとして映画のタイトル(文字列)と公開年(int型整数)をもつ構造体movie を宣言し' :-
        assertz(データベース定義(映画,1,タイトル)),
        assertz(データベース定義(映画,2,公開年)).

値を設定する(_映画のタイトル,_公開年) :-
        映画のタイトルの入力(_映画のタイトル),
        公開年の入力(_公開年).

映画のタイトルの入力(_映画のタイトル) :-
        write('映画のタイトルを入力してください:'),
        get_line(_映画のタイトル).

公開年の入力(_公開年) :-
        write('公開年を入力してください:'),
        get_line(_公開年).