Матрицы в Pascal

[lola1990]

помогите пожалуйста с задачей по лабораторке..
Используя процедуры и функции из целочисленной матрицы А (n x m) получить вектор, элементами которого будут номера первых отрицательных элементов строк матрицы.

[TinMan]

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

помогите пожалуйста с задачей по лабораторке..
Используя процедуры и функции из целочисленной матрицы А (n x m) получить вектор, элементами которого будут номера первых отрицательных элементов строк матрицы.

А наличие отрицательных элементов в каждой строке гарантируется? Если да, как-то вот так можно:

for i:=1 to n do begin
  b[i]:= 1;
  while a[i,b[i]]>=0 do inc(b[i])
end;

А если нет, то нужно уточнить условие.

[Stilet]

С первом приближении

var m:array[1..5,1..5] of integer;
 i:integer;b:array[1..5] of integer;

function gaga(i:integer);var j:integer;
begin 
 for j:=1 to 5 do
   if m[i,j]<0 then begin 
    gaga:=m[i,j];exit;
   end; 
  gaga:=0;
end;

begin
 Вводим матрицу
 for i:=1 to 5 do b[i]:=gaga(i);
 for i:=1 to 5 do if b[i]<>0 do write(b[i]:5);
readln;
end.

Смысл надеюсь понятен?

[lola1990]

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

type matr=array [1..10,1..10] of integer;
type mas=array [1..10] of integer;
var a:matr;
min,i,j,n,m:integer;
b:mas;
procedure input (var a:matr; i,j,n,m:integer);
begin
for i:=1 to n do
begin
for j:=1 to m do
readln(a[i,j]);
end;
end;
procedure output (var a:matr; var b:mas; min,i,j,n,m:integer);
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write (a[i,j]:5);
writeln (b[i]:10);
end;
end;
procedure resh (var a:matr; i,j,n:integer;var b:mas);
begin
for i:=1 to n do
begin
if a[i,j]<0 then
b[j]:=a[i,j];
j:=j+1;
end;
end;
begin
Write('Ââåäèòå êîë-âî ñòðîê ìàòðèöû: ');
read (n);
Write('Ââåäèòå êîë-âî ñòîëáöîâ ìàòðèöû: ');
read (m);
Write('Ââåäèòå ýë-òû ìàòðèöû: ');
writeln;
input(a,i,j,n,m);
resh(a,i,j,n,b);
output (a,b,min,i,j,n,m);
readln;
end.

ошибку выдает: "выход за границы диапазона изменения индекса" =(

[lola1990]

нашла ошибку.. но теперь все равно что то не так он выводит

type matr=array [1..10,1..10] of integer;
type mas=array [1..10] of integer;
var a:matr;
    min,i,j,n,m:integer;
    b:mas;
procedure input (var a:matr; i,j,n,m:integer);
begin
  for i:=1 to n do
    begin
    for j:=1 to m do
    readln(a[i,j]);
    end;
end;
procedure output (var a:matr; var b:mas; min,i,j,n,m:integer);
  begin
    for i:=1 to n do
     begin
    writeln;
    for j:=1 to m do
    write (a[i,j]:5);
    writeln (b[i]:10);
    end;
  end;
procedure resh (var a:matr; i,j,n:integer;var b:mas);
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
    if a[i,j]<0 then
      b[j]:=j;
    j:=j+1;
  end;
end;
begin
  Write('Ââåäèòå êîë-âî ñòðîê ìàòðèöû: ');
  read (n);
  Write('Ââåäèòå êîë-âî ñòîëáöîâ ìàòðèöû: ');
  read (m);
  Write('Ââåäèòå ýë-òû ìàòðèöû: ');
  writeln;
  input(a,i,j,n,m);
  resh(a,i,j,n,b);
  output (a,b,min,i,j,n,m);
  readln;
end.

[GetMax]

type matr=array [1..10,1..10] of integer;
type mas=array [1..10] of integer;
var a:matr;
    min,i,j,n,m:integer;
    b:mas;
procedure input (var a:matr; i,j,n,m:integer);
begin
  for i:=1 to n do
    begin
    for j:=1 to m do
    readln(a[i,j]);
    end;
end;
procedure output (var a:matr; var b:mas; min,i,j,n,m:integer);
  begin
    for i:=1 to n do
     begin
    writeln;
    for j:=1 to m do
    write (a[i,j]:5);
    writeln (b[i]:10);
    end;
  end;
procedure resh (var a:matr; i,j,n:integer;var b:mas);
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
    if a[i,j]<0 then
    Begin
      b[i]:=j;//количество элементов в векторе = количеству строк матрицы
      Break // как только нашли первый отрицательный элемент, выходим из цикла
    End;
  end;
end;
begin
  Write('Aaaaeoa eie-ai no?ie iao?eou: ');
  readln (n);
  Write('Aaaaeoa eie-ai noieaoia iao?eou: ');
  readln (m);
  Write('Aaaaeoa ye-ou iao?eou: ');
  writeln;
  input(a,i,j,n,m);
  resh(a,i,j,n,b);
  output (a,b,min,i,j,n,m);
  readln;

P. s. Советую подумать над тем, что будет в векторе, если в строке не окажется отрицательных элементов

[lola1990]

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

[CODE]
P. s. Советую подумать над тем, что будет в векторе, если в строке не окажется отрицательных элементов

обязательно подумаю.. мне пока хотя бы без этого написать
о огромное вам спасибо

[lola1990]

блин может кто нибудь еще поможет написать блок схему ну или хотя бы скажет как в блок схеме записывать процедуры..

[Rin]

Процедура обозначается вот так.
Рядом делаешь блок-схему своих процедур.

[TinMan]

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

Break // как только нашли первый отрицательный элемент, выходим из цикла

Не вполне понимаю, зачем учить начинающего неправильному стилю программирования. Особенно, если в первом же ответе содержится правильное решение..