このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/866
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文(含コード&リンク) 
#   キーボードからONを入力すると1を、OFFを入力すると0(ゼロ)を、その他の入力ではErrorとそれぞれ表示するプログラムを作れ。 
#  この場合、ONとOFFは大文字、小文字、それらの混合を問わないものとする。 
#   
#  *注 
#  Cのライブラリ関数の中にtoupper()とtolower()という関数があり、それぞれ文字型データを引数として受け取り小文字は大文字に、大文字はそのまま(tolower()は逆)返す関数がある。 
#  使い方を調べて使用せよ。   


'キーボードからONを入力すると1を、OFFを入力すると0(ゼロ)を、その他の入力ではErrorとそれぞれ表示する。この場合、ONとOFFは大文字、小文字、それらの混合を問わないものとする。' :-
        get_line(Line),
        'ONを入力すると1を、OFFを入力すると0(ゼロ)を、その他の入力ではErrorとする。この場合、ONとOFFは大文字、小文字、それらの混合を問わないものとする。'(Line,_診断),
        write_formatted('%t\n',[_診断]).

'ONを入力すると1を、OFFを入力すると0(ゼロ)を、その他の入力ではErrorとする。この場合、ONとOFFは大文字、小文字、それらの混合を問わないものとする。'(Line,_診断) :-
        この場合、ONとOFFは大文字、小文字、それらの混合を問わないものとする。'(Line,ULine),
        'ONを入力すると1を、OFFを入力すると0(ゼロ)を、その他の入力ではErrorとする。'(ULine,_診断).

'ONを入力すると1を、OFFを入力すると0(ゼロ)を、その他の入力ではErrorとする。'('ON',1) :- !.
'ONを入力すると1を、OFFを入力すると0(ゼロ)を、その他の入力ではErrorとする。'('OFF',0) :- !.
'ONを入力すると1を、OFFを入力すると0(ゼロ)を、その他の入力ではErrorとする。'(_,'Error').