0 / 0 / 0
Регистрация: 10.12.2012
Сообщений: 14
1

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди А1..А10

17.12.2012, 10:38. Показов 3463. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны целые числа А1..А10(рандомные) и целочисленная матрица т-го порядка. Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди А1..А10... я тут пробовал сделать... но она что-то не то зануляет...
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
program aaa;
uses crt;
type mas=array[1..5,1..5] of integer;
massiv=array[1..10] of integer;
procedure proc (var m:mas);
var
i,j:integer;
            begin
                 for i:=1 to 5 do
                     begin
                     for j:=1 to 5 do begin
                     m[i,j]:=random(5);
                     write(m[i,j],' ':1);
                     end;
                     writeln;
                     end;
            end;
var
m:mas;
i,j,s:integer;
m1:massiv;
          begin
             for s:=1 to 10 do
              begin
               m1[s]:=random(5);
               write(m1[s],' ':1);
              end;
writeln;
writeln;
proc(m);
writeln;
writeln;
for i:=1 to 5 do
    begin
       for j:=1 to 5 do
         begin
             if (i+j)mod 2 =0 then
             begin if m[i,j]=m1[s] then
                 m[i,j]:=0;
             end;
             write(m[i,j],' ':1);
         end;
         writeln;
    end;
end.
0
17.12.2012, 10:38
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.12.2012, 10:38
Ответы с готовыми решениями:

Даны целые числа а1,...,а4 и целочисленная матрица А(4х4). Заменить нулями в матрице элементы с четной суммой индексов, равные a1,...,a4.
1. Даны целые числа а1,...,а4 и целочисленная матрица А(4х4). Заменить нулями в матрице элементы с четной суммой индексов, равные...

Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А
Условие: Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди a1, . ,a6
Помогите составить код пожалуйста. Даны целые числа a1, a2, ... , a6 и целочисленная квадратная матрица порядка n. Заменить нулями...

3
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
17.12.2012, 12:59 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
uses crt;
type matr=array[1..5,1..5] of integer;
     mas=array[1..10] of integer;
var  b:mas;
     a:matr;
 
procedure GenMatr (var z:matr);
var i,j:byte;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        z[i,j]:=random(9)+1;
end;
 
procedure PrintMatr(var z: matr);
var i,j: byte;
begin
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        write(z[i,j]:2);
    writeln;
    end;
end;
 
procedure GenPrintMas(var x: mas);
var i: byte;
begin
for i:=1 to 10 do
    begin
    x[i]:=random(9)+1;
    write(x[i],' ');
    end;
writeln;
end;
 
procedure Change(var z: matr; x: mas);
var i,j,e,k: byte;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        for e:=1 to 10 do
            if ((i+j) mod 2 =0) and (z[i,j]=x[e])
               then z[i,j]:=0;
end;
 
begin
GenMatr (a);
writeln('Матрица');
PrintMatr(a);
writeln('Массив');
GenPrintMas(b);
Change(a,b);
writeln('Матрица после преобразования');
PrintMatr(a);
end.
2
0 / 0 / 0
Регистрация: 10.12.2012
Сообщений: 14
21.12.2012, 09:02  [ТС] 3
вопрос есть
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure GenMatr (var z:matr);
var i,j:byte;
begin
for i:=1 to 5 do
    for j:=1 to 5 do
        z[i,j]:=random(9)+1;
end;
 
procedure PrintMatr(var z: matr);
var i,j: byte;
begin
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        write(z[i,j]:2);
    writeln;
    end;
end;
почему нельзя в одну процедуру поместить?
0
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
21.12.2012, 09:34 4
Kepu4, потому что вывод матрицы (PrintMatr) понадобится нам дважды - до изменений и после, а вот процедура генерации - только один раз, в самом начале.
а если сделаем вместе, то получится, что мы дважды генерируем матрицу и после преобразования она в любом случае будет другой
2
21.12.2012, 09:34
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.12.2012, 09:34
Помогаю со студенческими работами здесь

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди элементов массива
Даны массив А=(а1,а2...а10) и матрица В(n*n). заменить нулями в матрице те элементы с четной суммой индексов, для которых имеються равные...

Заменить нулями в матрице те елементы с четной сумой индексов,для которых имеются равные с а1,..,а10
Даны целые числа а1,...,а10, целочисленная квадратная матрица порядка n. Заменить нулями в матрице те елементы с четной сумой индексов,для...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные среди a1,…, an.
Даны целые числа a1,…, an, целочисленная квадратная матрица B порядка m. заменить нулями в матрице те элементы с четной суммой индексов,...

Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные
Даны целые числа a1,...,a10 и целочисленная квадратная матрица порядка n. Заменить нулями в матрице те элементы с четной суммой индексов,...

Как осуществить замену нулями в матрице тех элементов с четной суммой индексов,для которых имеются равные среди a1,.a10
Даны целые числа a1, ... ,a10, целочисленная квадратная матрица порядка n. Заменить нулями в матрице те элементы с четной суммой индексов,...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Пользуясь нейросетью возвращаюсь к вопросу альтернативных приводов поступательного движения.
Hrethgir 14.02.2025
Описание тут https:/ / habr. com/ ru/ articles/ 778118/ . Вопрос ответ You Привет. Скажи, есть-ли вещества, которые могут менять жидкое состояние на желеобразное под воздействием ультразвука? . . .
Ошибка "Another git process seems to be running in this repository"
hw_wired 14.02.2025
При работе с git можно столкнуться с довольно раздражающей ошибкой "Another git process seems to be running in this repository". Эта ситуация возникает, когда система контроля версий пытается. . .
Ошибка "java.lang.NoCl­assDefFou­ndErro­r: javax/xml/bind/JAXBException"
hw_wired 14.02.2025
Как разработчики Java-приложений, мы сталкиваемся с разными ошибками, но одна из них - java. lang. NoClassDefFoundError: javax/ xml/ bind/ JAXBException - стала особенно актуальной после выхода Java 9. . . .
Отличия for-in от for-of в JavaScript
hw_wired 14.02.2025
Когда-то единственным способом перебора элементов массива или свойств объекта был классический цикл for с счетчиком. Да, он отлично справлялся с задачей, но код получался громоздким и не очень. . .
Отличия implementation, api и compile в Gradle
hw_wired 14.02.2025
Управление зависимостями - одна из ключевых задач при разработке современных приложений на Java и Kotlin. Система сборки Gradle предоставляет гибкие и мощные средства для работы с зависимостями,. . .
Что лучше: require или import/export в JavaScript
hw_wired 14.02.2025
Модульность в JavaScript прошла долгий путь эволюции, и сегодня у разработчиков есть два основных способа организации модулей: старый добрый require из системы CommonJS и современные import/ export из. . .
Ошибка "Uncaught SyntaxError: Cannot use import statement outside a module"
hw_wired 14.02.2025
Думаю, многие разработчики сталкивались с ошибкой "Uncaught SyntaxError: Cannot use import statement outside a module" при попытке использовать современный синтаксис импорта в JavaScript. Эта. . .
Ошибка Docker "Got permission denied while trying to connect to the Docker daemon socket at"
hw_wired 14.02.2025
Разработка с использованием Docker может иногда преподносить неожиданные сюрпризы, и одним из самых распространенных камней преткновения становится ошибка с отказом в доступе к демону Docker. . . .
Ошибка "No 'Access-Control-Allow-Origin' header is present on the requested resource"
hw_wired 14.02.2025
При разработке современных веб-приложений нередко сталкиваешься с ошибкой "No 'Access-Control-Allow-Origin' header is present on the requested resource". Эта проблема возникает из-за политики. . .
Как закрыть порт в Linux
hw_wired 14.02.2025
Управление сетевыми портами в Linux - непростая, но важная задача для обеспечения безопасности системы. Каждый открытый порт - это потенциальная уязвимость, через которую злоумышленики могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru