|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
15.03.2018, 21:15 | #1 (permalink) |
Новичок
Регистрация: 15.03.2018
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Разложение в ряд в Pascal
Вот мои тщетные попытки,уже не соображаю,если честно.Заранее спасибо. Program bulbul; var N:array [0..100] of double; d:array [0..100] of double; i:integer;x:double; Const e=0.001; function f(x:double):double; begin i:=0; while d[i]<=e do begin N[0]:=x; N[1]:=-exp(ln(x)*3)/6; d[i]:=N[i]/N[i-1]; result:=d[i]*N[i-1]; end; end; Var y:double; begin while d[i]<=e do begin y:=f(x); end; writeln(y); end. |
15.03.2018, 21:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка в похожих топиках вы найдете много полезной для себя информации Чтение данных из файла. Free Pascal - Free Pascal LU-разложение Pascal Разложение музыки на составляющие Разложение функции Y в ряд S |
16.03.2018, 10:42 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да пожалуйста — ничего сложного. Разбирайтесь, спрашивайте...
Код:
Program bulbul; Const A=3.0; Var i:integer; z,Step:double; function Sum(x:double):double; var S,B_old,B_new,Eps:double; N:Integer; begin B_old:=x; S:=B_old; N:=0; Repeat Inc(N); B_new:=-B_old*x*x/(2*N*(2*N+1)); S:=S+B_new; Eps:=Abs(B_old-B_new); B_old:=B_new; Until (1+Eps)=1; Sum:=S; end; Begin Step:=A/20; for i:=0 to 20 do begin z:=Step*i; Writeln(z:4:2,' ',Sum(z),' ',Sin(z)); end; Readln; End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|