|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.11.2009, 13:48 | #1 |
Новичок
Джуниор
Регистрация: 15.11.2009
Сообщений: 2
|
Двумерный массив на Delphi
Помогите пожалуйста с задачей. Заранее спасибо.
Будем называть соседями элемента a_ij некоторой матрицы такие элементы этой матрицы, соответствующие индексы которых отличаются от i и j не более чем на единицу. Для данной квадратной матрицы [a_ij] (i = 1, …, n) найти матрицу [b_ij] (i = 1, …, n) из нулей и единиц, элемент которой b_ij = 1, когда все соседи a_ij меньше самого a_ij, в противном b_ij случае = 0. |
15.11.2009, 14:22 | #2 |
Любопытная Вредина
Участник клуба
Регистрация: 19.06.2009
Сообщений: 1,285
|
Код:
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
|
15.11.2009, 18:38 | #3 |
Новичок
Джуниор
Регистрация: 15.11.2009
Сообщений: 2
|
Мне бы через StringGrid.
Я сама написала код,но не уверена. var Form1: TForm1; a:array[0..100,0..100] of integer; b:array[0..100,0..100] of integer; i,j,n:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); // Чистка StringGrid procedure grid_clean(g:TStringGrid); var i,j:integer; begin for i:=0 to g.ColCount-1 do for j:=0 to g.RowCount-1 do g.Cells[i,j]:=''; end; // Автоматическое заполнение массива begin n:=5; for i:=0 to n do begin for j:=0 to n do begin a[i,j]:=random(10)-5; StringGrid1.Cells[i,j]:=inttostr(a[i,j]); end; end; begin for i:=0 to n do begin for j:=0 to n do begin if i-j<=1 then a[i,j]:=b[i,j]; begin if a[i,j]>b[i,j] then b[i,j]:=1 else b[i,j]:=0; StringGrid3.Cells[i,j]:=inttostr(b[i,j]); end; end; end; end; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Двумерный массив Delphi | Wise | Помощь студентам | 5 | 24.12.2007 23:10 |
Delphi Двумерный массив | forumu | Помощь студентам | 3 | 24.12.2007 13:58 |
Delphi Двумерный массив | forumu | Помощь студентам | 1 | 23.12.2007 02:04 |