このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 132代目 #368 # [1] 授業単元: プログラミング実習 # [2] 問題文(含コード&リンク): # http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10180.txt # # 〜課題1〜 # 3個のint型整数の最小値を返す関数 # int min3(int x,int y,int z) # を作成せよ。(ただし、標準関数minは使用しないこと。) # # (実行例) # 3個の整数を入力してください。 # 整数1:15 # 整数2:3 # 整数3:23 # 最も小さい値は3です。 '3個の整数の最小値を返す' :- '3個の整数を得る'(_整数_1,_整数_2,_整数_3), '3個の整数の最小値を返す'(_整数_1,_整数_2,_整数_3). '3個の整数を得る'(_整数_1,_整数_2,_整数_3) :- 整数を得る('整数[1] : ',true,_整数_1), 整数を得る('整数[2] : ',true,_整数_2), 整数を得る('整数[3] : ',true,_整数_3). '3個の整数の最小値を返す'(_整数_1,_整数_2,_整数_3) :- 最小値を(_整数_1,_整数_2,_整数_3,_最小値), 表示する(_最小値). 最小値を(_最小値,_整数_2,_整数_3,_最小値) :- '_最小値は_整数_2以下であり_整数_3以下である'(_最小値,_整数_2,_整数_3,_最小値),!. 最小値を(_最小値,_整数_2,_整数_3,_最小値) :- '_最小値は_整数_1以下であり_整数_3以下である'(_整数_1,_最小値,_整数_3,_最小値),!. 最小値を(_最小値,_整数_2,_整数_3,_最小値) :- '_最小値は_整数_1以下であり_整数_2以下である'(_整数_1,_整数_2,_最小値,_最小値). '_最小値は_整数_2以下であり_整数_3以下である'(_最小値,_整数_2,_整数_3,_最小値) :- _最小値 =< _整数_2, _最小値 =< _整数_3. '_最小値は_整数_1以下であり_整数_3以下である'(_整数_1,_最小値,_整数_3,_最小値) :- _最小値 =< _整数_1, _最小値 =< _整数_3. '_最小値は_整数_1以下であり_整数_2以下である'(_整数_1,_整数_2,_最小値,_最小値) :- _最小値 =< _整数_1, _最小値 =< _整数_2. 整数を得る(_催促,_評価,_整数) :- 催促付き行入力(_催促,_行), 整数検査(_行,_整数), 整数評価(_評価). 催促付き行入力(_催促,_行) :- writef('%w : ',[_催促]), read_line_to_codes(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). 整数検査(_行,_整数) :- atom_number(_行,_整数), integer(_整数). 整数評価(_評価) :- call(_評価).