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

Тема в разделе "Pascal and Delphi", создана пользователем 1N4001, 11 ноя 2014.

  1. 1N4001

    1N4001 New Member

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

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

    Код (Delphi):
    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.
     
Загрузка...
Похожие Темы - Трассировочная Таблица Для
  1. garrick
    Ответов:
    5
    Просмотров:
    114
  2. Shouldercannon
    Ответов:
    0
    Просмотров:
    306
  3. AvasKvas
    Ответов:
    7
    Просмотров:
    1.064
  4. Xario
    Ответов:
    0
    Просмотров:
    1.212
  5. CaptainBob
    Ответов:
    6
    Просмотров:
    1.601

Поделиться этой страницей