вот моя прога по локальным минимумам....
Код
uses crt;
const nn=15;
type tt=1..nn;
var n,m:tt;
c:0..nn*nn;
x:byte;
i,j:tt;
e,r:set of tt;
a:array[tt,tt]of integer;
function f(i,j:tt):boolean;
var q,w:-1..2;
d:boolean;
begin
d:=2<3;
q:=-1;
while d and (q<=1) do
begin
w:=-1;
while d and (w<=1) do
begin
if q*q+w*w<>0 then
if (i+q in e) and (j+w in r) then d:=d and (a[i,j]<a[i+q,j+w]);
inc(w);
end;
inc(q)
end;
f:=d;
end;
begin
write('m=');
readln(m);
write('n=');
readln(n);
e:=[];
r:=[];
for j:=1 to n do r:=r+[j];
for i:=1 to m do
begin
e:=e+[i];
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
c:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
x:=ord(f(i,j));
textcolor(11+x);
c:=c+x;
write(a[i,j]:7);
end;
writeln;
end;
writeln(c);
end.
const nn=15;
type tt=1..nn;
var n,m:tt;
c:0..nn*nn;
x:byte;
i,j:tt;
e,r:set of tt;
a:array[tt,tt]of integer;
function f(i,j:tt):boolean;
var q,w:-1..2;
d:boolean;
begin
d:=2<3;
q:=-1;
while d and (q<=1) do
begin
w:=-1;
while d and (w<=1) do
begin
if q*q+w*w<>0 then
if (i+q in e) and (j+w in r) then d:=d and (a[i,j]<a[i+q,j+w]);
inc(w);
end;
inc(q)
end;
f:=d;
end;
begin
write('m=');
readln(m);
write('n=');
readln(n);
e:=[];
r:=[];
for j:=1 to n do r:=r+[j];
for i:=1 to m do
begin
e:=e+[i];
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
c:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
x:=ord(f(i,j));
textcolor(11+x);
c:=c+x;
write(a[i,j]:7);
end;
writeln;
end;
writeln(c);
end.
но преподавателю кое-что не понравилось
он сказал ЭТУ программу переделать так чтоб
1) Матрица задавалась не с клавиатура а из файла, в котором лежит 5-10 матриц, оттуда берем матрица
2) Чтоб было 2 TPU модуля один в котором меняем размерность матрицы, второй в котором ищем локальные минимумы.....
оч прошу вас..ребята вы же знаете как это делать
пожалуйста