VPF::[Pascal | Assembler] Массивы - Форум программистов

RomTB

Дата 24.5.2009, 16:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Даны массивы: X, содержащий 7 элементов, и Y, содержащий 8 элементов:
user posted image

Код


program labxy;
uses crt;
var x:array [1..7] of shortint;
    y:array [1..8] of shortint;
    i:integer;
function asmfunc (x:array of shortint;y:array of shortint):integer;
Begin
  asm
     push ds
     push si
     push dx
     push bx
     push cx

     lds bx,x
     mov si,6
     xor dx,dx

@next1:
     mov al,bx[si]
     imul al
     add dx,ax
     dec si
     jns @next1

     xor ax,ax
     mov bx,7
     xchg ax,dx
     div bx

     lds bx,y
     mov si,7
     mov dx,ax
     xor cx,cx
@next2:
     mov al,bx[si]
     cbw
     cmp ax,dx
     jge @bvr
     inc cx

@bvr:
    dec si
    jns @next2

    mov [bp-2],cx

    pop cx
    pop bx
    pop dx
    pop si
    pop ds
    end;
end;


begin
 clrscr;
 writeln(',massiv X:');
 for i:=1 to 7 do begin
  write('x[',i,']=');
  readln(x[i])
  end;
  writeln(',massiv Y:');
  for i:=1 to 8 do begin
  write ('y[',i,']=');readln(y[i]);
  end;
  clrscr;
  writeln('x[i]:');
  for i:=1 to 7 do write (x[i]:8);
  writeln;
  writeln('y[i]:');
  for i:=1 to 8 do write(y[i]:8);
  writeln;
  write('result: ');
  writeln(asmfunc(x,y));
  readkey;
  end.

Вот наработанное, но никак не хочет работать... Выводит постоянно одно и то же

Буду безгранично благодарен.

Это сообщение отредактировал(а) mr.Anderson - 24.5.2009, 17:19

mr.Anderson

Дата 24.5.2009, 17:17 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

M
mr.Anderson

Модератор: пожалуйста, пользуйтесь тегами подсветки!

Исправил.

--------------------

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