-1

Нод для всех элементов массива. Реализовать программу на Эдсак.

Initial Order 1

[31]T 87 [конец программы] S 
[32]Z 0 S[останавливаем машину] [Переменные] 
[33]T 0 S[очищаем аккумулятор и освобождаем ячейку] 
[34]A 79 [адрес, где хранится длина массива] S 
[35]S 77 [адрес единицы] S [длина -1 итераций] 
[36]T 1 S [счетчик для кол-ва сравнений] 
[37]T 2 S [ответ] 

[Начальная установка] 
[38]A 85 [первое число] S 
[39]L 0 L[сдвигаем аккумулятор на разряд влево] 
[40]A 50 S [добавляем инструкцию из 50 строки] 
[41]T 50 S [выгружаем в 50 строку адрес 1 числа] 
[42]A 86 [второе число] S 
[43]L 0 L[сдвигаем аккумулятор на разряд влево] 
[44]A 52 S[аналогично добавляем и потом выгружаем] 
[45]T 52 S 
[46]A 1 S [загружаем счетчик] 
[47]S 77 S [уменьшаем его на 1] 
[48]G 86 S [если итог <0 завершаем работу] 
[49]T 1 S [обновили счетчик, очистили аккумулятор] 

[первое число] 
[50]A 0 S [загрузка первого значения в аккумулятор] 
[51]T 8 S [выгрузка его в строку 8]

[второе число] 
[52]A 0 S [загрузка второго значения в аккумулятор] 
[53]T 10 S [выгрузка его в строку 10]

[Поиск НОД] 
[54]A 8 S [значение первого числа в аккумулятор] 
[55]S 10 S [вычитаем второе из первого] 
[56]E 62 S [если результат вычитания >0 идем в 62 строку] 

[если второе число больше первого] 
[57]T 11 S [выгружаем ненужное значение] 
[58]A 10 S [загружаем второе число] 
[59]S 8 S [вычитаем из него первое] 
[60]T 10 S [выгружаем разность на место большего числа] 
[61]E 54 S [продолжаем искать, т. к. числа не равны] 

[проверяем равен ли результат вычитания 0] 
[62]S 77 S [вычли единицу] 
[63]G 67 S [если был 0 идем в строку 67] [пока что не НОД] 
[64]A 77 S [если не 0, то возвращаем единицу] 
[65]T 8 S [выгружаем разность на место большего числа] 
[66]E 54 S [возвращаемся к поиску НОД] [нашли НОД] 
[67]T 11 S [убираем лишнее] 
[68]A 8 S [загружаем НОД в аккумулятор] 
[69]T 2 S [выгружаем НОД в ячейку] 
[70]A 68 S [инструкция с адресом текущего НОД] 
[71]T 50 S [выгружаем ее в строку 50] 
[72]A 77[единица] S 
[73]L 0 L[сдвигаем аккумулятор на разряд влево] 
[74]A 52 S [теперь инструкция берет следующий элемент массива] 
[75]T 52 S [выгружаем ее в 52 строку]
[76]E 46 S [возвращаемся к началу цикла] 
[77]P 0 L [единица] 
[78]P 1 L [двойка - нужна для проверки] 
[79]P 2 L [длина массива - у нас 5] 

[наши числа] 
[80]P 4 S [8] 
[81]P 8 S [16] 
[82]P 12 S [24] 
[83]P 18 S [36] 
[84]P 22 S [44] 
[85]P 40 S [номер строки для цифры 8] 
[86]P 40 L [номер строки для цифры 16] 


Initial Order 2
GK [фиксация начального адреса подпрограммы] 
[106/0]A 9 @ [загрузка длины массива в аккумулятор] 
[107/1]T 20 F [выгрузка в рабочую ячейку] 
[108/2]A 15 @ [загрузка адреса первого номера в аккумулятор] 
[109/3]T 21 F [выгрузка в рабочую ячейку] 
[110/4]A 16 @ [загрузка адреса второго номера в аккумулятор] 
[111/5]T 22 F [выгрузка в рабочую ячейку] ZF 
[112/6]A 7 @ 
[113/7]G 56 F 
[114/8] 
[115/9]P 2 D [длина массива] 
[116/10]P 4 F [8] 
[117/11]P 8 F [16] 
[118/12]P 12 F [24] 
[119/13]P 18 F [36] 
[120/14]P 22 F [44] 
[121/15]P 10 @ [номер строки первого числа] 
[122/16]P 11 @ [номер строки второго числа] EZ PF T 56 K GK 
[56/0] A 3 F 
[57/1] T 47 @ [58/2] T 0 F 
[59/3] A 20 F [длина] 
[60/4] S 48 @ [61/5] T 1 F [счетчик] 
[62/6] T 2 F [результат] 

[ОБНОВЛЕНИЕ АДРЕСОВ ИНСТРУКЦИЙ] 
[63/7] A 21 F 
[64/8] XF 
[65/9] A 19[загрузка первого] @ 
[66/10] T 19[загрузка первого] @ 
[67/11] A 22 F 
[68/12] XF 
[69/13] A 21[загрузка второго] @ 
[70/14] T 21[загрузка второго] @

[НАЧАЛО ЦИКЛА] 
[71/15] A 1 F [загружаем счетчик в аккумулятор] 
[72/16] S 48 @ [уменьшаем счетчик на -1] 
[73/17] G 47 @ [если меньше 0, выходим] 
[74/18] T 1 F [перезаписываем счетчик] 
[75/19] A 0 F [загружаем первое  число] 
[76/20] T 8 F [выгружаем первое число в 8 ячейку] 
[77/21] A 0 F [загружаем второе число] [78/22] T 10 F [выгружаем второе числов в 10 ячейку] 

 [ВЫЧИСЛЯЕМ НОД] 
 [79/23] A 8 F [загружаем первое число в аккумулятор] 
 [80/24] S 10 F [вычитаем из первого второе] 
 [81/25] E 31 @ [проверяем знак разности]

 [ЕСЛИ ПЕРВОЕ ЧИСЛО БОЛЬШЕ ВТОРОГО]
 [82/26] T 11 F [очищаем аккумулятор] [83/27] A 10 F  [загружаем второе число в аккумулятор] 
 [84/28] S 8 F [вычитаем из второго первое] 
 [85/29] T 10 F [выгружаем разность на место второго]
 [86/30] E 23 @ [вычитание] 

 [ПРОВЕРКА НА ПОЛУЧЕНИЕ 0] 
 [87/31] S 48 @ [вычитаем 1] 
 [88/32] G 36 @ [не НОД, значит дальше] 
 [89/33] A 48 @ [возвращаем 1] 
 [90/34] T 8 F [выгрузка разности] 
 [91/35] E 23 @ [вычитание]

 [НАШЛИ НОД] 
 [92/36] T 11 F 
 [93/37] A 8 F 

 [НОД в аккумулятор] 
 [94/38] T 2 F [выгрузка НОД]

 [ОБНОВЛЕНИЕ АДРЕСОВ ИНСТРУКЦИЙ] 
 [95/39] A 37 @ [инструкция с адресом последнего НОДа] 
 [96/40] T 19 @ [записываем в 1 значение] 
 [97/41] A 48 @ 
 [98/42] XF [добавляем 2] 
 [99/43] A 21 @ [добавление предыдущей инструкции] 
 [100/44] T 21 @ [выгрузка нового значения] 
 [101/45] E 15 @ [возвращение в начало цикла] 
 [102/46] T 11 F 
 [103/47] E 0 F [выход из подпрограммы] 
 [ДАННЫЕ] 
 [104/48] P 0 D [1] 
 [105/49] P 1 F [2] 6

0

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Посмотрите другие вопросы с метками или задайте свой вопрос.