Найти количество строк матрицы, все элементы которых различны

@Ritochka94 · Регистрация: 17.05.2013

Студворк — интернет-сервис помощи студентам

Дана целочисленная матрица размера M x N. Найти количество ее строк, все элементы которых различны. Заполнение делаю через эдиты. таблица Stringrid, но не выходит, помогите пожалуйста, а то все выходные проленилась

@ROS88 · 08.03.2016, 20:09

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   A: array of array of integer;
   i, j, z, n, k, k1: integer;
begin
     n := 5;
     SetLength(A, n, n);
     for i := 0 to n - 1 do
       for j := 0 to n - 1 do
         begin
           A[i, j] := RandomRange(-10, 10);
           StringGrid1.Cells[j, i] := IntToStr(A[i, j]);
         end;
 
     k := 0;
     for i := 0 to n - 1 do
       begin
         k1 := 0;
         for j := 0 to n - 1 do
           for z := 0 to n - 1 do
             if ((A[i, j] = A[i, z]) and (j <> z)) then
               k1 := k1 + 1;
         if (k1 = 0) then
           k := k + 1;
       end;
 
     Caption := IntToStr(k);
end;

@Ritochka94 · 08.03.2016, 22:17 **[ТС]**

ROS88, спасибо за отклик, программа ссылается на RandomRange, как на неопознанный, может нужно Randomize??? Заранее спасибо

@Narimanych · 08.03.2016, 22:58

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

RandomRange

в Uses добавьте Math

@Ritochka94 · 08.03.2016, 23:06 **[ТС]**

Narimanych, Огромное спасибо

@Narimanych · 08.03.2016, 23:46

Ritochka94,
Всегда пожалуйста

@Ritochka94 3 / 3 / 0 Регистрация: 17.05.2013 Сообщений: 58
		1
	Найти количество строк матрицы, все элементы которых различны 08.03.2016, 18:27. Показов 842. Ответов 5 Метки нет (Все метки) Дана целочисленная матрица размера M x N. Найти количество ее строк, все элементы которых различны. Заполнение делаю через эдиты. таблица Stringrid, но не выходит, помогите пожалуйста, а то все выходные проленилась 0

@Ritochka94 3 / 3 / 0 Регистрация: 17.05.2013 Сообщений: 58
	08.03.2016, 22:17 [ТС]	3
	ROS88, спасибо за отклик, программа ссылается на RandomRange, как на неопознанный, может нужно Randomize??? Заранее спасибо 0

@Narimanych 2655 / 1654 / 753 Регистрация: 23.03.2015 Сообщений: 5,196
	08.03.2016, 22:58	4
	Сообщение от Ritochka94 RandomRange в Uses добавьте Math 1

@Ritochka94 3 / 3 / 0 Регистрация: 17.05.2013 Сообщений: 58
	08.03.2016, 23:06 [ТС]	5
	Narimanych, Огромное спасибо 0

@Narimanych 2655 / 1654 / 753 Регистрация: 23.03.2015 Сообщений: 5,196
	08.03.2016, 23:46	6
	Ritochka94, Всегда пожалуйста 0

Опции темы