[delphi] Помогите с лабой по масивам

Тема в разделе "Delphi - FAQ", создана пользователем -Gluider-, 16 дек 2006.

Статус темы:
Закрыта.
  1. -Gluider-

    -Gluider- Гость

    Пришло время сдавать зачёт)) С утра сделал 9 лабораторок, а с 10 проблемы:

    "Создать масив целых чисел размером 4х5, найти минимальный элемент и позицию этого елемента в масиве."

    В место этого у меня выводится то предпоследний элемент то последний) вобщем запарился.

    вот мой код , только не смеяться если натупил сильно

    procedure TForm1.BitBtn1Click(Sender: TObject);
    var
    i:integer;
    j:integer;
    m:array [1..4,1..5] of integer;
    min:integer;
    begin
    for i:=1 to 4 do
    begin
    for j:=1 to 5 do
    begin
    m[i,j]:=strtoint(stringgrid1.Cells[j-1,i-1]);
    min:=m[i,j];
    if m[i,j]<m[1,1] then min:=m[i,j];
    edit1.Text:=floattostr(min);
    end;
    end;
    end;


    и ещё подскажите как реализовать вывод координат минимального элемента в стринг гриде. Заранее спасибо!
     
  2. LAW

    LAW Гость

    Ваще бред а не исходник.
    С утра если никто не ответит накарябую, ща в падлу. спать охота.
     
  3. DIR3ct0r

    DIR3ct0r Гость

    Код (Text):
     
    min:= a[1, 1];
    for i:= 1 to 4 do
    for j:= 1 to 5 do
    if a[i, j] < min then
    begin
    min:= a[i, j];
    iRow:= i;
    iCol:= j;
    end;
    min - минимальный элемент
    iRow, iCol - его индексы
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей