Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Stack Overflow !

Автор: MyNameIs 29.01.2007 21:14

Вот тест программы:

 unit mod5;
interface
uses crt, graph;
procedure polindr;

implementation
procedure polindr;
var d,m:integer;
nn:char;
nnn:boolean;
a:array [1..100] of integer;
b:array [1..100] of integer;
cc:array [1..100] of real;
e:array [1..100] of string;
c:string;
i,n:integer;
j:real;
s:string;
x,y:integer;
begin
x:=200;y:=200;
nnn:=false;
{d:=detect;
m:=0;
initgraph (d,m,'c:\worker\pascal\bgi');}
i:=1;
n:=0;

{init}
for i:=1 to 100 do
a[i]:=i;

{vozvedenie v kvadrat}
for i:=1 to 100 do
b[i]:=a[i]*a[i];

{yslovie}
for i:=1 to 100 do
begin
str(b[i],c);
if length©=1 then e[i]:=c;
if (length©=2) and (c[1]=c[2]) then e[i]:=c;
if (length©=3) and (c[1]=c[3]) then e[i]:=c;
if (length©=4) and (c[1]=c[4]) and (c[2]=c[3]) then e[i]:=c;
end;

{stroka-chislo}
for i:=1 to 100 do
begin
val(e[i],a[i],n);
if a[i]<>0 then cc[i]:=sqrt(a[i]);
end;

{init}
for i:=1 to 100 do
begin
if cc[i]<>0 then begin
str(cc[i]1.gif0,e[i]);
outtextxy(x,y,e[i]);
end;
end;

readkey;
end;
end.


Если прогу запускать не в модуле, то всё работает. А в модуле вылетает ошибка 'STACK OVERFLOW ERROR'. Как я понял, это переполняются стеки. Попробовал изменять размеры массивов. Ошибка исчезает, только при изменении размерности массива типа STRING e. Что делать, мне нужна размерность не меньше 100 :-(((

Автор: volvo 29.01.2007 21:26

Либо выноси этот массив из локального в глобальный для модуля (если он будет в разделе Implementation, то доступа к нему ИЗВНЕ не будет, а вести себя он будет так же, как и то, что у тебя сейчас),

либо Options -> Memory Sizes попробуй увеличить Stack Size до 64000, например... Хотя для модулей это может не сработать, так же как {$M 64000, 0, 0} не работает...

Автор: MyNameIs 29.01.2007 22:28

Спасибо, я просто перенёс в раздел Interface в пункт Var. Вы это имели ввиду?

Автор: volvo 29.01.2007 22:47

Зачем в Interface? Теперь этот массив будет доступен из основной программы... Я имел в виду перенести в Var раздела Implementation, только перед реализацией самой процедуры...