>>219
% Prolog 敢えて、出題の題意通りやってみる。

英小文字から大文字へのコード変換(_英小文字,_英大文字) :-
　　char_code(a,_aの文字コード),
　　char_code('A',_Aの文字コード),
　　_変位 is _aの文字コード - _Aの文字コード,
　　char_code(_英小文字,_英小文字の文字コード),
　　_英大文字の文字コード is _英小文字の文字コード - _変位,
　　char_code(_英大文字,_英大文字の文字コード).