Проверка на наличие 2 одинаковых элементов у матриц: ошибка

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

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

И так программа - мы задаем в файл 3 матрицы (3х4) и если у какой то из них есть 2 одинаковые элемента то выводим тру , если нет то фолс ...ввод и вывод из текстового файла....\\
вот программа только тут где то ошибка ...неправильно выводит ...напишите где ошибка и как исправить

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
uses
  crt;
const
  n=3;m=4;
type
  mas=array[1..n,1..m] of integer;
var
  z,v,g: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,'1-й массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f2,z[i,j]:4);
      writeln;
    end;
  writeln(f2,od(z));
  writeln(f2,'2-й массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f2,v[i,j]:4);
      writeln;
    end;
  writeln(f2,od(v));
  writeln(f2,'2-й массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f2,g[i,j]:4);
      writeln;
    end;
  writeln(f2,od(g));
  readln;
close(f2);
end.

@ВаЛерика · 25.10.2014, 20:29

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
//uses так и не поняла зачем это
// crt; и вот это
 
const
  n=3;m=4;
type
  mas=array[1..n,1..m] of integer;
var
  z,v,g: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;  зачем присваивать in1,jm1,in2,jm2 значения если потом они нигде не используются? я бы убрала.
             // in2:=t;
             // jm1:=j;
             // jm2:=r;
              b:=false;
            End;
            inc(r);
          End;
          inc(t);
        End;
        inc(j);
      End;
      inc(i);
    End;
    if b=false then od:=true //для того что бы выводилось тру если присутствуют 2 одинак элемента
    else od:=false // и фолс если нет одинак элементов (а не наоборот как было у вас)
  
end;
 
 
begin
  //clrscr; что это за переменная? почему она нигде не используется и почему она не обьявлена? я бы убрала
  vv(z,v,g);
append(f2);
  writeln(f2,'1-й массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f2,z[i,j]:4);
      writeln(f2); // (f2) для того что бы он переходил на др.строчку в текстовике, а не на экране
    end;
  writeln(f2,od(z));
  writeln(f2,'2-й массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f2,v[i,j]:4);
      writeln(f2);
    end;
  writeln(f2,od(v));
  writeln(f2,'2-й массив:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(f2,g[i,j]:4);
      writeln(f2);
    end;
  writeln(f2,od(g));
  //readln; что вы хотите считывать? оно вам надо? я бы убрала. 
close(f2);
end.

@kep17 · 25.10.2014, 21:44 **[ТС]**

у вас где то ошибка так как
вот что я ввел

1 2 3 4
5 6 7 8
9 1 10 12

1 0 2 3
4 5 56 65
23 34 54 64

22 22 44 11
34 54 34 64
35 55 45 66

и что получил

1-й массив:
1 2 3 4
5 6 7 8
9 1 10 12
TRUE
2-й массив:
1 0 2 3
4 5 56 65
23 34 54 64
FALSE
2-й массив:
22 22 44 11
34 54 34 64
35 55 45 66
FALSE

3 массив неправильно пощитал

Добавлено через 14 минут
у вас в 3 массиве ошибка какая то

Добавлено через 1 минуту
у вас в 3 массиве ошибка какая то

Добавлено через 17 минут
1 2 5 6
4 54 56 55
334 545 656 636

1 1 2 3
4 7 8 6
9 0 17 15

3 2 1 4
5 6 7 8
9 0 10 111-й массив:
1 2 5 6
4 54 56 55
334 545 656 636
FALSE
2-й массив:
1 1 2 3
4 7 8 6
9 0 17 15
FALSE
2-й массив:
3 2 1 4
5 6 7 8
9 0 10 11
FALSE

вот еще ...что то работает неправильно

@ВаЛерика · 26.10.2014, 00:01

Вот сейчас должна работать

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
//uses 
//crt;
 
const
  n = 3;m = 4;
 
type
  mas = array[1..n, 1..m] of integer;
 
var
  z, v, g: 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: 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
        if (t = i) then r := j + 1
        else r := 1;
        while (r <= m) and (b) do
        begin
          
          if (A[i, j] = A[t, r]) then
          begin
            
            b := false;
          end;
          inc(r);
        end;
        inc(t);
      end;
      inc(j);
    end;
    inc(i);
  end;
  if b = false then od := true 
  else od := false
  
end;
 
 
begin
  // clrscr; 
  vv(z, v, g);
  append(f2);
  writeln(f2, '1-й массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(f2, z[i, j]:4);
    writeln(f2);
  end;
  writeln(f2, od(z));
  writeln(f2, '2-й массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(f2, v[i, j]:4);
    writeln(f2);
  end;
  writeln(f2, od(v));
  writeln(f2, '3-й массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(f2, g[i, j]:4);
    writeln(f2);
  end;
  writeln(f2, od(g));
  
  close(f2);
end.

@kep17 · 26.10.2014, 00:16 **[ТС]**

да действительно все работает без ошибок ,большое спасибо

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@kep17 0 / 0 / 2 Регистрация: 11.10.2014 Сообщений: 49
	25.10.2014, 21:44 [ТС]
	у вас где то ошибка так как вот что я ввел 1 2 3 4 5 6 7 8 9 1 10 12 1 0 2 3 4 5 56 65 23 34 54 64 22 22 44 11 34 54 34 64 35 55 45 66 и что получил 1-й массив: 1 2 3 4 5 6 7 8 9 1 10 12 TRUE 2-й массив: 1 0 2 3 4 5 56 65 23 34 54 64 FALSE 2-й массив: 22 22 44 11 34 54 34 64 35 55 45 66 FALSE 3 массив неправильно пощитал Добавлено через 14 минут у вас в 3 массиве ошибка какая то Добавлено через 1 минуту у вас в 3 массиве ошибка какая то Добавлено через 17 минут 1 2 5 6 4 54 56 55 334 545 656 636 1 1 2 3 4 7 8 6 9 0 17 15 3 2 1 4 5 6 7 8 9 0 10 111-й массив: 1 2 5 6 4 54 56 55 334 545 656 636 FALSE 2-й массив: 1 1 2 3 4 7 8 6 9 0 17 15 FALSE 2-й массив: 3 2 1 4 5 6 7 8 9 0 10 11 FALSE вот еще ...что то работает неправильно 0

@kep17 0 / 0 / 2 Регистрация: 11.10.2014 Сообщений: 49
	26.10.2014, 00:16 [ТС]
	да действительно все работает без ошибок ,большое спасибо 0

Проверка на наличие 2 одинаковых элементов у матриц: ошибка

Решение