Форум программистов, компьютерный форум, киберфорум
Наши страницы
Assembler для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
vasadisim
1 / 1 / 0
Регистрация: 19.12.2011
Сообщений: 88
Завершенные тесты: 1
#1

Найти количество отрицательных элементов массива

26.05.2013, 11:32. Просмотров 1240. Ответов 1
Метки нет (Все метки)

найти кол-во отрицательных элементов массива. Нужно доделать...

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
procedure TForm5.Button1Click(Sender: TObject); 
 
var i, a, b:integer; 
begin 
randomize; 
for i := 0 to 9 do 
begin 
a:=random(2); 
if a=0 then b:=-1 else b:=1 ; 
StringGrid1.Cells [i,0]:=inttostr(b*random(10)); 
 
end; 
 
end; 
 
procedure TForm5.Button2Click(Sender: TObject); 
var mas:array[0..9] of integer; 
i,rez,min,a:integer; 
begin 
for i:=0 to 9 do 
mas:=strtoint(stringgrid1.cells[i,0]); 
 
asm 
 
// Сумма элементов массива 
Lea ESI, mas // Взятие адреса массива 
xor eax, eax 
xor edx, edx 
Mov ecx, 0Ah // Заносим число элементов 
@1: add eax, [esi][edx*4] 
inc edx 
loop @1 // ECX=ECX-1, и если ECX не равен нулю, то переход по метке 
mov rez, eax 
 
//Кол-во отрицательных элементов массива 
 
............................................
// Вывод результатов 
 
memo1.Lines.add('Сумма элементов массива: '+ inttostr(rez)); 
memo1.Lines.add('Кол-во отрицательных элементов массива: '+inttostr(min)); 
 
end; 
 
end.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2013, 11:32
Ответы с готовыми решениями:

Найти количество отрицательных элементов массива
В сегменте данных имеется 100 байтовый массив с отрицательными значениями....

Найти количество положительных, нулевых и отрицательных элементов массива
Найти количество положительных, нулевых и отрицательных элементов массива и...

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

Дан массив из 5 элементов. Найти количество отрицательных элементов
Дан массив из 5 элементов a db 12,31,10,15,5. Найти количество отрицательных...

Найти количество отрицательных элементов в массиве
Нужно найти количество отрицательных элементов в массиве n, только не...

1
Catstail
Модератор
23546 / 11656 / 2039
Регистрация: 12.02.2012
Сообщений: 19,015
26.05.2013, 12:47 #2
Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// Сумма элементов и количество отрицательных
   Lea ESI, mas // Взятие адреса массива
   xor eax, eax
   xor edx, edx
   xor ebx, ebx
   Mov ecx, 0Ah // Заносим число элементов
@1:
   add eax, [esi][edx*4]
   cmp dword ptr [esi][edx*4],0
   jge     @2
   inc  ebx
@2:
   inc edx
   loop @1 // ECX=ECX-1, и если ECX не равен нулю, то переход по метке
   mov rez, eax 
   mov numneg, ebx // переменная numneg будет содержать число отрицательных
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 12:47

Найти количество отрицательных нечетных элементов матрицы на побочной диагонали
Дана квадратная матрица А размерности nxn. Найти количество отрицательных...

Найти строки матрицы, содержащие равное количество положительных и отрицательных элементов
Дана целочисленная матрица размерами 5х10. Вывести номер ее первой строки и...

Найти сумму первых К отрицательных элементов массива
model small .data mas db -12, 2, 7, 3, -2, 0, 21, -9, 0,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru