Исключение класса EstackOverflow c сообщением 'Stack overflow'

@Reik · Регистрация: 20.03.2015

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

Всем доброго времени суток.
У меня возникла проблема. Мне по условию задачи нужно составить множество всех значений, имеющихся в массивах C и D, без повторов.
Вот код обработчика:

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
a,d,c:array of real;
    i,j,k,n,z,sl:integer;
begin
Setlength(c,n);
Setlength(d,n);
Setlength(a,k);
for i := 0 to n - 1 do
  if StringGrid1.Cells[i,1]='' then c[i]:=0
  else c[i]:=StrToint(StringGrid1.Cells[i,1]);
  n:=strtoint(Edit1.Text);
  if StringGrid2.Cells[i,1]='' then d[i]:=0
  else d[i]:=StrToint(StringGrid2.Cells[i,1]);
  z:=strtoint(Edit2.Text);
  for i:=1 to z do
 sl:=slyanye(C,D,A);
 begin
  i:=1;
while i<=z do
 begin
  j:=i+1;
  while j<=z do
   begin
    if a[j]=a[i] then
     begin
      for k:=j to z-1 do
      a[k]:=a[k+1];
      z:=z-1;
      end
     else j:=j+1;
   end;
  i:=i+1;
 end;
 readln;
for i:= 1 to z-1 do
StringGrid3.ColCount:=z-1;
for j := 0 to z-2 do
            StringGrid3.Cells[j,0]:=IntToStr(k+1);
end;
end;

Помимо основного юнита у меня есть еще автономный, в котором описывается функция слияния двух массивов:

Delphi

unit Unit2;
interface
  function slyanye (masc,masd,masa: array of real):integer;
implementation
function slyanye;
    var i:integer;
    begin
     if odd(i) then  masa[i]:=masc[i div 2 +1]
     else masa[i]:=masd[i div 2];
    write(masa[i],' ');
  end;
end.

При попытке запуска Delphi ругается и выдает ошибку Исключение класса EstackOverflow c сообщением 'Stack overflow'
Подскажите, пожалуйста, где я допускаю ошибку.
Заранее спасибо.

@Puporev · 03.05.2015, 17:54

Ты зачем сначала выделяешь память под массивы, и только потом вводишь размеры?

Delphi

n:=strtoint(Edit1.Text);
Setlength(c,n);
Setlength(d,n);
z:=strtoint(Edit2.Text);
Setlength(a,z);//не k!

@Reik · 03.05.2015, 18:05 **[ТС]**

Исправила, появилось другое исключение класса EInvalidPointer с сообщением 'Ivalid pointer operation'

@Puporev · 03.05.2015, 18:15

Delphi

1 2	for i:=1 to z do sl:=slyanye(C,D,A);

Массивы динамические, индексы от 0 до z-1, замените.

Добавлено через 6 минут
Вообще не понимаю для чего вводится z? Ведь размерность массива А вроде тоже=n.

@Reik · 03.05.2015, 18:17 **[ТС]**

Заменила. Все равно ругается, выдает ту же ошибку

@Puporev · 03.05.2015, 18:19

Да напишите Вы точное условие задачи и прикрепите архив проекта. До завтра что ли буду в угадалки играть?

@Reik · 03.05.2015, 18:24 **[ТС]**

В условии это не оговаривалось, и я решила, что у нового массива будет размерность отличаться от исходных двух.

@Reik · 03.05.2015, 18:39 **[ТС]**

Хорошо)

Условие: Составьте подпрограмму, исходными данными которой являются числовые массивы С и D из n элементов. основной ее результат так же массив, получающий некоторое множество элементов. Их количество (оно может быть нулю) -- еще один результат.
Требуемые результаты подпрограмм и прочие данные указаны в вариантах.
Вариант 14: Множество всех значений, имеющихся в массивах C и D, без повторов.

@Puporev · 03.05.2015, 20:14

Ввести нужно только N, размер массива А заранее не известен, поэтому K или (Z) вводить не нужно.
А память выделять в процессе его заполнения

Delphi

z:=0;
выбрали элемент для вставки
z:=z+1;
setlength(a,z);
a[z-1]:=выбранный элемент

Кстати слияние массивов без повторов по возрастанию (типа множества) у Вас неверно сделано. Могу скинуть код на Паскале для статистических массивов, лезть в Вашу программу мне лень.

Pascal

i:=1; j:=1; k:=1; {устанавливаем счётчики}
{выберем первый элемент}
if a[1]<b[1] then
 begin
  c[1]:=a[1];
  inc(i);
 end
else
 begin
  c[1]:=b[1];
  inc(j);
 end;
{выберем остальные}
while (i<=n) or (j<=n) do {пока не дошли до конца каждого из массивов}
 begin
  if (i<=n) and (j<=n) then {если оба массива ещё не закончились}
   begin
    if a[i]<b[j] then {то смотрим меньший из текущих элементов}
     begin
      if a[i]<>c[k] then{если он не равен последнему элементу нового массива}
       begin
        inc (k); {увеличиваем счетчик}
        c[k]:= a[i];{запишем элемент}
       end;
      inc(i); {переходим к следующему элементу соответствующего массива}
     end
    else
     begin {аналогично если меньше b[i]}
      if b[j]<>c[k] then
       begin
        inc (k);
        c[k]:= b[j];
       end;
      inc(j);
     end
   end
  else if j>n then {иначе один из массивов уже закончился}
   begin {и мы пишем из того, в котором ещё есть элементы}
    if a[i]<>c[k] then
     begin
      inc(k);
      c[k]:= a[i];
     end;
    inc(i);
   end
  else if i>n then
   begin
    if b[j]<>c[k] then
     begin
      inc(k);
      c[k]:=b[j];
     end;
    inc (j);
   end;
 end;

@Reik · 03.05.2015, 20:40 **[ТС]**

Хорошо, огромное спасибо за помощь!

@Reik 0 / 0 / 0 Регистрация: 20.03.2015 Сообщений: 10
	03.05.2015, 20:40 [ТС]	10
	Хорошо, огромное спасибо за помощь! 0

@Reik 0 / 0 / 0 Регистрация: 20.03.2015 Сообщений: 10
	03.05.2015, 18:05 [ТС]	3
	Исправила, появилось другое исключение класса EInvalidPointer с сообщением 'Ivalid pointer operation' 0

@Reik 0 / 0 / 0 Регистрация: 20.03.2015 Сообщений: 10
	03.05.2015, 18:17 [ТС]	5
	Заменила. Все равно ругается, выдает ту же ошибку 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	03.05.2015, 18:19	6
	Да напишите Вы точное условие задачи и прикрепите архив проекта. До завтра что ли буду в угадалки играть? 0

@Reik 0 / 0 / 0 Регистрация: 20.03.2015 Сообщений: 10
	03.05.2015, 18:24 [ТС]	7
	В условии это не оговаривалось, и я решила, что у нового массива будет размерность отличаться от исходных двух. 0