10/02/03 06:38:51
>>227
% Prolog
program :-
user_parameters([A,B]),
atom_to_term(A,_実数1,_),
atom_to_term(B,_実数2,_),
sasho(_実数1,_実数2,_差,_商,_診断),
program_1(_差,_商,_診断),!.
sasho(_実数1,_実数2,_差,_商,0) :-
(_実数2 = 0.0;_実数=0),
_差 is _実数1 - _実数2,!.
sasho(_実数1,_実数2,_差,_商,1) :-
\+(_実数2 = 0.0),
\+(_実数=0),
_差 is _実数1 - _実数2,
_商 is _実数1 / _実数2,!.
program_1(_差,_商,0) :- write_formatted('%t',[_差]),!.
program_1(_差,_商,1) :- write_formatted('%t,%t',[_差,_商]),!.