Где в этой программе ошибка:

[Оля_1991]

При запуске программы пишет ошибку 202.

Program SumG_SumP;
uses crt;
const Max=100;
type matr=array [1..Max,1..Max] of integer;
var a:matr;
i,j,SumG,SumP,x:integer;
n:integer;
   Procedure VvodRazmernostiMatrici (var x:integer);
   begin
   repeat
   writeln ('Vvedite razmernost kvadratnoi matrici(1..',Max,')');
   readln (x) until x in [1..Max];

   end;
   Procedure GenerateMatr (x:integer; var M:Matr);
   var i,j:integer;
   begin
   for i:=1 to x do
   for j:=1 to x do
   M[i,j]:=random(20)
   end;
   Procedure PrintMatr(x:integer; M:Matr);
   var i,j:integer;
      begin
   for i:=1 to x do begin
   for j:=1 to x do
   write (M[i,j]);
   writeln;
   end;
   end;

   Function SumGlavnoiDiagonali (x:integer; M:Matr):real;
   var SumG: real;
   i,j:integer;
   begin
   SumG:=0;
   for i:=1 to x do
   for j:=1 to x do
   if i=j then
   begin
   SumG:=SumG+M[i,j];
   SumGlavnoiDiagonali:=SumG;

   end;
   end;
  Function SumPobochnoiDiagonali (x:integer; M:Matr):real;
   var SumP:real;
   i,j:integer;
   Begin
   SumP:=0;
   for i:=1 to x do
   for j:=1 to x do
   SumP:=SumP+M[x-i+1,i];
   SumPobochnoiDiagonali:=SumP;
   end;


    Begin
   VvodRazmernostiMatrici(x);

   GenerateMatr (x,a);


   PrintMatr(x,a);
   SumGlavnoiDiagonali(x,a);
   writeln ('summa elementov glavnoi diagonali=',SumGlavnoiDiagonali(x,a));
   SumPobochnoiDiagonali (x,a);

   writeln ('summa elementov pobochnoi diagonali=',SumPobochnoiDiagonali(x,a));
   readln;
   End.

А требовалось составить программу, вычисляющую сумму главной и побочной диагонали квадратной матрицы, используя процедуры и функции.

[Xatr]

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

Program SumG_SumP;
uses crt;
const Max=100;
type matr=array [1..Max,1..Max] of integer;
var a:matr;
i,j,SumG,SumP,x:integer;
n:integer;
Procedure VvodRazmernostiMatrici (var x:integer);
begin
repeat
writeln ('Vvedite razmernost kvadratnoi matrici(1..',Max,')');
readln (x) until x in [1..Max];
end;
Procedure GenerateMatr (x:integer; var M:Matr);
var i,j:integer;
begin
for i:=1 to x do
for j:=1 to x do
M[i,j]:=random(20)
end;
Procedure PrintMatr(x:integer; M:Matr);
var i,j:integer;
begin
for i:=1 to x do begin
for j:=1 to x do
write ('  ',M[i,j]);
writeln;
end;
end;
Function SumGlavnoiDiagonali (x:integer; M:Matr):real;
var SumG: real;
i,j:integer;
begin
SumG:=0;
for i:=1 to x do
for j:=1 to x do
if i=j then
begin
SumG:=SumG+M[i,j];
SumGlavnoiDiagonali:=SumG;
end;
end;
Function SumPobochnoiDiagonali (x:integer; M:Matr):real;
var SumP:real;
i,j:integer;
Begin
SumP:=0;
for i:=1 to x do
SumP:=SumP+M[x-i+1,i];
SumPobochnoiDiagonali:=SumP;
end;
Begin
VvodRazmernostiMatrici(x);
GenerateMatr (x,a);
PrintMatr(x,a);
SumGlavnoiDiagonali(x,a);
writeln ('summa elementov glavnoi diagonali=',SumGlavnoiDiagonali(x,a ));
SumPobochnoiDiagonali (x,a);
writeln ('summa elementov pobochnoi diagonali=',SumPobochnoiDiagonali(x ,a));
readln;
End.

удалена строка:

for j:=1 to x do

за ненадобностью.
ну я конечно в Pascal ABC тестил, а не в Turbo Pascal. Поэтому и не было 202 Stack overflow error (Переполнение стека), если вы под 202 это имели ввиду...

[ROMA2PVT]

const Max=100;

Поменьше вот так:

const Max=15;

при выводе чтобы массив не сливался:

write (M[i,j]:4);

Ну и вот эта функция:

Function SumPobochnoiDiagonali (x:integer; M:Matr):real;
var SumP:real;
i,j:integer;
Begin
SumP:=0;
for i:=1 to x do
for j:=1 to x do
SumP:=SumP+M[x-i+1,i];
SumPobochnoiDiagonali:=SumP;
end;

Вот так исправьте:

Function SumPobochnoiDiagonali (x:integer; M:Matr):real;
var SumP:real;
i,j:integer;
Begin
SumP:=0;
for i:=1 to x do
SumP:=SumP+M[x-i+1,i];
SumPobochnoiDiagonali:=SumP;
end;

везде где тип стоит Real исправьте на Integer

[Kochevnik_ua_km]

Доброго времени суток.
В чем ошибка в процедуре? выдаёт переполнение стека?

procedure tform1.downsort(first,last:integer);
var i,j:integer;
tmp:cryina;rtm,x:real;
begin
rtm:=0;
  i:=first;
  j:=last;
  for i:=first to last do
  rtm:=mas[i].nacel+rtm;
  x:=rtm/last;   repeat
    while mas[i].nacel>x do i:=i+1; 
    while x>mas[j].nacel do j:=j-1; 
    if i<=j then
     begin
       tmp:=mas[i];
       mas[i]:=mas[j];
       mas[j]:=tmp;
       i:=i+1;
       j:=i-1;
     end;
   until i>j;
   if first<j then downsort(first,j);
   if i<last then downsort(i,last)
   end;

[evg_m]

  i:=first;
  j:=last;
  for i:=first to last do
  rtm:=mas[i].nacel+rtm;
  x:=rtm/last;   repeat
    while mas[i].nacel>x do i:=i+1; 
    while x>mas[j].nacel do j:=j-1; 
    if i<=j then
     begin
       tmp:=mas[i];
       mas[i]:=mas[j];
       mas[j]:=tmp;
       i:=i+1;
       j:=i-1;
     end;
   until i>j;
   if first<j then downsort(first,j);
   if i<last then downsort(i,last)
   end;

в выделенных красным использована одна и та же переменная и как следствие ее значение отличается от ожидаемого тобой (можешь проверить отладчиком). неверное значение данной переменной приводит к бесконечной рекурсии и переполнению стека.