vladimir10
Новичок
|
   
Не могу разобраться с с векторами в задаче
__________________________
Пусть дана матрица A(n x m)
Постройте вектор ,каждый элемент которого равен количеству элементов в соответствующей строке матрицы А,принадлежащих отрезку [a,b].
_________________________
Код:
Запутался вот тут
Код:
SetLength(v,RowCount);
WriteLn('Vektor v:');
for i := 0 to High(v) do
begin
j:=0;
repeat
Inc(j)
until (j>High (A)) or (A[i,j] < A[i,j-1]);
v:=j>High (A);
Writeln(v);
Вот полная задача
_________________________
Код:
program Project3;
{$APPTYPE CONSOLE}
{$R+}
uses
SysUtils;
type
TMatrix = array of array of integer;
TVector = array of Boolean;
var
c,b: Integer;
A: TMatrix;
V: TVector;
RowCount,ColCount: Integer;
i,j: Integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Randomize;
Write ('vvedite 4islo strok matrix A:');
ReadLn (RowCount);
Write ('Vvedite 4islo stolbcov matrix A:');
ReadLn (ColCount);
SetLength (A,RowCount,ColCount);
WriteLn ('Matrix A:');
For i:= 0 to High (A) do
Begin
For j:=0 to High(A) do
begin
A[i,j] :=-10+Random(21);
Write(A[i,j]:5);
end;
WriteLn;
end;
WriteLn('Vvedite granici otrezka [c,b]:');
Write('c=');
ReadLn(c);
WriteLn('Vvedite granici otrezka [c,b]:');
Write('b=');
ReadLn(b);
SetLength(v,RowCount);
WriteLn('Vektor v:');
for i := 0 to High(v) do
begin
j:=0;
repeat
Inc(j)
until (j>High (A)) or (A[i,j] < A[i,j-1]);
v:=j>High (A);
Writeln(v);
end;
ReadLN;
end.
___________________________
помогите найти ошибки....За ранее спасибо
|
Форум
Делфи Вектор массива
