>>229
% Prolog

[IF/Prolog]# prolog -c temp.pro >temp.txt
[SWI-Prolog]# pl -s temp.pro >temp.txt

% temp.pro

program :-
　　　　'c137_501:f(x)=e^{-x} cos(2πx) その関数を用いて0≦x≦3の間で0.1刻みで計算'.

'c137_501:f(x)=e^{-x} cos(2πx) その関数を用いて0≦x≦3の間で0.1刻みで計算' :-
　　　　M is truncate((3 - 0) / 0.1),
　　　　for(0,N,M),
　　　　_x is N * 0.1,
　　　　Y is exp(1) ^ (-1 * _x) * cos(2 * pi * _x),
　　　　write_formatted('%t\n',[Y]),
　　　　N = M .