Главная Новости сайта Контрольные Форум Полезные статьи Фотогалерея Пользователи Карта сайта
Главная arrow Форум

Вы не авторизованы.

дипломы,курсовые,рефераты,контрольные,диссертации,отчеты на заказ

Форум
Добро пожаловать, Гость   /   Вы можете зарегистрироваться с Главной страницы.
Вход   
Контрольная по ЭиРКСС-1. (1 чел.) (1) Гость
Контрольные
Вниз
Сообщения темы: Контрольная по ЭиРКСС-1.
#5113
Fart_1985
Пользователи
Ранг участника форума равен 2
Постов: 27

Пользователь в оффлайне  Кликните здесь, чтобы посмотреть профиль этого пользователя
Контрольная по ЭиРКСС-1.6 г., 8 мес. назад Репутация: 1  
Доброе время суток!Кто нибудь может подсказать,где я допустил ошибку в этой программе,первой контрольной работе по ЭиРКСС-1,вроде всё правильно но ответ в ассемблере отличается от паскаля?:

program;
uses Crt;
var j,k:word;
BEGIN
clrscr;
asm
mov j,96h
mov k,240h
@m1: mov ax,k
xor dx,dx
mov cx,7h
div cx
mov bx,0h
cmp dx,02h
jne @m2
mov bx,1h
@m2: push bx
mov ax,k
xor dx,dx
mov cx,1bh
div cx
mov dx,0h
cmp ax,02h
jne @m3
mov dx,1h
@m3: pop ax
xor ax,dx
cmp ax,1h
jne @m4
mov ax,j
sub ax,k
jmp @m5
@m4: mov ax,k
mul k
mov bx,j
add ax,bx
mov j,ax
@m5: cmp k,0fh
jle @m6
sub k,1h
jmp @m1
@m6:
end;
writeln ('Assembler';
writeln ('j=' ,j, ' k=', k);
j:=96;
for k:=240 downto 15 do
if ((k mod 7)<>2) xor ((k div 27)<>2) then j:=j-k else j:=J+k*k;
writeln ('PASKAL';
writeln ('j=' ,j, ' k=', k);
readln;
END.

Заранее благодарен!
 
ЗарегистрированЗарегистрирован  
 
Последнее редактирование: 28.02.2012 00:41 Редактировал Fart_1985.
  Для добавления сообщений Вы должны зарегистрироваться или авторизоваться
Вверх

Сообщения на форуме могут оставлять только зарегистрированные пользователи.