このディレクトリの索引

# 出典 :: 質問にやさしく親切に答えてくれるスレ 4 #610 # # 平成元号年を入力して,西暦年を表示する。 #     例えば,21と入力したら,「平成21年は西暦2009年です」と表示する。 # (ヒント:元号年を a とすると,西暦年は1988+a ) '平成元号年を入力して,西暦年を表示' :- 整数を得る('平成の元号年: ',true,_平成元号年), _西暦年 is 1988 + _平成元号年, writef('平成%w年は西暦%w年です\n',[_平成元号年,_西暦年]). 整数を得る(_催促,_評価,_整数) :- 催促後に行入力(_催促,_行), 整数検査(_行,_整数), 整数評価(_評価). 催促後に行入力(_催促,_行) :- write(_催促), 行入力(_行). 行入力(_行) :- read_line_to_codes(current_input,_文字コードならび), atom_codes(_行,_文字コードならび). 整数検査(_行,_整数) :- atom_number(_行,_整数), integer(_整数). 整数評価(_評価) :- call(_評価).