このディレクトリの索引

# 出典 :: 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 # ***** # ***** # ***** # 縦横サイズを得て長方形を描きましょう :- 縦横サイズを得て(_縦,_横), 長方形を作りましょう(_縦,_横,_長方形), 長方形を描きましょう(_長方形). 縦横サイズを得て(_縦,_横) :- 整数を得る('縦 : ',_縦 > 0,_縦), 整数を得る('横 : ',_横 > 0,_横). 長方形を作りましょう(_縦,_横,_長方形) :- findnsols(_縦,_横方向星ならび,横方向星ならび(_横,_横方向星ならび),_長方形),!. 横方向星ならび(_横,_横方向星ならび) :- repeat, findall(*,between(1,_横,_),_横方向星ならび). 長方形を描きましょう(_長方形) :- forall(member(L,_長方形),星文字列を表示(L)). 星文字列を表示(L) :- atom_chars(_星文字列,L), writef('%w\n',[_星文字列]). 整数を得る(_催促,_評価,_整数) :- 催促後に行入力(_催促,_行), 整数検査(_行,_整数), 整数評価(_評価). 催促後に行入力(_催促,_行) :- write(_催促), 行入力(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). 整数検査(_行,_整数) :- atom_number(_行,_整数), integer(_整数). 整数評価(_評価) :- call(_評価).