В массиве заменить все элементы большие 7 на 7 и посчитать их количество (ассемблерная вставка в delphi)

@AlekseyPl · Регистрация: 18.11.2017

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

Есть код на фасме задачки : В массиве заменить все элемента большие 7 на 7 и посчитать их кол-во. Не могу понять как в delphi занести адрес первого элемента массива в регистр.

Assembler

org 100h
jmp start 
;----------------------------— 
arr1 db 9,2,4,9,1,8,0,3,9
size = $ - arr1 
ind db 0        ;счетчик
ent db 10, 13 dup '$'  ;переход на следующую строку
;----------------------------— 
start: 
mov si, arr1   ;в регистр источник заносим адрес
mov cx, size   ;в регистр для цикла заносим длину массива
push si       ;кидаем в стек значения si
push cx
;----------------------------— 
cycle: 
mov al, [si] 
cmp al, 7 
jl miss       ;если меньше, переходим на  метку miss
inc [ind]    ;увеличиваем число замен
mov al, 7
mov [si], al   ;заменяем число большее 7 на 7
miss: 
inc si      ;идем дальше по массиву
loop cycle 
;-----------------------------— 
xor ax, ax        ;обнуляем регистр ax
pop cx          ;извлекаем из стека
pop si 
mov bl, [ind]     ;помещаем в bl число замен
;-----------------------------— 
conclusion: 
mov al, [si]
add al, 30h    ;для вывода однозначного числа
mov ah, $02 
mov dl, al 
int 21h 
inc si 
loop conclusion 
;-----------------------------— 
xor dx, dx     ;обнуляем регистр dx
mov ah, $09 
mov dx, ent 
int 21h 
xor ax, ax 
add bl, 30h 
mov ah, $02 
mov dl, bl 
int 21h 
;-----------------------------— 
mov ah, $0A 
int 21h 
ret

Пока так

Delphi

const m = 9;
 
var
  a:array[1..m] of word;
  i,ind:word;
 
begin
  For i:=1 to m do
  begin
    Write(' a[',i,'] = ');
    readln(a[i]);
  end;
  ind:=0;
  writeln;
  asm
    mov si,???

ФедосеевПавел · 22.04.2018, 13:52

lea esi, [a]

@AlekseyPl · 22.04.2018, 15:43 **[ТС]**

Вот код, мб пригодится кому-нибудь

Delphi

const m = 8;
 
var
  a:array[1..m] of word = (9,5,1,6,8,9,2,9);
  i,ind:word;
 
begin
for i:=1 to m do
  write(a[i]:2);
  writeln;
  asm
    lea esi,a
    mov ecx,m
@Cycle:
    mov al,[esi]
    cmp al,7
    jl @miss
    inc [ind]
    mov al,7
    mov [esi],al
@miss:
    add esi,2
    loop  @Cycle
    end;
  writeln('Kol-vo ',ind);
  for i:=1 to m do
    write(a[i]:2);
  readln;
end.

ФедосеевПавел Модератор 8505 / 4360 / 1646 Регистрация: 01.02.2015 Сообщений: 13,529 Записей в блоге: 8
	22.04.2018, 13:52	2
	Сообщение было отмечено AlekseyPl как решение Решение `lea esi, [a]` 1

	22.04.2018, 15:43

Опции темы

В массиве заменить все элементы большие 7 на 7 и посчитать их количество (ассемблерная вставка в delphi)

Решение