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(c)=1 then e[i]:=c;
if (length(c)=2) and (c[1]=c[2]) then e[i]:=c;
if (length(c)=3) and (c[1]=c[3]) then e[i]:=c;
if (length(c)=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]
0,e[i]);
outtextxy(x,y,e[i]);
end;
end;
readkey;
end;
end.
Если прогу запускать не в модуле, то всё работает. А в модуле вылетает ошибка 'STACK OVERFLOW ERROR'. Как я понял, это переполняются стеки. Попробовал изменять размеры массивов. Ошибка исчезает, только при изменении размерности массива типа STRING e. Что делать, мне нужна размерность не меньше 100 :-(((