このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1342966104/649
#  
#  [4] 期限: 2012年9月19日3時00分まで
#  [5] 標準体重を計算して対応表を表示するだけの単純なもの
#    計算式は標準体重(kg) = 身長(cm)×身長(cm)×22/10000でお願いします
#  
#  実行例
#  
#  対応表
#  ---------------
#  150.0 cm : 49.5 kg
#  155.0 cm : 52.9 kg
#  160.0 cm : 56.3 kg
#  165.0 cm : 59.9 kg
#  170.0 cm : 63.6 kg
#  ---------------

'標準体重を計算して対応表を表示するだけの単純なもの。計算式は標準体重(kg) = 身長(cm)×身長(cm)×22/10000でお願いします ' :-
        write('対応表\n---------------\n'),
        身長を得る(_身長),
        '計算式は標準体重(kg) = 身長(cm)×身長(cm)×22/10000でお願いします'(_身長,_標準体重),
        対応表の一行を表示する(_身長,_標準体重),
        _身長 = 200,
        write('---------------\n').

身長を得る(_身長) :-
        between(140,200,_身長整数),
        0 is _身長整数 mod 5,
        _身長 is _身長整数 * 1.0.

'計算式は標準体重(kg) = 身長(cm)×身長(cm)×22/10000でお願いします'(_身長,_標準体重) :-
        _標準体重 is  _身長 * 身長 * 22 / 10000.

対応表の一行を表示する(_身長,_標準体重) :-
        format('~1f cm : ~1f kg\n',[_身長,_標準体重]).