このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/947
#   
#  [1] 授業単元:プログラミングC 
#  [2] 問題文(含コード&リンク):  
#  配列strに文字列を入力した後、 
#  最初の2文字を取り除いた文字列を表示せよ 
#  参考:http://kie.nu/cCu  
#  

'文字列を入力した後、最初の2文字を取り除いた文字列を表示する' :-
        文字列を入力した後(_文字列),
        最初の2文字を取り除いた文字列を(_文字列,_副文字列),
        表示する(_副文字列).

文字列を入力した後(_文字列) :-
        write('文字列を入力してください : '),
        get_line(_文字列).

最初の2文字を取り除いた文字列を(_文字列,_副文字列) :-
        sub_atom(_文字列,2,_,_,_副文字列).

表示する(_文字列) :-
        writef('%t\n',[_文字列]).