Developing.ru

Код: Выделить всё

begin
     n:=0;
     sum:=0;
     while ((exp((2*n+1)*ln(x)))/fact)>limit do
     begin
	fact:=1;
	k:=2*n+1;
	for I:=1 to k do
	begin
	  fact:=fact*i;
	end;
	if(n mod 2) = 0
	then sum:=sum+((exp((2*n+1)*ln(x)))/fact)
	else
	begin
	  sum:=sum-((exp((2*n+1)*ln(x)))/fact)
	end;
	n:=n+1;
     end;
  kur:=sum;
  end;
begin
	clrscr;
	write('Введите значение Х_1 -');
	readln(x);
	writeln ('Ситемная функция sin='',sin(x):5:4:);
	writeln ('Мой синус = ',kur(x):5:4:);
	writeln('////////////////////////////////////////////////////////');
	write('Введите значение Х_2');
	writeln ('Ситемная функция sin='',sin(x):5:4:);
	writeln ('Мой синус = ',kur(x):5:4:);
	readln;
end.