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

@Leschenko Mary · Регистрация: 20.12.2012

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

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

@Mawrat · 16.05.2013, 20:41

Основа решения:

Delphi

const
  M = 5;
  N = 8;
var
  Arr : array[1..M, 1..N] of Integer;
  i, j : Integer;
begin
...
  //Замена чётных элементов матрицы нулями.
  for i := 1 to M do
  for j := 1 to N do
    if Arr[i, j] mod 2 = 0 then
      Arr[i, j] := 0;
...
end;

@Dandy7 · 16.05.2013, 21:17

Delphi

var b,j,i:integer;
begin
b:=0;
for i:=0 to stringgrid1.rowcount-1 do
for j:=0 to stringgrid1.colcount-1 do
if strtoint(stringgrid1.cells[j,i])mod 2=0 then b:=strtoint(stringgrid1.cells[j,i];
....

ну вроде как-то так

@ProRockX · 17.05.2013, 01:22

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

У Dandy7, обрабатывается не матрица (массив), а содержимое стринггрида, причём

if strtoint(stringgrid1.cells[j,i])mod 2=0 then b:=strtoint(stringgrid1.cells[j,i];

означает, что если элемент чётный, то значение этого элемента присваивается переменной b. Опять же об этом ничего в задании не говорилось.

А у Mawrat'а же код правильный.

@Dandy7 · 17.05.2013, 19:48

ProRockX,у меня в учеб практике похожее было,и в задании говорилось про матрицу(у меня по крайней мере),и препод сказала так обрабатывать,так что я не виноват,оно тоже правильно,от части

@MrOnlineCoder · 17.05.2013, 19:56

Mawrat, еще можно использовать функцию odd(Number);

@Mawrat · 17.05.2013, 21:19

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

Mawrat, еще можно использовать функцию odd(Number);

Да, можно этой функцией воспользоваться.

@Leschenko Mary 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 25
		1
	Заменить все чётные элементы матрицы нулями. 16.05.2013, 19:21. Показов 1777. Ответов 6 Метки нет (Все метки) Заменить все чётные элементы матрицы нулями 0

@ProRockX 263 / 109 / 26 Регистрация: 16.03.2013 Сообщений: 272
	17.05.2013, 01:22	4
	Заменить все чётные элементы матрицы нулями. У Dandy7, обрабатывается не матрица (массив), а содержимое стринггрида, причём if strtoint(stringgrid1.cells[j,i])mod 2=0 then b:=strtoint(stringgrid1.cells[j,i]; означает, что если элемент чётный, то значение этого элемента присваивается переменной b. Опять же об этом ничего в задании не говорилось. А у Mawrat'а же код правильный. 0

@Dandy7 10 / 10 / 2 Регистрация: 24.01.2013 Сообщений: 110
	17.05.2013, 19:48	5
	ProRockX,у меня в учеб практике похожее было,и в задании говорилось про матрицу(у меня по крайней мере),и препод сказала так обрабатывать,так что я не виноват,оно тоже правильно,от части 0

@MrOnlineCoder Всегда онлайн 1084 / 788 / 295 Регистрация: 07.04.2013 Сообщений: 2,703
	17.05.2013, 19:56	6
	Mawrat, еще можно использовать функцию odd(Number); 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	17.05.2013, 21:19	7
	Сообщение от MrOnlineCoder Mawrat, еще можно использовать функцию odd(Number); Да, можно этой функцией воспользоваться. 0