このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/568
#  [1] 授業単元: プログラミング演習 
#  [2] 問題文(含コード&リンク):  
#     指定した数の文字列をキーボードから入力し、 
#     動的に確保した配列に格納し、配列の内容を画面に出力するプログラムを作成しなさい。 
#  

'指定した数の文字列をキーボードから入力し、動的に確保した配列に格納し、配列の内容を画面に出力する' :-
        催促付き整数入力('文字列の長さを入力してください : ',_文字列の長さの指定),
        '指定した数の文字列をキーボードから入力し'(_文字列の長さの指定,_文字列),
        '動的に確保した配列に格納し、配列の内容を'(_HeapVector,_文字列の長さの指定,_文字列),
        '画面に出力する'(_HeapVector).

'指定した数の文字列をキーボードから入力し'(_文字列の長さの指定,_文字列) :-
        length(Ln,_文字列の長さの指定),
        rawmode,
        文字列をキーボードから入力し(Ln,L),
        norawmode,
        atom_chars(_文字列,L).

'動的に確保した配列に格納し、配列の内容を'(_HeapVector,_文字列の長さの指定,_文字列) :-
        new_heap_vector(_HeapVector,_文字列の長さの指定),
        sub_atom(_文字列,S,1,R,_文字),
        char_code(_文字,Code),
        set_vector_element(_HeapVector,S,Code),
        R = 0,!.

'画面に出力する'(_文字列の長さの指定,_HeapVector) :-
        M is _文字列の長さの指定 - 1,
        for(0,N,M),
        get_vector_element(_HeapVector,N,Code),
        put_code(Code),
        N = M,!.