Работа с StrinGrid в Delphi (поиск максимума по каждому столбцу двумерной матрицы)

@Марг0 · Регистрация: 18.02.2010

Author24 — интернет-сервис помощи студентам

Привет, ребят))) помогите, плиз, найти ошибку в коде, уже несколько дней голову ломаю

Цель работы такова: необходимо создать матрицу рандомом, и найти в ней по всем столбцам максимумы, а по строкам - минимумы.

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

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
   c,m,max,r,n:integer;
begin
m:=StrToInt(edit2.Text);
n:=StrToInt(edit1.Text);
 
 
max:=1;
 
for r:=1 to n do
  for c:=1 to m do
 
   begin
 
    if tab1.cells[r,c]<>'' then
       begin 
       if StrToInt(tab1.cells[r,c])> max then
        begin
        max:=StrToInt(tab1.cells[r,c]);
        tab1.Cells[r,13]:=IntToStr(max);
        end;
      end
 
   else
     break;
 
 end;
end;

@kukuruku310 · 18.02.2010, 21:48

если в каждом столбце свой максимум, то соответственно, и max:=1; надо делать перед началом поиска по каждому столбику, а не только в самом начале

@Фоат · 19.02.2010, 08:20

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

Добавлено через 2 минуты
матрица квадратная или как?

начал писать , чем смогу помогу

@John_Pa9JIbHuK · 19.02.2010, 08:22

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
   c,m,max,r,n:integer;
begin
m:=StrToInt(edit2.Text);
n:=StrToInt(edit1.Text);
 
 
 
for r:=1 to n do
begin
max:=0;
  for c:=1 to m do
 
   begin
 
    if tab1.cells[r,c]<>'' then
       begin 
       if StrToInt(tab1.cells[r,c])> max then
        begin
        max:=StrToInt(tab1.cells[r,c]);
        tab1.Cells[r,13]:=IntToStr(max);
        end;
      end
 
   else
     break;
 
 end;
end;
end;

@Фоат · 19.02.2010, 08:36

сама матрица

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  max:=low(Random(100));
  min:=high(Random(100));
 
  For i:=1 to n do // n константа
  for j:=1 to n do begin
  mas[i,j]:=Random(100);
         StringGrid1.Cells[i,j]:=IntToStr(mas[i,j]);
end;
end;
end.

Добавлено через 4 минуты
это есть поиск минимума в строке

Delphi

begin
                     for i1:=1 to n do
                             if min>=mas[i1,1] then begin  min:=mas[i1,1];
                             s:=i1; t:=1; edit1.Text:=((IntToStr(t))+':'+(IntToStr(s))); end;end;
 
                          begin
                         for i2:=1 to m do
                             if min1>=mas[i2,2] then begin  min1:=mas[i2,2];
                             s1:=i2; t1:=2; edit2.Text:=((IntToStr(t1))+':'+(IntToStr(s1)));end; end;
 
                              begin
                         for i3:=1 to w do
                             if min2>=mas[i3,3] then begin  min2:=mas[i3,3];
                             s2:=i3; t2:=3; edit3.Text:=((IntToStr(t2))+':'+(IntToStr(s2)));end; end;

@Марг0 · 24.02.2010, 17:43 **[ТС]**

ой, ребятушки, спасибо огромное)) обязательно попробую, отпишусь потом получилось или нет ;-)

Добавлено через 6 минут
ааааа, огроооомнейщее спасибо John_Pa9JIbHuK
-__-. Ты меня прям выручил :-)

Добавлено через 18 часов 42 минуты
теперь проблемка с другим...

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
   c,m,max,min,r,n:integer;
begin
m:=StrToInt(edit2.Text);
n:=StrToInt(edit1.Text);
 
 
 
for r:=1 to n do
begin
max:=0;
  for c:=1 to m do
   begin
    if tab1.cells[r,c]<>'' then
       begin
       if StrToInt(tab1.cells[r,c])> max then
        begin
        max:=StrToInt(tab1.cells[r,c]);
        tab1.Cells[r,13]:=IntToStr(max);
        end;
      end
   else
     break;
 end;
end;
 
for r:=1 to n do
begin
 min:=100;
 if StrToInt(tab1.cells[r,13])< min then
 begin
 min:=StrToInt(tab1.cells[r,13]);
 tab1.Cells[1,14]:=IntToStr(min);
 end;
end;
 
end;

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

поможете? (последний for, там код барахлит)

@Марг0 · 26.02.2010, 11:25 **[ТС]**

все, добила прогу)) работает

Новые блоги и статьи
Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .	Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .	Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .

@kukuruku310 306 / 187 / 26 Регистрация: 14.02.2010 Сообщений: 544
	18.02.2010, 21:48	2
	если в каждом столбце свой максимум, то соответственно, и max:=1; надо делать перед началом поиска по каждому столбику, а не только в самом начале 1

@Фоат 165 / 82 / 32 Регистрация: 05.02.2010 Сообщений: 318
	19.02.2010, 08:20	3
	Если не составит труда зайди на вкладку ввод вывод массивов там есть примеры макс и мин строк и столбцов и ввод матрицы рандомом Добавлено через 2 минуты матрица квадратная или как? начал писать , чем смогу помогу 1

@Марг0 0 / 0 / 0 Регистрация: 18.02.2010 Сообщений: 4
	26.02.2010, 11:25 [ТС]	7
	все, добила прогу)) работает 0