Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.06.2009, 01:21   #1
JaZZ_XVIII
 
Аватар для JaZZ_XVIII
 
Регистрация: 01.06.2009
Сообщений: 4
По умолчанию Нахождение квадратов первых k элементов массива

Требуется найти
unsigned Char (байт)
unsigned short int (слово)
Требуется найти произведение квадратов первых k элементов массива.
A={a[i]} удовлетворяющих условию a[i]>=c+d;

Основная вставка должна производится через Pascal.
Есть исходник :
Код:
uses crt;

var
mas:array[0..10] of shortint;
n,l,i:byte;
sum:shortint;
label iter,cikl,izmen,xend;
begin
   clrscr;
   write('mas[n]: ');
   read(n);
   write('L: ');
   read(l);
   randomize;
   for i:=0 to n-1 do
       begin
         mas[i]:=random(10)-random(10);

           write(mas[i]:3);
{           read(mas[i]);}
       end;
   sum:=0;
   i:=n-l;

   asm
        xor ax,ax
       	lea si,mas
       	add si,word ptr i
	mov bl,0
        	mov cl,i

	iter:

	cmp cl,n
	jb cikl
	jmp xend

	cikl:

	cmp [si],bl
	jg izmen
	inc cl
        	inc si
	jmp iter

	izmen:

	add al,[si]
	inc si
        	inc cl
	jmp iter

        xend:
        mov sum,al
   end;
   writeln('Cymma = ',sum);
   readkey;
end.
Как довести его до этого условия..
Кто может помочь с кодом и комментариями, буду признателен.

Последний раз редактировалось JaZZ_XVIII; 10.06.2009 в 01:30.
JaZZ_XVIII вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод элементов массива.Изменение элементов массива. Vesnushka18 Помощь студентам 6 09.06.2011 13:05
Нахождение ненулевах элементов таблицы Extreme Паскаль, Turbo Pascal, PascalABC.NET 4 09.05.2009 16:18
Найти сумму квадратов отрицательных элементов массива bbk_serg Помощь студентам 7 21.01.2009 12:33
Нахождение двух одинаковых элементов в массиве Stas))) Помощь студентам 4 01.06.2007 12:23