|
Вернуться
| 1 Брычиков Даниил Дмитриевич, 28 августа 2014 г. 23:02:49 | |
Задача, как можно догадаться, 697.
Изучаю assembler, хотел повыпрямлять руки. В FPC всё пашет
|
|
|
| 2 Брычиков Даниил Дмитриевич, 28 августа 2014 г. 23:00:54 | |
program acmp697;
{$IFDEF FPC}
{$ASMMODE INTEL}
{$ENDIF}
function go(l,w,h:cardinal):cardinal; assembler;
asm
mov ECX, h
xor EDX, EDX
mov EAX, l
mul ECX
shl EAX, 01
ADD EBX, EAX
mov EAX, w
mul ECX
shl EAX, 01
ADD EBX, EAX
xor EDX, EDX
mov EAX, EBX
mov ECX, 016
div ECX
test EDX, EDX
jz @nogo
inc EAX
@nogo:
end;
var ot:cardinal;
t:text;
q,qq,qqq:cardinal;
BEGIN
assign(t,'input.txt');
reset(t);
read(t,q,qq,qqq);
ot:=go(q,qq,qqq);
close(t);
assign(t,'output.txt');
rewrite(t);
write(t,ot);
close(t);
END.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| |
