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

Заменить все чётные элементы матрицы нулями

15.05.2013, 20:09. Показов 946. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите решить...
Заменить все чётные элементы матрицы нулями
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.05.2013, 20:09
Ответы с готовыми решениями:

Если все элементы главной диагонали целочисленной матрицы упорядочены по убыванию, заменить нулями все отрицательные элементы матрицы
задача. Если все элементы главной диагонали целочисленной матрицы упорядочены по убыванию,...

Заменить все элементы матрицы, равные С, нулями
Дан двумерный массив размерностью 5*5. Заменить все элементы массива = С нулями. В случае если...

Все элементы матрицы, которые отличаются от заданного f, заменить нулями
Все элементы матрицы, которые отличаются от заданного f, заменить нулями.

Если все элементы строки матрицы равны между собой, все элементы строки заменить нулями
Создать матрицу. Если все элементы какой-либо строки данной матрицы равны между собой, то все...

3
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
15.05.2013, 20:28 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
Const
  n=3;
Var
  x: Array [1..n,1..n] of Integer;
  i,j: Byte;
BEGIN
Randomize;
Writeln('Исходная матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(50);
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('Полученная матрица: ');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    If x[i,j] mod 2=0 Then
    x[i,j]:=0;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Readln
END.
0
0 / 0 / 0
Регистрация: 20.12.2012
Сообщений: 25
15.05.2013, 20:35  [ТС] 3
а в делфи можно??
0
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
15.05.2013, 20:44 4
Ну так и в Делфи то же самое
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Const
  n=3;
Var
  x: Array [1..n,1..n] of Integer;
  i,j: Byte;
BEGIN
Randomize;
Writeln('Исходная матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    x[i,j]:=Random(50);
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('Полученная матрица: ');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    If x[i,j] mod 2=0 Then
    x[i,j]:=0;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Readln
END.
0
15.05.2013, 20:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.05.2013, 20:44
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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