сформировать новый массив(помогите найти ошибку)

[shalgan]

доброго времени суток,помогите разобраться с пршраммой,ошибку выдает такую "[Error] Unit1.pas(53): Undeclared identifier: 'caption'"
вот код

procedure TForm1.Button1Click(Sender: TObject);
var
M,D:array[1..100] of integer;
i,n,j,k,h:integer;
begin
n:=memo1.Lines.Count;
for i:=1 to n do
M[i]:=strtoint(memo1.Lines[i-1]);
D[i]:=M[i];
k:=n;
i:=1;
Repeat
if D[i]=0 then
begin
for j:=i to k-1 do
D[j]:=D[j+1];
k:=k-1;
i:=i-1;
end;
i:=i+1;
Until i>k;
for i:=1to k do
if D[i]<0 then
D[i]:=sqr(D[i]);
memo2.caption:=inttostr(D);
h:=memo2.Lines.Count;
label1.caption:='kol-vo elementov novogo massiva='+inttostr(h);
end;
end.

заоодно и правильностиь кода посмотрите пожалуйста)

задание:"Ввести однородный массив. Сформировать новый массив,исключив из исходного нулевые элементы.Подсчитать и вывести кол-во элементов нового массива"

[Serge_Bliznykov]

memo2.caption:=inttostr(D);

у мемо2 (скорее всего это экземляр класса TMemo) НЕТ свойства Caption
либо используйте Label2 вместо Memo2 (надо на форму бросить Label и изменть код)
либо перепишите код примерно так:

memo2.Lines.Append(' переменная D'+IntToStr(i)+' равна ' +inttostr(D[i]));

p.s.

D[i]:=sqr(D[i]);

а зачем Вы в квадрат возводите значения? Я что-то пропустил?!

[Stilet]

memo2.caption:=inttostr(D);

Нет у Мемо таких свойств.
Пиши

memo2.Lines.Append(inttostr(D));

[Serge_Bliznykov]

Виталий, там всё ещё хуже - D - это массив...

думаю, что автор должен написать что-то вроде:

for i:=1 to k do
   memo2.Lines.Append(inttostr(D[i]));

[shalgan]

Сообщение от Serge_Bliznykov

Виталий, там всё ещё хуже - D - это массив...

думаю, что автор должен написать что-то вроде:

for i:=1 to k do
   memo2.Lines.Append(inttostr(D[i]));

ну вообще чсуть такая, хотел в мемо2 вписать новый массив, без 0 который

[Serge_Bliznykov]

Сообщение от shalgan

ну вообще чсуть такая, хотел в мемо2 вписать новый массив, без 0 который

ну, так предложенный мною код (который Вы процитировали) именно это и делает!

а ещё у Вас ошибка при заполнении массива D
должно быть так (выделил то, что Вы забыли написать!)

  n := memo1.Lines.Count;
  for i := 1 to n do begin
    M[i] := strtoint(memo1.Lines[i - 1]);
    D[i] := M[i];
  end;

А на вопрос насчёт возведения в квадрат функцией sqr так ничего и не ответили.


Кроме того, если используется два массива, как в вашем случае, для исключения нулевых не нужно городить никаких вложенных циклов, это делается так:

var
  M,D:array[1..100] of integer;
  i, n, k: integer;
begin
  n := memo1.Lines.Count;
  for i := 1 to n do
    M[i] := strtoint(memo1.Lines[i - 1]);

  {перенести из M в D все ненулевые}
  k := 0;
  for i := 1 to n do
    if M[i]<>0 then begin
      k := k + 1;
      D[k] := M[i];
    end;

  Memo2.Lines.Clear;
  for i := 1 to k do
    memo2.Lines.Append(inttostr(D[i]));
  label1.caption := 'kol-vo elementov novogo massiva=' + inttostr(k);
end;

[shalgan]

Сообщение от Serge_Bliznykov

ну, так предложенный мною код (который Вы процитировали) именно это и делает!

а ещё у Вас ошибка при заполнении массива D
должно быть так (выделил то, что Вы забыли написать!)

  n := memo1.Lines.Count;
  for i := 1 to n do begin
    M[i] := strtoint(memo1.Lines[i - 1]);
    D[i] := M[i];
  end;

А на вопрос насчёт возведения в квадрат функцией sqr так ничего и не ответили.


Кроме того, если используется два массива, как в вашем случае, для исключения нулевых не нужно городить никаких вложенных циклов, это делается так:

var
  M,D:array[1..100] of integer;
  i, n, k: integer;
begin
  n := memo1.Lines.Count;
  for i := 1 to n do
    M[i] := strtoint(memo1.Lines[i - 1]);

  {перенести из M в D все ненулевые}
  k := 0;
  for i := 1 to n do
    if M[i]<>0 then begin
      k := k + 1;
      D[k] := M[i];
    end;

  Memo2.Lines.Clear;
  for i := 1 to k do
    memo2.Lines.Append(inttostr(D[i]));
  label1.caption := 'kol-vo elementov novogo massiva=' + inttostr(k);
end;

спасибо большое,очень помогли)