このディレクトリの索引

# C/C++の宿題片付けます 133代目 #5 # [1] 授業単元: プログラミング1 # [2] 問題文(含コード&リンク): 5教科のテストの点数を入力し、それらの合計点を算出するようなプログラムを作成せよ。実行結果の例を以下に示す。 # ----------------------------------------------- # 国語:? # 算数:? # 理科:? # 社会:? # 英語:? # 合計点は?点です。 # '5教科'(国語). '5教科'(算数). '5教科'(理科). '5教科'(社会). '5教科'(英語). '5教科のテストの点数を入力して、それらの合計点を算出して表示する' :- '5教科のテストの点数を入力して、それらの合計点を算出して'(_合計点), 表示する(_合計点). '5教科のテストの点数を入力して、それらの合計点を算出して'(_合計点) :- '5教科のテストの点数を入力して、'(_点数ならび), それらの合計点を算出して(_点数ならび,_合計点). '5教科のテストの点数を入力して、'(_点数ならび) :- findall(_点数,'5教科のテストの点数を入力'(_点数),_点数ならび). '5教科のテストの点数を入力'(_点数) :- '5教科'(_教科), 'テストの点数を入力'(_教科,_点数). 'テストの点数を入力'(_教科,_点数) :- 催促付き整数入力('%w : ',[_教科],_点数). 催促付き整数入力(_表示パターン,_催促情報ならび,_整数) :- writef(_表示パターン,_催促情報ならび), 整数入力(_整数). 整数入力(_整数) :- '一旦、文字列である行を得て、その行を数値に変換する。その数値は整数である。'(_整数). '一旦、文字列である行を得て、その行を数値に変換する。その数値は整数である。'(_整数) :- '一旦、文字列である行を得て、'(_行), 'その行を数値に変換する。その数値は整数である。'(_行,_整数). '一旦、文字列である行を得て、'(_行) :- 行入力(_行). 行入力(_行) :- 改行が来るまでの文字コードならびを得る(_文字コードならび), '文字コードならびをアトムに変換する。そのアトムが入力行となる。'(_文字コードならび,_行). 改行が来るまでの文字コードならびを得る(_文字コードならび) :- read_line_to_codes(current_input,_文字コードならび). '文字コードならびをアトムに変換する。そのアトムが入力行となる。'(_文字コードならび,_行) :- atom_codes(_行,_文字コードならび). 'その行を数値に変換する。その数値は整数である。'(_行,_整数) :- 'その行を数値に変換する。'(_行,_整数), 'その数値は整数である。'(_整数). 'その行を数値に変換する。'(_行,_数値) :- atom_number(_行,_数値). 'その数値は整数である。'(_整数) :- integer(_整数). それらの合計点を算出して(_点数ならび,_合計点) :- sum_list(_点数ならび,_合計点). 表示する(_合計点) :- writef('合計点は%w点です\n',[_合計点]).