このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/62
#  [1] 授業単元:プログラミング  
#  [2] 問題文(含コード&リンク):  
#  問1:キーボードから身長を入力し、170cm以上なら「高い」と表示し、 
#  そうでなければ「低い」と表示するプログラムを作成しなさい。 
#   
#  問2:キーボードから身長を入力し、 
#  180cm以上なら「高い」、 
#  150cm以上、180cm未満なら「普通」、 
#  150cm未満なら「低い」と表示するプログラムを作成しなさい。 

:- op(450,xf,cm).

キーボードから身長を入力し、170cm以上なら「高い」と表示し、そうでなければ「低い」と表示する :-
    キーボードから身長を入力(_身長),
    170cm以上なら「高い」と表示し、そうでなければ「低い」と表示する(_身長 cm).

キーボードから身長を入力(_身長) :-
    get_integer(_身長).

170cm以上なら「高い」と表示し、そうでなければ「低い」と表示する(_身長 cm) :-
    _身長 >= 170,!,
    write(高い).
170cm以上なら「高い」と表示し、そうでなければ「低い」と表示する(_身長 cm) :-
    write(低い).

% ---------------------------------------------------------------------------

キーボードから身長を入力し、180cm以上なら「高い」、150cm以上、180cm未満なら「普通」、150cm未満なら「低い」と表示する :-
    キーボードから身長を入力(_身長),
    '180cm以上なら「高い」、150cm以上、180cm未満なら「普通」、150cm未満なら「低い」と表示する'(_身長).

'180cm以上なら「高い」、150cm以上、180cm未満なら「普通」、150cm未満なら「低い」と表示する'(_身長 cm) :-
    _身長 >= 180,!,
    write(高い).
'180cm以上なら「高い」、150cm以上、180cm未満なら「普通」、150cm未満なら「低い」と表示する'(_身長 cm) :-
    _身長 >= 150,!,
    write(普通).
'180cm以上なら「高い」、150cm以上、180cm未満なら「普通」、150cm未満なら「低い」と表示する'(_身長 cm) :-
    _身長 < 150,!,
    write(低い).