このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/714
#  [1] 授業単元:cプログラミング1 
#  [2] 問題文(含コード&リンク): 
#  問題1、円の面積を求めるプログラムまではできたのですが 
#  ↓このプログラムを負の値が入力されるまで繰り返すようにしたいのですがどうすればいいですか? 
#  #include <stdio.h> 
#  double get_area( int hankei); 
#  int main(void) 
#  { 
#  double hankei,area; 
#  printf ("半径"); 
#  scanf ("%lf",&hankei); 
#  area = get_area(hankei); 
#  printf ("面積=%lf\n",area); 
#  return 0; 
#  } 
#  double get_area( int hankei) 
#  { 
#  double area; 
#  area =  hankei * hankei * 3.14; 
#  return area; 
#  } 

円の面積を求める :-
        write('半径を入力してください :
        催促付き実数値を入力('円の半径を入力してください : ',_半径),
        円の面積を求める(_半径).

円の面積を求める(_値) :- _値 < 0.0,!.
円の面積を求める(_値) :- _値 < 0,!.
円の面積を求める(_半径) :-
        _円の面積 is _半径 * _半径 * pi,
        write_formatted('入力された半径 %t の円の面積は %t です。\n',[_半径,_円の面積]).
        催促付き実数値入力('円の半径を入力してください : ',_半径2),
        円の面積を求める(_半径2).