Дана действительная матрица размером n x m

@nurkamol · Регистрация: 23.06.2010

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

Дана действительная матрица размером n x m , все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы элемента с найденным значением.

Нуу вообшем то у меня само программа есть! Но мне надо Блог схема, условия и заключение!

Pascal

program матрица;
uses Crt;
const
 n = 5;
 m = 7;
var
 i,j,k: byte;
 mas: array[1..n,1..m] of integer;
 procedure Search;
  var
   lit: array[1..n] of integer;
  begin
   writeln;
   for i:=1 to n do
    begin
     k:=mas[i,1];
     for j:=2 to m do
      if k > mas[i,j] then  k:=mas[i,j];
     lit[i]:=k;
     write(lit[i]:4);
    end;
   k:=0;
   writeln;
   for i:=1 to n do
    if k < lit[i] then k:=lit[i];
   write(k:4);
  end;
  
begin
 Randomize;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     mas[i,j]:=random(50);
     write(mas[i,j]:6);
    end;
   writeln;
  end;
 Search;
end.

СПАСИБО!

@SuPeR XaKer · 20.02.2011, 11:18

довольно сложно.Всё это

В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее.

можно сделать при заполнении массива.
Вот так:

Pascal

Uses
  CRT;
Const
  nmax=30;
Var
 b: array[1..nmax, 1..nmax] of integer;
 n,m,i,j,imin,imax,jmax,max:integer;
Begin
 clrscr;
 repeat
  Write('Êîëè÷åñòâî ñòðîê ìàññèâà, m=');
  Readln(m);
 until m in [1..nmax];
 repeat
  Write('Êîëè÷åñòâî ñòîëáöîâ ìàññèâà, n=');
  Readln(n);
 until n in [1..nmax];
 randomize;
 max:=-MaxInt;
 imax:=0;
 jmax:=0;
 For j:=1 to m do
  begin
  imin:=1;
   For i:=1 to n do
    Begin
     b[j,i]:=random(10)-3;
     write(b[j,i]:5);
     if b[j,i]<b[j,imin] then
      imin:=i
    End;
   writeln('  =>  MIN[',j,';',imin,']:=',b[j,imin]);
   if b[j,imin]>max then
   begin
    max:=b[j,imin];
    jmax:=j;
    imax:=imin;
   end;
  end;
writeln;
writeln('MAX[',jmax,';',imax,']:=',max);
Readln;
End.

матрицу только действительную сделайте.Ну это думаю сможете..Да и у вас она целочисленная

@nurkamol · 20.02.2011, 16:09 **[ТС]**

Сообщение от SuPeR XaKer

довольно сложно.Всё это можно сделать при заполнении массива.
Вот так:

Pascal

Uses
  CRT;
Const
  nmax=30;
Var
 b: array[1..nmax, 1..nmax] of integer;
 n,m,i,j,imin,imax,jmax,max:integer;
Begin
 clrscr;
 repeat
  Write('Êîëè÷åñòâî ñòðîê ìàññèâà, m=');
  Readln(m);
 until m in [1..nmax];
 repeat
  Write('Êîëè÷åñòâî ñòîëáöîâ ìàññèâà, n=');
  Readln(n);
 until n in [1..nmax];
 randomize;
 max:=-MaxInt;
 imax:=0;
 jmax:=0;
 For j:=1 to m do
  begin
  imin:=1;
   For i:=1 to n do
    Begin
     b[j,i]:=random(10)-3;
     write(b[j,i]:5);
     if b[j,i]<b[j,imin] then
      imin:=i
    End;
   writeln('  =>  MIN[',j,';',imin,']:=',b[j,imin]);
   if b[j,imin]>max then
   begin
    max:=b[j,imin];
    jmax:=j;
    imax:=imin;
   end;
  end;
writeln;
writeln('MAX[',jmax,';',imax,']:=',max);
Readln;
End.

матрицу только действительную сделайте.Ну это думаю сможете..Да и у вас она целочисленная

спасибо за это все конечно! буду пользоваться! нооо мнее в самом деле над было Блок схема, условия и заключения) еще разок спасибо!

@SuPeR XaKer · 20.02.2011, 16:20

условия и заключения

эт чё такое?
Блок схему по какой делать программе?

Указать индексы элемента с найденным значением

у вас вообще это не сделано.

k: byte;

при генерации отрицательных будет ошибка.
Если минимальный элемент каждой строки будет отрицательным программа будет не верно выдавать результат.

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	20.02.2011, 16:20	4
	условия и заключения эт чё такое? Блок схему по какой делать программе? Указать индексы элемента с найденным значением у вас вообще это не сделано. k: byte; при генерации отрицательных будет ошибка. Если минимальный элемент каждой строки будет отрицательным программа будет не верно выдавать результат. 0