Определение макс и мин элементов в массивах в виде подпрограммы

@Juliee · Регистрация: 06.04.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте! Помогите, пожалуйста, вот с такой задачей:
Дано: массивы А1(N1,M1), A2(N2,M2), A3(N3,M3). Вычислить Х=Х1+Х2+Х3 и Y=Y1+Y2+Y3, где Х1,Х2,Х3 - минимальные элементы среди нечетных строк массивов А1,А2,А3 соответственно, а Y1,Y2,Y3 -максимальные элементы среди нечетных строк массивов А1,А2,А3 соответственно. Определение максимальных и минимальных элементов в нечетных строках массива оформить в виде подпрограммы.

Я как всегда пытаюсь что-то сделать, но не получается. Здесь фрагмент программы...не работает и без суммы элементов...Если можно переделайте всю программу от начала до конца. Заранее спасибо!

Pascal

program p62;
type massiv = array [1..100,1..100] of integer;
 
procedure vvod (var n, m: integer; var x: massiv; Q: string);
var i, j: integer;
begin
writeln('Введите размеры массива ', Q);
readln(n,m);
writeln('Введите элементы массива, целые числа');
for i:=1 to n do
for j:=1 to m do
 begin
  write(Q,'[',i,',',j,']= ');
  readln(x[i,j]);
 end;
end;
 
procedure vivod (n, m: integer; x: massiv; Q: string);
var i,j: integer;
begin
writeln('массив ',Q);
for i:=1 to n do
 begin
  for j:=1 to m do
  write (x[i,j]:4);
  writeln
 end;
end;
 
procedure minmax (n,m: integer; x: massiv);
var i,j,min,max: integer;
begin
for i:=1 to n do
for j:=1 to m do
if (i mod 2<>0) then
min:=x[i,j];
if (x[i,j]>min) then
min:=x[i,j];
end;
begin
max:=x[i,j];
if (x[i,j]>min)then
max:=x[i,j];
 
var A1,A2,A3:massiv;
   n1,m1,n2,m2,n3,m3:integer;
begin
vvod(n1,m1,A1,'A1');
vvod(n2,m2,A2,'A2');
vvod(n3,m3,A3,'A3');
vivod(n1,m1,A1,'A1');
vivod(n2,m2,A2,'A2');
vivod(n3,m3,A3,'A3');
end;
end.

@Juliee · 07.04.2015, 19:44 **[ТС]**

У кого есть свободное время, пожалуйста, посмотрите мою задачку... Вот я еще так пробовала написать подпрограммы про максимум и минимум:

Pascal

procedure minimum(x:massiv;n,m:integer);
var i,j,min:integer;
begin
if (i mod 2<>0) then
     min:=x[1,1];
     for i:=1 to n do
         for j:=1 to m do
         begin
              if x[i,j]<min then
                 min:=x[i,j];
         end;
     writeln('минимальный: ', min);
end;
 
procedure maximum(x:massiv;n,m:integer);
var i,j,max:integer;
begin
if (i mod 2<>0) then
     max:=x[1,1];
     for i:=1 to n do
         for j:=1 to m do
         begin
              if x[i,j]>max then
                 max:=x[i,j];
         end;
     writeln('максимальный: ', max);
end;

Kodzaev · 07.04.2015, 20:14

Pascal

type
  matrix = array [1..100, 1..100] of integer;
 
procedure Create(var x: matrix; rows, cols: byte);
// создаем массив
var
  i, j: byte;
begin
  for i := 1 to rows do
    for j := 1 to cols do
      x[i, j] := Random(100)
end;
 
procedure Print(x: matrix; rows, cols: byte);
// вывод массива на экран
var
  i, j: byte;
begin
  for i := 1 to rows do
  begin
    for j := 1 to cols do
      Write(x[i, j]:3);
    WriteLn
  end
end;
 
function Maximum(x: matrix; rows, cols: byte): integer;
// максимум среди нечетных строк
var
  i, j: byte;
  max: integer;
begin
  max := -MAXINT - 1;
  for i := 1 to rows do
    if Odd(i) then
      for j := 1 to cols do
        if x[i, j] > max then
          max := x[i, j];
  Maximum := max
end;
 
function Minimum(x: matrix; rows, cols: byte): integer;
// минимум среди нечетных строк
var
  i, j: byte;
  min: integer;
begin
  min := MAXINT;
  for i := 1 to rows do
    if Odd(i) then
      for j := 1 to cols do
        if x[i, j] < min then
          min := x[i, j];
  Minimum := min
end;
 
var
  a1, a2, a3: matrix;
  n1, m1, n2, m2, n3, m3: byte;
  x, x1, x2, x3, y, y1, y2, y3: integer;
 
begin
  Write('Введите количество строк для массива A1: '); ReadLn(n1);
  Write('Введите количество столбцов для массива A1: '); ReadLn(m1);
  Write('Введите количество строк для массива A2: '); ReadLn(n2);
  Write('Введите количество столбцов для массива A2: '); ReadLn(m2);
  Write('Введите количество строк для массива A3: '); ReadLn(n3);
  Write('Введите количество столбцов для массива A3: '); ReadLn(m3);  
  WriteLn('Массив A1:');
  Create(a1, n1, m1);
  Print(a1, n1, m1);
  WriteLn('Массив A2:');
  Create(a2, n2, m2);
  Print(a2, n2, m2);
  WriteLn('Массив A3:');
  Create(a3, n3, m3);
  Print(a3, n3, m3);
  x := Minimum(a1, n1, m1) + Minimum(a2, n2, m2) + Minimum(a3, n3, m3);
  y := Maximum(a1, n1, m1) + Maximum(a2, n2, m2) + Maximum(a3, n3, m3);
  WriteLn('X = ', x, ';    Y = ', y)
end.

@Puporev · 07.04.2015, 20:31

Pascal

procedure minmax(x:massiv;n,m:integer;var min,max:integer);
var i,j:integer;
begin
min:=x[1,1];
max:=x[1,1];
for i:=1 to n do
if odd(i) then
if x[i,j]<min then min:=x[i,j]
else if x[i,j]>max then max:=x[i,j];
writeln('минимальный: ', min);
writeln('максимальный: ', max);
end;

@Juliee · 07.04.2015, 21:05 **[ТС]**

Kodzaev, а Вы не подскажите, пожалуйста, как вывести значения х1,х2,х3 и у1,у2,у3? Чтобы при выводе не сразу ответы их сумм были, а и и сами значения. Их вывод в алгоритм основной программы писать ?

Добавлено через 3 минуты
Все, разобралась!)

Kodzaev · 07.04.2015, 21:09

Сообщение от Juliee

Их вывод в алгоритм основной программы писать ?

Да, правильно. Я первоначально так и хотел сделать. Вот так можно подкорректировать немного:

Pascal

type
  matrix = array [1..100, 1..100] of integer;
 
procedure Create(var x: matrix; rows, cols: byte);
// создаем массив
var
  i, j: byte;
begin
  for i := 1 to rows do
    for j := 1 to cols do
      x[i, j] := Random(100)
end;
 
procedure Print(x: matrix; rows, cols: byte);
// вывод массива на экран
var
  i, j: byte;
begin
  for i := 1 to rows do
  begin
    for j := 1 to cols do
      Write(x[i, j]:3);
    WriteLn
  end
end;
 
function Maximum(x: matrix; rows, cols: byte): integer;
// максимум среди нечетных строк
var
  i, j: byte;
  max: integer;
begin
  max := -MAXINT - 1;
  for i := 1 to rows do
    if Odd(i) then
      for j := 1 to cols do
        if x[i, j] > max then
          max := x[i, j];
  Maximum := max
end;
 
function Minimum(x: matrix; rows, cols: byte): integer;
// минимум среди нечетных строк
var
  i, j: byte;
  min: integer;
begin
  min := MAXINT;
  for i := 1 to rows do
    if Odd(i) then
      for j := 1 to cols do
        if x[i, j] < min then
          min := x[i, j];
  Minimum := min
end;
 
var
  a1, a2, a3: matrix;
  n1, m1, n2, m2, n3, m3: byte;
  x, x1, x2, x3, y, y1, y2, y3: integer;
 
begin
  Write('Введите количество строк для массива A1: '); ReadLn(n1);
  Write('Введите количество столбцов для массива A1: '); ReadLn(m1);
  Write('Введите количество строк для массива A2: '); ReadLn(n2);
  Write('Введите количество столбцов для массива A2: '); ReadLn(m2);
  Write('Введите количество строк для массива A3: '); ReadLn(n3);
  Write('Введите количество столбцов для массива A3: '); ReadLn(m3);  
  WriteLn('Массив A1:');
  Create(a1, n1, m1);
  Print(a1, n1, m1);
  WriteLn('Массив A2:');
  Create(a2, n2, m2);
  Print(a2, n2, m2);
  WriteLn('Массив A3:');
  Create(a3, n3, m3);
  Print(a3, n3, m3);
  x1 := Minimum(a1, n1, m1); x2 := Minimum(a2, n2, m2); x3 := Minimum(a3, n3, m3);
  y1 := Maximum(a1, n1, m1); y2 := Maximum(a2, n2, m2); y3 := Maximum(a3, n3, m3);
  WriteLn('X1 = ', x1, ';   X2 = ', x2, ';   X3 = ', x3);
  WriteLn('Y1 = ', y1, ';   Y2 = ', y2, ';   Y3 = ', y3);
  x := x1 + x2 + x3;
  y := y1 + y2 + y3;
  WriteLn('X = ', x, ';    Y = ', y)
end.

@Juliee · 07.04.2015, 21:14 **[ТС]**

Kodzaev, я додумалась и исправила так же) спасибо Вам огромное!

Определение макс и мин элементов в массивах в виде подпрограммы

Решение

Решение

@Juliee 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 7
	07.04.2015, 21:05 [ТС]	5
	Kodzaev, а Вы не подскажите, пожалуйста, как вывести значения х1,х2,х3 и у1,у2,у3? Чтобы при выводе не сразу ответы их сумм были, а и и сами значения. Их вывод в алгоритм основной программы писать ? Добавлено через 3 минуты Все, разобралась!) 0

@Juliee 0 / 0 / 0 Регистрация: 06.04.2015 Сообщений: 7
	07.04.2015, 21:14 [ТС]	7
	Kodzaev, я додумалась и исправила так же) спасибо Вам огромное! 0