Использование команд пересылки, арифметических команд и команд переходов языка ассемблера.

[Zazug]

По этому коду формула u=min(x+z,2y+z)+min(x+z,y+2z).
А я не могу преобразовать в эту формулу u=2y-min(x,y,z)

program n2;
uses crt;
var r1,r2,r3,x,y,z:byte; k:char;

Function asem1(x,y,z:byte):byte;
begin
asm
mov al,x
mov bl,y
mov cl,z

add al,cl {x+z}
mov dl,al

mov cl,2
mov al,y
mul cl      {2Y+Z}
mov cl,z
add al,cl
mov cl,al

cmp dl,cl
jb @m
mov @result,cl
@m: mov @result,dl
end;
end;

Function asem2(x,y,z:byte):byte;
begin
asm
mov al,z
mov bl,y
mov cl,x

add cl,al
mov dl,cl

mov al,z
mov cl,2
mul cl
add al,bl
mov cl,al

cmp dl,cl
jb @m
mov @result,cl
@m: mov @result,dl
end;
end;

Function asem3(r1,r2:byte):byte;
begin
asm
mov al,r1
mov bl,r2
add al,bl
mov @result,al

end;
end;

begin
repeat
clrscr;
writeln;
writeln('U=Min(x+z,2y+z)+min(x+z,y+2z)');
writeln;
writeln('1 - Reshit primer');
writeln('2 - Exit');
readln(k);
case k of
'1':begin
writeln('vvedite x'); readln(x);
writeln('vvedite y'); readln(y);
writeln('vvedite z'); readln(z);
r1:=asem1(x,y,z);
writeln('U1=',r1);
r2:=asem2(x,y,z);
writeln('U2=',r2);
r3:=asem3(r1,r2);
writeln('U=',r3);
writeln;
writeln('Press Enter');
readln;
end;
end;
until (k='2');
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.