このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/924
#  ../test/read.cgi/tech/1284632294/878  
#   
#  ありがとうございます。 
#   
#  1] 授業単元:プログラミング演習  
#  [2] 文字列を入力し、指定した文字位置から5文字分を表示する 
#  プログラムを作成せよ。ただし、入力する文字列は 
#  半角のアルファベットとする。文字列の数は40文字程度とし、 
#  5文字分を取り出す位置の関係を意識すること。 
#  また、文字列の取り出しにはポインタを使うこと。  
#  

'文字列を入力し、指定した文字位置から5文字分を表示する' :-
        write('文字列を入力してください : '),
        get_line(Line),
        指定した文字位置を得る(_指定した文字位置),
        _位置1 is _指定した文字位置 - 1,
        sub_atom(Line,_位置1,5,_,_取り出された5文字),
        _取り出された文字の最初の位置 is _位置 + 1,
        
指定した文字位置を得る(_指定した文字位置) :-
        write('取り出す文字位置を指定してください : '),
        整数を得る(_指定した文字位置),!.