Циклические программы. Вычисления с заданной точностью

[andriy1048]

Задано действительны величины x, a, e (x <> 0, а <> 0, e> 0). Разработать программу,
вычисляющую значение суммы из заданной точностью e и указывает количество
учтенных слагаемых.

[Stilet]

Твои попытки увидеть мона?

[Bugrimov]

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

Твои попытки увидеть мона?

Судя по молчанию... попыток не было.

[andriy1048]

Помогите пожалуйста!

[Bugrimov]

Язык программирования какой?

[andriy1048]

на Delphi нужно

[Bugrimov]

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

на Delphi нужно

Тут я бессилен

[andriy1048]

очень жаль

[newerow1989]

function step(chislo:integer;stepen:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=1 to stepen do
      Result:=Result*chislo;
end;

function fact(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

const e=0.00001;
      a=2;
      x=3;
var k:integer;
    s,ss:real;
begin
   s:=0;
   k:=0;
   Repeat
      k:=k+1;
      ss:=Sin(Step(x,k))/Step(a,2*k)/fact(2*k);
      s:=s+ss;
   Until ss<e;
   Writeln(s:5:8);
   Readln;
end.

Сойдет?

[andriy1048]

Извините, а в форме как прога запишется? Я в програмированию слабый, это моей девушке нужно