VPF::Найти сумму всех элементов - Форум программистов

ksu04061992

Дата 9.12.2014, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 30.11.2013

Репутация: нет
Всего: нет

Здравствуйте,помогите разобраться, пожалуйста. Дана задача: с помощью ассемблерных вставок найти сумму всех элементов массива, не превышающих заданного числа.
Вот код программы:

Код


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.

Данная программа в результате выводит всю сумму элементов, а не сумму меньшую заданному числу. В чем ошибка?

ФедосеевПавел

Дата 9.12.2014, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 4
Всего: 10

Код


asm
mov dx,c
mov ax,elem
cmp dx,ax
jc @cont1
                           <--------------- здесь добавь переход к метке над end
@cont1:
add sum,ax
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm для начинающих \| Следующая тема »