Очень нужно решение этой задачки, код и блок схему

[Moraine93]

массив динамический, минеральных чисел может быть несколько

[Moraine93]

вот

[Moraine93]

так должно несколько минимальных вывести

  strok :=0;
  stolb :=0;
   min :=-100;
   for I := 0 to n-1 do
      for j := 0 to m-1 do
        if r[i,j] < min then     
        begin
         for q := 0 to 10 do
          min[q] := a[i,j];         
          strok[q] := i + 1;     
          stolb[q] := j + 1;    
        end;

[ura_111]

Ужас, на половину моих вопросов вообще не ответила...

Всё правильно (я имею ввиду - через один твой пост), здесь. Когда я говорю "глобальный", я подразумеваю просто место объвления и всё... А когда я говорю "динамический массив" я подразумеваю вот что:

0.jpg

В примере и одномерный и двумерных рассмотрен вместе. А тебе нужно только двумерный... И ещё, в примере он типа "string" (т.е. символы может хранить), а тебе нужен "int"...

___________________________________ _______________

Ты меня сбила своим/чужим кодом... Я планировал, после объявление "n, m" глобальными параметрами приступить к работе с массивом А[][], по принципу:

1.jpg

Но теперь, когда мы так лихо перешли на чужой код - я даже не знаю.

___________________________________ _______

Отвечай на остальные вопросы...

___________________________________ ________

По поводу массивов.

Это статический массив:

 r : array[0..255,0..255] of Integer;

а это, похоже на динамический (переменного размера) (сравни с 1-й картинкой):

multiArray : Array of Array of string; // Многомерный массив

Но это, к сожалению, не всё что касается работы с динамическим массивом. Это только создание "пустого" (без единой ячейки для заполнения - по сути дела это просто имя, и всё)... После чего нужно создать ячейки динам. массива и их заполнить RANDOM-ом. На картинке всё есть (только надо чуть-чуть её поправить: "сделать это в цикле", а не "операторами", как на картинке).
p.s.: последнюю мысль ты не поймёшь, поэтому отправляю тебя в интернет (найди пример, и разберись с работой 2- мерного динамического массива)

[Moraine93]

1.1. я его убрала(массив)
1.2.ошибки в этом месте не выдает. переписала в глобальный динамический
1.3. динамический а[][]
1.4а нужно выделить несколько минимальных если они есть
1.4б min, strok, stolb - сделала глобальными
tform1.peresech11click можно и тут перекрашивать

[ura_111]

Если ты говоришь:
"tform1.peresech11click можно и тут перекрашивать"
тогда
"min, strok, stolb - сделала глобальными " можно сделать локальными...

Понимаешь гипотетическую логику работы программы:

а) Если в "peresech11click" нашло "min, strok, stolb" и здесь же покрасило. - тогда всё ( больше эти переменные нигде не нужны).

б) А если же ты находишь "min, strok, stolb" в процедуре "peresech11click" , а красишь в процедуре "draw" (по этим же переменным), тогда нужно чтобы переменные "min, strok, stolb" были видны и там и там...
___________________________________ ___________________

Так.

Скажи мне, а лучше покажи пример-код на:
"tform1.peresech11click можно и тут перекрашивать"

Дело вот в чём, код на раскраску в "draw" я тебе привёл уже давно (я его нашёл в интернете).. И вот, твой например (твой же код; когда будешь читать, обрати внимание на слова-комментарии: "закрасить рамку" "закрасить ячейку" "цвет ячейки"...):

13.jpg


Получается у тебя же раскрашено в "draw"???
А теперь ты говоришь: "давай красить в tform1.peresech11click"???
___________________________________ ________________

Покажи код-пример на твои слова: "tform1.peresech11click можно и тут перекрашивать".

p.s.: Moraine93, вопрос: "в какой процедуре (обработчике) красить?" Принципиален.

[Moraine93]

пусть будет в draw тогда

[ura_111]

Хорошо, с одним разобрались.

Теперь переходим к поиску минимальных элементов. Я проанализировал код:

  strok :=0;
  stolb :=0;
   min :=-100;
   for I := 0 to n-1 do
      for j := 0 to m-1 do
        if r[i,j] < min then     
        begin
         for q := 0 to 10 do
          min[q] := a[i,j];         
          strok[q] := i + 1;     
          stolb[q] := j + 1;    
        end;

он неправильный. Лучше сделать как я тебе говорил (читай ещё раз):

Поиск минимальных элементов.

Объявляешь глобальный массив "min[2][100]", где:
Почему
min[2][100] - здесь будет храниться "i" "j" минимальных элементов (аналог strok и stolb ).

Почему
min[2][100] - если вдруг все элементы матрицы "А" сгенерируют одинаковыми и равными "мин." (врятли, конечно такое возможно, но всё же).

1) Находишь "мин." элемент по всей матрице (стандартный алгоритм), что-то вроде такого:

MINIMUM =A[0][0];
for...
for...
if(MINIMUM>A[i][j]) тогда MINIMUM =A[i][j];

3) Все элементы массива присваиваешь "-1" (min[2][100]=-1 (почему именно "-1"? дело в том, что в этом массиве хранятся индексы всех минимальных элементов, а индекс матрицы А[][] может равняться "0-лю", но не "-1" - этой отличительной чертой потом в draw воспользуесшя).

4) Заполняем массив min[2][100]. Что-то вроде такого:

k=0;
for...
for...
if(MINIMUM=A[i][j]) тогда 
{
min[0][k] =i; 
min[1][k] =j;
k=k+1;
}

Всё, должно получиться что-то вроде такого:

1.jpg



p.s.1: но у тебя матрица А[n][m] не сформированная, чтобы в ней искать минимумы.
p.s.2: ты понимаешь? Возьми на листочке напиши код и попробуй его "проиграть".

[Moraine93]

var
  Form1: TForm1;
min[2][100]; на нее ругается
a: array[ ][ ] of integer;
min, stroc, stolb,q, x, y, i, j,  m, n:integer;

implementation

[ura_111]

Сюда взгляни

http://www.adodo.ru/blog/delphi/115.html

только тип у тебя другой.