Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 78
1

В той матрице, на главной диагонали которой все цифры, найти наименьшую и удалить соответствующую строку

04.12.2016, 13:02. Просмотров 474. Ответов 6
Метки нет (Все метки)


Даны три символьные матрицы.
в той матрице, на главной диагонали которой все цифры, найти наименьшую и удалить соответствующую строку.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2016, 13:02
Ответы с готовыми решениями:

Найти наибольший элемент главной диагонали матрицы и вывести на экран все строку, в которой он находится
Всем привет! Помогите с задачей, пожалуйста! Найти наибольший элемент главной диагонали матрицы и...

Удалить строку, на пересечении которой стоят отрицательные элементы главной диагонали.
1) дан массив M(n,n) Удалить строку на пересечении корой стоят отрицательные элементы главной...

Найти в матрице строку с наименьшим числом на главной диагонали, и исключить всю строку
Условие задачи : матрицу заполнить случайными значениями , найти в ней строку с наименьшим числом в...

В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше главной диагонали
В квадратной матрице заменить нулями все элементы, расположенные на главной диагонали и выше...

6
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 78
09.12.2016, 07:18  [ТС] 2
помогите пожалуйста
0
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 78
23.12.2016, 03:58  [ТС] 3
в той матрице, на главной диагонали которой все цифры, найти наименьшую и удалить соответствующую строку.
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
Program proizvedenie;
uses crt;
const n=3;
Type Matrix=array [1..n, 1..n] of char;
Var
  A, B, C: matrix;
  i, j: byte;
  trans: char;
procedure matr(var d: matrix);
Var i,j:integer;
begin
Writeln('');
For i:=1 to N do
For j:=1 to N do
begin
Write('[',i,',',j,']=');
Readln(d[i,j]);
end;
writeln;
end;
 
function find(d: matrix): boolean;
Var i,j:integer;
begin
for i := 1 to N do
for j := 1 to N do
if(d[i, j] in ['a', 'e', 'u', 'i', 'y', 'o', 'E', 'U', 'I', 'O', 'A', 'Y', 'а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э','ю','я','А','Е','Ё','И','О','У','Ы','Э','Ю','Я']) then begin
result := true;
break;
end;
end;
 
procedure transp(var D: matrix);
Var i,j:integer;
begin
for i:= 2 to N do
for j :=1 to i-1 do begin
trans := d[i, j];
d[i, j] := d[j, i];
d[j, i] := trans;
end;
end;
 
begin
clrscr;
matr(a);
matr(b);
matr(c);
if(find(a)) then transp(a);
if(find(b)) then transp(b);
if(find(c)) then transp(c);
for i := 1 to N do begin
for j := 1 to N do write(a[i, j], ' ');
writeln('');
end;
writeln('');
for i := 1 to N do begin
for j := 1 to N do write(b[i, j], ' ');
writeln('');
end;
writeln('');
for i := 1 to N do begin
for j := 1 to N do write(c[i, j], ' ');
writeln('');
end;
readln;
end.
0
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 78
08.01.2017, 10:50  [ТС] 4
ошибка времени выполнения. индекс выходит за границы массива. что здесь не так?

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
114
115
116
117
118
119
CONST
    N = 3;
    inf = 1 shl 30;
TYPE
 myArray = array[1..N, 1..N] of char;
 myArray2 = array[1..N - 1, 1..N] of char;
var
  m1, m2, m3: myArray;
  m11, m22, m33: myArray2;
  i, j, code, dig, str, k: integer;
  temp: char;
 
procedure ReadM(var m: myArray);
Var i,j:integer;
begin
    for i := 1 to N do
       for j := 1 to N do readln(m[i, j]);
end;
 
function vowel(m: myArray): boolean;
Var i,j:integer;
begin
    result := false;
    for i := 1 to N do
       for j := 1 to N do
           if(m[i, j] in ['a', 'e', 'u', 'i', 'o', 'E', 'U', 'I', 'O', 'A']) then begin
               result := true;
               break;
           end;
end;
 
procedure transp(var m: myArray);
Var i,j:integer;
begin
   for i:= 1 to N do
       for j := i + 1 to N do begin
           temp := m[i, j];
           m[i, j] := m[j, i];
           m[j, i] := temp;
       end;
end;
 
function digits(m: myArray; var ind: integer): boolean;
Var i,j:integer;
begin
   dig := inf;
   result := false;
   for i := 1 to N do begin
       code := ord(m[i, j]) - 48;
       if((code >= 0) and (code < 10)) then begin
           result := true;
           if(dig > code) then begin
                  dig := code;
                  ind := i;
           end;
       end;
   end;
end;
 
procedure moveMatr(m1: myArray; var m2: myArray2; ind: integer);
Var i,j:integer;
begin
    k := 0;
    for i := 1 to N do
        if(i <> ind) then begin
             inc(k);
             for j := 1 to N do   m2[k, j] := m1[i, j];
        end;
end;
 
begin
    ReadM(m1);
    ReadM(m2);
    ReadM(m3);
    if(vowel(m1)) then     transp(m1);
    if(vowel(m2)) then     transp(m2);
    if(vowel(m3)) then     transp(m3);
 
    if(digits(m1, str)) then begin
       moveMatr(m1, m11, str);
       for i := 1 to N - 1 do begin
           for j := 1 to N do     write(m11[i, j], ' ');
           writeln('');
       end;
    end else begin
       for i := 1 to N do begin
           for j := 1 to N do     write(m1[i, j], ' ');
           writeln('');
       end;
    end;
    writeln('');
    if(digits(m2, str)) then begin
       moveMatr(m2, m22, str);
       for i := 1 to N - 1 do begin
           for j := 1 to N do     write(m22[i, j], ' ');
           writeln('');
       end;
    end else begin
       for i := 1 to N do begin
           for j := 1 to N do     write(m2[i, j], ' ');
           writeln('');
       end;
    end;
    writeln('');
    if(digits(m3, str)) then begin
       moveMatr(m3, m33, str);
       for i := 1 to N - 1 do begin
           for j := 1 to N do     write(m33[i, j], ' ');
           writeln('');
       end;
    end else begin
       for i := 1 to N do begin
           for j := 1 to N do     write(m3[i, j], ' ');
           writeln('');
       end;
    end;
    writeln('');
    readln();
end.
0
Модератор
8397 / 4151 / 2871
Регистрация: 17.08.2012
Сообщений: 13,231
08.01.2017, 11:30 5
В процедуре digits используется переменная j, которая никак не определяется. Так как это локальная переменная, то в ней после вызова процедуры digits лежит "мусор". И чему этот "мусор" равен, сиё тайна великая есть...
0
0 / 0 / 0
Регистрация: 04.12.2016
Сообщений: 78
08.01.2017, 11:54  [ТС] 6
и как тогда можно решить эту задачу:
в той матрице, на главной диагонали которой все цифры, найти наименьшую и удалить соответствующую строку.
0
Модератор
8397 / 4151 / 2871
Регистрация: 17.08.2012
Сообщений: 13,231
08.01.2017, 13:11 7
Это не Ваш код. И он не вполне соответствует заданию.

Добавлено через 1 час 5 минут
Вот так можно:
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
const mi = 5;
      mc = 3;
type arr = array[1..mi, 1..mi] of char;
 
procedure ReadM(var x: arr; var r: integer; q: integer);
var i, j: integer;
begin
  repeat
    write('Введите ранг матрицы M', q, ' в диапазоне 1..', mi, ': ');
    readln(r)
  until r in [1..mi];
  writeln('Введите элементы матрицы M', q);
  for i := 1 to r do
    for j := 1 to r do
      begin
        write('M', q, '[', i, ', ', j, '] = ');
        readln(x[i, j])
      end
end;
 
procedure TestM(var x: arr; r: integer; var min: integer);
var i: integer;
begin
  min := 0;
  for i := 1 to r do
    if not (x[i, i] in ['0'..'9'])
      then begin
        min := 0;
        break
      end
      else if (min = 0) or (x[i, i] < x[min, min])
        then min := i
end;
 
procedure DelS(var x: arr; r, k: integer);
var i, j: integer;
begin
  for i := k to r do
    for j := 1 to r do
      x[i, j] := x[i + 1, j]
end;
 
procedure PrnM(var x: arr; s: string; q, v, h: integer);
var i, j: integer;
begin
  writeln(s, q, ':');
  for i := 1 to v do
    begin
      for j := 1 to h do write(x[i, j]:2);
      writeln
    end
end;
 
var m: array[1..mc] of arr;
    rg: array[1..mc] of integer;
    i, k: integer;
begin
  for i := 1 to mc do ReadM(m[i], rg[i], i);
  for i := 1 to mc do
    begin
      PrnM(m[i], 'Матрица M', i, rg[i], rg[i]);
      TestM(m[i], rg[i], k);
      if k = 0
        then writeln('На главной диагонали матрицы есть символы, отличные от цифр')
        else begin
          writeln('Минимальная цифра в строке ', k);
          DelS(m[i], rg[i], k);
          PrnM(m[i], 'Изменённая матрица M', i, rg[i] - 1, rg[i]);
        end;
      write('Нажмите <Enter> для продолжения');
      readln
    end;
  write('Нажмите <Enter> для выхода из программы');
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2017, 13:11

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

В матрице удалить соответствующую строку или столбец
Матрица состоит из нулей и единиц. Найдите в ней самую длинную цепочку подряд идущих нулей по...

Заменить строку матрицы, имеющую наименьшую сумму, на элементы главной диагонали
Дана прямоугольная матрица. Заменить строку, имеющую наименьшую сумму, на элементы главной...

Заменить строку матрицы, имеющую наименьшую сумму, на элементы главной диагонали
Дана прямоугольная матрица. Заменить строку, имеющую наименьшую сумму, на элементы главной...

Заменить строку матрицы, имеющую наименьшую сумму, на элементы главной диагонали
Дана прямоугольная матрица. Заменить строку, имеющую наименьшую сумму, на элементы главной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.