VPF::ошибка! stackow! - Форум программистов

molodzo

Дата 2.3.2009, 18:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 18.11.2007

Репутация: нет
Всего: нет

Возникает ошибка:
ERROR 202: Stack overflow error!!!
А как исправить - не знаю...

Вот код:

Код


Var p3,x,x2,sum1,sum2,sravn,p4,p5,p6,p7,p8:real;
    k,p,ch,p2,znam,znam1:integer;

function factorial(n:integer):integer;
   begin
      if n<=1 then factorial:=1
      else factorial:=n*factorial(n-1);
   end;

function stepen(a,n:real):real;
   begin
      if n=0 then stepen:=1
      else stepen:=a*stepen(a,n-1);
   end;

BEGIN
k:=-1;
x2:=stepen(1/10,15);
repeat
      x:=-1/4;
      k:=k+1;
      p:=4*k+1;
      ch:=factorial(p);
      p2:=2*k;
      znam:=factorial(p2);
      znam1:=znam*znam;
         repeat
            x:=x+x2;
            if (2*k>=0) then p3:=(stepen(x,2*k))
            else p3:=(1/stepen(x,abs(2*k)));
            sum1:=ch/znam1*p3;

            p4:=1-4*x;
            p5:=(1/stepen(p4,3/2));
            p6:=1+4*x;
            p7:=(1/stepen(p6,3/2));
            p8:=p5+p7;
            sum2:=1/2*p8;
            sravn:=stepen(1/10,15);
         until ((x>=1/4) or (abs(sum1-sum2)<sravn));
         if(abs(sum1-sum2)<sravn) then
            begin
               writeln('Sum1=',sum1);
               writeln('Sum2=',sum2);
               writeln('K=',k);
               break;
            end
         else continue;
until(abs(sum1-sum2)<sravn);
END.

Это сообщение отредактировал(а) molodzo - 2.3.2009, 18:02

Metalex

Дата 2.3.2009, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Эта ошибка означает, что стек переполнен. Возможно, в рекурсии участвуют очень большие числа.

--------------------

Don't let the system get you down.

molodzo

Дата 3.3.2009, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 18.11.2007

Репутация: нет
Всего: нет

Ну в принципе - это понятно... А как можно избавиться от переполнения стека?

MetalFan

Дата 3.3.2009, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128

Цитата(molodzo @ 3.3.2009, 09:35

)

как можно избавиться от переполнения стека?

Цитата(Metalex @ 2.3.2009, 23:26

)

в рекурсии участвуют очень большие числа

логично, что не допускать до рекурсии большие числа? smile

--------------------

There are always someone smarter than you...

volvo877

Дата 3.3.2009, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(molodzo @ 2.3.2009, 17:01

)

А как исправить - не знаю...

Не пользоваться рекурсией при вычислении дробных степеней. Потому как при попытке

Код

writeln(stepen(1.5, 12/5));

показатель степени будет равен последовательно

Код

(11) STEPEN (A=1.5, N=-2.6000000000000001)
(11) STEPEN (A=1.5, N=-1.6000000000000001)
(11) STEPEN (A=1.5, N=-0.60000000000000009)
(11) STEPEN (A=1.5, N=0.39999999999999991)
(11) STEPEN (A=1.5, N=1.3999999999999999)
(11) STEPEN (A=1.5, N=2.3999999999999999)
(15) main ()

(содержимое Call Stack), и будет уменьшаться и дальше. Но НУЛЮ равным не станет. Рекурсивный подход допустим для целых показателей степени, но не для дробных...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »