информатика1ё / wesna / labor1 / 18в
.doc18 вариант
Составить программу
для вычисления системы линейных
алгебраических уравнений по формулам
Крамера
Вычисление
определителей оформить как подпрограмму.
Подпрограмма типа GOSUB
INPUT a1, b1, с1
INPUT a2, b2, с2
u1 = c1: u2 = c2
v1 = b1: v2 = b2
GOSUB 10: t1 = u
u1 = a1: u2 = a2
v1 = b1: v2 = b2
GOSUB 10: t2 = u
X = t1/ t2
u1 = a1: u2 = a2
v1 = c1: v2 = c2
GOSUB 10: t1 = u
v1 = b1: v2 = b2
GOSUB 10: t2 = u
Y = t1/ t2
PRINT X,Y
END
-
u = u1 * v2 – u2 * v1
RETURN
end
Подпрограмма типа FUNCTION
DECLARE FUNCTION SUM (u1, U2, V1, V2)
INPUT a1, b1, с1
INPUT a2, b2, с2
X = SUM (c1, C2, b1, b2) / SUM (a1, a2, b1, b2)
y = SUM (a1, a2, c1, c2) / SUM (a1, a2, b1, b2)
PRINT x,Y
END
FUNCTION SUM (u1, U2, V1, V2)
u = u1 * v2 – u2 * v1
SUM = u
END FUNCTION
Подпрограмма типа SUB
DECLARE SUB SUMMA (u1, u2, V1, V2)
INPUT a1, b1, с1
INPUT a2, b2, с2
CALL SUMMA (c1, C2, b1, b2, u1)
t1 = u1
CALL SUMMA (a1, a2, b1, b2, u2)
t2 = u2
x = t1 / t2
CALL SUMMA (a1, a2, c1, c2, u1)
t1 = u1
CALL SUMMA (a1, a2, b1, b2, u2)
t2 = u2
y = t1 / t2
PRINT “x=”; x; “Y=”; y
END
SUB SUMMA (u1, u2, V1, V2, u)
u = u1 * v2 – u2 * v1
END SUB