всроенный в паскале ассемблер.

[Vaiz_up]

Нужно написать программу через всроенный в паскале аасамблер.
y=(5*a*b*b*b+a*a*b)/ (a*a+b*b+1).Помогите пожалуйста,а то пытался,все никак правильный результат не получается.

[Stilet]

пытался

Ну дык хвастайся.

[Vaiz_up]

Var a,b,y:integer;
begin
read(a,b);
asm
mov as,S
imul a
imul b
imul b
imul b
add Ax,b
imul a
imul
mov Bx, \Ax
imul Ax
inc Ax
xchg Ax,Bx
cwt
idiv Bx
mov y, ax
end;
writeln(5*a*b*b*b+(a*a*b)) div (a*a+b*b+1),y);
end.
ну вот чета получилось,не знаю что изменить,помогите плиз

[Stilet]

Видимо что код ты этот скописпастил.
Вот тебе начало:

  var a,b:byte;
begin
 a:=2;b:=3;
 asm
  mov al,[a];       {5*a*b*b*b}
  imul ax,5;
  mul al, byte ptr [b]
  mul al, byte ptr [b]
  mul al, byte ptr [b]
  push eax

  mov al,[a];
  mul al,[a];
  mul al, byte ptr [b]
  pop bx

  add ax,bx      {(5*a*b*b*b+a*a*b)}

 end;

Далее по аналогии.

[Vaiz_up]

а можешь пожалуйста до конца?

я не копипастил его,я сам написал, а можешь пожалуйста до конца напечатать?ну всмысле весь код

[Stilet]

а можешь пожалуйста до конца?

Нет уж ты сам по аналогии допиши.

[Vaiz_up]

плин(просто опять где нибудь накосячу и все,и опять париться буду(

то что ты напечатал ,оно не пашет(((даже этот кусок