Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Выходит ошибка I/O error 6, не работает процедура https://www.cyberforum.ru/ delphi-beginners/ thread1964108.html
Помогите, пожалуйста Файл типизированный. Выходит ошибка I/O error 6 procedure TVyvody.Chtenie(var inf: array of data); var i,n:integer; begin Reset(f); i:=0; n:=0; ...
Delphi Чтение int32 из массива типа Byte
На борту имеем массив и парочку переменных: var data:array of byte; i:integer; d:int32; В ячейках data записано число типа int, а в ячейках data типа int32. допустим, первое...
Составить описание класса Delphi
Доброго времени суток! Помогите пожалуйста написать программу Составить описание класса, обеспечивающего представление матрицы произвольного размера с возможностью изменения числа строк и...
Delphi Работа с текстовым файлом в Delphi Нужно написать программу на Delphi, которая в указанном текстовом файле меняет маленькие буквы на большие (русские буквы), поможете?) https://www.cyberforum.ru/ delphi-beginners/ thread1964075.html
Delphi Изменить алгоритм Дейкстры, чтобы в конце выводился путь, например 2-4-1 https://www.cyberforum.ru/ delphi-beginners/ thread1964064.html
Здравствуйте, помогите изменить алгоритм Дейкстры, чтобы в конце выводился путь, например 2-4-1. procedure DJ(GR:MSET;ST:integer;STR:integer);//GR-матрица смежности, ST-начальная вершина, STR -...
Delphi Изменение цвета в Ellipse
Необходимо в стороннем окне (игре) отображать точки в виде окружностей. Использую Ellipse. Всё отлично, но никак не могу изменить цвет эллипса, помогите. Сам эллипс: X := r.Left + 236; Y :=...
Delphi Шрифт среды разработки
Здравствуйте! Проблема на скрине, вопрос как изменить шрифт?
Delphi Вывести сведения на экран и распечатать процент студентов, которые сдали все экзамены на 5 и 4 Есть сведения о том, как завершилась зимняя сессия на 4 курсе. Сведения о каждом студенте (всего 10) задан так: <фамилия>, <группа>, <оценка1>, <оценка2>, <оценка3>. Написать программу, по которой... https://www.cyberforum.ru/ delphi-beginners/ thread1964044.html
Delphi Программа для расчета кол-во секунд между 2 моментами времени https://www.cyberforum.ru/ delphi-beginners/ thread1964038.html
Форма
Delphi Сформировать очередь. Извлечь из очереди все элементы, определить наибольший и наименьший элементы Сформировать очередь. Извлечь из очереди все элементы, определить наибольший и наименьший элементы Помогите пожалуйста, а то у меня плохо с темой очереди( https://www.cyberforum.ru/ delphi-beginners/ thread1964032.html
0 / 0 / 0
Регистрация: 19.04.2017
Сообщений: 43
0

Нужно строку с минимальным элементом поменять местами со столбцом с максимальным элементом

19.04.2017, 20:13. Просмотров 367. Ответов 1
Метки (Все метки)

Кто может подсказать что тут не так?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(spinedit1.text);
stringgrid1.ColCount:=n;
stringgrid2.colcount:=n;
m:=strtoint(spinedit1.text);
stringgrid1.RowCount:=m;
stringgrid2.Rowcount:=m;
min:=0;
max:=0;
 
for i:=1 to n do
for j:=1 to m do
b[i,j]:=strtoint(stringgrid1.Cells[i-1,j-1]);
 
for i:=1 to n do begin
for j:=1 to m do begin
  if b[i,j]<min then
    min:=b[i,j];
    e:=i;
    f:=j;
  if b[i,j]>max then
    max:=b[i,j];
    l:=i;
    s:=j;
  edit1.Text:=inttostr(min);
  edit2.Text:=inttostr(max);
end;
end;
 
 
 
for i:=1 to n do
for j:=1 to m do
StringGrid2.Cells[i-1,j-1]:=inttostr(b[i,j]);
 
 
end;
 
end.


Вернуться к обсуждению:
Нужно строку с минимальным элементом поменять местами со столбцом с максимальным элементом
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2017, 20:13
Готовые ответы и решения:

поменять местами столбец с минимальным элементом и столбец с максимальным элементом
Вводится матрица вещественных чисел,необходимо поменять местами столбец с минимальным элементом и...

Поменять местами столбец, с минимальным элементом, со столбцом, с максимальным элементом
Задана матрица размером N*M. Поменять местами столбец, содержащий элемент с минимальным значением,...

Столбец матрицы с максимальным элементом поменять местами со столбцом с нулевым элементом
Как столбец с максимальным элементом поменять местами со столбцом с нулевым элементом

Поменять местами строку с максимальным элементом на главной диагонали со столбцом с заданным номером m(m<6)
Дана целочисленная матрица М(6,6). Поменять местами строку с максимальным элементом на главной...

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