1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем 1N4001, 11 ноя 2014.

  1. 1N4001

    1N4001 New Member

    Репутация:
    0
    Регистрация:
    11 ноя 2014
    Сообщения:
    1
    Симпатии:
    0
    Нужно было сделать задачу на паскале. Вот условие: вычислить сумму ряда при 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.
     
Загрузка...

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