помогите с задачами по QBasic

[Лапик]

Я поняла свой глюк,только от задачи надо такой вид:


1 0 1 1
0 1 1 0
______
1 0 1|1
1 1 0|0

т.е. размерность 4x4, ограничение строк - 2, столбцов - 3
и в результате имеем 5 нулей

 

[gram]

на

REM PR2

INPUT "strok"; N
INPUT "stolbcov"; M
INPUT "kolichestvo verxnix strok"; L
INPUT "kolichestvo levbIx stolbcov"; K

DIM A(N, M)
FOR i = 1 TO N
        FOR j = 1 TO M
                INPUT A(i, j)
        NEXT j
NEXT i

zeros = 0

FOR i = 1 TO N
        FOR j = 1 TO M
                PRINT A(i, j);
             
                REM zaodno poschitaem kol-vo nylei
                IF A(i, j) = 0 AND NOT (i > L AND j > K) THEN zeros = zeros + 1
        NEXT j
        PRINT
NEXT i

PRINT "kol-vo nylevyh elementov "; zeros


END

Добавлено спустя 56 секунд:

смысл условия - если элемент = 0 и не находится в правом нижнем квадрате (легче, чем считать по кускам ограниченную область)

 

[МАТрос]

Люди, хелп ми! Мож у каво есть где нить, иль в мыслях, нада програмку написать на бЭсике, штоб она решала системы уравнений. Ну типа задаёшь матрицу расширенную коэффициэнтов, и она тебе выдаёт ответы. Ну типа как по правилу гаусса или крамера. Хоть чё нить ... Буду очень благодарен ...

 

[Jimmy]

Ну, задаешь матрицу A коэффициентов при х1, х2, и тд. Задаешь матрицу B свободных коэффициентов. Выполняешь деление А/В, получаешь вектор решений Х=[x1 x2...xn].

 

[MIdav]

делай методом крамера,напиши процедуру для определителя,потом обращайся рекурсивно...
в 10 классе заставляли такое делать,правда в общем виде всем было лень делать...если кол-во уравненйи фиксировано,то совсем воде несложно

 

[Overki11]

и чего тут было сложного?

Блин..ну не дано девушке быть программистом...ну вернее мне...или просто мне надо,чтоб это нормально расстолковали,а не как на паре,где если я до чего-то доехала, у меня 100 раз переспросят а почему?

как гдето я читал в нете что самое 6ольшое число вирусов ПИШУТ ДЕВУШКИ