help; вставка на ассемблере в код паскаля

@metall-nya · Регистрация: 28.09.2010

Author24 — интернет-сервис помощи студентам

Плохо еще разбираюсь с низкоуровневым программированием, поэтому не очень то и получается, конкретных каких-то примеров со вставками ассемблера в код паскаля найти не могу, поэтому решил попросить вас о помощи. Задача состоит в следующем: дан массив из n чисел, найти среднее арифметическое положительных чисел. Числа, большие ср. арифм. заменить на первое значение в массиве.
Если можно, то пожалуйста с комментариями, буду благодарен Заранее спасибо!

Добавлено через 5 часов 14 минут
вот все, что смог сделать...среднее арифметическое считает, но массив никак вообще не сортируется, почему не знаю(

Pascal

uses crt;
const n=15;
type mas=array [1..n] of integer;
var a:mas; i,j,sr: integer;
begin
 randomize; clrscr;
 for i:=1 to n do
  begin
   a[i]:=random(47)-25;
  end;
 writeln; textcolor(5); writeln('Original massive:'); writeln;
 for i:=1 to n do
  begin
   write(a[i]:5);
  end;
 writeln;
 asm
  lea si,a
  mov ax,0
  mov cx,n
  mov dx,0
@1: mov bx,[si]
      cmp bx, 0
      jl @2
      add ax,bx
      inc dx
@2: add si,2
loop @1
  mov bx,dx
  xor dx,dx
  div bx
  mov sr,ax
  mov si,0
  mov ax,[si]
  add si,2
@3:   mov bx,[si]
      cmp bx,sr
      jl @4
      mov bx,ax
@4: add si,2
loop @3
 end;
 writeln; textcolor(6);
 writeln('average: ', sr);
 writeln; textcolor(4); writeln('Sorted massive:'); writeln;
  for i:=1 to n do
   begin
    write(a[i]:5);
   end;
readkey;
end.

@Don't · 12.03.2012, 15:43

мельком посмотрев..

Сообщение от metall-nya

40: mov bx,ax

ты ведь заносишь просто в регистр bx, а не в сам массив
сейчас объясню в чем проблема
Добавлено через 38 минут
вот рабочий код.. коменты есть

Assembler

lea si,a
  mov ax,0
  mov cx,n
  dec cx ; я думаю нужно уменьшить счетчик ибо, нумерация в паскале с 1, асм с 0
  mov dx,0
@1: mov bx,[si]
      cmp bx, 0
      jl @2
      add ax,bx
      inc dx
@2: add si,2
loop @1
  mov bx,dx
  xor dx,dx
  div bx
  mov sr,ax
  mov cx,n ; ведь после 1го цикла, он уже равен 0, нужно опять занести 
  dec cx ; уже отвечал выше
  mov si,0 
  lea si,a ; т.к. занесли на строчку выше 0, тем самим убив адрес на массив, заносим еще раз
  mov ax,[si]
  add si,2
@3:   mov bx,[si]
      cmp bx,dx
      jl @4
      mov word ptr[si],ax ; соответственно записываем по адресу элемента массива, который находится в si
@4: add si,2
loop @3

@Puporev · 12.03.2012, 15:50

Сообщение от Don't

нумерация в паскале с 1,

Можно и с ноля, а можно и вообще с -10...

Pascal

1	var a:array[-10..10] of integer;

@Don't · 12.03.2012, 15:59

Не по теме:

спасибо , не знал), но в данном примере с 1, то думаю нужно все таки уменьшить счетчик

@Don't
	12.03.2012, 15:59 help; вставка на ассемблере в код паскаля #4
	Не по теме: спасибо , не знал), но в данном примере с 1, то думаю нужно все таки уменьшить счетчик 0