Дана матрица х(n,n) целых чисел. Вычислить значение ее определителя. Вывести матрицу и значения определителя- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DIM N AS INTEGER
DIM I AS INTEGER
DIM K AS INTEGER
DIM SUM AS DOUBLE
CLS
INPUT "BBEDITE PA3MEP MACCIBA N:", N
DIM X(1 TO N) AS DOUBLE
LET SUM=0
LET K=0
FOR I=1 TO N
INPUT "BBEDITE X(" & CSTR(I) & ") MACCIBA:", X(I)
IF X(I)>0
LET SUM=SUM+X(I)
LET K=K+1
END IF
NEXT N
PRINT "KOЛ-ВО ПОЛОЖИТЕЛЬНЫХ=",K,"СУММА=",SUM
FOR I=1 TO N
PRINT "X(" & CSTR(I) & ")=", X(I)
NEXT N
END

Похожие записи/страницы:

Leave a Comment