Трассировочная Таблица, Для Проверки Кода.

1N4001

New Member
11.11.2014
1
0
#1
Нужно было сделать задачу на паскале. Вот условие: вычислить сумму ряда при x=0.2 с точностью е=10^-4
s=-(2x)^2/2+(2x)^4/24+...+(-1)^n* (2x)^2n/(2n)!+..
Короче, программу я написал, но, препод сказал сделать трассировочную таблицу, для проверки этой программы. Понятия не имею как составить такую таблицу. Помогите пожалуйста!

Код программы:

Код:
uses crt;
var
s,x,num,denum,d,r,eps:real;
i,sgn:shortint;
begin
clrscr;
x:=0.2;
eps;=0.0001;
s:=0;
i:=0;
sgn:=-1;
num:=1;
demum:=2;
d:=1;

repeat
num:num*(2*x)*(2*x);
denum:=d*(denum-1)*denum;
d:=denum;
r:=num/denum;
s:=s+sgn*r;
i:=i+1;
writeln(i,': ', s:5:5);
sgn:=-sgn;
denum:=denum+2;
until r<eps;
write('end');
readkey;
end.