このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/464
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク):  
#  以下のような動作をするプログラムを作成せよ。 
#  ・main()関数の引数を用いて整数値xを与える。 
#  ・fgetsを用いて、標準入力(キーボード)から英単語と英文字cを与える。 
#  ・英単語のx番目以降の文字をcに変える関数を作って使用する。 
#  ・変更された英単語と整数値を使って文字列"変更された後の英単語_整数値"を作る 
#  ・puts()またはfputs()を用いて出力 
#  実行例:./a.out 5   キーボード入力:information p    実行結果(表示):infoppppppp_5 
#  

英単語のx番目以降の文字をcに変える :-
        user_parameters([Arg]),
        atom_to_term(Arg,_x番目,_),
        英単語と文字cの入力(_英単語,_c),
        英単語のx番目以降の文字をcに変える(_英単語,_x番目,_c,_変換された英単語),
        write_formatted('%t\n',[_変換された英単語]).

英単語と文字cの入力(_英単語,_c) :-
        write('英単語を入力してください : '),
        get_line(_英単語),
        write('置換する文字cを入力してください : '),
        get_char(_c).

英単語のx番目以降の文字をcに変える(_英単語,_x番目,_c,_変換された英単語) :-
        sub_atom(_英単語,0,_x番目,R,_副文字列_1),
        length(L,R),
        all(L,_c),
        concat_atom(L,S),
        concat_atom([_副文字列_1,S],_変換された英単語).