| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Удаление элемента из массива [D2005]

Страницы:   < 1 2 >

Alyona ©   (2009-08-17 17:13:00) 

Здравствуйте!
Помогите пожалуйста с удалением элементов из массива.
Нужно удалить из массива Х, состоящего из 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;


---

Сергей М.   (2009-08-17 17:28:00) [21]

> Alyona   (17.08.09 17:13)  


Из статическогомассива, каковым у тебя является массив типа massiv, элементы удалить невозможно- ни нулевые, ни какие бы то ни было.

---

DrPass   (2009-08-17 17:15:00) [22]

Процедуру сама писала, или у однокурсников позаимствовала?

---

Страницы:   < 1 2 >

Наверх