Работа с двумерными массивами., процедуры Опции

[Jangle]

Дан двумерный массив. Найти номера первых положительных элементов каждого столбца.

Uses Crt;
type
    mas=array [1..100,1..100] of integer;
    mass=array [1..100] of integer;
var
   q,w:integer;k:byte;l:mas;S:mass;
procedure vvod(n,m:integer;var A:mas);
var
   i,j:integer;
begin
  ClrScr;
  Randomize;
  Textcolor(white);
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          A[i,j]:=Random(100);
          A[i,j]:=A[i,j]-random(290);
        end;
    end;
  Textcolor(green);
  Writeln('MACCUB:');
  For i:=1 to n do
   For j:=1 to m do
     begin
       Write(a[i,j]:5,'     ');
       If j=m then WriteLn;
     end;
  end;
procedure obr (n,m:integer;a:mas; var b:mass);
var
   i,j,x:integer;
begin
  j:=1;
  while j<=m do
    begin
      for i:=n downto 1 do
        if A[i,j]>0 then x:=A[i,j];
      b[j]:=X;
      j:=j+1;x:=0;
    end;
end;
procedure vivod (m:integer;b:mass);
var
   j:integer;
begin
ClrScr;
 for j:=1 to m do
   if b[j]=0 then WriteLn('HET POLOZITELNYX B ',j,'Ctolbche')
   else Writeln(j,'Ctolbech=',b[j]);
end;

begin
ClrScr;
Writeln('Pazmernost:');
Read(q,w);
Repeat
Writeln('1-BBOD');
Writeln('2-OBRAB');
Writeln('3-vivod');
Writeln('4-exit');
Writeln('vibor:');
Read(k);
case k of
1:vvod(q,w,l);
2:obr(q,w,l,S);
3:vivod(w,S);
4:halt;
end;
until k>4;
Readkey;
end.
ReadKey;
end.

Подскажете в чем ошибка... При выполнении задачи вылетает и пишет,что ошибка 202 (Переполнение стека). Как исправить? В чем ошибка? Заранее спасибо...

Сообщение отредактировано: Jangle - 18.03.2007 20:03

[compiler]

Неподскажете в чем ошибка... При выполнении задачи вылетает и пишет,что ошибка 202 (Переполнение стека). Как исправить? В чем ошибка? Заранее спасибо...

у меня все компилируется(FP)

[Артемий]

у меня все компилируется(FP)

Compiler, а какой тут раздел,а? Из простоты тема была создана?!

[Алена]

procedure obr (n,m:integer; CONST a:mas; var b:mass);

[Jangle]

Алена большое спасибо...работает... А все таки что эта Const обозначает?

[Артемий]

Константа, которую уже нельзя изменить в этой процедуре..

[Алена]

У тебя матрица большая. При передаче без Const, происходит передача по значению, т.е. вся матрица копируется в стек, его размера не хватает, и получаешь Stack Overflow... Поэтому передавай по ссылке.

[Jangle]

Отлично.... всем большое спасибо.. понял

[Алена]

Константа, которую уже нельзя изменить в этой процедуре..

Уверен?

[compiler]

у меня все компилируется(FP)

Compiler, а какой тут раздел,а? Из простоты тема была создана?!

я просто не понял проблемы...

[Артемий]

Уверен?

Ну а ты попробуй сделать это в процедуре..

[Алена]

Ну а ты попробуй сделать это в процедуре..

Попробовала. Получилось.

type
  mass = array[1 .. 10] of integer;

procedure x(const a: mass);
var
  p: ^mass;
begin
  p := @a;
  p^[1] := 15;
end;

var
  i: integer;
  arr: mass;
begin
  for i := 1 to 10 do arr[i] := i;
  for i := 1 to 10 do
    write(arr[i]:4);
  writeln;

  x(arr);
  for i := 1 to 10 do
    write(arr[i]:4);
  writeln;
end.

Еще возражения будут?

[Артемий]

Посты получше читай!Нужна была просто определение const и покажи мне ту книгу где показывается твой "образцовый" способ,который кстати барахлит на xp и не работает на vista! Зачем оно тебе надо изобретать велосипед и изменять ее?

[Алена]

Артемий2
А грубить это что, принято, когда нет других аргументов?

покажи мне ту книгу где показывается твой "образцовый" способ

А зачем книга? Я тебе СПОСОБ показала... Мало ли чего в книгах не пишется...

который кстати барахлит на xp и не работает на vista!

Это чья проблема? Моя? Вообще-то у меня на XP это не барахлит никогда, а если это не работает на Vista, то и половина тех программ, что ты выложил на форуме работать тоже не будет...

Зачем оно тебе надо изобретать велосипед и изменять ее?

Чтобы ты не говорил того, чего нет... Ты сказал, что ее нельзя изменить, да еще и ухмылялся, когда я сказала, что можно...

[compiler]

А грубить это что, принято, когда нет других аргументов?

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

и всеже ребята, давайте жить дружно!

Сообщение отредактировано: compiler - 19.03.2007 21:01

[Артемий]

Да ладно,Стас, я сам виноват..