Помощь - Поиск - Пользователи - Календарь
Полная версия: Матрица
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
scaj
plz хелп smile.gif
Дана матрица В (N,N) Напечатать индексы элементов, которые являются наименьшими в своей строке и одновременно наибольшими в своем столбце.
thnx
Артемий
Воспользуйся поиском,подобное решалось..
Адель
вот..
 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.

хотя это не полностью правильно dry.gif
scaj
Цитата(Адель @ 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.

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


Спасибо!! А что именно не верно ? blush.gif
Алена
Цитата
А что именно не верно ?
То, что программа не будет компилироваться..

scaj
Кто может дать линк на рабочий вариант, очень прошу, завтра сдать нужно !help.gif
Гость
Тебе же сказали - поиском пользуйся... Ключевое слово - "седловые"
scaj
Теперь понял ) keyword дали и все нашлось smile.gif
Адель
Цитата
То, что программа не будет компилироваться..

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

...аа....динам мас)
Артемий
 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 есть? Скачать отсюда - Turbo Pascal. Для Delphi есть другой раздел..
Адель
извинте за оффтоп
2Артемий2: рада, да возмоности нет unsure.gif
Rom1k
Напишите кто-нить цикл для перемножения двух матриц
Алена
Во-первых, почему в чужой теме ?

Во-вторых: Массивы. Матрицы. Типичные задачи.
klem4
scaj, Матрицы, строки, файлы

Поиск, поиск и еще раз поиск.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.