このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 132代目 #904 # [1] 授業単元: forとかwhileとか # [2] 問題文(含コード&リンク): ある整数を入力し,その約数をすべてと約数の個数を表示するプログラムを作成しなさい. # 'ある整数を入力し,その約数をすべてと約数の個数を表示する' :- 'ある整数を入力し,'(_整数), その約数をすべてと約数の個数を表示する(_整数). 'ある整数を入力し,'(_整数) :- 行入力(_行), 整数検査(_行,_整数). 行入力(_行) :- read_line_to_codes(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). 整数検査(_行,_整数) :- atom_number(_行,_整数), integer(_整数). その約数をすべてと約数の個数を表示する(_整数) :- その約数をすべてと約数の個数を(_整数,_約数ならび,_約数の個数), 表示する(_整数,_約数ならび,_約数の個数). その約数をすべてと約数の個数を(_整数,_約数ならび,_約数の個数) :- その約数をすべてと(_整数,_約数ならび), 約数の個数を(_約数ならび,_約数の個数). その約数をすべてと(_整数,_約数ならび) :- findall(_約数,( その約数を(_整数,_約数)),_約数ならび). その約数を(_整数,_約数) :- between(2,_整数,_約数), 0 is _整数 mod _約数. 約数の個数を(_約数ならび,_約数の個数) :- length(_約数ならび,_約数の個数). 表示する(_整数,_約数ならび,_約数の個数) :- atomic_list_concat(_約数ならび,',',_約数表示文字列), writef('%w\n約数の個数は%wです\n',[_約数表示文字列,_約数の個数]).