Задачи в TurboPascal

[McFrey]

нет, это не то....и у меня все замечательно работает pascal abc

[Travi the Hedgehog]

По этому у меня и затруднения. В Pascal abc работы не принимаются .___.
Только через TurboPascal. Что это за ошибка?

[McFrey]

ошибка переполнения памяти стека....

Program by_McFrey;
const nrow=20;
ncol=20;
Type
 matrix=array [1..nrow,1..ncol] of integer;    

var
 a:matrix;
 m,n:integer;


Procedure input (var a:matrix);
var i, j:integer;
Begin
writeln('Введите число строк массива');
readln(m);
writeln('Введите число столбцов массива');
readln(n);
writeln ('Введите элементы массива ');
for i:=1 to m do       
for j:=1 to n do
readln(a[i,j]);
end;


Procedure output (a:matrix);
var i, j:integer;
begin
for i:=1 to m do
 begin
for j:=1 to n do     
write (a[i,j]:7);             
writeln;
 end;
readln;
end;


procedure sort(var a: matrix);
var i, j, k: integer;
    buf: integer;
begin
for i := 1 to m do
  for j := n downto 2 do
    for k := 1 to j-1 do
      if a[k, i] < a[k+1, i] then
        begin
	buf := a[k, i];
	a[k, i] := a[k+1, i];
	a[k+1, i] := buf;
	end;
end;

BEGIN          
input(a);  
output(a); 
sort(a);    
output(a);  
END.

попробуй так...я ограничил 20 строками и столбцами ввод массива...

[Travi the Hedgehog]

Да, всё заработало.

С однозначными числами всё верно происходит, а вот при добавлении двухзначных...


К сожалению, препод добавляет элементы матрицы примерно в таком порядке.
Что добавить, чтобы так же сортировка была верна при добавлении и двухзначных чисел?

[McFrey]

блин...действительно щас помыслим почему так....

[Hacker19_90]

используй такую сортировку

procedure sort (var mas: matrix; const rows, cols: byte;);
var
    i, j: byte;
    flag: boolean;
begin
    for j := 1 to cols do
        repeat
            flag := false;
            for i := 1 to (rows - 1) do
                if mas[i,j] < mas[i+1,j] then
                begin
                    flag := true;
                    mas[i,j] := mas[i+1,j] + mas[i,j];
                    mas[i+1,j] := mas[i,j] - mas[i+1,j];
                    mas[i,j] := mas[i,j] - mas[i+1,j];
                end;
        until flag = false;
end;

[whatever]

Я думаю McFrey имел ввиду преподователя, а не компилятор. А ошибкатакая скорее всего из-за неправильного обращения к массиву, другими словами у тебя матрица 3х3, а обращение происходит, например, к A[3,4], как следствие повреждение стека.

Update: хренасе, вовремя отписался Оо

[McFrey]

попробуй...

program by_McFrey;

const
  nrow = 20;
  ncol = 20;

type
  matrix = array [1..nrow, 1..ncol] of integer;    

var
  a: matrix;
  m, n: integer;


procedure input(var a: matrix);
var
  i, j: integer;
begin
  writeln('Введите число строк массива');
  readln(m);
  writeln('Введите число столбцов массива');
  readln(n);
  writeln('Введите элементы массива ');
  for i := 1 to m do       
    for j := 1 to n do
      readln(a[i, j]);
end;


procedure output(a: matrix);
var
  i, j: integer;
begin
  for i := 1 to m do
  begin
    for j := 1 to n do     
      write(a[i, j]:7);             
    writeln;
  end;
  readln;
end;



procedure sort (var a: matrix);
var
    i, j: byte;
    flag: boolean;
begin
    for j := 1 to n do
        repeat
            flag := false;
            for i := 1 to (m - 1) do
                if a[i,j] < a[i+1,j] then
                begin
                    flag := true;
                    a[i,j] := a[i+1,j] + a[i,j];
                    a[i+1,j] := a[i,j] - a[i+1,j];
                    a[i,j] := a[i,j] - a[i+1,j];
                end;
        until flag = false;
end;

begin
  input(a);  
  output(a); 
  sort(a);    
  output(a);  
end.

P.S. спасибо Hacker19_90

[Travi the Hedgehog]

Да! Всё теперь заработало исправно!
Спасибо вам всем огромное! Вы мне здорово помогли (: