このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/210
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文(含コード&リンク) 
#  
#  問題3 
#  キーボードから入力した99文字以内の文字列を、下記の様に画面に表示するプロ 
#  グラムを作成せよ。 
#   
#  【実行例】 
#  文字列を入力してください:ABCDEFG  
#  文字列 = ABCDEFG 
#   

'キーボードから入力した99文字以内の文字列を、下記の様に画面に表示する' :-
        キーボードから入力した99文字以内の文字列を([],_文字列),
        concat_atom(_文字ならび,_文字列),
        write_formatted('文字列 = %t\n',[_文字列]).

キーボードから入力した99文字以内の文字列を(_文字列,_文字列) :-
        length(_文字列,99),!.
キーボードから入力した99文字以内の文字列を(_文字列1,_文字列) :-
        get_char(_文字),
        \+(_文字 = '\n'),
        append([_文字],[_文字列1],_文字列2),
        キーボードから入力した99文字以内の文字列を(_文字列2,_文字列).
キーボードから入力した99文字以内の文字列を(_文字列,_文字列).