Циклические алгоритмы

@Anzhelaaa · Регистрация: 03.04.2018

Студворк — интернет-сервис помощи студентам

Пожалууйстааа

@Puporev · 03.04.2018, 14:27

Если нужно как в этой теме
Циклический алгоритм
то измените константы и функции.

Delphi

const xn=0.1;
      xk=0.7;
      h=0.1;
      e=0.001;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function y(x:double):double;
begin
y:=(1+2*x*x)*exp(x*x);
end;
function s(x:double;var i:integer):double;
var t:real;
begin
i:=0;
t:=1;
result:=t;
repeat
inc(i);
t:=t*x*x/i;
result:=result+t*(2*i+1);
until abs(t)*(2*i+1)<e;
end;

@Anzhelaaa 0 / 0 / 0 Регистрация: 03.04.2018 Сообщений: 32
		1
	Циклические алгоритмы 03.04.2018, 13:55. Показов 1267. Ответов 1 Метки нет (Все метки) Пожалууйстааа Миниатюры 0

	03.04.2018, 14:27

Опции темы

Циклические алгоритмы

Решение