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

@aleksandr_sss · Регистрация: 21.04.2016

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

@Kitayets · 21.04.2016, 16:40

Если версия delphi б.м. новая (2009 и выше) то такой код сработает:

Кликните здесь для просмотра всего текста

Delphi

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 - все работает ок.

@AHBAR · 21.04.2016, 16:46

aleksandr_sss,

Delphi

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;

@AHBAR · 21.04.2016, 16:51

aleksandr_sss,

Delphi

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));

@AHBAR · 21.04.2016, 16:51

Думаю разберешься в чем разница

@aleksandr_sss · 21.04.2016, 19:40 **[ТС]**

Разобрался, спасибо. Тема закрыта

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

Решение

Решение

Решение

@aleksandr_sss 0 / 0 / 0 Регистрация: 21.04.2016 Сообщений: 40
		1
	Определить максимальный и минимальный элемент 2-ух заданных матриц 21.04.2016, 15:45. Показов 1145. Ответов 5 Метки нет (Все метки) Определить максимальный и минимальный элемент 2-ух заданных матриц X(N,M) и Y(N,M). __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@AHBAR 528 / 416 / 274 Регистрация: 05.04.2013 Сообщений: 1,890
	21.04.2016, 16:51	5
	Сообщение было отмечено aleksandr_sss как решение Решение Думаю разберешься в чем разница 1

@aleksandr_sss 0 / 0 / 0 Регистрация: 21.04.2016 Сообщений: 40
	21.04.2016, 19:40 [ТС]	6
	Разобрался, спасибо. Тема закрыта 0

Опции темы