このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/677
#  [1] 授業単元:プログラミング演習  
#  [2] 
#  4.0から1までのdouble型の数字を20個乱数によって生成し、小さい順に表示するプログラムを作成せよ。 

0から1までのdouble型の数字を20個乱数によって生成し、小さい順に表示する :- 
    findall(F,(for(1,N,20),F is (random mod 7717) / 7717),L1), 
    バブルソートによって小さい順に(L1,L2), 
    writeln(L2).