このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1320365280/59
#  [1] 授業単元:計算機アルゴリズム  
#  [2] 問題文(含コード&リンク):  
#  設問1-1 
#  プログラム例7.3.1をswitch文を使わずにif文、else if文を使うプログラムに変更しなさい。 
#  #include  
#  
#  int main(void) 
#  { 
#  int x, z; 
#  x=5; 
#  z= x % 2; 
#  switch(z) 
#  { 
#  case 0: 
#  printf("x= %d は偶数です.\n",x); 
#  break; 
#  case 1: 
#  printf("x= %dは奇数です.\n",x); 
#  break; 
#  default: 
#  printf("xは負の数である可能性があります.\n"); 
#  } 
#  return 0; 
#  
#  変数xの値をキーボードから入力するように機能変更しなさい。 
#  プログラム例7.3.1 
#  http://www.dotup.org/uploda/www.dotup.org2233167.txt.html 
#  

'変数xの値をキーボードから入力して、奇数か偶数かを表示しなさい' :-
        '変数xの値をキーボードから入力して'(_x),
        '奇数か偶数かを表示しなさい'(_x).

'変数xの値をキーボードから入力して'(_x) :-
        write('整数を入力して下さい : '),
        get_line(Line),
        '変数xの値をキーボードから入力診断'(Line,_x),!.
'変数xの値をキーボードから入力して'(_x) :-
        '変数xの値をキーボードから入力して'(_x).

'変数xの値をキーボードから入力診断'(Line,_x) :-
        atom_to_term(Line,_x,_),
        integer(_x),!.
'変数xの値をキーボードから入力診断'(Line,_x) :-
        writef('入力された %t からは整数が得られません。再入力をお願いします。\n',[Line]),
        fail.

'奇数か偶数かを表示しなさい'(_x) :-
        0 is _x mod 2,
        writef('%tは偶数です.\n',[_x]),!.
'奇数か偶数かを表示しなさい'(_x) :-
        1 is _x mod 2,
        writef('%tは奇数です.\n',[_x]),!.
'奇数か偶数かを表示しなさい'(_x) :-
        writef('%tは負の数である可能性があります.\n',[_x]).