このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1274827528/578
#  再び、お願いします(_ ) 
#   
#  【質問テンプレ】 
#  [1] 授業単元:C言語 演習問題4-14 
#  [2] 問題文(含コード&リンク):身長と標準体重を表示するプログラムを作成せよ。 
#                 なお、表示する身長の範囲(開始値、終了値、増分)は、整数値として読み込み、 
#                 標準体重は小数点以下2桁だけ表示すること。 
#  

身長と標準体重を表示する :-
        '身長の開始値・終了値と増分を入力する'(_開始値,_終了値,_増分),
        身長の刻みごとに標準体重を表示する(_開始値,_終了値,_増分).

'身長の開始値・終了値と増分を入力する'(_開始値,_終了値,_増分) :-
        催促付き整数入力('身長(cm)の開始値(整数)を入力してください : ',_開始値),
        催促付き整数入力('身長(cm)の終了値(整数)を入力してください : ',_終了値),
        催促付き整数入力('増分(整数)を入力してください : ',_増分).

身長の刻みごとに標準体重を表示する(_開始値,_終了値,_増分) :-
        _分割数 is (_終了値 - _開始値) // _増分,
        between(0,_分割数,_刻み度数),
        身長と標準体重を表示する(_刻み度数,_増分,_開始値,_終了値),
        _刻み度数 = _分割数.

身長と標準体重を表示する(_刻み度数,_増分,_開始値,_終了値) :-
        _身長 is _開始値 + _増分 * _刻み度数,
        _標準体重 is (_身長 / 100) ^ 2 * 1.2.
        writef('身長 = %tcm, ',[_身長]),
        format('標準体重 =~2f\n',[_標準体重]),!.