Process is terminated due to StackOverflowException [PacscalABC]

[artems67]

Добрый день,

Дали задание составить програмный комплекс по ТЗ. Комплекс состоит из 4-х подпрограмм (4 задания) + в теле программы меню выбора заданий с помощью ввода номера задания пользователем.

Соответственно в зависимости от номера выполняется та или иная программа.

С проблемой столкнулся в задание №3 (3 подпрограмма-функция, в коде они идут по порядку). А именно по ТЗ к 3 заданию нужно:




Собственно когда через меню вызываю 3 подпрограмму. Выскакивает ошибка: Process is terminated due to StackOverflowException и программа просто вылетает.

Тестил на FreePascal там значение выводится без ошибок, хоть оно и очень огромное получается. А в PascalABC ругается. Может кто помочь разобраться в чем причина ?

Кусок кода с подпрограммой:

function P:real; {Задание №3}
// Описание: Находит произведение ряда от x=2 до 10*N
 var f:real;
     x,N:integer;
 begin
    N:=1; P:=1;
    for x:=2 to 10*N do {Диапозон ряда произведения}
      begin
        f:=exp(ln(12)*(x*cos(x)))-sqr(x)+sin(x)/n; {Вычисляет выражение}
        P:=P*f; {Произведение ряда}
      end;
 end;

Код программы:

function f_x:real; {Задание №1}
// Описание: Вычисляет выражение f(x)
  var  x,n:real; 
  begin
    n:=1;
    write('x= ');
    Repeat  {Блок проверки корректного ввода данных}
      readln(s);
      Val(s, x, Code); 
      if  Code <> 0 then
        Write('Некорректный ввод. Повторите: ');
    Until Code = 0;
    f_x:= exp(ln(12)*(x*cos(x)))-sqr(x)+sin(x)/n; {Вычисление функции f(x)}
  end;

function y:real; {Задание №2}
// Описание: Вычисляет 1 из 2-х выражений f(x) в зависимости от условия
  var x:real;
      N:integer;
  begin
    N:=1;
    write('x= '); {Ввод переменной х}
    Repeat  {Блок проверки корректного ввода данных}
      readln(s);
      Val(s, x, Code); 
      if  Code <> 0 then
        Write('Некорректный ввод. Повторите: ');
    Until Code = 0;  
    if x < exp(0.1*n) then y:=(exp(ln(3)*x) - sqr(x) + sin(x))/ n
     else y:=x*sin(exp(ln(x)*n)); {Проверка условия ТЗ}
  end;
  
function P:real; {Задание №3}
// Описание: Находит произведение ряда от x=2 до 10*N
 var f:real;
     x,N:integer;
 begin
    N:=1; P:=1;
    for x:=2 to 10*N do {Диапозон ряда произведения}
      begin
        f:=exp(ln(12)*(x*cos(x)))-sqr(x)+sin(x)/n; {Вычисляет выражение}
        P:=P*f; {Произведение ряда}
      end;
 end;

Procedure mas; {Задание №4}
// Описание: В матрице A размером n*n меняет местами максимальный и минимальный элементы 
 var a:array [1..15,1..15] of real;
     max,min:real;
     i,j,n:integer;
begin
  write('n= '); {Задается размер массива}
  Repeat  {Блок проверки корректного ввода данных}
    readln(s);
    Val(s, n, Code); 
    if  Code <> 0 then
      Write('Некорректный ввод. Повторите: ');
  Until Code = 0;  
  writeln; writeln('Массив:');
  for i:=1 to n do
    for j:=1 to n do
      begin
        a[i,j]:=i*j*sin(0.5*i*j); {Автоматичесое заполнение массива согласно формуле}
        write(' ',a[i,j]:2:2,' '); {Вывод исходного массива}
        if j mod n = 0 then writeln;
      end;
  max:=a[1,1]; min:=a[1,1];   
  for i:=1 to n do
    for j:=1 to n do  
      begin
        if max < a[i,j] then max:=a[i,j] {Поиск max элемента}
          else if min > a[i,j] then min:=a[i,j]; {Поиск min элемента}
      end;
  writeln; 
  writeln('max= ',max:2:2,' ','min= ',min:2:2); {Промежуточный контроль max и min элемента}
  writeln; writeln('Новый массив: ');
  for i:=1 to n do 
    for j:=1 to n do
      begin
        if max = a[i,j] then a[i,j]:=min {Замена максимального элемента}
          else if min = a[i,j] then a[i,j]:=max; {Замена минимального элемента}
        write(' ',a[i,j]:2:2,' '); {Вывод нового массива}
        if j mod n = 0 then writeln;
      end;  
  end;
    
begin
clrscr;

writeln('Меню выбора заданий: '); {Блок выбора заданий}
writeln('1 - Задание 1');
writeln('2 - Задание 2'); 
writeln('3 - Задание 3');
writeln('4 - Задание 4');
writeln; write('Введите номер задания: ');
 readln(t); writeln; clrscr;
 
case t of {Выбор подпрограммы согласно номеру задания}
1:writeln('Ответ: f(x)= ', f_x:2:2);
2:writeln('Ответ: y= ',y:2:2);
3:writeln('Ответ: P= ',P:2:2);
4:mas()
else writeln('Ошибка! Некорректный ввод!');
end;

readln;
end.

[ViktorR]

Подозреваю, что ошибка тут:

    P:=P*f; {Произведение ряда}

Имя функции присутствует в правой части.
Опиши отдельную переменную, например Proizvedenie
Выполни операции с ней.
При выходе из п/п: P := Proizvedenie.
А так получается рекурсивный вызов.


Как-то так, ...

[artems67]

ViktorR, Вы правы. Спасибо, теперь всё работает.