Форум программистов, компьютерный форум, киберфорум
Наши страницы
Assembler для начинающих
Войти
Регистрация
Восстановить пароль
 
ksu04061992
0 / 0 / 0
Регистрация: 12.12.2011
Сообщений: 27
1

Найти сумму всех элементов

09.12.2014, 09:43. Просмотров 273. Ответов 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
uses crt;
var i,n,sum, elem,c:integer;
var a: array[1..100] of word;
 
begin
write('Vvedite kolichestvo elementov mas.: ');
readln(n);
sum:=0;
i:=1;
while i <= n do begin
   write('a[',i,'] = ');
   readln(a[i]);
   i:=i+1;
   end;
 
write('Vvedite chislo: ');
readln(c);
 
 
i:=0;
while i<=n do begin
i:=i+1;
elem:=a[i];
  asm
  mov dx,c
  mov ax,elem
  cmp dx,ax
  jc @cont1
 
 @cont1:
  add sum,ax
  end;
  end;
write('Summa =  ', sum);
readln
end.

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

Найти сумму всех элементов массива
Собственно задание найти сумму всех элементов массива, на форуме находил много похожего , но...

Найти сумму всех элементов массива F(20)
Кто поможет написать программу? Нужно найти сумму всех элементов массива F(20)

На главной диагонали матрицы найти сумму всех ее элементов
Здравствуйте! Помогите написать программу. Задание: Даны 3 квадратных матрицы различных...

Найти сумму квадратов всех отрицательных элементов массива
Найти сумму квадратов всех отрицательных элементов массива A={a}.

Найти сумму всех элементов массива равных последнему
; ««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««« .486 ...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26847 / 17990 / 7110
Регистрация: 22.10.2011
Сообщений: 31,673
Записей в блоге: 6
09.12.2014, 11:23 2
30 и 31 строки местами поменяй...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2014, 11:23

Найти сумму квадратов всех положительных элементов массива
Найти сумму квадратов всех положительных элементов массива при условии с&lt;=a&lt;=d %-) с=-10, d=10...

Найти сумму кубов всех положительных элементов массива
Найти сумму кубов всех положительных элементов массива A={a}.

Найти сумму квадратов всех отрицательных элементов массива
Найти сумму квадратов всех отрицательных элементов массива A={a}.


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

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

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