Сумма ряда Опции

[zx1024]

Она не вылетает. Она заканчивает свою работу и закрывает окно.
Поставь в конце readln

[Wert]

Поставил, а он выделил как ошибку...
Где именно поставить, и что именно поставить?
"readln;" прямо перед "end." ???

[Wert]

АААААААААААААААААААААААААААААА!!!!!!
С П А С И Б О ! ! !
В С Е Р А Б О Т А Е Т ! ! !
ОГРОМНОЕ СПАСИБО ВСЕМ ЗА ПОМОЩЬ И ПОДДЕРЖКУ!!!!!!!!!!!!!!!!

[Wert]

Чувствую, что нагло испытываю ваше терпение, посему на этот пост можете не отвечать...
Нам задавали 2 проги...
Вторую надо сделать в оконном варианте...
Вот задание для нее:

Решить методом Ньютона (В качестве первого приближения взять значение примерно на 50% отличающееся от приближенного значения корня) и секущих:
x*tg x - 1/3 = 0
x ~=~ 0,5472
Вобщем это наверное уже наглость, так что можете меня послать...
Но если найдется время помогите плиз...

[Amro]

zx1024 volvo Зацените!!!!
А что если так сделать!!!

program wert;

const
 eps = 0.0001;
 a = 0.0; b = 1.0;

var
 x, s, An : real;
 fac,n: integer;

function f(k:integer):longint;
begin
  if k = 1 then f := 1 else f := k * f(k-1);
end;

begin
 writeln('input x [',a:1:1,', ',b:1:1, ']');
 readln(x);
 n:=1;
 s := 0;
 repeat
   fac:=(2*n+1);
   An := exp((2*n+1)*ln(x))/f(fac);
   s := s + An;
   inc(n);
 until An < eps;

 writeln( 's = ', s:12:7 );
end. 

[volvo]

Amro

 repeat
  fac:=(2*n+1);
  An := exp((2*n+1)*ln(x))/f(fac);
  s := s + An;
  inc(n);
until An < eps;

делаешь лишнее действие. Тогда уже так:

 repeat
  fac:=(2*n+1);
  An := exp((fac)*ln(x))/f(fac);
  s := s + An;
  inc(n);
until An < eps;

:P

[Amro]

volvo Да верно подмечено!!! А сам вариант как???

[volvo]

Amro

Вообще красиво смотрится. Но рекурсия... А если число итераций увеличится?

[Amro]

А если число итераций увеличится?

Согласен, тагды работать не будет!!! Значит через процедуру сделаем
Ладно пойду спать!!! Пока ....

[volvo]

Amro

s := 0;

надо заменить на

s := x;

[Amro]

Код s := 0;
надо заменить на
Код s := x;

Можно и заменить, у него просто ряд интересный!!! А можно заменить и так:
вместо

n:=1;

так

n:=0;

[Wert]

Подскажите плиз!
Как в Делфи обозначается тангенс???
Пишу cos - понимает, что это такое, пишу tg, tan или tang - выделяет как ошибку!
Подскажите, срочно надо...

[Altair]

а слабо написать sin\cos ?

[Wert]

Блин, и се я сам не догадался!
СПАСИБО!