|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.01.2008, 19:39 | #1 |
Регистрация: 30.11.2007
Сообщений: 6
|
Единицы по диагонали
Данна таблица StringGrid(она полюбому у меня будет квадратной), в которую необходимо по диагонали записать единицы, а остальные клетки заполнить нулями. Подскажите пожалуйста как это сделать
|
24.01.2008, 19:43 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Свойство главной диагонали - номер столбца равен номеру строки, т.е. if i=j then a[i,j]:=1 else a[i,j]:= 0;
|
24.01.2008, 19:45 | #3 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 266
|
примерно так
for i := 0 to "длина строки" do for j := 0 to "длина столбца" do if i = j then "в ячейку [i,j] записать 1" else "в ячейку [i,j] записать 0" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как запустить цикл for с шагом отличным от единицы | Altera | Общие вопросы Delphi | 25 | 21.05.2015 15:14 |
Матрица. Сумма элементов главной диагонали | RECREATOR | Помощь студентам | 13 | 11.05.2011 22:12 |