Важная информация
Показано с 1 по 6 из 6

Тема: Товарищи программисты, помогите с заданием!

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


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

    Pascal Code:
    1.  
    2. uses crt;
    3. var
    4. s,x,num,denum,d,r,eps:real;
    5. i,sgn:shortint;
    6. begin
    7. clrscr;
    8. x:=0.2;
    9. eps;=0.0001;
    10. s:=0;
    11. i:=0;
    12. sgn:=-1;
    13. num:=1;
    14. demum:=2;
    15. d:=1;
    16.  
    17. repeat
    18. num:num*(2*x)*(2*x);
    19. denum:=d*(denum-1)*denum;
    20. d:=denum;
    21. r:=num/denum;
    22. s:=s+sgn*r;
    23. i:=i+1;
    24. writeln(i,': ', s:5:5);
    25. sgn:=-sgn;
    26. denum:=denum+2;
    27. until r<eps;
    28. write('end');
    29. readkey;
    30. end.
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    трассировка по х от 0.2 до 0.5 с шагом 0.1
    Pascal Code:
    1. uses crt;
    2. var
    3. s,x,num,denum,d,r,eps:real;
    4. i,sgn:shortint;
    5.  
    6. begin
    7. clrscr;
    8. x:=0.2;
    9. eps:=0.0001;
    10. s:=0;
    11. i:=0;
    12. sgn:=-1;
    13. num:=1;
    14. demum:=2;
    15. d:=1;
    16. {трассировка по х с шагом 0.1}
    17. while x<0.5 do
    18.   begin
    19.      repeat
    20.         num:=num*(2*x)*(2*x);
    21.        denum:=d*(denum-1)*denum;
    22.        d:=denum;
    23.        r:=num/denum;
    24.        s:=s+sgn*r;
    25.        i:=i+1;
    26.        writeln(i,': ', s:5:4);
    27.        sgn:=-sgn;
    28.        denum:=denum+2;
    29.     until r<eps;
    30.     writeln('end х=', х:5:4);
    31.     x:=x+0.1;
    32.   end;
    33. readkey;
    34. end.
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    забыл обнулить переменные )))
    Pascal Code:
    1. uses crt;
    2. var
    3. s,x,num,denum,d,r,eps:real;
    4. i,sgn:shortint;
    5.  
    6. begin
    7. clrscr;
    8. x:=0.2;
    9. eps:=0.0001;
    10. s:=0;
    11. i:=0;
    12. sgn:=-1;
    13. num:=1;
    14. demum:=2;
    15. d:=1;
    16. {трассировка по х с шагом 0.1}
    17. while x<0.5 do
    18.   begin
    19.     eps:=0.0001;
    20.     s:=0;
    21.     i:=0;
    22.     sgn:=-1;
    23.     num:=1;
    24.     denum:=2;
    25.     d:=1;
    26.  
    27.      repeat
    28.         num:=num*(2*x)*(2*x);
    29.        denum:=d*(denum-1)*denum;
    30.        d:=denum;
    31.        r:=num/denum;
    32.        s:=s+sgn*r;
    33.        i:=i+1;
    34.        writeln(i,': ', s:5:4);
    35.        sgn:=-sgn;
    36.        denum:=denum+2;
    37.     until r<eps;
    38.     writeln('end х=', х:5:4);
    39.     x:=x+0.1;
    40.   end;
    41. readkey;
    42. end.
    Ответить с цитированием  
     

  4. Пользователь сказал cпасибо:

    1N4001 (11.11.2014)

  5. #4  
    Новичок
    Регистрация
    11.11.2014
    Сообщений
    2
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях
    Спасибо. Я уже делал вывод трассировочной таблицы, в самой программе внутри цикла, но, препод сказал, что нужно начертить эту таблицу отдельно(как и блок-схему) и записать туда значения переменных, после каждого цикла. Он препод опытный, знает как выносить студентам мозг.

    Должно быть что-то наподобие этого.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  6. #5  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    а самому слабо?
    блок схему на сколько я помню ручкой в тетрадке рисуют.
    таблицу можно и в цикле.
    можно использовать функцию gotoxy.
    можно и в графическом режиме нарисовать.
    можно все еж ли захотеть.
    Ответить с цитированием  
     

  7. #6  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    промежутки в таблице сам поправишь


    Pascal Code:
    1. uses crt;
    2.  
    3. var
    4. s,x,num,denum,d,r,eps:real;
    5.  
    6. i,sgn:shortint;
    7.  
    8.  
    9. begin
    10.  
    11. clrscr;
    12.  
    13. x:=0.2;
    14.  
    15. eps:=0.0001;
    16.  
    17. writeln('таблица');
    18. writeln('--------------------------------------------');
    19. writeln('|  x   |  i   |  s    | num | denum |  d  |  r  | sgn |');
    20. writeln('--------------------------------------------');
    21. {трассировка по х с шагом 0.1}
    22.  
    23. while x<0.5 do
    24.  
    25.   begin
    26.  
    27.     s:=0;
    28.  
    29.     i:=0;
    30.  
    31.     sgn:=-1;
    32.  
    33.     num:=1;
    34.  
    35.     denum:=2;
    36.  
    37.     d:=1;
    38.  
    39.    writeln();
    40.  
    41.      repeat
    42.  
    43.         num:=num*(2*x)*(2*x);
    44.  
    45.        denum:=d*(denum-1)*denum;
    46.        d:=denum;
    47.  
    48.        r:=num/denum;
    49.  
    50.        s:=s+sgn*r;
    51.  
    52.        i:=i+1;
    53.  
    54.        write ('|',x:3:1);
    55.        write (' |',i:3);
    56.        write (' |',s:5:3);
    57.        write (' |',num:5:3);
    58.        write (' |',denum:5:3);
    59.        write (' |',d:5:3);
    60.        write (' |',r:5:3);
    61.        write (' |',sgn:5:3);
    62.        writeln (' |');
    63.       
    64.  
    65.        sgn:=-sgn;
    66.  
    67.        denum:=denum+2;
    68.  
    69.     until r<eps;
    70.  
    71.     writeln('--------------------------------------------');
    72.   
    73.     x:=x+0.1;
    74.  
    75.   end;
    76.  
    77. readkey;
    78.  
    79. end.
    [/QUOTE]
    Ответить с цитированием  
     

  8. Пользователь сказал cпасибо:

    Абадябер (13.11.2014)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Уважаемые господа программисты!
    от Liquid Paper в разделе Флейм
    Ответов: 6
    Последнее сообщение: 19.05.2014, 20:14
  2. Помогите с заданием
    от Русский в разделе Другие языки программирования
    Ответов: 21
    Последнее сообщение: 21.02.2013, 18:13
  3. 256ой день. Ура, товарищи!
    от Dispetcher14 в разделе Новости
    Ответов: 4
    Последнее сообщение: 13.09.2012, 04:11
  4. Ответов: 1
    Последнее сообщение: 04.02.2012, 19:41
  5. Требуются программисты 1С
    от zabavnicov в разделе Архив
    Ответов: 0
    Последнее сообщение: 25.03.2011, 12:01
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •