5 / 5 / 5
Регистрация: 20.04.2015
Сообщений: 196
1

Поменять местами минимальный и максимальный элемент матрицы в каждой строке

24.04.2018, 18:03. Показов 888. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Поменять местами минимальный и максимальный элемент матрицы в каждой строке

Есть такой код, он находит максимальные элементы, а минимальные не находит как это исправить? и как потом записать в Stringgrid2 эту таблицу с поменяными элементами в строке?

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
procedure TForm1.Button1Click(Sender: TObject);
const
  M = 5;
  N = 8;
var
  mas: array of array of integer;
  i, j, zamena, max, min: integer;
  S, D: String;
  Sg : TStringGrid;
begin
  Sg := StringGrid1;
 
  SetLength(mas, M, N); //Задаём размер массива.
  Sg.FixedRows := 0; //Нет фиксированных строк.
  Sg.FixedCols := 0; //Нет фиксированных столбцов.
  Sg.RowCount:= M; //Количество строк.
  Sg.ColCount:= N; //Количество столбцов.
 
  Randomize;
  for i := 0 to High(mas) do
    for j := 0 to High(mas[i]) do
    begin
      mas[i, j] := Random(100);
      Sg.Cells[j, i] := IntToStr(mas[i, j]);
    end;
 
  S := '';
  for i := 0 to High(mas) do
  begin
    max := mas[i, 0];
    for j := 1 to High(mas[i]) do
      if mas[i, j] > max then
        max := mas[i, j];
    if i > 0 then
      S := S + ', ';
    S := S + IntToStr(max);
  end;
  Edit1.Text := S;
 
 
    D := '';
  for i := 0 to Low(mas) do
  begin
    min := mas[i, 0];
    for j := 1 to Low(mas[i]) do
      if mas[i, j] < min then
        min := mas[i, j];
    if i < 0 then
      D := D + ', ';
    D := D + IntToStr(min);
 
end;
   Edit2.Text := D;
end;
end.
тут он выводит в Edit у меня просто для проверки. минимальный элемент он не находит
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2018, 18:03
Ответы с готовыми решениями:

Матрицы. Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами
Дана матрица B.. найти в каждой строке матрицы максимальный и минимальный элементы и поменять их...

В каждой строке матрицы поменять местами минимальный элемент с максимальным
Дана матрица порядка 4х4. В каждой строке поменяйте минимальный элемент с максимальным. На экран...

В каждой строке матрицы поменять местами максимальный элемент с элементом побочной диагонали
В каждой строке матрицы поменять местами максимальный элемент с элементом побочной диагонали и...

Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их местами с первым и последним элементом строки соответственно
Дана матрица B. Найти в каждой строке матрицы максимальный и минимальный элементы и поменять их...

1
668 / 558 / 242
Регистрация: 26.11.2012
Сообщений: 2,190
25.04.2018, 04:58 2
Цитата Сообщение от Valentin-TT Посмотреть сообщение
for i := 0 to High(mas) do
Цитата Сообщение от Valentin-TT Посмотреть сообщение
for i := 0 to Low(mas) do
Прочти и поймешь
High
Low
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2018, 04:58
Помогаю со студенческими работами здесь

Массив: В каждой строке двумерного массива поменять местами максимальный и минимальный элементы
дана матрица вещественных чисел. В каждой строке поменять местами максимальный и минимальный...

Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке
Привет помогите пожалуста прогу написать. Дана матрица размера, а x б. Преобразовать матрицу,...

Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке
Дана матрица размера M × N. Преобразовать матрицу, поменяв местами минимальный и максимальный...

Найти в каждой строке максимальный элемент и поменять его местами
Написать программу обработки массива.Найти в каждой строке максимальный элемент и поменять его...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru