Вставки асемблера в паскале

[Avskeds]

Вставки асемблера в паскале

Пользуясь ассемблерными вставками в Pascal написать программу вычисления выражения

3*sqr(a)*b+5*a*exp(3*ln(b)) / 2*sqr(sqr(a))+1

program labo7;
var A,B,Y:integer;
begin
 write('A,B?:'); read(A,B);
 asm
 mov ax,A
 imul ax
 imul B
 mov bx,3
 imul bx
 mov si,ax
 mov ax,A
 imul B
 imul B
 imul B
 mov bx,5
 imul bx

 add ax,si

 mov di,ax
 mov ax,A
 imul ax
 push ax
 imul ax
 mov bx,2
 imul bx
 inc ax
 XCHG di,ax
 cwd
 idiv di
 mov Y,ax
end;
writeln ('Result:',3*sqr(A)*B+5*A*exp(3*ln(B)) div 2*sqr(sqr(A))+1 , ',Y= ',Y) ;
end.

Вот то что у меня получилось,но там постоянно вылезает ошибка,не знаю уже что делатьtehnari_ru_325:

 

[kreol]

какая ошибка вылазит?

 

[Avskeds]

Error 41 : Operand types do not match operator

 

[kreol]

ну это хорошо. а где именно? на какой строке?

 

[Avskeds]

Предпоследняя строка,после знаменателя.:tehnari_ru_509:

 

[duc]

Это я круглый или голова у меня квадратная? Ты объявляешь переменные целочисленными, а работаешь с ними как с плавающей точкой. Помнится надо копать именно в направлении преобразования типов при математических операциях.

 

[Avskeds]

А как работать чтобы они оставались целочисленными?

 

[Avskeds]

Можете еще подсказать полезную информацию по вставкам асемблера в паскале,а то искал что то ничего не нашел понятного.

 

[duc]

Извини, последний раз писал ассемблерную вставку лет пятнадцать назад и я сейчас у клиента, полазить повспоминать не получится

 

[Avskeds]

Офигеть,зачем мне это задают))) 15 лет назад)) Ясно почему нормальной инфы нету в инете про это)

 

[duc]

Пару месяцев назад писал знакомому лабы по информатике, когда он пошёл сдавать, оказалось что у него единственного из группы рабочие программы
А ведь я поленился даже Паскаль разворачивать, нарисовал ему на QBASICе от NT4

 

[Avskeds]

Вот так вот они учат в универах)) Ну что кто нибудь готов помочь?))