В третьей строке и первом столбце матрицы все числа заменить нулем

Поставлена задача, в 3 строке и 1 столбце все числа сделать 0.
Допустим я заранее вожу сколько столбцов и каки числа будут.
Пробывал изменять через for, но глупо оказалось(у меня не как), что подскажите?)
Или можете код дать, я по примеру сделаю =)
Главное не решайте за меня, иначе не научиться мне.

Добавлено через 4 часа 12 минут
ап ап ап

0

Сообщение от Seyu в 3 строке и 1 столбце все числа сделать 0

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

0

Главное не решайте за меня, иначе не научиться мне.

Seyu, дать немного теории?

Добавлено через 1 час 49 минут

Сначала запишем матрицу по человечьи:

Матрица размера m × n состоит в точности из

• m строк (по n элементов в каждом)
• и n столбцов (по m элементов в каждом)

Т.к. в памяти компа двухмерный массив c(a, b) размерностью 3 × 3 принимает вид:

Ячейка 1: a = 1, b = 1
Ячейка 2: a = 2, b = 1
Ячейка 3: a = 3, b = 1
Ячейка 4: a = 1, b = 2
Ячейка 5: a = 2, b = 2
Ячейка 6: a = 3, b = 2
Ячейка 7: a = 1, b = 3
Ячейка 8: a = 2, b = 3
Ячейка 9: a = 3, b = 3

Пруф. код

QBasic/QuickBASIC
1 2 3 4 5 6 7 8 9 10 DIM a%(2, 2)    a%(0, 0) = 10    a%(1, 0) = 22    a%(0, 1) = 55 DEF SEG = VARSEG(a%(0, 0)) CLS    PRINT PEEK(VARPTR(a%(0, 0)))    PRINT PEEK(VARPTR(a%(0, 0)) + 2)    PRINT PEEK(VARPTR(a%(0, 0)) + 6) DEF SEG

То разумно будет точно в таком же порядке определять матрицу в памяти.
Т.е. заводим массив: DIM A(кол-во столбцов, кол-во строк)
Проще говоря матрицу вида:



Мы можем записать на Qbasic\QuickBasic так:

QBasic/QuickBASIC
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15  '  Данные для матрицы DATA 1, 2, 3 DATA 4, 5, 6 DATA 7, 8, 9  '  Размерность   CONST m = 3   ' Строк   CONST n = 3   ' Столбцов  '  Заводим массив под матрицу   DIM A(1 TO n, 1 TO m) AS INTEGER  '  Заполняем матрицу в цикле   FOR i = 1 TO m      FOR j = 1 TO n         READ A(j, i)      NEXT   NEXT

Т.о. мы определили матрицу, заполнили её данными и можем с ней работать:

• Выводить её на экран:
  

  QBasic/QuickBASIC
  1 2 3 4 5 6 7 8   '  Очистим экран CLS   '  Вывод матрицы   FOR i = 1 TO m      FOR j = 1 TO n         PRINT A(j, i);      NEXT: PRINT   NEXT

• Менять значение элементов:
  

  QBasic/QuickBASIC
  1 2  A(1, 1) = 33  ' Элемент на позиции 1-ой строки 1-го столбца равен 33  A(2, 3) = 15  ' Элемент на позиции 3-ей строки 2-го столбца равен 15

• Читать значение элементов(с целью использования для вычислений):
  К примеру посчитаем сумму всех элементов матрицы:
  

  QBasic/QuickBASIC
  1 2 3 4 5   FOR i = 1 TO m      FOR j = 1 TO n         s = s + A(j, i)      NEXT   NEXT

  Или поменять 2 строки местами:
  

  QBasic/QuickBASIC
  1 2 3 4 5   s1 = 1  ' Какую строку меняем   s2 = 3  ' С какой строкой меняем   FOR i = 1 TO n      SWAP A(i, s1), A(i, s2)   NEXT

Работать с матрицами не так сложно как кажется.

Для наглядности и отладки программы мы можем подсвечивать элементы
при выводе матрицы по определённому условию, так мы можем проверить
работоспособность условия.
Допустим нам нужны элементы выше главной диагонали и ниже гл. диаг.:

QBasic/QuickBASIC
1 2 3 4 5 6 7 8 9   '  Вывод матрицы   FOR i = 1 TO m      FOR j = 1 TO n         COLOR 7         IF j > i THEN COLOR 10         IF j < i THEN COLOR 12         PRINT A(j, i);      NEXT: PRINT   NEXT

10 - это ярко зелёный цвет(им подсвечено всё, что выше гл. диагонали)
12 - ярко красный (им подсвечено всё, что ниже гл. диагонали)

Таблица цветов

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Т.е. если я вместо IF j > i THEN COLOR 10 напишу IF j > i THEN A(j, i) = 0
то элементы выше главной диагонали будут обнулены, т.е. будут содержать значение 0.

Т.о. мы можем определять необходимые условия и производить обработку данных в матрице.

Добавлено через 2 минуты
P.S: Почему режут мои посты?
Уважаемые админы и модеры, будьте добры, объясните причину...

2

Решение моей задачи как я понял состоит в этом?)

0

Решение моей задачи как я понял состоит в этом?)

Да, в цикле только...

0

Хелп

0

Это строковый тип данных, т.е. строка символов.

A$

Присваивать строке значение так:
Но вам как я понимаю нужен числовой тип данных, т.к. вы ставите это условие:

<0

А числовые типы записываются так:
тип Integer:
тип Long:
тип Single:
тип Double:

1

Да все уже сам разобрался, сдал, зачет =))
Большое спасибо за теорию =)

>Quiet Snow<,

0