このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 132代目 #368 # [1] 授業単元: プログラミング実習 # [2] 問題文(含コード&リンク): # http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10180.txt # # 〜課題3〜 # 関数voold putstar(int n)を作成して、長方形を表示するプログラムを作成せよ。 # # (実行例) # 長方形を作りましょう。 # 横幅:5 # 高さ:3 # ***** # ***** # ***** # 長方形を表示する :- 長方形を作りましょう(_長方形文字列), writef('%w\n',[_長方形文字列]). 長方形を作りましょう(_長方形文字列) :- 横幅と高さを得る(_横幅,_高さ), 長方形文字列(_横幅,_高さ,_長方形文字列). 長方形文字列(_横幅,_高さ,_長方形文字列) :- findnsols(_高さ,_星文字列,星文字列(_横幅,_星文字列),_星文字列ならび), atomic_list_concat(_星文字列ならび,'\n',_長方形文字列). 星文字列(_横幅,_星文字列) :- findnsols(_横幅,*,repeat,L), atomic_list_concat(L,_星文字列). 横幅と高さを得る(_横幅,_高さ) :- 横幅(_横幅), 高さ(_高さ). 横幅(_横幅) :- 催促付き零を含まない自然数入力('横幅 : ',_横幅). 高さ(_高さ) :- 催促付き零を含まない自然数入力('高さ : ',_高さ). 催促付き零を含まない自然数入力(_催促,_自然数) :- 催促付き行入力(_催促,_行), 零を含まない自然数入力診断(_行,_自然数),!. 催促付き零を含まない自然数入力(_催促,_自然数) :- 催促付き零を含まない自然数入力(_催促,_自然数). 催促付き行入力(_催促,_行) :- writef('%w',[_催促]), 行入力(_行). 行入力(_行) :- read_line_to_codes(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). 零を含まない自然数入力診断(_行,_自然数) :- atom_number(_行,_自然数), 零を含まない自然数(_自然数),!. 零を含まない自然数入力診断(_行,_) :- writef('入力された %t からは自然数が得られません。再入力をお願いします。\n',[行]), fail. 零を含まない自然数(_自然数) :- integer(_自然数), _自然数 > 0.