Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
11vmk
0 / 0 / 0
Регистрация: 23.11.2012
Сообщений: 103
#1

Поиск максимального и минимального в заданной строке или столбце - Delphi

22.09.2013, 22:14. Просмотров 881. Ответов 12
Метки нет (Все метки)

В общем необходимо сделать следующее :юзер вводит номер строки или столбца,в лэйбл выводится результат.Хелп ми плиз!
0
Миниатюры
Поиск максимального и минимального в заданной строке или столбце  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.09.2013, 22:14
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Поиск максимального и минимального в заданной строке или столбце (Delphi):

Поиск минимального и максимального значения в файле - Delphi
Добрый вечер, прошу помощи от Вас. Нужно найти минимум и максимум в txt файле и занести значения в Label1, Label 2 соответственно. ...

Поиск минимального и максимального элемента массива - Delphi
Здравствуйте, Нужна помощь в написании программы "поиска минимального и максимального элемента массива" Как я понял там сначала надо ввести...

Поиск максимального/минимального элемента в динамическом массиве - Delphi
Необходимо из главного массива glmas,сформированного из элементов стринггрида выбрать минимальные элементы ПО СТРОКАМ и потом уже среди них...

Работа с массивом в StringGridе Поиск минимального и максимального элементов - Delphi
Программисты Delphi, помогите пожалуйста!!! Сессия. В день сдачи препод меняет условие лабы(матрица, оказывается, не обязательно...

Выполнить поиск минимального и максимального элементов и поменять их местами в компоненте StringGrid - Delphi
3. Выполнить поиск минимального и максимального элементов (самый дорогой и самый дешевый товары или самый молодой и старший сотрудники и...

Заменить все элементы n-го столбца или строки на количество элементов в первом столбце или строке - Delphi
помогите решить программу.: Дана целочисленая квадратная матрица размером n,заменить все элементы n-го столбца или n-ой строки на...

12
MrOnlineCoder
Всегда онлайн
297 / 261 / 29
Регистрация: 07.04.2013
Сообщений: 1,369
Завершенные тесты: 1
22.09.2013, 22:34 #2
11vmk, вам нужно максимальный и минимальный элемент?
Максимальный элемент строки:
Delphi
1
2
3
4
max:=StrToInt(StringGrid1.Cells[1,1]);
for i:=0 to High(StringGrid1.Rows) do
if StringGrid1.Rows[i] > max then max:=StringGrid1.Rows[i];
showmessage(inttostr(max));
Аналогично с минимальным и столбцом.
0
11vmk
0 / 0 / 0
Регистрация: 23.11.2012
Сообщений: 103
22.09.2013, 22:39  [ТС] #3
мне нужно чтобы юзер вводил номер строки или стб в Эдит,и в лэбл выводило результат,как на скрине у меня)
0
Cyborg Drone
Модератор
4723 / 2890 / 1126
Регистрация: 17.08.2012
Сообщений: 9,206
24.09.2013, 16:15 #4
11vmk, ну так выкиньте showmessage, добавьте условия по RadioButton"ам и напишите события для щелчков по соответствующим Button"ам, которые и будут выводить в Ваши "лэбл" результаты.
0
northener
пофигист широкого профиля
3154 / 2207 / 469
Регистрация: 15.07.2013
Сообщений: 12,886
24.09.2013, 16:19 #5
Цитата Сообщение от MrOnlineCoder Посмотреть сообщение
if StringGrid1.Rows[i] > max then max:=StringGrid1.Rows[i];
Что бы это значило?
0
Cyborg Drone
Модератор
4723 / 2890 / 1126
Регистрация: 17.08.2012
Сообщений: 9,206
24.09.2013, 16:44 #6
MrOnlineCoder, неправильно. Так как-то надо (если FixedCols и FixedRows нет), например, для строки:
Delphi
1
2
3
max:=StrToInt(StringGrid1.Cells[0,n-1]);
for i:=1 to StringGrid1.ColCount do
  if StringGrid1.Cells[i, n-1]) > max then max:=StringGrid1.Cells[i, n-1];
0
northener
пофигист широкого профиля
3154 / 2207 / 469
Регистрация: 15.07.2013
Сообщений: 12,886
24.09.2013, 17:05 #7
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
if StringGrid1.Cells[i, n-1]) > max then max:=StringGrid1.Cells[i, n-1];
Ничуть не лучше.
0
FIL
Модератор
3375 / 2513 / 478
Регистрация: 19.09.2012
Сообщений: 7,845
24.09.2013, 17:17 #8
Если число цифр в сравниваемых строках разное, то результат будет некорректный.
0
northener
пофигист широкого профиля
3154 / 2207 / 469
Регистрация: 15.07.2013
Сообщений: 12,886
24.09.2013, 17:23 #9
Цитата Сообщение от FIL Посмотреть сообщение
Если число цифр в сравниваемых строках разное, то результат будет некорректный.
Если скомпилируется
0
FIL
Модератор
3375 / 2513 / 478
Регистрация: 19.09.2012
Сообщений: 7,845
24.09.2013, 17:29 #10
Цитата Сообщение от northener Посмотреть сообщение
Если скомпилируется
А что там может не скомпилироваться?
0
northener
пофигист широкого профиля
3154 / 2207 / 469
Регистрация: 15.07.2013
Сообщений: 12,886
24.09.2013, 17:38 #11
Цитата Сообщение от FIL Посмотреть сообщение
А что там может не скомпилироваться?
Например сравнение string c Integer.
0
FIL
Модератор
3375 / 2513 / 478
Регистрация: 19.09.2012
Сообщений: 7,845
24.09.2013, 17:59 #12
Цитата Сообщение от northener Посмотреть сообщение
Например сравнение string c Integer.
Понятно. Не обратил внимание, что max ко всему прочему еще и Integer.
0
Cyborg Drone
Модератор
4723 / 2890 / 1126
Регистрация: 17.08.2012
Сообщений: 9,206
24.09.2013, 18:22 #13
Цитата Сообщение от northener Посмотреть сообщение
Ничуть не лучше
А, да. Опечатался что-то. Ну тогда как-то так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
i := 0;
while StringGrid1.Cells[i, n-1] = '' do i := i + 1;
if i <= StringGrid1.ColCount 
  then max := StrToInt(StringGrid1.Cells[i, n-1])
  else
    begin
      ShowMessage('String #' + IntToStr(n) + ' is empty!');
      exit
    end;
for i := 0 to StringGrid1.ColCount do
  if StringGrid1.Cells[i, n-1] <> ''
    then if StrToInt(StringGrid1.Cells[i, n-1]) > max 
      then max:=StrToInt(StringGrid1.Cells[i, n-1]);
0
24.09.2013, 18:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.09.2013, 18:22
Привет! Вот еще темы с ответами:

Поиск минимального значения в строке StringGrid - Delphi
Народ подскажите как найти минимальное значение в строке StringGrid если в колонках записано так: - - - 45 16 Минимальное значение 16...

Stringgrid: запрет ввода данных в определенной строке или столбце - Delphi
как можно сделать что бы в определенной строке/столбце ввод данных в таблицу был невозможен? Заранее спасибо.

Заполнить двумерный массив не повторяющимися числами. (Числа не должны повторяться в одной строке или столбце) - Delphi
Заполнить двумерный массив не повторяющимися числами. (Числа не должны повторяться в одной строке или столбце).

Определение максимального элемента в каждом столбце матрицы - Delphi
Помогите составить программу??? ничего не получается!!!!!! Нужно составить программу определения максимального элемента в каждом столбце...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru