2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 DECLARE SUB mulr2 (a!, b!)
\r
9 DECLARE SUB mulr (a!, b!)
\r
10 DECLARE SUB mkback ()
\r
11 DECLARE SUB sut (a!, b!, c!)
\r
14 DECLARE SUB lihts ()
\r
15 DECLARE SUB findz ()
\r
16 DECLARE SUB addkord (a!, t!)
\r
17 DECLARE SUB misjag ()
\r
18 DECLARE SUB teejag (a!)
\r
19 DECLARE SUB subjag (b!)
\r
21 DECLARE SUB sisend ()
\r
22 DECLARE SUB start ()
\r
25 DIM SHARED det(1 TO 100, 1 TO 100)
\r
26 DIM SHARED det2(1 TO 100, 1 TO 100)
\r
27 DIM SHARED jau(1 TO 1000)
\r
29 DIM SHARED kord(1 TO 100)
\r
30 DIM SHARED kordt(1 TO 100)
\r
56 FOR x1 = x + 1 TO siz
\r
71 det(x1, y1) = det2(x1, y1) - det2(x, y1)
\r
88 FOR y1 = y + 1 TO siz
\r
103 det(x1, y1) = det2(x1, y1) - det2(x1, y)
\r
121 PRINT "null lisatud"
\r
135 IF det(x, y) = 0 THEN z = z + 1
\r
147 IF det(x, y) = 0 THEN z = z + 1
\r
156 'PRINT "max nulle", zerom
\r
164 IF ABS(det(x, y)) > 0 THEN x1 = x: GOTO 3
\r
167 addkord det(x1, y), 1
\r
173 IF ABS(det(x, y)) > 0 THEN y1 = y: GOTO 4
\r
176 addkord det(x, y1), 1
\r
186 IF x3 > x4 THEN x3 = x3 - 1
\r
187 IF y3 > y4 THEN y3 = y3 - 1
\r
209 IF jau(a) > s THEN s = jau(a)
\r
212 det(x, y) = det(x, y) / s
\r
231 IF jau(a) > s THEN s = jau(a)
\r
234 det(x, y) = det(x, y) / s
\r
243 PRINT "lihtsustatult"
\r
253 det2(x, y) = det(x, y)
\r
260 det2(a, y) = det2(a, y) * b
\r
266 det2(x, a) = det2(x, a) * b
\r
272 IF kordt(a) = 1 THEN PRINT " *"; ELSE PRINT " /";
\r
273 PRINT STR$(kord(a));
\r
279 PRINT CHR$(9) + STR$(det(x, y));
\r
290 PRINT CHR$(9) + STR$(det2(x, y));
\r
300 INPUT "sisesta determinandi suurus ", siz
\r
304 PRINT "rida" + STR$(y) + " veerg" + STR$(x)
\r
309 PRINT "sisestatud determinant"
\r
319 IF oli = 1 THEN teejag b: GOTO 2
\r
320 IF jam = 0 THEN GOTO 2
\r
324 IF b / c <> INT(b / c) THEN
\r
330 IF a <= jam THEN GOTO 1
\r
345 a = det(1, 1) * det(2, 2) - det(1, 2) * det(2, 1)
\r
346 PRINT "vahepealne vastus oli:" + STR$(a)
\r
348 IF kordt(b) = 1 THEN a = a * kord(b): c$ = "*" ELSE a = a / kord(b): c$ = "/"
\r
349 PRINT c$ + STR$(kord(b)) + " = " + STR$(a) + " ";
\r
352 PRINT "vastus on:" + STR$(a)
\r
357 IF zerom = siz THEN PRINT "vastus on: 0": GOTO 6
\r
358 IF zerom = siz - 1 THEN
\r
370 IF a = 0 THEN oli = 1: GOTO 8
\r
371 FOR b = 2 TO ABS(a)
\r
372 IF a / b = INT(a / b) THEN
\r