процедуры.функции

[uHkBu3uTop]

дана целочисленная квадратная матрица. Определить: 1.произведение элементов в тех строка, которые не содержат отрицательных элементов (оформить в виде функции); 2.максимум среди сумм элементов диагоналей , паралелльных главной диагонали матрици (оформить в виде процедуры); зарание прошу вас напишите программы пожалуйста, зарание спасибо

[denisbrain]

Сообщение от uHkBu3uTop

дана целочисленная квадратная матрица. Определить: 1.произведение элементов в тех строка, которые не содержат отрицательных элементов (оформить в виде функции); 2.максимум среди сумм элементов диагоналей , паралелльных главной диагонали матрици (оформить в виде процедуры); зарание прошу вас напишите программы пожалуйста, зарание спасибо

{дана целочисленная квадратная матрица.
Определить:
1.произведение элементов в тех строка, которые не содержат отрицательных элементов (оформить в виде функции);
2.максимум среди сумм элементов диагоналей , паралелльных главной диагонали матрици (оформить в виде процедуры);
}
uses crt;
const
   maxcount = 100; // максимальное число элементов матрицы

type
Tmarix=record // структура файла
  col:integer;
  massiv:array [1..maxcount,1..maxcount] of integer;
end;

var
  m:Tmarix;

// создание матрицы
Procedure CreateMas(var a:Tmarix; col:integer);
var x,y:integer;
begin
   a.col:=col;
   for x:=1 to col do
   for y:=1 to col do a.massiv[x,y]:=-1+random(5);
end;

Procedure ViewMarix(a:Tmarix);
var x,y:integer;
begin
   for y:=1 to a.col do begin writeln;   writeln; // два пробела
   for x:=1 to a.col do
      write(a.massiv[x,y]:4,'  ');
      end;
end;

//1.произведение элементов в тех строка, которые не содержат отрицательных элементов (оформить в виде функции);

Function RowNotMinusElement(a:Tmarix;row:integer):boolean;
var x:integer;
    r:boolean;
begin
  r:=true;
  for x:=1 to a.col do begin
     if a.massiv[x,row]<0 then begin RowNotMinusElement:=false; exit; end; // если есть элемент который меньше 0 (отрицательный) то выходим и возвращаем False
  end;
  RowNotMinusElement:=r;
end;
Function MyltyRowGetUslovie(a:Tmarix):integer;
var r,x,y:integer;
    multy0:boolean;
begin
  r:=1;
  multy0:=true;
  for y:=1 to a.col do
  if RowNotMinusElement(a,y) then begin
  multy0:=false;
  for x:=1 to a.col do r:=r*a.massiv[x,y];
  end;
  if multy0 then MyltyRowGetUslovie:=0
  else MyltyRowGetUslovie:=r;
  

end;
// 2.максимум среди сумм элементов диагоналей , паралелльных главной диагонали матрици (оформить в виде процедуры);

 // расчет суммы элементов диагоналей параллельных главной
Function GetSumElement(a:Tmarix;i:integer;ShowElement:boolean):integer;
var r,x,y:integer;
begin
r:=0;
if i>0 then begin
  for x:=1 to a.col do begin
   y:=x+i;
  if (x<>y) and (x<=a.col) and (y<=a.col) then begin
  r:=r+a.massiv[x,y];
  if ShowElement then writeln('a[',x,',',y,'] = ',a.massiv[x,y])
  end;
  end;
  end
  else
  if i<0 then begin
  for y:=1 to a.col do begin
   x:=y+abs(i);
  if (x<>y) and (x<=a.col) and (y<=a.col) then begin
   r:=r+a.massiv[x,y];
  if ShowElement then writeln('a[',x,',',y,'] = ',a.massiv[x,y])
  end;
  end;end;
  GetSumElement:=r;
end;

//2.максимум среди сумм элементов диагоналей ,
// паралелльных главной диагонали матрици (оформить в виде процедуры);

Function GetMaxSumElement(a:Tmarix):integer;
var x:integer;
    indexElement:integer;
    maxSum:integer;
begin
maxSum:=GetSumElement(a,-1,false);
indexElement:=-1;
     for x:=(a.col*(-1)) to a.col do begin
     if x<>0 then
        if maxSum<GetSumElement(a,x,false) then begin
           maxSum:=GetSumElement(a,x,false);           indexElement:=x;

        end;
//        writeln(x,'  ',GetSumElement(a,x,false));
        end;

     GetMaxSumElement:=indexElement;
end;

var MaxD:integer;
begin
clrscr; // очистка экрана
// для создания файла
CreateMas(m,3); // создаем матрицу
Writeln('Исходная матрица ');
ViewMarix(m); // выводим исходную матрицу на экран
Writeln;
Writeln('1.произведение элементов в тех строка, которые не содержат отрицательных элементов равен ',MyltyRowGetUslovie(m));

MaxD:=GetMaxSumElement(m);
Writeln('2.максимум среди сумм элементов диагоналей , паралелльных главной диагонали матрици ',GetSumElement(m,maxd,false));

Writeln('Элементы ');
GetSumElement(m,MaxD,true);

end.

[uHkBu3uTop]

а сократить ее можно как нибудь,что бы он поменьше была?

[denisbrain]

GetMaxSumElement - ошибка была исправил

[uHkBu3uTop]

Unknown identifier

result:=true;

куда надо поставить result, вообщем что с ним делать

[denisbrain]

Сообщение от uHkBu3uTop

Unknown identifier

result:=true;

куда надо поставить result, вообщем что с ним делать

если Turbo Pascal заменить на названия функции

заменил смотри

[uHkBu3uTop]

спасибо за помощь(огромную) ))))