0 / 0 / 0
Регистрация: 21.04.2016
Сообщений: 40
1

Определить максимальный и минимальный элемент 2-ух заданных матриц

21.04.2016, 15:45. Показов 1145. Ответов 5
Метки нет (Все метки)

Определить максимальный и минимальный элемент 2-ух заданных матриц X(N,M) и Y(N,M).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2016, 15:45
Ответы с готовыми решениями:

Определить максимальный и минимальный элемент двух заданных матриц
Определить максимальный и минимальный элемент двух заданных матриц X (N, M) и Y (N, M). В...

Найти максимальный элемент двух заданных матриц
Ввести два двумерных массива из 8 вещественных чисел. Найти максимальный эл и напечатать его номер....

Найти минимальный элемент в массиве. Напечатать элементы заданных матриц в обратном порядке
Два двумерных массива, содержащие соответственно 4х5 и 3х8 вещественных элементов. Ввести и...

Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы
Определить минимальный элемент в каждом столбце и максимальный элемент в каждой строке матрицы....

5
428 / 359 / 129
Регистрация: 09.09.2011
Сообщений: 1,302
21.04.2016, 16:40 2
Если версия delphi б.м. новая (2009 и выше) то такой код сработает:

Кликните здесь для просмотра всего текста
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
program min_max_in_2_arrays;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
const
  N = 3;
  M = 4;
var
  max_value, min_value, value: Integer;
  matr_1 : array[1..N, 1..M] of Integer = ((1, 0, 0, 0),
                                           (0, 0, -1, 0),
                                           (0, -6, 0, 10));
  matr_2 : array[1..N, 1..M] of Integer = ((-5, 0, 0, 0),
                                           (0, 0, 99, 0),
                                           (0, 0, 0, 150));
 
begin
  min_value:= matr_1[1,1];
  max_value:= matr_1[1,1];
 
  for value in matr_1 do begin
    if value < min_value then min_value:= value;
    if value > max_value then max_value:= value;
  end;
 
  for value in matr_2 do begin
    if value < min_value then min_value:= value;
    if value > max_value then max_value:= value;
  end;
 
  writeln('Min = ', min_value, ' Max = ', max_value);
  readln;
end.


я тестировал на freepascal - все работает ок.
Миниатюры
Определить максимальный и минимальный элемент 2-ух заданных матриц  
0
528 / 416 / 274
Регистрация: 05.04.2013
Сообщений: 1,890
21.04.2016, 16:46 3
Лучший ответ Сообщение было отмечено aleksandr_sss как решение

Решение

aleksandr_sss,
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
var
i,j,n,m,xmax,ymax,xmin,ymin:Byte;
x,y:array[Byte,Byte] of Byte;
begin
try
    n := StrToInt(Edit1.Text);
    m := StrToInt(Edit2.Text);
    except
    exit;
    end;
ListBox1.Clear;
StringGrid1.RowCount := n;
StringGrid1.ColCount := m;
StringGrid2.RowCount := n;
StringGrid2.ColCount := m;
randomize;
for i := 0 to n-1 do
for j := 0 to m-1 do begin
    x[i,j] := random(256);
    y[i,j] := random(128)+ random(64);
    StringGrid1.Cells[j,i] := IntToStr(x[i,j]);
    StringGrid2.Cells[j,i] := IntToStr(y[i,j]);
    end;
xmax := x[0,0];
xmin := x[0,0];
ymax := y[0,0];
ymin := y[0,0];
for i := 0 to n-1 do
for j := 0 to m-1 do begin
    if x[i,j] > xmax then xmax := x[i,j];
    if x[i,j] < xmin then xmin := x[i,j];
    if y[i,j] > ymax then ymax := y[i,j];
    if y[i,j] < ymin then ymin := y[i,j];
    end;
ListBox1.Items.Add('MAX_X = ' + IntToStr(xmax));
ListBox1.Items.Add('MIN_X = ' + IntToStr(xmin));
ListBox1.Items.Add('MAX_Y = ' + IntToStr(ymax));
ListBox1.Items.Add('MIN_Y = ' + IntToStr(ymin));
end;
Вложения
Тип файла: zip matrix.zip (232.1 Кб, 1 просмотров)
1
528 / 416 / 274
Регистрация: 05.04.2013
Сообщений: 1,890
21.04.2016, 16:51 4
Лучший ответ Сообщение было отмечено aleksandr_sss как решение

Решение

aleksandr_sss,
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
var
i,j,n,m,max,min:Byte;
x,y:array[Byte,Byte] of Byte;
begin
try
    n := StrToInt(Edit1.Text);
    m := StrToInt(Edit2.Text);
    except
    exit;
    end;
ListBox1.Clear;
StringGrid1.RowCount := n;
StringGrid1.ColCount := m;
StringGrid2.RowCount := n;
StringGrid2.ColCount := m;
randomize;
for i := 0 to n-1 do
for j := 0 to m-1 do begin
    x[i,j] := random(256);
    y[i,j] := random(128)+ random(64);
    StringGrid1.Cells[j,i] := IntToStr(x[i,j]);
    StringGrid2.Cells[j,i] := IntToStr(y[i,j]);
    end;
max := x[0,0];
min := x[0,0];
 
for i := 0 to n-1 do
for j := 0 to m-1 do begin
    if x[i,j] > max then max := x[i,j];
    if x[i,j] < min then min := x[i,j];
    if y[i,j] > max then max := y[i,j];
    if y[i,j] < min then min := y[i,j];
    end;
ListBox1.Items.Add('MAX = ' + IntToStr(max));
ListBox1.Items.Add('MIN = ' + IntToStr(min));
Вложения
Тип файла: zip matrix.zip (231.9 Кб, 3 просмотров)
1
528 / 416 / 274
Регистрация: 05.04.2013
Сообщений: 1,890
21.04.2016, 16:51 5
Лучший ответ Сообщение было отмечено aleksandr_sss как решение

Решение

Думаю разберешься в чем разница
1
0 / 0 / 0
Регистрация: 21.04.2016
Сообщений: 40
21.04.2016, 19:40  [ТС] 6
Разобрался, спасибо. Тема закрыта
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2016, 19:40
Помогаю со студенческими работами здесь

Определить максимальный и минимальный элемент
Дан двухмерный массив. Определить максимальный и минимальный элемент. Организовать вывод координат...

Определить максимальный и минимальный элемент
Составить программу в турбо PASCAL. Ввести размерность матрицы и значения ее элементов. ...

Определить максимальный и минимальный элемент массива
Помогите исправить программу. Суть задачи такая: Создать массив с элементами akn=nf(k)+sin(k)g(n),...

Определить максимальный и минимальный элемент матрицы
9. Дана матрица целых чисел размером 5x3. Определить максимальный и минимальный элемент...


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

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

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