паскаль

[JUDAS]

program idKate167446;

  function fact(value : integer):integer;
  var i : integer;
  begin
    result:=1;
    for i:=1 to value do
    result:=result*i;
  end;

var r,x,e,dx : real;
    n,i,K    : integer;
begin
 write('Введите значение '); readln(x);
 repeat
  write('Введите точность вычислений больше 0 и не более 0.1 e=');
  readln(e);
 until(e>0)and(e<=0.1);
 i:=0;
 r:=0;
 repeat
  K:=i*2+1;
  dx:=exp(K*ln(x))/fact(K);
  case i mod 2 of
   0: r:=r+dx;
   1: r:=r-dx;
  end;
  inc(i);
 until Abs(dx)<=e;
 dx:=sin(x);
 writeln('При точности eps=',e:0:6,' sin(',x:0:2,')=',r:0:6,' аналитически=',dx:0:6);
 readln
end.

[Asinkrit]

Сообщение от JUDAS

Они ищут поживы на таких как Вы. Пишите им в ответ, а чего ожидали Вы? НА ветке форума "помощь студенту" заработать лишних пару соток? а устроится на должность программера слабо? )))

Зря вы так, во первых помогая таким люди как Екатерина, вы способствуете развитию безграмотности, во вторых, вы отбираете возможность заработать у людей, которым еще рано на работу, но которые вполне могут справиться с подобными задачами. В третьих, вы еще возможно не поняли, что большинство людей, оставляющих здесь свои задачи, это неумелые малолетние спецы, которые зарабатывают выдавая вашу помощь за свою своим сокурсникам. Ну и в четвертых, если смотреть на качество вашего кода, то до хорошего программиста вам еще далеко, поэтому это заблуждение, что вы оказываете помощь, наоборот, вы распространяете свою безграмотность.