0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 5

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

01.12.2012, 18:35. Показов 1290. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Условие:
Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А
Основу программы я написал, но вот не могу понять как произвести замену элемента матрицы на 0.
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
uses crt;
const n=5;
      m=5;
type matr=array[1..n,1..m] of byte;
type arr=array[1..10] of integer;
var a:matr;
var b:arr;
  i,j:byte;
  s,p:byte;
  begin
    writeln;
    writeln('Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А');
    writeln;
    {$R+}
    clrscr;
    p:=10;
    randomize;
    writeln('Массив');
    for s:=1 to p do
    begin
      b[s]:=+10+random(20);
      write(b[s]:4);
      end;
      begin
      writeln;
    writeln('Матрица');      
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin 
      a[i,j]:=10+random(20);
      write(a[i,j]:3);
      end;
      writeln;
{вот здесь у меня закончился мозг и идеи на реализацию условия, нужна помощь}
            end;
              writeln('Результат обработки:');
      readln;
      writeln;
    writeln;
            end;
            end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.12.2012, 18:35
Ответы с готовыми решениями:

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

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

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

3
Фрилансер
 Аватар для CodeR
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,603
Записей в блоге: 1
02.12.2012, 09:11
Pascal
1
2
3
4
For i:=1 to n do
 For j:=1 to m do
  For k:=1 to p do
   if B[i,j]=A[k] then then B[i,j]:=0;
0
0 / 0 / 0
Регистрация: 29.11.2012
Сообщений: 5
02.12.2012, 10:15  [ТС]
Программа работает но не отображает результат:
программа целиком:
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
uses crt;
const n=5;
      m=5;
      p=10;
type matr=array[1..n,1..m] of byte;
type arr=array[1..p] of integer;
var a:matr;
var b:arr;
  i,j:byte;
  k:byte;
  begin
    writeln;
    writeln('Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А');
    writeln;
    {$R+}
    clrscr;
    randomize;
    writeln('Массив');
    for k:=1 to p do
    begin
      b[k]:=+10+random(20);
      write(b[k]:4);
      end;
      begin
      writeln;
    writeln('Матрица');      
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin 
      a[i,j]:=10+random(20);
      write(a[i,j]:3);
      end;
      writeln;
            end;
            begin
              For i:=1 to n do
              For j:=1 to m do
              For k:=1 to p do
               if a[i,j]=b[k] then 
               a[i,j]:=0;
               end;
            end;
              writeln('Результат обработки:');
      readln;
      writeln;
    writeln;
 
            end.
После результата обработки он отступает 3 строки и выводит сообщение об успешном завершении программы
0
Фрилансер
 Аватар для CodeR
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,603
Записей в блоге: 1
02.12.2012, 10:23
Цитата Сообщение от Fgik Посмотреть сообщение
Программа работает но не отображает результат:
программа целиком:
так а где вывод результата то?вы не сделали же вывод...
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
uses crt;
const n=5;
      m=5;
      p=10;
type matr=array[1..n,1..m] of byte;
type arr=array[1..p] of integer;
var a:matr;
var b:arr;
  i,j:byte;
  k:byte;
  begin
    writeln;
    writeln('Дан массив А=(а1,а2...а10) и матрица В=(n*n). Заменить нулями в матрице те элементы, для которых имеются равные среди элементов массива А');
    writeln;
    {$R+}
    clrscr;
    randomize;
    writeln('Массив');
    for k:=1 to p do
    begin
      b[k]:=+10+random(20);
      write(b[k]:4);
      end;
      begin
      writeln;
    writeln('Матрица');      
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin 
      a[i,j]:=10+random(20);
      write(a[i,j]:3);
      end;
      writeln;
            end;
              For i:=1 to n do
              Begin
              For j:=1 to m do
               Begin
                For k:=1 to p do
                 if a[i,j]=b[k] then 
                a[i,j]:=0;
                write(A[i,j]:4);
               end;
              writeln;
              end;
              writeln('Результат обработки:');
      readln;
      writeln;
    writeln;
 
            end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.12.2012, 10:23
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Согласованность транзакций в MongoDB
Codd 30.04.2025
MongoDB, начинавшая свой путь как классическая NoSQL система с акцентом на гибкость и масштабируемость, сильно спрогрессировала, включив в свой арсенал поддержку транзакционной согласованности. Это. . .
Продвинутый ввод-вывод в Java: NIO, NIO.2 и асинхронный I/O
Javaican 30.04.2025
Когда речь заходит о вводе-выводе в Java, классический пакет java. io долгие годы был единственным вариантом для разработчиков, но его ограничения становились всё очевиднее с ростом требований к. . .
Обнаружение объектов в реальном времени на Python с YOLO и OpenCV
AI_Generated 29.04.2025
Компьютерное зрение — одна из самых динамично развивающихся областей искусственного интеллекта. В нашем мире, где визуальная информация стала доминирующим способом коммуникации, способность машин. . .
Эффективные парсеры и токенизаторы строк на C#
UnmanagedCoder 29.04.2025
Обработка текстовых данных — частая задача в программировании, с которой сталкивается почти каждый разработчик. Парсеры и токенизаторы составляют основу множества современных приложений: от. . .
C++ в XXI веке - Эволюция языка и взгляд Бьярне Страуструпа
bytestream 29.04.2025
C++ существует уже более 45 лет с момента его первоначальной концепции. Как и было задумано, он эволюционировал, отвечая на новые вызовы, но многие разработчики продолжают использовать C++ так, будто. . .
Слабые указатели в Go: управление памятью и предотвращение утечек ресурсов
golander 29.04.2025
Управление памятью — один из краеугольных камней разработки высоконагруженных приложений. Го (Go) занимает уникальную нишу в этом вопросе, предоставляя разработчикам автоматическое управление памятью. . .
Разработка кастомных расширений для компилятора C++
NullReferenced 29.04.2025
Создание кастомных расширений для компиляторов C++ — инструмент оптимизации кода, внедрения новых языковых функций и автоматизации задач. Многие разработчики недооценивают гибкость современных. . .
Гайд по обработке исключений в C#
stackOverflow 29.04.2025
Разработка надёжного программного обеспечения невозможна без грамотной обработки исключительных ситуаций. Любая программа, независимо от её размера и сложности, может столкнуться с непредвиденными. . .
Создаем RESTful API с Laravel
Jason-Webb 28.04.2025
REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .
Дженерики в C# - продвинутые техники
stackOverflow 28.04.2025
История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru