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

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

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

Студворк — интернет-сервис помощи студентам
Условие:
Дан массив А=(а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
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2012, 18:35
Ответы с готовыми решениями:

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

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

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

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

3
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,551
Записей в блоге: 1
02.12.2012, 09:11 2
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  [ТС] 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
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
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,551
Записей в блоге: 1
02.12.2012, 10:23 4
Цитата Сообщение от 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2012, 10:23
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru