удаление эл из массива

[Стас_с]

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

можете помочь с исходниками программы, ну или показать как удалять эл.
заранее спасибо )

[Serge_Bliznykov]

самый простой ("классический") способ удаления элемента массива,
это переписать все последующие элементы на место удаляемого, затем размер (количество) элементов в массиве уменьшить на единицу.

[Стас_с]

есть код?
хочу посмотреть .

[Ibanez Wizard]

.386
.model flat, stdcall
option casemap : none

.data
deleted dd 4; Удаляем четвертый элемент
array dd 1,2,3,4,5,6,7,8,9; Сам массив

.code
start:
xor eax, eax	; Обнуление на всякий пожарный
mov ecx, 9		; Цикл будет повторятся
sub ecx, deleted; 9-4=5 раз
lea esi, array	; Связываем адрем массива с esi
add esi, 4*3	; Начинаем с четвертого элемента
@1:
mov eax, [esi+4]	; Тут происходит
mov [esi], eax		; смещение
add esi, 4
loop @1

mov [esi], dword ptr 0; Поскольку на конце две девятки, до
					  ; удаляем последнюю
ret	
end start

Эта программа удаляет четвёртый элемент из массива.
Т.е. было:
1, 2, 3, 4, 5, 6, 7, 8, 9
Стало:
1, 2, 3, 5, 6, 7, 8, 9, 9
И под конец удаляется последняя девятка (для наглядности).

[Stilet]

А можно и я свои пять коп.
Это код шринковки массива - удаления из него элементов равных чему-то:

format PE console
entry start
 
include 'D:\fasmw16726\INCLUDE\win32a.inc'
 
section '.data' data readable writeable

массив dd 1,2,6,4,5,6,7,6,9; Сам массив
УдаляемыйЭлемент dd 6

section '.code' code readable executable
start:
 mov ecx,9  ;У нас 9 элементов
 mov esi,массив ; НАчнем с начала
 mov edi,esi    ; А это точка погрешности
a:
 mov eax,[edi] ; Возьмем элемент
 cmp eax,[УдаляемыйЭлемент] ; Если он равен  тому-то
 je next ;То точку погрешности не увеличиваем
 add edi,4
next:
 add esi,4
  mov eax,[esi] ;Чтоб затереть этот элемент следующим за ним
  mov [edi],eax
 loop a;
ret

Правда здесь не подтираются эти удаленные элементы, так что конец массива придется смещать, но это уже на усмотрение автора

[Ibanez Wizard]

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

А можно и я свои пять коп.
Это код шринковки массива - удаления из него элементов равных чему-то:

format PE console
entry start
 
include 'D:\fasmw16726\INCLUDE\win32a.inc'
 
section '.data' data readable writeable

массив dd 1,2,6,4,5,6,7,6,9; Сам массив
УдаляемыйЭлемент dd 6

section '.code' code readable executable
start:
 mov ecx,9  ;У нас 9 элементов
 mov esi,массив ; НАчнем с начала
 mov edi,esi    ; А это точка погрешности
a:
 mov eax,[edi] ; Возьмем элемент
 cmp eax,[УдаляемыйЭлемент] ; Если он равен  тому-то
 je next ;То точку погрешности не увеличиваем
 add edi,4
next:
 add esi,4
  mov eax,[esi] ;Чтоб затереть этот элемент следующим за ним
  mov [edi],eax
 loop a;
ret

Правда здесь не подтираются эти удаленные элементы, так что конец массива придется смещать, но это уже на усмотрение автора

На сколько я знаю, это так же можно организовать с помощью команды scas.

[Stilet]

На сколько я знаю, это так же можно организовать с помощью команды scas.

Да думаю можно, но лично я не представляю схемы с использованием этой команды. Тоесть я не оч. верю что код будет короче. Если не сложно покажи, мне интересно тоже.

[yuran666666]

del_byte equ 8
.data
mass	db 1,2,3,8,4,5,6,7,8,9,8,8,3,1,5,57,8,3,76,3,5,5,8,8
.code
start:
	mov edi,offset mass
	mov ecx,sizeof mass
	mov esi,edi
	mov ebx,offset RecFind
	lea edx,[ebx+(offset _call-offset RecFind)]
	@@:
	call ebx
	jecxz @f
	jmp @b
	@@:
	ret

RecFind:		
	jecxz @f
	lodsb
	dec ecx
	jz @f
	.if al==del_byte
		call ebx
		_call:
	.endif
	@@:
	.if [esp]!=edx
		stosb
	.endif
ret

[Ibanez Wizard]

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

Да думаю можно, но лично я не представляю схемы с использованием этой команды. Тоесть я не оч. верю что код будет короче. Если не сложно покажи, мне интересно тоже.

Я тоже не верю что код будет короче. Для этого сам попробовал написать и убедился в этом Вот что у меня получилось:

.386
.model flat, stdcall
option casemap : none

.data
n dd 4
array dd 1,2,3,4,5,4,7,8,4

.code
start:
	xor eax, eax
	push 9
	pop ecx
	lea edi, array
	mov eax, n
@1:
	scasd
	jz delete
	loop @1
	ret
delete:
	@2:
	mov ebx, [edi]
	mov [edi-4], ebx
	add edi, 4
	loop @2
	mov [edi-4], dword ptr 0
	jmp start
end start

Тут в массиве ищется четверка, и если находится - то удаляется из массива.

[yuran666666]

Ibanez Wizard, недурно, кстати

.data
n dd 4
array dd 1,2,3,4,4,5,4,7,8,4
.code
start:
	next:
		push sizeof array/4
		pop ecx
		mov edi,offset array
		mov eax, n
		repnz scasd
		jecxz end_array
			xor eax, eax
			mov esi,edi
			sub edi,4
			rep	movsd
			stosd
	jmp next
	end_array:
	ret
end start