Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.12.2010, 17:27   #1
ДваДваВо7
Подтвердите свой е-майл
 
Регистрация: 15.10.2010
Сообщений: 29
Печаль Delphi (2 курс)

Не могу разобраться с с векторами в задаче
__________________________
Пусть дана матрица A(n x m)
Постройте вектор ,каждый элемент которого равен количеству элементов в соответствующей строке матрицы А,принадлежащих отрезку [a,b].
_________________________
Код:
program Project3;

{$APPTYPE CONSOLE}
{$R+}

uses
  SysUtils;

type
  TMatrix = array of array of integer;
  TVector = array of Integer;

  var
  c,b,x: Integer;
  A: TMatrix;
  V: TVector;
  RowCount,ColCount: Integer;
  i,j: Integer;
  count:  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[i]) 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:');
 begin
 if (c>=x)and (b<=x) then
for i := 0 to High(A) do
    Count :=0;
  For j := 0 to High (A[i]) do
    Count :=0;
    end;
ReadLn;
end.
Решить надо именно в этом виде....За ранее спасибо
ДваДваВо7 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
4 курс komar1991 Помощь студентам 7 18.09.2010 13:37
курс доллара Евгений К. Microsoft Office Excel 10 28.07.2010 22:56
Delphi(1й курс) Жадный алгоритм Archetype Помощь студентам 8 17.05.2010 19:49
1 курс информатики Jo Alves Паскаль, Turbo Pascal, PascalABC.NET 6 28.12.2008 12:39
Помогите составить программу на Delphi.. (1 курс) gree Помощь студентам 13 01.11.2008 17:29