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

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

Форум «Всё о Паскале» _ Задачи _ "Седловая" точка

Автор: D.o.c.t.o.r 21.12.2006 1:04

Цитата

Program Laboratory10;

// Элемент матрицы называется седловой точкой, если он является одновременно на-
// именьшим в своей строке и наибольшем в своём столбце. Дана дейтсвиетльная
// матрица размера 5*6. Выяснить, имеются ли седловые точки в этой матрице, и
// если имеются, то указать индексы одной из них

{$APPTYPE CONSOLE} // Консольное приложение

Uses
SysUtils;

Type
TM = array [1..5,1..6] of Integer; // Двумерный массив, состоящий из целых чисел
TI = array [1..5,1..6] of Integer; // Двумеррный массив, состоящих из индексов чисел

Var
s: Integer;
a:TM;

Procedure Input (Var a:TM); // Процедура ввода матрицы
Var i,j:integer;
Begin
Writeln ('Write elements - range of 5');
For i:=1 to 5 Do
Begin
For j:=1 to 6 do
Begin
Write ('Write element of ',i,'th string and ',j,'th column: ');
Readln (a[i,j]);
End;
End;
End;

Procedure Output (Var a:TM); // Процедура выводав матрицы
Var i,j:integer;
Begin
Writeln ('Current matrix');
Writeln;
For i:=1 to 5 do
Begin
For j:=1 to 6 do
Begin
Write (a[i,j],' ');
End;
Writeln;
End;
End;

Procedure Found (Var a:TM); // Процедура нахождения "седловых точек"
For i:=1 to 5 do
Begin
For j:=1 to 6 do
Begin
a[i,j] := j

end;

end;
End;

Begin // Main
Input (a);
Output (a);
Found (a);
Writeln (S);
Readln;
End.


Помогите пожалуйста написать процедуру "Found"

Автор: мисс_граффити 21.12.2006 1:08

поиск

Автор: volvo 21.12.2006 1:08

Здесь было нахождение всех седловых точек матрицы:
http://forum.pascal.net.ru/index.php?s=&showtopic=3979&view=findpost&p=35143