このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/746
#  [1] 授業単元:プログラミング言語  
#  [2] 問題文(含コード&リンク):10人の学生の身長(m),体重(kg)のデータを入力し、  
#  各学生の身長(m),BMI値を表示するプログラムを作成しなさい。  
#  
'10人の学生の身長(m),体重(kg)のデータを入力し、各学生の身長(m),BMI値を表示する' :-
        '10人の学生の身長(m),体重(kg)のデータを入力し'(_10人の学生の身長体重ならび),
        '各学生の身長(m),BMI値を表示する'(_10人の学生の身長体重ならび).

'10人の学生の身長(m),体重(kg)のデータを入力し'(_10人の学生の身長体重ならび) :-
        length(_10人の学生の身長体重ならび,10),
        findall([No,_身長,_体重],(
                   append(Ln,[_|_],_10人の学生の身長体重ならび),
                   length([_|Ln],No),
                   writef('%t番目: 身長(m),体重(kg)を入力してください : '),
                   readln([_身長,_体重])),
                _10人の学生の身長体重ならび),!.

'各学生の身長(m),BMI値を表示する'([]).
'各学生の身長(m),BMI値を表示する'([[No,_身長,_体重]|R]) :-
        'BMI値の計算(_身長,_体重,_BMI値),
        writef('%t, 身長: %t, BMI値: %t\n',[No,_身長,_BMI値]),
        '各学生の身長(m),BMI値を表示する'(R).

'BMI値の計算'(_身長,_体重,_BMI値) :-
        _BMI値 is _体重 / (_身長 ^ 2).