Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Удаление элемента из массива
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
alyonka89 alyonka89 вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.06.2008
По умолчанию 17.08.2009, 18:19

Здравствуйте!
Помогите пожалуйста с удалением элементов из массива.
Нужно удалить из массива Х, состоящего из n элементов, первые четыре нулевых элемента.
Если использую for I := n downto 1 do удаляются 4 последних нулевых элемента,
а если использую for I := 1 to n do не удаляется 0, если он следует сразу за другим нулём.
Что нужно изменить? Заранее спасибо за помощь.

Код:
procedure TForm1.Button1Click(Sender: TObject);
type massiv=array [1..50] of real;
procedure del_mass(m, kol:integer; var y:massiv);
var i: integer;
begin
  for I := m to kol-1 do
    y[i]:=y[i+1];
end;
var i, n, k: byte;
    x: massiv;
begin
  n:=strtoint(edit1.text);
  for I := 1 to n do
    x[i]:=strtofloat(stringgrid1.Cells[i,0]);
  k:=0;
  for I := n downto 1 do
    begin
      if x[i]=0 then
        begin
          if k>=4 then break
          else
            del_mass(i,n,x);
          k:=k+1;
        end;
    end;
  for I := 1 to n-k do
    stringgrid2.cells[i,0]:=floattostr(x[i]);
end;
Ответить с цитированием
  (#2 (permalink)) Старый
Alexiski Alexiski вне форума
Любитель давать советы
 
Сообщений: 4,280
Сказал(а) спасибо: 27
Поблагодарили 54 раз(а) в 54 сообщениях
Регистрация: 16.10.2005
По умолчанию 17.08.2009, 19:53

Ведь при удалении из массива индексы последующих элементов смещаются.

Самое простое решение - вместо
Код:
if x[i]=0 then
поставить
Код:
while x[i]=0 do
Только не забудьте подправить верхнюю границу цикла, примерно так:
Код:
for i:= 1 to n-k do
Ответить с цитированием
  (#3 (permalink)) Старый
alyonka89 alyonka89 вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.06.2008
По умолчанию 17.08.2009, 21:03

спасибо большое за помощь...
заменила цикл на

Код:
repeat
    if (x[i]=0)and(k<4) then
    begin
      del_mass(i,n-k,x);
      k:=k+1;
    end
    else
      i:=i+1;
  until i>=n-k;
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление последнего элемента списка [С++] Pblcb С/С++ 0 01.04.2012 17:06
Удаление предпоследнего элемента в списке Samael Lisp 5 09.05.2011 17:24
Найти номер третьего четного элемента массива oossnn@mail Вопросы начинающих программистов 0 11.02.2011 17:59
найти среднее арифмитическое значение элемента массива ирен Вопросы начинающих программистов 0 02.01.2011 22:37
Удаление элемента из списка, кроме первого вхождения Devil1991 Prolog 4 13.10.2010 21:36
Как сложить два элемента массива shiro888 C++ Builder 3 24.05.2010 07:02
Напишите базу знаний, описывающую удаление n-oго элемента списка Katerinka1990 Prolog 2 24.05.2010 01:37
Удаление элемента из дерева V55 Lisp 4 20.05.2009 22:46
Удаление элемента с заданным номером и число вхождений заданного элемента imported_Lisa_D Lisp 21 16.04.2009 15:06
Списки: удаление заданного элемента Art4 Prolog 8 28.12.2006 17:04
Событие OnClick для элемента массива типа TImage levi-de C++ Builder 14 14.06.2006 19:28
Удаление элемента дерева Karp Visual C++ 1 07.04.2004 09:46



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов