клоз тему,алло

Ребят,помогите с одним вопросом.
Дана действительная квадратная матрица порядка 12. Заменить нулями все её элементы, расположенные на глав-ной диагонали и выше неё.
я задаю размерность матрицы,через рандомайз задаю значения, по диагонали выходят все нули,А как сделать что бы были нули выше главной?

Спойлер:

INPUT "vvedite 12 ", n
DIM a(n, n)
RANDOMIZE TIMER
PRINT "ishodnaya matrica"
FOR i = 1 TO 12
FOR j = 1 TO 12
a(i, j) = INT(RND * 100) + 1
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO 12
a(i, i) = 0
NEXT
PRINT "novaya matrica"
FOR i = 1 TO 12
FOR j = 1 TO 12
PRINT a(i, j);
NEXT
PRINT
NEXT

Может быть так?

Спойлер:

Вместо

Aurora сказал(а):↑

FOR i = 1 TO 12
a(i, i) = 0
NEXT

Нажмите, чтобы раскрыть...

FOR i = 1 TO 12
FOR j = 1 TO i
a(i, j) = 0
NEXT

Пишет FOR WITHOUT NEXT.

Teabreaker сказал(а):↑

Может быть так?

Спойлер:

Вместо

FOR i = 1 TO 12
FOR j = 1 TO i
a(i, j) = 0
NEXT

Нажмите, чтобы раскрыть...

Aurora сказал(а):↑

Пишет FOR WITHOUT NEXT.

Нажмите, чтобы раскрыть...

Я qbasic первый раз вижу. Попробуй тогда
FOR i = 1 TO 12
FOR j = 1 TO i
a(i, j) = 0
NEXT
NEXT

if (i >= j) заменить значение. не думал о таком?

Teabreaker сказал(а):↑

Я qbasic первый раз вижу. Попробуй тогда
FOR i = 1 TO 12
FOR j = 1 TO i
a(i, j) = 0
NEXT
NEXT

Нажмите, чтобы раскрыть...

не,не робет

Спойлер:

lord_uppercode сказал(а):↑

if (i >= j) заменить значение. не думал о таком?

Нажмите, чтобы раскрыть...

конкретнее можно?

Aurora сказал(а):↑

конкретнее можно?

Нажмите, чтобы раскрыть...

FOR i = 1 TO 12
FOR j = 1 TO 12
IF i>j THEN



a(i, j) = 0
NEXT
NEXT
Так попробуй.

Aurora сказал(а):↑

конкретнее можно?

Нажмите, чтобы раскрыть...

i - строка, j - столбец. у всех элементов верхней половины матрицы значение столбца больше или равно значению строки
в цикле перебираешь матрицу полностью, по этому правилу узнаёшь в какой части матрицы элемент

S0_HardCore сказал(а):↑

FOR i = 1 TO 12
FOR j = 1 TO 12
IF i>j THEN


a(i, j) = 0
NEXT
NEXT
Так попробуй.

Нажмите, чтобы раскрыть...

не знай как в кубейсике, >= -такое условие можно сделать? тогда за один проход можно сделать

Aurora сказал(а):↑

не,не робет

Нажмите, чтобы раскрыть...

А теперь?

Спойлер:

INPUT "vvedite 12 ", n
DIM a(n, n)
RANDOMIZE TIMER
PRINT "ishodnaya matrica"
FOR i = 1 TO 12
FOR j = 1 TO 12
a(i, j) = INT(RND * 100) + 1
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO 12
FOR j = 1 TO i
a(j, i) = 0
NEXT
NEXT
PRINT "novaya matrica"
FOR i = 1 TO 12
FOR j = 1 TO 12
PRINT a(i, j);
NEXT
PRINT
NEXT

Хз как это на басике, но на С++ цикл будет такой:

for (int i=0; i {

for(int j=0; j {
}
}

учитывая, что у тебя массив почему-то не с 0, а с 1 то замени 0 на 1 и n на размерность.

Teabreaker сказал(а):↑

А теперь?

Спойлер:

INPUT "vvedite 12 ", n
DIM a(n, n)
RANDOMIZE TIMER
PRINT "ishodnaya matrica"
FOR i = 1 TO 12
FOR j = 1 TO 12
a(i, j) = INT(RND * 100) + 1
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO 12
FOR j = 1 TO i
a(j, i) = 0
NEXT
NEXT
PRINT "novaya matrica"
FOR i = 1 TO 12
FOR j = 1 TO 12
PRINT a(i, j);
NEXT
PRINT
NEXT

Нажмите, чтобы раскрыть...

Спасибо тебе,модер поиска. всегда знал что поиск илитка!

Темку клоз.

Закрыл по просьбе