Напишите программу на Pascal с встроенным Ассемблером

@ScreannyS · Регистрация: 17.10.2016

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

Вот пример задачи.
[I]Вычислить Х = 3А + ( В + 5 ) / 2 - С - 1,
где А, В, С, Х- целые знаковые числа занимающие слово, написать программу реализующую данную формулу.
Распишем формулу по отдельным операциям:
АХ ← А ; значение А в регистре АХ
АХ ← 2 *( АХ ) ; 2А в АХ
АХ ← ( АХ ) + А ; 3А в АХ
ВХ ← В ; В в ВХ
ВХ ← 5 + ( ВХ ) ; В+5 в ВХ
ВХ ← (ВХ ) / 2 ; ( В+5) / 2 в ВХ
АХ ← (BX ) + ( AX ) ; 3А+( В+5 ) / 2 в АХ
АХ ← ( АХ ) - С ; 3А+( В+5 ) / 2 - С в АХ
АХ ← ( АХ ) -1 ; 3А+( В+5 )/2 - С - 1 в АХ
Х ← ( АХ ) ; 3А+( В+5 )/2 - С - 1 в Х
Порядок проведения работы:
1. Ввести программу-пример и проверить ее работу
Текст программы:

Assembler

data segment
a dw 10
b dw 20
c dw 5
x dw ?
data ends
code segment
assume cs: code, ds: data
start: mov ax, data
mov ds, ax ; загрузить адрес
mov ax, a ; сегмента данных
sal ax, 1
add ax, a
mov bx, b
add bx, 5
sar bx, 1
add ax, bx
sub ax, c
dec ax
mov x, ax ; запись результата в память
quit:
mov ax, 4c00h ; код завершения 0
int 21 ; выход в dos
code ends
end start

Вот вариант который нужно сделать
"Х= 6 (А - 2В + С / 4) + 10"
Пожалуйста.Если не сложно.

@bormant · 28.03.2017, 23:09

Вас не смущает, что пример не на BASM (встроенном ассемблере)?
С форумом точно не ошиблись?

Добавлено через 11 минут

Pascal

{$G+}
var a, b, c, r: Integer;
begin
  Write('a, b, c: '); ReadLn(a,b,c);
  asm
    mov ax,c
    sar ax,2
    sub ax,b
    sub ax,b
    add ax,a
    sal ax,1
    mov bx,ax
    sal ax,1
    add ax,bx
    add ax,10
    mov r,ax
  end;
  WriteLn('6 (А - 2В + С / 4) + 10 = ',r,', контроль: ',r=6*(a-2*b+c div 4)+10);
end.

	28.03.2017, 23:09

Напишите программу на Pascal с встроенным Ассемблером

Решение