Cоставте программу нахождения суммы бесконечного ряда с заданной точностью на Turbo Basic

[Fayst85]

у меня получилось так,но почему то не работает.
Подправьте пожалуйста умные люди


INPUT "X=" , X
INPUT "E=" , E
S=0
PI=3.14
FOR I=1 TO N STEP E
N=I+E
SUM=(X^I*COS(I)*(PI/3))/I
SUM=S+SUM
PRINT "S=" , SUM
NEXT I
END

[digitalis]

Эээх, товарисч...
N не определено, STEP E - это вообще БСК *
Нужно задаться большим N (всё равно раньше вывалимся из цикла по условию), каждый раз запоминаить результат предыдущего и вычислять разность посдеднего расчёта и предыдущего. Если эта разность по абс. величине < e - всё, приплыли, получите результат.
Если не докумекаешь, завтра накорябаю на Дельфи, перепрёшь на Бесик сам, бо я его забыл ещё в прошлом тысячелетии.
----------------------------------------
* БСК - Бред Сивой Кобылы

[Fayst85]

input "x=" , x
input "e=" ,e
s=0
i=1
pi=3.14
do
s=sum
i=i+e
sum=s+(x^i*cos(i)*(pi/3))/i
loop until abs (sum-s)<e
print "s=",sum
end

[Fayst85]

Вот такое сегодня состряпал перековыряв инет,ошибку 6 показывает,переполнение.
Думаю надо что то подправить,может что лишнее написал.

[digitalis]

.....ть !
опять всё та же фигня : i=i+e - сложение зайцев с экскаваторами.
s=sum, а sum не определена .
Вот как это выглядит по уму. Логика ясна, а на Трубо Бесик сам перепрёшь. Вместо BREAK будет GOTO за пределы цикла.

  sum := 0 ;
  pi3 := pi/3.0 ;
  x1 := 1 ;
  pre := 0 ;
  for i := 1 to 20 do
    begin
      x1 := x1*x ;
      cp := Cos (pi3*i) ;
      sum := sum + x1 * cp  / i ;
      Memo1.Lines.Add(Format('%2d %12.9f %12.9f %12.9f',[i,x1,cp,sum])) ;   это вывод на каждом шаге.
      d := sum - pre ;
      pre := sum ;
      if (Abs(d) < 0.00001) then Break ;
    end ;

И на 7-м шаге получили то что надо.

[Fayst85]

вместо (sum-s) оставил просто s,вроде как показал вполне сносный результат

[digitalis]

А в чём его "сносность" ? Если в том, что он хоть какой-то "результат" выдаёт- неважно, что неправильный - то трындец. Нет слов, одни выражения.
Тебе же показали нормальный код, точный результат - и не изменил ни строчки в своём опусе !
Желаю успеха.
Но за i = i + e нужно прилюдно на площади сечь розгами. Такое впечатление, что тискаешь клавиши, даже минимально не вникая в смысл.
Всё, я умываю руки. Глухой не тот, у кого ослаблен слух, а кто не желает слышать.