Функция проверки наличия в матрицах 2 одинаковых элементов

@kep17 · Регистрация: 11.10.2014

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

Задано матрицы Z,V,G розмерностью (3х4). Написать схему алгоритма и программу, в которой при помощи функции придать значение True , если в матрице есть 2 одинаковые элемента . Ввод данных и вывод результатов исполнить в основной программе !Сделайте не рондомные значения а ввод данных в програму

@ZX Spectrum-128 · 24.10.2014, 17:53

А зачем 6 матриц просил?

@kep17 · 25.10.2014, 14:04 **[ТС]**

vint-81, извините ... я переделал ввод и вывод данных только программа работает вроде неправильно там я ввожу матрицы с одинаковыми числами а она пишет фолс

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
const n=3;m=4;
type mas=array[1..n,1..m] of integer;
var z,v,g:mas;  p:text;
procedure vv(var a,b,c:mas);
var i,j:integer;
begin
assign(p,'laba6.txt');
  reset(p);
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
      read(p,a[i,j]);
      readln(p);
    end;
    readln(p);
    
    
    for i:=1 to n do
    begin
      for j:=1 to m do
        read(p,b[i,j]);
         readln(p);
         
 
end;
readln(p);
for i:=1 to n do
    begin
      for j:=1 to m do
        read(p,c[i,j]);
      readln(p);
    end;
  close(p);
  end;
 
     end;
 
 
 
function od(x:mas):boolean;
var i,j,ii,jj:integer;
    f:boolean;
begin
    f:=false;
    ii:=1;jj:=1;
    while (ii<=n)and(not f) do
     begin
      while (jj<=m)and(not f) do
       begin
        i:=1;j:=1;
        while i<=n do
         begin
          while j<=m do
           begin
            if (x[ii,jj]=x[i,j])and((ii<>i)or(jj<>j)) then f:=true;
            inc(j)
           end;
          inc(i)
         end;
        inc(jj)
       end;
      inc(ii)
     end;
    od:=f
end;
 
begin
 
 
 vv(z,v,g);
 append(p);
 writeln(p,od(z));
 
 writeln(p,od(v));
 
 writeln(p,od(g));
 close(p);
end.

исправте мою ошибку пожалуйста

@ZX Spectrum-128 · 25.10.2014, 16:48

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
uses
  crt;
const
  n=3;m=4;
type
  mas=array[1..n,1..m] of integer;
var
  z,v,g,z1,v1,g1:mas;
  f2:text;
  j,i:integer;
 
procedure vv(var a,b,c:mas);
var i,j:integer;
begin
  assign(f2,'laba6.txt');
  reset(f2);
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f2,a[i,j]);
      readln(f2);
    end;
  readln(f2);
 
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f2,b[i,j]);
      readln(f2);
    end;
  readln(f2);
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f2,c[i,j]);
      readln(f2);
    end;
  close(f2);
end;
 
 
function od(a:mas):boolean;
Var
  i,j,t,r,in1,jm1,in2,jm2:integer;
  b:boolean;
Begin
    i:=1;b:=true;
    While (i<=n)and(b) do
    Begin
      j:=1;
      While (j<=m)and(b) do
      Begin
        t:=i;
        While (t<=n)and(b) do
        Begin
          r:=j;
          While (r<=m)and(b) do
          Begin
            if (A[i,j]=A[t,r])and(i<>t)and(j<>r) then
            Begin
              in1:=i;
              in2:=t;
              jm1:=j;
              jm2:=r;
              b:=false;
            End;
            inc(r);
          End;
          inc(t);
        End;
        inc(j);
      End;
      inc(i);
    End;
  od:=b;
end;
 
 
begin
  clrscr;
  vv(z,v,g);
  append(f2);
  writeln(f2,od(z));
  writeln(f2,od(v));
  writeln(f2,od(g));
  close(f2);
  readln;
end.

1 2 3 4
2 5 6 7
51 13 23 54

24 24 24 24
15 26 43 35
23 86 44 24

12 46 44 50
22 35 56 66
23 45 67 45
TRUE
FALSE
TRUE

@vint-81 · 25.10.2014, 17:04

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

исправте мою ошибку пожалуйста

это моя ошибка, не в том месте присвоил jj:=1 и j:=1, прошу прощения
должно быть

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
const n=3;m=4;
type mas=array[1..n,1..m] of integer;
var z,v,g:mas;
 
procedure vv(var a:mas);
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
      a[i,j]:=random(51);
      write(a[i,j]:4)
    end;
   writeln
  end;
end;
 
function od(x:mas):boolean;
var i,j,ii,jj:integer;
    f:boolean;
begin
    f:=false;
    ii:=1;
    while (ii<=n)and(not f) do
     begin
      jj:=1;
      while (jj<=m)and(not f) do
       begin
        i:=1;
        while (i<=n) do 
         begin
          j:=1;
          while (j<=m) do 
           begin
            if (x[ii,jj]=x[i,j])and((ii<>i)and(jj<>1)) then f:=true;
            inc(j)
           end;
          inc(i)
         end;
        inc(jj)
       end;
      inc(ii)
     end;
    od:=f
end;
 
begin
 vv(z);
 writeln(od(z));
 vv(v);
 writeln(od(v));
 vv(g);
 writeln(od(g));
end.

@kep17 · 25.10.2014, 17:07 **[ТС]**

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

тоесть она работает только для тех значений что написали вы

@ZX Spectrum-128 · 25.10.2014, 18:14

Ну, не знаю, у меня работает. Возьми тогда у vint-81 программу.

@kep17 · 25.10.2014, 18:19 **[ТС]**

я брал и менял даже но ты ведь посмотри этот код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
const n=3;m=4;
type mas=array[1..n,1..m] of integer;
var z,v,g:mas; f2:text;
 
procedure vv(var a,b,c:mas);
var i,j:integer;
begin
assign(f2,'laba6.txt');
reset(f2);
 for i:=1 to n do
  begin
   for j:=1 to m do
    readln(f2,a[i,j]);
    readln(f2);
    end;
   readln(f2);
   for i:=1 to n do
  begin
   for j:=1 to m do
   readln(f2,b[i,j]);
   readln(f2);
 
  end;
  readln(f2);
  for i:=1 to n do
  begin
   for j:=1 to m do
   readln(f2,c[i,j]);
   readln(f2);
  
end;
 end;
function od(x:mas):boolean;
var i,j,ii,jj:integer;
    f:boolean;
begin
    f:=false;
    ii:=1;
    while (ii<=n)and(not f) do
     begin
      jj:=1;
      while (jj<=m)and(not f) do
       begin
        i:=1;
        while (i<=n) do
         begin
          j:=1;
          while (j<=m) do
           begin
            if (x[ii,jj]=x[i,j])and((ii<>i)and(jj<>1)) then f:=true;
            inc(j)
           end;
          inc(i)
         end;
        inc(jj)
       end;
      inc(ii)
     end;
    od:=f
end;
 
begin
 vv(z,v,g);
 append(f2);
 writeln(f2,od(z));
 
 writeln(f2,od(v));
 
 writeln(f2,od(g));
 close(f2);
end.

он же вроде правильный ,если не трудо запусти его у себя а числа в файле поменяй как хочеш

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@kep17 0 / 0 / 2 Регистрация: 11.10.2014 Сообщений: 49

	Функция проверки наличия в матрицах 2 одинаковых элементов 22.10.2014, 08:52. Показов 3260. Ответов 26 Метки двумерный массив, одинаковый элемент (Все метки) Задано матрицы Z,V,G розмерностью (3х4). Написать схему алгоритма и программу, в которой при помощи функции придать значение True , если в матрице есть 2 одинаковые элемента . Ввод данных и вывод результатов исполнить в основной программе !Сделайте не рондомные значения а ввод данных в програму 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	24.10.2014, 17:53
	А зачем 6 матриц просил? 0

@kep17 0 / 0 / 2 Регистрация: 11.10.2014 Сообщений: 49
	25.10.2014, 17:07 [ТС]
	проблема в том что если меняю числа в блокноте то программа не меняет результат .. а все равно выводит true false true тоесть она работает только для тех значений что написали вы 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	25.10.2014, 18:14
	Ну, не знаю, у меня работает. Возьми тогда у vint-81 программу. 0