VPF::Помощь в коде ассемблера+pascal - Форум программистов

vlad11101997

Дата 2.12.2014, 18:40 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


program Test_1;
uses Crt;
var
x,y,z,f:integer;
begin
clrscr;
write('x: ');
readln(x);
write('y: ');
readln(y);
write('z: ');
readln(z);
{   f=(3x-2y+1)/(10z-1) это нужно посчитать }
asm
mov ax, 3
imul x
xchg ax, bx
mov ax, 2
imul y
sub ax,bx
mov cx,1
add cx,bx
mov dx, 10
imul z
mov bx,1
idiv dx
mov f,ax
end;
writeln('f=', f);
readkey;

ввожу данные, все ок считает но не верно. Помогите плиз.

baldina

Дата 2.12.2014, 19:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 3433
Регистрация: 5.12.2007
Где: Москва

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

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

все ок считает но не верно

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

mov ax, 3
imul x
xchg ax, bx

bx = 3x

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

mov ax, 2
imul y

ax = 2y

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

sub ax,bx

ax = 2y-3x

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

mov cx,1
add cx,bx

cx = 3x+1

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

mov dx, 10
imul z

dx = 10
ax = (2y-3x)*z

думаю, понятно что исправлять

Это сообщение отредактировал(а) baldina - 2.12.2014, 19:23

vlad11101997

Дата 2.12.2014, 21:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(baldina @ 2.12.2014, 19:22)

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

все ок считает но не верно

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

mov ax, 3
imul x
xchg ax, bx

bx = 3x

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

mov ax, 2
imul y

ax = 2y

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

sub ax,bx

ax = 2y-3x

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

mov cx,1
add cx,bx

cx = 3x+1

Цитата(vlad11101997 @ 2.12.2014, 18:40

)

mov dx, 10
imul z

dx = 10
ax = (2y-3x)*z

думаю, понятно что исправлять

спасибо вот исправил все =)

Код


program success_project;
 uses Crt;
 var
 x,y,z,f:integer;
 begin
 clrscr;
 write('x: ');
 readln(x);
 write('y: ');
 readln(y);
 write('z: ');
 readln(z);
 {   f=(3x-2y+1)/(10z-1)  }
 asm
mov ax, 3  {ax=3}
imul x     {ax=ax*3}
xchg ax, bx {bx=ax}
mov ax, 2  {ax=2}
imul y     {ax=ax*2}
sub bx,ax  {bx=bx-ax=(ax*3)-(ax*2)}
inc bx; {bx+1}
mov ax, 10 {ax=10}
imul z     {ax=ax*10}
dec ax {ax-1}
xchg ax,bx
idiv bx
mov f,ax
 end;
 writeln('f=', f);
 readkey;
 end.

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