このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 144代目 #72 # [1] 授業単元: プログラミング # [2] 問題文(含コード&リンク):次のように、10から0までカウントダウンして、0になったら!!!と表示 # して終わるCプログラムを作って実行しなさい。 #   10 # 9 # 8 # (中略) # 1 # 0 # !!! # '10から0までカウントダウンして、0になったら!!!と表示する' :- '10から0までカウントダウンして、'(_カウント), '0になったら!!!と表示する'(_カウント). '10から0までカウントダウンして、'(_カウント) :- カウントダウン(10,0,_カウント), writef('%w\n',[_カウント]). '0になったら!!!と表示する'(0). write('!!!\n'). カウントダウン(_カウント,_限界値,_カウント) :- _カウント >= _限界値. カウントダウン(_カウント_1,_限界値,_カウント) :- _カウント_1 > _限界値, succ(_カウント_0,_カウント_1), カウントダウン(_カウント_0,_限界値,_カウント). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '10から0までカウントダウンして、0になったら!!!と表示する' :- '10から0までカウントダウンして'([_,_,_,_,_,_,_,_,_,_]), '0になったら!!!と表示する'. '10から0までカウントダウンして'([_|LN]) :- length([_|Ln],N), writef('%w\n',[N]), '10から0までカウントダウンして'(LN). '10から0までカウントダウンして'([]) :- writef('%w\n',[0]). '0になったら!!!と表示する' :- write('!!!\n'). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '10から0までカウントダウンして、0になったら!!!と表示する' :- '10から0までカウントダウンして、0になったら!!!と表示する'(10). '10から0までカウントダウンして、0になったら!!!と表示する'(N) :- '0になったら!!!と表示する'(N). '10から0までカウントダウンして'(N) :- '0なるまでカウントダウンをして行く'(N). '0なるまでカウントダウンをして行く'(N) :- writef('%w\n',[N]), succ(N_1,N), '10から0までカウントダウンして'(N_1). '0になったら!!!と表示する'(0) :- write('!!!\n').