このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1349527750/323
#  [1]ポインタと文字列 
#  [2]文字列128文字以下を読み込み、その長さを表示するプログラムを作成せよ。文字列のそうさにはポインタ変数をつかう。文字列操作関数は使用できない。 
#  [3]Linux、gcc、C 
#  [4]来週まで 
#   
#   
#  お願いします 
# 
# 

'文字列128文字以下を読み込み、その長さを表示する' :-
        文字列128文字以下を読み込みその長さを(_その長さ),
        表示する(_その長さ).

文字列128文字以下を読み込みその長さを(_その長さ) :-
        rawmode,
        get_char(_文字),
        文字列128文字以下を読み込み(0,_文字,_その長さ),
        norawmode.

文字列128文字以下を読み込み(_その長さ,end_of_file,_その長さ) :- !.
文字列128文字以下を読み込み(128,_,128) :- !.
文字列128文字以下を読み込み(M_1,_文字_1,_その長さ) :-
        get_char(_文字_2),
        M_2 is M_1 + 1,
        文字列128文字以下を読み込み(M_2,_文字_2,_その長さ).

表示する(_その長さ) :-
        writef('入力された文字列長は %t です。\n',[_その長さ]).