|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
помогите с кодом пжлста!!
Народ, нужен код для этой задачи, от нее зависит судьба зачетааа:
Вычислить сумму ряда с точностью E(eps), сравнить полученное значение со значением косинуса в точке x cos(x)=1-x^2/2!+x^4/4!-x^6/6!+.... За ранее больое спасибо |
#2
|
|||
|
|||
Перенесено в "Код на шару".
|
#3
|
||||
|
||||
Код:
function myfact(n: integer): integer; begin if n <= 1 then Result := 1; if n > 1 then Result := n * myfact(n - 1); end; function myPower(a, b: real): real; begin Result := exp(b * ln(a)); end; function mycos(c: real; it: integer): real; var i: byte; begin Result := 1; for i := 1 to it do begin if (i mod 2) = 1 then Result := Result - (myPower(c, i*2) / myfact(i*2)); if (i mod 2) = 0 then Result := Result + (myPower(c, i*2) / myfact(i*2)); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FloatToStr(cos(3.14/2)); Label2.Caption := FloatToStr(mycos(3.14/2,5)); end; Некогда объяснять. Писал на коленке. devision by zero ... ожидаемо |