Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 11
1

Для каждого столбца матрицы с четным номером найти сумму его элементов

09.05.2012, 02:03. Показов 799. Ответов 3
Метки нет (Все метки)

помогите, пожалуйста..
Дана матрица размера M×N. Для каждого столбца матрицы с четным номером
(2, 4,...) найти сумму его элементов. Условный оператор не использовать.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2012, 02:03
Ответы с готовыми решениями:

Для каждого столбца матрицы с четным номером найти сумму его элементов
Дана матрица размера MxN. Для каждого столбца матрицы с четным номером найти сумму его элементов....

Для каждого столбца матрицы с четным номером найти сумму его элементов
Дана матрица размера M * N. Для каждого столбца матрицы с четным номером найти сумму его элементов....

Для каждого столбца матрицы с чётным номером найти сумму его элементов
Дана матрица размера MxN. Для каждого столбца матрицы с чётным номером(2,4,.....)найти сумму его...

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

3
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
09.05.2012, 06:49 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const m=3; n=11;
var i,j,s: integer;
   a: array [1..m,1..n] of integer;
begin
   for i:=1 to m do begin
      for j:=1 to n do begin
         a[i,j]:=random(10);
         write(a[i,j]:4);
      end;
      writeln;
   end;
   writeln;
   j:=2;
   repeat
      s:=0;
      for i:=1 to m do
         inc(s,a[i,j]);
      write(s:8);
      inc(j,2);
   until j>n;
end.
1
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 11
09.05.2012, 13:21  [ТС] 3
а ты не мог бы объяснить свое решение?
0
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
09.05.2012, 13:32 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const m=3; n=11;
var i,j,s: integer;
   a: array [1..m,1..n] of integer;
begin
   for i:=1 to m do begin      {заполнение и вывод массива}
      for j:=1 to n do begin
         a[i,j]:=random(10);
         write(a[i,j]:4);
      end;
      writeln;
   end;
   writeln; 
   j:=2; {начинаем со второго столбца}
   repeat
      s:=0; {пусть сумма равна нулю}
      for i:=1 to m do {меняем строки, столбец остается тем же}
         inc(s,a[i,j]); {увеличиваем сумму}
      write(s:8); {выводим сумму}
      inc(j,2); {увеличиваем номер столбца на 2}
   until j>n; {если j стал > количества столбцов, то выходим из цикла}
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2012, 13:32

Для каждого столбца матрицы с чётным номером вычислить сумму квадратов элементов этого столбца
. Создать матрицу 4х4. Для каждого столбца с четным номером вычислить сумму квадратов элементов...

Для каждого столбца матрицы найти произведение его элементов
дана матрица случайных чисел в диапазоне от 1 до 9 размера МхN. для каждого столбца матрицы найти...

Для каждого столбца матрицы найти произведение его элементов
Matrix20. Дана матрица размера M *N. Для каждого столбца матрицы найти произведение его...

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


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

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

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