API tools faq
paste
ms_shnits

Исходник программы для МНР, вычисляющая ранг матрицы 3х3

ms_shnits
Mar 15th, 2020
206
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 25.50 KB | None | 0 0
raw download clone embed print report
  1. // "Исходник" программы для МНР, вычисляющей ранг целочисленной матрицы 3х3
  2. // Отличается от "стандартной" программы (https://pastebin.com/u7tQKLA3) наличием комментариев и мнемоническими именами меток перехода
  3.  
  4. // ИНИЦИАЛИЗАЦИЯ основная программа
  5.  
  6.  
  7.  
  8.  
  9. // КОНСТАНТЫ: ячейки 100-...
  10.  
  11. // константа 0, оно же "пустой оператор"
  12. Z(100)
  13.  
  14. // константа 1
  15. Z(101)
  16. S(101)
  17.  
  18. // константа 2
  19. T(101,102)
  20. S(102)
  21.  
  22. // константа 3
  23. T(102,103)
  24. S(103)
  25.  
  26. // константа 4
  27. T(103,104)
  28. S(104)
  29.  
  30. // константа 5
  31. T(104,105)
  32. S(105)
  33.  
  34. // константа 6
  35. T(105,106)
  36. S(106)
  37.  
  38. // константа 7
  39. T(106,107)
  40. S(107)
  41.  
  42. // константа 8
  43. T(107,108)
  44. S(108)
  45.  
  46. // константа 9
  47. T(108,109)
  48. S(109)
  49.  
  50. // константа 10
  51. T(109,110)
  52. S(110)
  53.  
  54. // константа 11
  55. T(110,111)
  56. S(111)
  57.  
  58. // константа 12
  59. T(111,112)
  60. S(112)
  61.  
  62. // константа 13
  63. T(112,113)
  64. S(113)
  65.  
  66. // константа 14
  67. T(113,114)
  68. S(114)
  69.  
  70. // константа 15
  71. T(114,115)
  72. S(115)
  73.  
  74. // константа 16
  75. T(115,116)
  76. S(116)
  77.  
  78. // константа 17
  79. T(116,117)
  80. S(117)
  81.  
  82. // константа 18
  83. T(117,118)
  84. S(118)
  85.  
  86. // константа 19
  87. T(118,119)
  88. S(119)
  89.  
  90. // константа 20
  91. T(119,120)
  92. S(120)
  93.  
  94. // константа 21
  95. T(120,121)
  96. S(121)
  97.  
  98. // константа 22
  99. T(121,122)
  100. S(122)
  101.  
  102. // константа 23
  103. T(122,123)
  104. S(123)
  105.  
  106. // константа 24
  107. T(123,124)
  108. S(124)
  109.  
  110. // константа 25
  111. T(124,125)
  112. S(125)
  113.  
  114. // константа 26
  115. T(125,126)
  116. S(126)
  117.  
  118. // константа 27
  119. T(126,127)
  120. S(127)
  121.  
  122. // константа 28
  123. T(127,128)
  124. S(128)
  125.  
  126. // константа 29
  127. T(128,129)
  128. S(129)
  129.  
  130. // константа 30
  131. T(129,130)
  132. S(130)
  133.  
  134. // константа 31
  135. T(130,131)
  136. S(131)
  137.  
  138. // константа 32
  139. T(131,132)
  140. S(132)
  141.  
  142. // константа 33
  143. T(132,133)
  144. S(133)
  145.  
  146.  
  147. // ПЕРЕХОДЫ: ячейка 99
  148. ПЕРЕХОД:
  149. J(99,102,нормализация_Z_числа-1)
  150. J(99,103,сложение_двух_Z_чисел-1)
  151. J(99,104,сложение_двух_Z_чисел-2)
  152. J(99,105,сложение_двух_Z_чисел-3)
  153. J(99,106,умножение_двух_Z_чисел-1)
  154. J(99,107,умножение_двух_Z_чисел-2)
  155. J(99,108,умножение_двух_Z_чисел-3)
  156. J(99,109,умножение_двух_Z_чисел-4)
  157. J(99,110,умножение_двух_Z_чисел-5)
  158. J(99,111,умножение_двух_Z_чисел-6)
  159. J(99,112,умножение_двух_Z_чисел-7)
  160. J(99,113,определитель_Z_матрицы_2x2-1)
  161. J(99,114,определитель_Z_матрицы_2x2-2)
  162. J(99,115,определитель_Z_матрицы_2x2-3)
  163. J(99,116,определитель_Z_матрицы_3x3-1)
  164. J(99,117,определитель_Z_матрицы_3x3-2)
  165. J(99,118,определитель_Z_матрицы_3x3-3)
  166. J(99,119,определитель_Z_матрицы_3x3-4)
  167. J(99,120,определитель_Z_матрицы_3x3-5)
  168. J(99,121,определитель_Z_матрицы_3x3-6)
  169. J(99,122,определитель_Z_матрицы_3x3-7)
  170. J(99,123,определитель_Z_матрицы_3x3-8)
  171. J(99,124,основная_программа-ранг2-минор1)
  172. J(99,125,основная_программа-ранг2-минор2)
  173. J(99,126,основная_программа-ранг2-минор3)
  174. J(99,127,основная_программа-ранг2-минор4)
  175. J(99,128,основная_программа-ранг2-минор5)
  176. J(99,129,основная_программа-ранг2-минор6)
  177. J(99,130,основная_программа-ранг2-минор7)
  178. J(99,131,основная_программа-ранг2-минор8)
  179. J(99,132,основная_программа-ранг2-минор9)
  180. J(99,133,основная_программа-ранг3-1)
  181.  
  182.  
  183.  
  184.  
  185. // НАЧАЛО основная программа
  186.  
  187. Z(19)
  188.  
  189. J(1,100,основная_программа-2)
  190. S(19)
  191. J(1,1,основная_программа-ранг2)
  192.  
  193. основная_программа-2:
  194. J(2,100,основная_программа-3)
  195. S(19)
  196. J(1,1,основная_программа-ранг2)
  197.  
  198. основная_программа-3:
  199. J(3,100,основная_программа-4)
  200. S(19)
  201. J(1,1,основная_программа-ранг2)
  202.  
  203. основная_программа-4:
  204. J(4,100,основная_программа-5)
  205. S(19)
  206. J(1,1,основная_программа-ранг2)
  207.  
  208. основная_программа-5:
  209. J(5,100,основная_программа-6)
  210. S(19)
  211. J(1,1,основная_программа-ранг2)
  212.  
  213. основная_программа-6:
  214. J(6,100,основная_программа-7)
  215. S(19)
  216. J(1,1,основная_программа-ранг2)
  217.  
  218. основная_программа-7:
  219. J(7,100,основная_программа-8)
  220. S(19)
  221. J(1,1,основная_программа-ранг2)
  222.  
  223. основная_программа-8:
  224. J(8,100,основная_программа-9)
  225. S(19)
  226. J(1,1,основная_программа-ранг2)
  227.  
  228. основная_программа-9:
  229. J(9,100,основная_программа-10)
  230. S(19)
  231. J(1,1,основная_программа-ранг2)
  232.  
  233. основная_программа-10:
  234. J(10,100,основная_программа-11)
  235. S(19)
  236. J(1,1,основная_программа-ранг2)
  237.  
  238. основная_программа-11:
  239. J(11,100,основная_программа-12)
  240. S(19)
  241. J(1,1,основная_программа-ранг2)
  242.  
  243. основная_программа-12:
  244. J(12,100,основная_программа-13)
  245. S(19)
  246. J(1,1,основная_программа-ранг2)
  247.  
  248. основная_программа-13:
  249. J(13,100,основная_программа-14)
  250. S(19)
  251. J(1,1,основная_программа-ранг2)
  252.  
  253. основная_программа-14:
  254. J(14,100,основная_программа-15)
  255. S(19)
  256. J(1,1,основная_программа-ранг2)
  257.  
  258. основная_программа-15:
  259. J(15,100,основная_программа-16)
  260. S(19)
  261. J(1,1,основная_программа-ранг2)
  262.  
  263. основная_программа-16:
  264. J(16,100,основная_программа-17)
  265. S(19)
  266. J(1,1,основная_программа-ранг2)
  267.  
  268. основная_программа-17:
  269. J(17,100,основная_программа-18)
  270. S(19)
  271. J(1,1,основная_программа-ранг2)
  272.  
  273. основная_программа-18:
  274. J(18,100,основная_программа-ЗАВЕРШЕНИЕ)
  275. S(19)
  276.  
  277. основная_программа-ранг2:
  278.  
  279. T(124,81)
  280. T(1,82)
  281. T(2,83)
  282. T(3,84)
  283. T(4,85)
  284. T(7,86)
  285. T(8,87)
  286. T(9,88)
  287. T(10,89)
  288. J(1,1,определитель_Z_матрицы_2x2)
  289. основная_программа-ранг2-минор1:
  290. J(90,100,основная_программа-ранг2-минор1-1)
  291. S(19)
  292. J(1,1,основная_программа-ранг3)
  293. основная_программа-ранг2-минор1-1:
  294. J(91,100,основная_программа-ранг2-минор1-2)
  295. S(19)
  296. J(1,1,основная_программа-ранг3)
  297. основная_программа-ранг2-минор1-2:
  298.  
  299. T(125,81)
  300. T(1,82)
  301. T(2,83)
  302. T(5,84)
  303. T(6,85)
  304. T(7,86)
  305. T(8,87)
  306. T(11,88)
  307. T(12,89)
  308. J(1,1,определитель_Z_матрицы_2x2)
  309. основная_программа-ранг2-минор2:
  310. J(90,100,основная_программа-ранг2-минор2-1)
  311. S(19)
  312. J(1,1,основная_программа-ранг3)
  313. основная_программа-ранг2-минор2-1:
  314. J(91,100,основная_программа-ранг2-минор2-2)
  315. S(19)
  316. J(1,1,основная_программа-ранг3)
  317. основная_программа-ранг2-минор2-2:
  318.  
  319. T(126,81)
  320. T(3,82)
  321. T(4,83)
  322. T(5,84)
  323. T(6,85)
  324. T(9,86)
  325. T(10,87)
  326. T(11,88)
  327. T(12,89)
  328. J(1,1,определитель_Z_матрицы_2x2)
  329. основная_программа-ранг2-минор3:
  330. J(90,100,основная_программа-ранг2-минор3-1)
  331. S(19)
  332. J(1,1,основная_программа-ранг3)
  333. основная_программа-ранг2-минор3-1:
  334. J(91,100,основная_программа-ранг2-минор3-2)
  335. S(19)
  336. J(1,1,основная_программа-ранг3)
  337. основная_программа-ранг2-минор3-2:
  338.  
  339. T(127,81)
  340. T(1,82)
  341. T(2,83)
  342. T(3,84)
  343. T(4,85)
  344. T(13,86)
  345. T(14,87)
  346. T(15,88)
  347. T(16,89)
  348. J(1,1,определитель_Z_матрицы_2x2)
  349. основная_программа-ранг2-минор4:
  350. J(90,100,основная_программа-ранг2-минор4-1)
  351. S(19)
  352. J(1,1,основная_программа-ранг3)
  353. основная_программа-ранг2-минор4-1:
  354. J(91,100,основная_программа-ранг2-минор4-2)
  355. S(19)
  356. J(1,1,основная_программа-ранг3)
  357. основная_программа-ранг2-минор4-2:
  358.  
  359. T(128,81)
  360. T(1,82)
  361. T(2,83)
  362. T(5,84)
  363. T(6,85)
  364. T(13,86)
  365. T(14,87)
  366. T(17,88)
  367. T(18,89)
  368. J(1,1,определитель_Z_матрицы_2x2)
  369. основная_программа-ранг2-минор5:
  370. J(90,100,основная_программа-ранг2-минор5-1)
  371. S(19)
  372. J(1,1,основная_программа-ранг3)
  373. основная_программа-ранг2-минор5-1:
  374. J(91,100,основная_программа-ранг2-минор5-2)
  375. S(19)
  376. J(1,1,основная_программа-ранг3)
  377. основная_программа-ранг2-минор5-2:
  378.  
  379. T(129,81)
  380. T(3,82)
  381. T(4,83)
  382. T(5,84)
  383. T(6,85)
  384. T(15,86)
  385. T(16,87)
  386. T(17,88)
  387. T(18,89)
  388. J(1,1,определитель_Z_матрицы_2x2)
  389. основная_программа-ранг2-минор6:
  390. J(90,100,основная_программа-ранг2-минор6-1)
  391. S(19)
  392. J(1,1,основная_программа-ранг3)
  393. основная_программа-ранг2-минор6-1:
  394. J(91,100,основная_программа-ранг2-минор6-2)
  395. S(19)
  396. J(1,1,основная_программа-ранг3)
  397. основная_программа-ранг2-минор6-2:
  398.  
  399. T(130,81)
  400. T(7,82)
  401. T(8,83)
  402. T(9,84)
  403. T(10,85)
  404. T(13,86)
  405. T(14,87)
  406. T(15,88)
  407. T(16,89)
  408. J(1,1,определитель_Z_матрицы_2x2)
  409. основная_программа-ранг2-минор7:
  410. J(90,100,основная_программа-ранг2-минор7-1)
  411. S(19)
  412. J(1,1,основная_программа-ранг3)
  413. основная_программа-ранг2-минор7-1:
  414. J(91,100,основная_программа-ранг2-минор7-2)
  415. S(19)
  416. J(1,1,основная_программа-ранг3)
  417. основная_программа-ранг2-минор7-2:
  418.  
  419. T(131,81)
  420. T(7,82)
  421. T(8,83)
  422. T(11,84)
  423. T(12,85)
  424. T(13,86)
  425. T(14,87)
  426. T(17,88)
  427. T(18,89)
  428. J(1,1,определитель_Z_матрицы_2x2)
  429. основная_программа-ранг2-минор8:
  430. J(90,100,основная_программа-ранг2-минор8-1)
  431. S(19)
  432. J(1,1,основная_программа-ранг3)
  433. основная_программа-ранг2-минор8-1:
  434. J(91,100,основная_программа-ранг2-минор8-2)
  435. S(19)
  436. J(1,1,основная_программа-ранг3)
  437. основная_программа-ранг2-минор8-2:
  438.  
  439. T(132,81)
  440. T(9,82)
  441. T(10,83)
  442. T(11,84)
  443. T(12,85)
  444. T(15,86)
  445. T(16,87)
  446. T(17,88)
  447. T(18,89)
  448. J(1,1,определитель_Z_матрицы_2x2)
  449. основная_программа-ранг2-минор9:
  450. J(90,100,основная_программа-ранг2-минор9-1)
  451. S(19)
  452. J(1,1,основная_программа-ранг3)
  453. основная_программа-ранг2-минор9-1:
  454. J(91,100,основная_программа-ранг2-минор9-2)
  455. S(19)
  456. J(1,1,основная_программа-ранг3)
  457. основная_программа-ранг2-минор9-2:
  458.  
  459. J(1,1,основная_программа-ЗАВЕРШЕНИЕ)
  460.  
  461. основная_программа-ранг3:
  462. T(133,151)
  463. T(1,152)
  464. T(2,153)
  465. T(3,154)
  466. T(4,155)
  467. T(5,156)
  468. T(6,157)
  469. T(7,158)
  470. T(8,159)
  471. T(9,160)
  472. T(10,161)
  473. T(11,162)
  474. T(12,163)
  475. T(13,164)
  476. T(14,165)
  477. T(15,166)
  478. T(16,167)
  479. T(17,168)
  480. T(18,169)
  481. J(1,1,определитель_Z_матрицы_3x3)
  482. основная_программа-ранг3-1:
  483. J(170,100,основная_программа-ранг3-2)
  484. S(19)
  485. J(1,1,основная_программа-ЗАВЕРШЕНИЕ)
  486. основная_программа-ранг3-2:
  487. J(171,100,основная_программа-ЗАВЕРШЕНИЕ)
  488. S(19)
  489.  
  490. J(1,1,основная_программа-ЗАВЕРШЕНИЕ)
  491.  
  492. // КОНЕЦ основная программа
  493.  
  494.  
  495.  
  496.  
  497. // подпрограмма "максимум_двух_N_чисел"
  498. // точка выхода:
  499. // ячейка 21
  500. // параметры:
  501. // ячейка 22
  502. // ячейка 23
  503. // результат:
  504. // ячейка 24
  505. максимум_двух_N_чисел:
  506. Z(24)
  507. Z(25)
  508.  
  509. J(22,100,максимум_двух_N_чисел-второе_число)
  510. J(23,100,максимум_двух_N_чисел-первое_число)
  511.  
  512.  
  513. максимум_двух_N_чисел-цикл:
  514. S(25)
  515. J(25,22,максимум_двух_N_чисел-второе_число)
  516. J(25,23,максимум_двух_N_чисел-первое_число)
  517.  
  518. // продолжение цикла "максимум_двух_N_чисел-цикл"
  519. J(1,1,максимум_двух_N_чисел-цикл)
  520.  
  521.  
  522. максимум_двух_N_чисел-первое_число:
  523. T(22,24)
  524. J(1,1,максимум_двух_N_чисел-КОНЕЦ)
  525.  
  526. максимум_двух_N_чисел-второе_число:
  527. T(23,24)
  528. J(1,1,максимум_двух_N_чисел-КОНЕЦ)
  529.  
  530. максимум_двух_N_чисел-КОНЕЦ:
  531. T(21, 99)
  532. J(1,1,ПЕРЕХОД)
  533.  
  534. // КОНЕЦ подпрограмма "максимум_двух_N_чисел"
  535.  
  536.  
  537.  
  538.  
  539. // подпрограмма "нормализация_Z_числа"
  540. // точка выхода:
  541. // ячейка 31
  542. // параметры:
  543. // ячейка 32,33 - Z-число
  544. // результат:
  545. // ячейка 34,35
  546. нормализация_Z_числа:
  547. Z(34)
  548. Z(35)
  549. Z(36)
  550. Z(37)
  551. Z(38)
  552. Z(39)
  553.  
  554. J(32,33,нормализация_Z_числа-ноль)
  555.  
  556. J(32,100,нормализация_Z_числа-ничего_не_делать)
  557. J(33,100,нормализация_Z_числа-ничего_не_делать)
  558.  
  559. T(32,22)
  560. T(33,23)
  561. T(102, 21)
  562. J(1,1,максимум_двух_N_чисел)
  563. нормализация_Z_числа-1:
  564. T(24,36)
  565.  
  566. S(37)
  567. S(38)
  568.  
  569. нормализация_Z_числа-цикл:
  570.  
  571. J(37,100,нормализация_Z_числа-цикл-левая_часть-скип)
  572. S(34)
  573. нормализация_Z_числа-цикл-левая_часть-скип:
  574.  
  575. J(38,100,нормализация_Z_числа-цикл-правая_часть-скип)
  576. S(35)
  577. нормализация_Z_числа-цикл-правая_часть-скип:
  578.  
  579. J(32,34,нормализация_Z_числа-левая_часть_кончилась)
  580. J(33,35,нормализация_Z_числа-правая_часть_кончилась)
  581.  
  582. J(1,1,нормализация_Z_числа-цикл-продолжение)
  583. нормализация_Z_числа-левая_часть_кончилась:
  584. Z(34)
  585. Z(35)
  586. Z(37)
  587.  
  588. J(1,1,нормализация_Z_числа-цикл-продолжение)
  589. нормализация_Z_числа-правая_часть_кончилась:
  590. Z(34)
  591. Z(35)
  592. Z(38)
  593.  
  594. нормализация_Z_числа-цикл-продолжение:
  595. S(39)
  596. J(39,36,нормализация_Z_числа-КОНЕЦ)
  597. J(1,1,нормализация_Z_числа-цикл)
  598.  
  599. J(1,1,нормализация_Z_числа-КОНЕЦ)
  600. нормализация_Z_числа-ноль:
  601. Z(34)
  602. Z(35)
  603.  
  604. J(1,1,нормализация_Z_числа-КОНЕЦ)
  605. нормализация_Z_числа-ничего_не_делать:
  606. T(32,34)
  607. T(33,35)
  608.  
  609. нормализация_Z_числа-КОНЕЦ:
  610. T(31, 99)
  611. J(1,1,ПЕРЕХОД)
  612.  
  613. // КОНЕЦ подпрограмма "нормализация_Z_числа"
  614.  
  615.  
  616.  
  617.  
  618. // подпрограмма "сложение_двух_N_чисел"
  619. // точка выхода:
  620. // ячейка 41
  621. // параметры:
  622. // ячейка 42
  623. // ячейка 43
  624. // результат:
  625. // ячейка 44
  626. сложение_двух_N_чисел:
  627. Z(44)
  628. Z(45)
  629.  
  630. J(42,100,сложение_двух_N_чисел-второе_число)
  631. J(43,100,сложение_двух_N_чисел-первое_число)
  632.  
  633.  
  634. сложение_двух_N_чисел-цикл1:
  635. S(44)
  636. S(45)
  637. J(42,45,сложение_двух_N_чисел-цикл1-конец)
  638. J(1,1,сложение_двух_N_чисел-цикл1)
  639.  
  640. сложение_двух_N_чисел-цикл1-конец:
  641. Z(45)
  642.  
  643.  
  644. сложение_двух_N_чисел-цикл2:
  645. S(44)
  646. S(45)
  647. J(43,45,сложение_двух_N_чисел-КОНЕЦ)
  648. J(1,1,сложение_двух_N_чисел-цикл2)
  649.  
  650.  
  651. сложение_двух_N_чисел-первое_число:
  652. T(42,44)
  653. J(1,1,сложение_двух_N_чисел-КОНЕЦ)
  654.  
  655. сложение_двух_N_чисел-второе_число:
  656. T(43,44)
  657. J(1,1,сложение_двух_N_чисел-КОНЕЦ)
  658.  
  659. сложение_двух_N_чисел-КОНЕЦ:
  660. T(41, 99)
  661. J(1,1,ПЕРЕХОД)
  662.  
  663. // КОНЕЦ подпрограмма "сложение_двух_N_чисел"
  664.  
  665.  
  666.  
  667.  
  668. // подпрограмма "сложение_двух_Z_чисел"
  669. // точка выхода:
  670. // ячейка 51
  671. // параметры:
  672. // ячейка 52,53 - Z-число
  673. // ячейка 54,55 - Z-число
  674. // результат:
  675. // ячейка 56,57 - Z-число
  676. сложение_двух_Z_чисел:
  677.  
  678. Z(41)
  679. T(103,41)
  680. T(52,42)
  681. T(54,43)
  682. J(1,1,сложение_двух_N_чисел)
  683. сложение_двух_Z_чисел-1:
  684. T(44,56)
  685.  
  686. T(104,41)
  687. T(53,42)
  688. T(55,43)
  689. J(1,1,сложение_двух_N_чисел)
  690. сложение_двух_Z_чисел-2:
  691. T(44,57)
  692.  
  693. Z(31)
  694. T(105,31)
  695. T(56,32)
  696. T(57,33)
  697. J(1,1,нормализация_Z_числа)
  698. сложение_двух_Z_чисел-3:
  699. T(34,56)
  700. T(35,57)
  701.  
  702. сложение_двух_Z_чисел-КОНЕЦ:
  703. T(51, 99)
  704. J(1,1,ПЕРЕХОД)
  705.  
  706. // КОНЕЦ подпрограмма "сложение_двух_Z_чисел"
  707.  
  708.  
  709.  
  710.  
  711. // подпрограмма "умножение_двух_N_чисел"
  712. // точка выхода:
  713. // ячейка 61
  714. // параметры:
  715. // ячейка 62
  716. // ячейка 63
  717. // результат:
  718. // ячейка 64
  719. умножение_двух_N_чисел:
  720. Z(64)
  721. Z(65)
  722. Z(66)
  723.  
  724. J(62,100,умножение_двух_N_чисел-ноль)
  725. J(63,100,умножение_двух_N_чисел-ноль)
  726.  
  727. умножение_двух_N_чисел-1:
  728. Z(65)
  729. J(66,63,умножение_двух_N_чисел-КОНЕЦ)
  730. S(66)
  731. умножение_двух_N_чисел-2:
  732. S(64)
  733. S(65)
  734. J(65,62,умножение_двух_N_чисел-1)
  735. J(1,1,умножение_двух_N_чисел-2)
  736.  
  737. умножение_двух_N_чисел-ноль:
  738. J(1,1,умножение_двух_N_чисел-КОНЕЦ)
  739.  
  740. умножение_двух_N_чисел-КОНЕЦ:
  741. T(61, 99)
  742. J(1,1,ПЕРЕХОД)
  743.  
  744. // КОНЕЦ подпрограмма "умножение_двух_N_чисел"
  745.  
  746.  
  747.  
  748.  
  749. // подпрограмма "умножение_двух_Z_чисел"
  750. // точка выхода:
  751. // ячейка 71
  752. // параметры:
  753. // ячейка 72,73 - Z-число a -b
  754. // ячейка 74,75 - Z-число c -d
  755. // результат:
  756. // ячейка 76,77 - Z-число ac+bd -(bc+ad)
  757. умножение_двух_Z_чисел:
  758.  
  759. T(106,61)
  760. T(72,62)
  761. T(74,63)
  762. J(1,1,умножение_двух_N_чисел)
  763. умножение_двух_Z_чисел-1:
  764. T(64,78)
  765.  
  766. T(107,61)
  767. T(73,62)
  768. T(75,63)
  769. J(1,1,умножение_двух_N_чисел)
  770. умножение_двух_Z_чисел-2:
  771. T(64,79)
  772.  
  773. T(108,41)
  774. T(78,42)
  775. T(79,43)
  776. J(1,1,сложение_двух_N_чисел)
  777. умножение_двух_Z_чисел-3:
  778. T(44,76)
  779.  
  780. T(109,61)
  781. T(73,62)
  782. T(74,63)
  783. J(1,1,умножение_двух_N_чисел)
  784. умножение_двух_Z_чисел-4:
  785. T(64,78)
  786.  
  787. T(110,61)
  788. T(72,62)
  789. T(75,63)
  790. J(1,1,умножение_двух_N_чисел)
  791. умножение_двух_Z_чисел-5:
  792. T(64,79)
  793.  
  794. T(111,41)
  795. T(78,42)
  796. T(79,43)
  797. J(1,1,сложение_двух_N_чисел)
  798. умножение_двух_Z_чисел-6:
  799. T(44,77)
  800.  
  801. T(112,31)
  802. T(76,32)
  803. T(77,33)
  804. J(1,1,нормализация_Z_числа)
  805. умножение_двух_Z_чисел-7:
  806. T(34,76)
  807. T(35,77)
  808.  
  809. умножение_двух_Z_чисел-КОНЕЦ:
  810. T(71, 99)
  811. J(1,1,ПЕРЕХОД)
  812.  
  813. // КОНЕЦ подпрограмма "умножение_двух_Z_чисел"
  814.  
  815.  
  816.  
  817.  
  818.  
  819. // подпрограмма "определитель_Z_матрицы_2x2"
  820. // точка выхода:
  821. // ячейка 81
  822. // параметры:
  823. // ячейка 82,83 - Z-число 1,1
  824. // ячейка 84,85 - Z-число 1,2
  825. // ячейка 86,87 - Z-число 2,1
  826. // ячейка 88,89 - Z-число 2,2
  827. // результат:
  828. // ячейка 90,91 - Z-число
  829. определитель_Z_матрицы_2x2:
  830.  
  831. T(113,71)
  832. T(82,72)
  833. T(83,73)
  834. T(88,74)
  835. T(89,75)
  836. J(1,1,умножение_двух_Z_чисел)
  837. определитель_Z_матрицы_2x2-1:
  838. T(76,90)
  839. T(77,91)
  840.  
  841. T(114,71)
  842. T(84,72)
  843. T(85,73)
  844. T(86,74)
  845. T(87,75)
  846. J(1,1,умножение_двух_Z_чисел)
  847. определитель_Z_матрицы_2x2-2:
  848. T(76,55)
  849. T(77,54)
  850. T(90,52)
  851. T(91,53)
  852.  
  853. T(115,51)
  854. J(1,1,сложение_двух_Z_чисел)
  855. определитель_Z_матрицы_2x2-3:
  856. T(56,90)
  857. T(57,91)
  858.  
  859. определитель_Z_матрицы_2x2-КОНЕЦ:
  860. T(81, 99)
  861. J(1,1,ПЕРЕХОД)
  862.  
  863. // КОНЕЦ подпрограмма "определитель_Z_матрицы_2x2"
  864.  
  865.  
  866.  
  867.  
  868. // подпрограмма "определитель_Z_матрицы_3x3"
  869. // точка выхода:
  870. // ячейка 151
  871. // параметры:
  872. // ячейка 152,153 - Z-число 1,1
  873. // ячейка 154,155 - Z-число 1,2
  874. // ячейка 156,157 - Z-число 1,3
  875. // ячейка 158,159 - Z-число 2,1
  876. // ячейка 160,161 - Z-число 2,2
  877. // ячейка 162,163 - Z-число 2,3
  878. // ячейка 164,165 - Z-число 3,1
  879. // ячейка 166,167 - Z-число 3,2
  880. // ячейка 168,169 - Z-число 3,3
  881. // результат:
  882. // ячейка 170,171 - Z-число
  883. определитель_Z_матрицы_3x3:
  884.  
  885. T(116,81)
  886. T(160,82)
  887. T(161,83)
  888. T(162,84)
  889. T(163,85)
  890. T(166,86)
  891. T(167,87)
  892. T(168,88)
  893. T(169,89)
  894. J(1,1,определитель_Z_матрицы_2x2)
  895. определитель_Z_матрицы_3x3-1:
  896. T(117,71)
  897. T(90,72)
  898. T(91,73)
  899. T(152,74)
  900. T(153,75)
  901. J(1,1,умножение_двух_Z_чисел)
  902. определитель_Z_матрицы_3x3-2:
  903. T(76,170)
  904. T(77,171)
  905.  
  906. T(118,81)
  907. T(158,82)
  908. T(159,83)
  909. T(162,84)
  910. T(163,85)
  911. T(164,86)
  912. T(165,87)
  913. T(168,88)
  914. T(169,89)
  915. J(1,1,определитель_Z_матрицы_2x2)
  916. определитель_Z_матрицы_3x3-3:
  917. T(119,71)
  918. T(90,72)
  919. T(91,73)
  920. T(155,74)
  921. T(154,75)
  922. J(1,1,умножение_двух_Z_чисел)
  923. определитель_Z_матрицы_3x3-4:
  924. T(120,51)
  925. T(76,52)
  926. T(77,53)
  927. T(170,54)
  928. T(171,55)
  929. J(1,1,сложение_двух_Z_чисел)
  930. определитель_Z_матрицы_3x3-5:
  931. T(56,170)
  932. T(57,171)
  933.  
  934. T(121,81)
  935. T(158,82)
  936. T(159,83)
  937. T(160,84)
  938. T(161,85)
  939. T(164,86)
  940. T(165,87)
  941. T(166,88)
  942. T(167,89)
  943. J(1,1,определитель_Z_матрицы_2x2)
  944. определитель_Z_матрицы_3x3-6:
  945. T(122,71)
  946. T(90,72)
  947. T(91,73)
  948. T(156,74)
  949. T(157,75)
  950. J(1,1,умножение_двух_Z_чисел)
  951. определитель_Z_матрицы_3x3-7:
  952. T(123,51)
  953. T(76,52)
  954. T(77,53)
  955. T(170,54)
  956. T(171,55)
  957. J(1,1,сложение_двух_Z_чисел)
  958. определитель_Z_матрицы_3x3-8:
  959. T(56,170)
  960. T(57,171)
  961.  
  962. определитель_Z_матрицы_3x3-КОНЕЦ:
  963. T(151, 99)
  964. J(1,1,ПЕРЕХОД)
  965.  
  966.  
  967.  
  968.  
  969. // ЗАВЕРШЕНИЕ основная программа
  970. основная_программа-ЗАВЕРШЕНИЕ:
  971. Z(100)
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!