Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Матрица

Автор: scaj 20.03.2007 19:14

plz хелп
Дана матрица В (N,N) Напечатать индексы элементов, которые являются наименьшими в своей строке и одновременно наибольшими в своем столбце.
thnx

Автор: Артемий2 20.03.2007 19:30

Воспользуйся поиском,подобное решалось..

Автор: Адель 20.03.2007 20:20

вот..

 VAR
  a:Array of Array of integer;
  i,j,k,n,min,jmin:Integer;
  f:Boolean;
begin
  readln(n);
  SetLength(a,n,n);
  randomize;
  for i:=0 to n-1 do
    for j:=0 to n-1 do
      a[i,j]:=random(10);

  for i:=0 to n-1 do
  begin
    for j:=0 to n-1 do
      write (a[i,j],' ');
    writeln;
  end;
  writeln;
  f:=true;
  for i:=0 to n-1 do
  begin
    min:=a[i,0];
    for j:=1 to n-1 do
    begin
      if a[i,j]<min then begin min:=a[i,j]; jmin:=j; end;
    end;
  for k:=0 to n-1 do
    if a[k,jmin]>min then f:=false;
  if f then writeln(min);
  end;
  readln;
end.

хотя это не полностью правильно

Автор: scaj 20.03.2007 20:39

Цитата(Адель @ 20.03.2007 17:20)

вот..

 VAR
  a:Array of Array of integer;
  i,j,k,n,min,jmin:Integer;
  f:Boolean;
begin
  readln(n);
  SetLength(a,n,n);
  randomize;
  for i:=0 to n-1 do
    for j:=0 to n-1 do
      a[i,j]:=random(10);

  for i:=0 to n-1 do
  begin
    for j:=0 to n-1 do
      write (a[i,j],' ');
    writeln;
  end;
  writeln;
  f:=true;
  for i:=0 to n-1 do
  begin
    min:=a[i,0];
    for j:=1 to n-1 do
    begin
      if a[i,j]<min then begin min:=a[i,j]; jmin:=j; end;
    end;
  for k:=0 to n-1 do
    if a[k,jmin]>min then f:=false;
  if f then writeln(min);
  end;
  readln;
end.

хотя это не полностью правильно

Спасибо!! А что именно не верно ?

Автор: Алена 20.03.2007 21:29

Цитата

А что именно не верно ?

То, что программа не будет компилироваться..

Автор: scaj 20.03.2007 22:31

Кто может дать линк на рабочий вариант, очень прошу, завтра сдать нужно !help.gif

Автор: Гость 20.03.2007 22:33

Тебе же сказали - поиском пользуйся... Ключевое слово - "седловые"

Автор: scaj 20.03.2007 22:57

Теперь понял ) keyword дали и все нашлось

Автор: Адель 21.03.2007 0:13

Цитата

То, что программа не будет компилироваться..

хм...у меня компилиться, только в алгоритме дырка

...аа....динам мас)

Автор: Артемий2 21.03.2007 1:20

 VAR
  a:Array of Array of integer;
  i,j,k,n,min,jmin:Integer;
  f:Boolean;
begin
  readln(n);
  SetLength(a,n,n);

У тебя Turbo Pascal есть? Скачать отсюда - http://borlpasc.narod.ru. Для Delphi есть другой раздел..

Автор: Адель 22.03.2007 5:04

извинте за оффтоп
2Артемий2: рада, да возмоности нет

Автор: Rom1k 23.03.2007 2:29

Напишите кто-нить цикл для перемножения двух матриц

Автор: Алена 23.03.2007 2:42

Во-первых, почему в чужой теме ?

Во-вторых: http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=23475

Автор: klem4 24.03.2007 22:45

scaj, http://forum.pascal.net.ru/index.php?s=&showtopic=3979&view=findpost&p=35143

Поиск, поиск и еще раз поиск.