このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 158代目 #812 # [1] 授業単元:c 反復処理 # [2] 問題文(含コード&リンク): # 整数 a をキーボードから入力し,a が素数かどうか判断するプログラムを作成しなさい.(2〜a/2で整数aを割ったときに全ての値で割り切れなければ,aは素数である.) # サイズm(m<=10)の整数型配列変数aをキーボードから受け取り,a[0],a[1],...,a[n-1]のうちの最大値をディスプレイに表示するプログラムを完成しなさい. # '要素数10以下のならび要素をキーボードから受け取り、最大値をディスプレイに表示する。' :- '要素数10以下のならび要素をキーボードから受け取り、'(_ならび), '最大値をディスプレイに表示する。'(_ならび). '要素数10以下のならび要素をキーボードから受け取り、'(_ならび) :- 要素数10以下の(Ln), ならび要素をキーボードから受け取り(Ln,_ならび). 要素数10以下の(Ln) :- length(Ln,10). ならび要素をキーボードから受け取り([],[]) :- !. ならび要素をキーボードから受け取り(_,[]) :- at_end_of_stream(current_input),!. ならび要素をキーボードから受け取り([_|Ln],[_要素|R]) :- キーボードから受け取り(_要素), ならび要素をキーボードから受け取り(Ln,R). キーボードから受け取り(_要素) :- read_line_to_codes(current_input,_文字コードならび), atom_codes(_要素,_文字コードならび). '最大値をディスプレイに表示する。'(_ならび) :- 最大値を(_ならび,_最大値), writef('最大値は %w です\n',[_最大値]). 最大値を(_ならび,_最大値) :- 'ならびから最大値を取り出すと、残りのならびの中に要素は全て最大値に等しいか小さい。'(_ならび,_最大値). 'ならびから最大値を取り出すと、残りのならびの中に要素は全て最大値に等しいか小さい。'(_ならび,_最大値) :- 'ならびから最大値を取り出すと、'(_ならび,_最大値,_最大値を除いたならび), '最大値を除いたならびの中の要素は全て最大値に等しいか小さい。'(_最大値を除いたならび,_最大値). 'ならびから最大値を取り出すと、'(_ならび,_最大値,_最大値を除いたならび) :- select(_最大値,_ならび,_最大値を除いたならび). '最大値を除いたならびの中の要素は全て最大値に等しいか小さい。'(_最大値を除いたならび,_最大値) :- forall(member(_要素,_最大値を除いたならび),_要素 @=< _最大値).