|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.12.2013, 14:37 | #1 |
Регистрация: 27.11.2013
Сообщений: 8
|
Вычисление с точностью.
Помогите написать программу. (Картинка, там вводится ещё n, т.к. в условии забыли написать)
У меня есть программа, но препод пригнорил её. Помогите исправить или может есть у кого какие варианты? var n,c,b,k,f,e,a:integer; p,x,s,z,eps:real; begin read(n); read(x); read(eps); c:=1; e:=n; z:=x/2; s:=0; p:=1; k:=-1; f:=n; while n>1 do begin c:=c*(n*(n-1)); n:=n-2; end; while e>1 do begin z:=z*x/2; e:=e-1; end; while abs(p)>eps do begin k:=k+1; if (k=0) or (k=1) then b:=1 else b:=b*k; if k<>0 then begin z:=z*x*x/4; c:=c*(k+f); end; if k mod 2=0 then a:=1 else a:=-1; p:=p*(a/(b*c))*z; s:=s+p; end; Write(s); end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вычисление с заданной точностью | CkooTuHa | Помощь студентам | 0 | 13.12.2013 05:47 |
Вычисление суммы ряда с точностью | East Undia Trading | Помощь студентам | 3 | 17.11.2013 11:20 |
Вычисление с указанной точностью(Pascal) | Nesscafe | Помощь студентам | 4 | 28.12.2010 04:13 |
Вычисление рядов заданной точностью | Neutron37 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 29.09.2010 20:14 |
Вычисление числа e, Pi с заданной точностью | MrakSPb | Общие вопросы C/C++ | 3 | 12.05.2010 12:51 |