Ошибка 207 в рекурсивной функции

@MadVombat · Регистрация: 25.04.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Волею судеб пришлось вспоминать Паскаль в свои преклонные годы. Вот такая примитивная задача: Найти сумму членов ряда 1\(i*i), где i от 1 до n.

Все это дело вылилось в такой код:

Pascal

program test;
uses crt;
var
   n: byte;
   sum: real;
 
[I]function summ(n: byte): real;
begin
    if n=1 then summ:=1 else
        summ:=(1/(n*n))+summ(n-1);
end;[/I]
 
begin
     clrscr;
     sum:= 0;
     readln(n);
     
     sum:=summ(n);
     writeln(sum);
     readln;
end.

Собственно, саму функцию выделил курсивом. Самое интересное, что она все считает правильно, но только до n=8, начиная с 9 выдает ошибку 207 операции с плавающей точкой. Не понимаю почему так? Подскажите, плс, в чем дело? Заранее преогромно благодарен!

@Puporev · 25.04.2014, 10:04

В данном случае ошибка 207 вызвана переполнением стека сопроцессора.
Это преодолевают так

Pascal

program test;
uses crt;
var n: byte;
    sum: real;
 
function summ(n: byte): real;
var t:real;{переменная для хранения предыдущего результата}
begin
if n=1 then summ:=1 else
 begin
  t:=summ(n-1);{запоминаем, очишаем стек}
  summ:=(1/(n*n))+t;
 end;
end;
 
begin
clrscr;
readln(n);
sum:=summ(n);
writeln(sum:0:8);
readln;
end.

@MadVombat · 25.04.2014, 10:18 **[ТС]**

Спасибо! Я правильно понимаю - функция ведь осталась рекурсивной? А мой первоначальный вариант является ошибочным? Делал согласно теории по учебникам. Я могу, например, написать его в качестве ответа, но дополнить Вашим вариантом как более жизнеспособным?

@Puporev · 25.04.2014, 10:21

Функция осталась рекурсивной, а Ваш вариант в принципе верный, не во всех функциях происходит переполнение стека.

@MadVombat · 25.04.2014, 10:23 **[ТС]**

Еще раз спасибо! Очень помогли и прояснили ситуацию.

@MadVombat 0 / 0 / 0 Регистрация: 25.04.2014 Сообщений: 7
	25.04.2014, 10:18 [ТС]	3
	Спасибо! Я правильно понимаю - функция ведь осталась рекурсивной? А мой первоначальный вариант является ошибочным? Делал согласно теории по учебникам. Я могу, например, написать его в качестве ответа, но дополнить Вашим вариантом как более жизнеспособным? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	25.04.2014, 10:21	4
	Функция осталась рекурсивной, а Ваш вариант в принципе верный, не во всех функциях происходит переполнение стека. 0

@MadVombat 0 / 0 / 0 Регистрация: 25.04.2014 Сообщений: 7
	25.04.2014, 10:23 [ТС]	5
	Еще раз спасибо! Очень помогли и прояснили ситуацию. 0

Опции темы

Ошибка 207 в рекурсивной функции

Решение