このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 131代目 #615 # C++で10進数を2進数に変換するプログラムを配列使って # 順番通りに表示できるようにするのってどうするんですか t2_49 :- write('10進数をスペースで区切って何個か入力してください : '), get_line(Line), split(Line,[' '],L), member(N,L), 二進数(N,L), wrln(L), fail. t2_49. 二進数(_10進数,L) :- length(L,32), 二進数(_10進数,[],X), append(L1,X,L), all(L1,0). 二進数(J,Y,[J|Y]) :- J < 2. 二進数(J,Y,X) :- J >= 2,J2 is J // 2,M is J mod 2,二進数(J2,[M|Y],X). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% wrln([]) :- nl. wrln([A|R]) :- write(A),wrln(R).