Дано L матриц размером NxN

@ERase · Регистрация: 20.06.2010

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

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

Добавлено через 8 часов 6 минут
Народ, подскажите хотя бы как задать L матриц? А то я догнать эту фишку не могу... Заранее спс

Добавлено через 20 часов 28 минут
Народ вопщем для выбора двух матриц у меня получилась вот такая байда

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
Program MAtrix;
uses crt;
const N=5;
Var
L,k,AC,CC,BC,DC,SC,TC:integer;
A:array [1..N,1..N] of real;
B:array [1..N,1..N] of real;
C:array [1..N,1..N] of real;
D:array [1..N,1..N] of real;
S:array [1..N,1..N] of real;
T:array [1..N,1..N] of real;
i,j:byte;
Begin
Writeln ('ââåäèòå êîëëè÷åñòâî ìàòðèö');
Readln (L);
    AC:=0;BC:=0;CC:=0;
    Randomize;
    For i:=1 to N do
    for j:=1 to N do
        Begin
            A[i,j]:=Random(255); Writeln(A[i,j]); if (A[i,j] mod 2)=0 then AC:=AC+1;
            B[i,j]:=Random(255); Writeln(A[i,j]); if (B[i,j] mod 2)=0 then BC:=BC+1;
            C[i,j]:=Random(255); Writeln(A[i,j]); if (C[i,j] mod 2)=0 then CC:=CC+1;
        End;
If AC and BC > CC then
    Begin
    S[i,j]:=A[i,j]; T:=B[i,j];
    if (S[i,j] mod 2=0) then SC:=SC+1; if (T[i,j] mod 2)=0 then TC:=TC+1;
    End
else
    If CC and BC > AC then
        Begin
        S[i,j]:=C[i,j]; T:=B[i,j];
        if (S[i,j] mod 2)=0 then SC:=SC+1;if (T[i,j] mod 2)=0 then TC:=TC+1;
        End
    else
        If AC and CC > BC then
            Begin
            S[i,j]:=A[i,j]; T:=C[i,j]
            if (S[i,j] mod 2)=0 then SC:=SC+1;if (T[i,j] mod 2)=0 then TC:=TC+1;
            End
        else
            if AC=BC and AC=CC then
            Begin
            S[i,j]:=A[i,j]; T:=B[i,j];
            if (S[i,j] mod 2)=0 then SC:=SC+1;if (T[i,j] mod 2)=0 then TC:=TC+1;
            End;
For k:=1 to l do
begin
    For i:=1 to N do
    for j:=1 to N do
        D[i,j]:=Random(255); Writeln(D[i,j]); if D[i,j] mod 2=0 then DC:=DC+1;
        If DC>SC then 
            S[i,j]:=D[i,j];
        else
            if DC>TC then
                T[i,j]:=D[i,j];
End;
Writeln('èñêîìûå ìàòðèöû'); Writeln (S[i;j]:6:1); Writeln (T[i,j]);
END.

но вот в этой функции "if (A[i,j] mod 2)=0" паскаль выдает: сообщение операция не применима к операндам данного типа.
Подскажите как это исправить и быть может еще какие косяки найдете

@Puporev · 22.06.2010, 08:25

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

как задать L матриц?

Pascal
1
2
3
const L=4;
type matr=array[1..20,1..20] of integer;
var mas:array[1..L] of matr;

Добавлено через 17 минут

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

A:array [1..N,1..N] of real;

Естественно что не хочет mod работать с вещественными числами, да и про четные и нечетные вещественные числа я что-то не слышал...
Смените тип real на integer и не смешите народ.

@ERase · 22.06.2010, 09:32 **[ТС]**

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
120
121
Program MAtrix;
uses crt;
const N=5;
Var
L,k,AC,CC,BC,DC,SC,TC:integer;
A:array [1..N,1..N] of integer;
B:array [1..N,1..N] of integer;
C:array [1..N,1..N] of integer;
D:array [1..N,1..N] of integer;
S:array [1..N,1..N] of integer;
T:array [1..N,1..N] of integer;
i,j:integer;
Begin
Writeln ('ââåäèòå êîëëè÷åñòâî ìàòðèö');
Readln (L);
    Randomize;
    For j:=1 to N do
    Begin
    for i:=1 to N do
    begin
        A[i,j]:=Random(999); Write(A[i,j],'  '); if (A[i,j]mod 2)=0 then AC:=AC+1;
      end;
      Writeln;
 End;
 Writeln;
  For i:=1 to N do
    Begin
    for j:=1 to N do
     begin
        B[i,j]:=Random(999); Write(B[i,j],'  '); if (B[i,j]mod 2)=0 then BC:=BC+1;
        end;
      Writeln;
 End;
 Writeln;
  For i:=1 to N do
    Begin
    for j:=1 to N do
     begin
        C[i,j]:=Random(999); Write(C[i,j],'  '); if (C[i,j]mod 2)=0 then CC:=CC+1;
     end;
      Writeln;
 End;
 Writeln;
If AC and BC > CC then
  For i:=1 to 5 do
  Begin
    for j:=1 to 5 do
  Begin
  S[i,j]:=A[i,j]; T[i,j]:=B[i,j];
  if (S[i,j] mod 2=0) then SC:=SC+1;
  if (T[i,j] mod 2)=0 then TC:=TC+1;
    End;
    end;
  If CC and BC > AC then
    For i:=1 to 5 do
    Begin
    for j:=1 to 5 do
    Begin
    S[i,j]:=C[i,j]; T[i,j]:=B[i,j];
    if (S[i,j] mod 2)=0 then SC:=SC+1;
    if (T[i,j] mod 2)=0 then TC:=TC+1;
    End;
    end;
    If AC and CC > BC then
        For i:=1 to 5 do
        Begin
    for j:=1 to 5 do
            Begin
        S[i,j]:=A[i,j]; T[i,j]:=C[i,j];
        if (S[i,j] mod 2)=0 then SC:=SC+1;
      if (T[i,j] mod 2)=0 then TC:=TC+1;
            End;
            End;
        if (AC=BC) and (AC=CC) and (BC=CC) then
      For i:=1 to 5 do
      Begin
    for j:=1 to 5 do
      Begin
      S[i,j]:=A[i,j]; T[i,j]:=B[i,j];
        if (S[i,j] mod 2)=0 then SC:=SC+1;
      if (T[i,j] mod 2)=0 then TC:=TC+1;
            End;
            End;
   For k:=1 to l do
begin
    For i:=1 to N do
    Begin
    for j:=1 to N do
    begin
     Begin
         D[i,j]:=Random(255); Write(D[i,j],' '); if (D[i,j] mod 2)=0 then DC:=DC+1;
         End;
  writeln;
    If DC>SC then
        S[i,j]:=D[i,j]
        else
    if DC>TC then
            T[i,j]:=D[i,j];
  end;
  end;
 End;
Writeln('èñêîìûå ìàòðèöû');
For i:=1 to N do
    Begin
    for j:=1 to N do
    begin
Write (S[i,j],' ');
end;
writeln;
end;
writeln;
    For i:=1 to N do
    Begin
    for j:=1 to N do
begin
Write (T[i,j],' ');
end;
writeln;
end;
writeln;
END.

Добавлено через 7 минут
Вопщем такая проблема, при проверке иногда второй массив полностью заполняется нулями...
Puporev
Спасип, народ смешить не пытался, просто паскаль 4 года назад изучал, а щас на заочке учусь=))) Так что если будут глупые ошибки, не судите строго=)

@ERase · 24.06.2010, 12:04 **[ТС]**

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

Добавлено через 14 часов 49 минут
всем спасибо за помощь=))))))))))))) программа завершена, тему можно закрывать=)

@Puporev · 24.06.2010, 12:07

ERase, Видишь как хорошо, а то написали бы тебе и ни уму ни сердцу, а так и опыт приобрел и удовольствие получил.

@ERase · 24.06.2010, 12:09 **[ТС]**

ну это да=))) но по караться пришлось=))) учитывая что ничего не помню=)))

Добавлено через 23 секунды
точнее не помнил=)

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@ERase 1 / 1 / 0 Регистрация: 20.06.2010 Сообщений: 4
	24.06.2010, 12:04 [ТС]
	Программа почти завершена, осталось поменять четные и нечетные строки, и удалить строки, в которых находятся максимальные элементы всей матрицы! Кто-нибудь знает как это можно сделать? Добавлено через 14 часов 49 минут всем спасибо за помощь=))))))))))))) программа завершена, тему можно закрывать=) 1

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.06.2010, 12:07
	ERase, Видишь как хорошо, а то написали бы тебе и ни уму ни сердцу, а так и опыт приобрел и удовольствие получил. 0

@ERase 1 / 1 / 0 Регистрация: 20.06.2010 Сообщений: 4
	24.06.2010, 12:09 [ТС]
	ну это да=))) но по караться пришлось=))) учитывая что ничего не помню=))) Добавлено через 23 секунды точнее не помнил=) 0