Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Юрий Бадюн
0 / 0 / 0
Регистрация: 11.12.2010
Сообщений: 32
#1

Найти произведение ненулевых элементов каждого столбца матрицы

12.12.2010, 15:41. Просмотров 453. Ответов 7
Метки нет (Все метки)

Разработать алгоритм, определяющий произведение ненулевых элементов каждого столбца матрицы В(5,12). Полученные значения вывести, указав номера столбцов
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2010, 15:41
Ответы с готовыми решениями:

Блок-схема. произведение ненулевых элементов каждого столбца матрицы В(5,12). Полученные значения вывести, указав номера столбцов
var b:array of integer; a:array of integer; i,j:integer; begin ...

Найти произведение положительных элементов каждого столбца матрицы
Как сделать? Найти произведение положительных элементов каждого столбца. ...

для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых элементов
Для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых...

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

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

7
Grey Warden
7 / 9 / 1
Регистрация: 10.12.2010
Сообщений: 48
Завершенные тесты: 1
12.12.2010, 19:37 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  b:array [1..5,1..12] of integer;
  a:array [1..12] of integer;
  i,j:integer;
begin
  randomize;
  for i:=1 to 5 do
    for j:=1 to 12 do
      b[i,j]:=random(51);
  for j:=1 to 12 do
  begin
    for i:=1 to 5 do
      if b[i,j]<>0 then a[j]:=a[j]*b[i,j];
  end;
  for i:=1 to 12 do
    writeln(i,a[i]:6);
  readln;
end.
Работоспособность не проверял.

Добавлено через 3 часа 43 минуты
Программа хоть работает?

Добавлено через 1 минуту
Программу можно упростить, убрав лишний массив a, и выводить номера столбцов и произведения прямо во время цикла.
1
Юрий Бадюн
0 / 0 / 0
Регистрация: 11.12.2010
Сообщений: 32
12.12.2010, 19:43  [ТС] #3
Спасибо сейчас буду пробовать)
0
SAYTYs
0 / 0 / 0
Регистрация: 09.12.2010
Сообщений: 1
12.12.2010, 19:52 #4
для чего?
0
Юрий Бадюн
0 / 0 / 0
Регистрация: 11.12.2010
Сообщений: 32
12.12.2010, 19:55  [ТС] #5
С блок схемой ещё напряг)))
0
WolfCF
3288 / 1350 / 108
Регистрация: 28.04.2009
Сообщений: 4,823
12.12.2010, 19:58 #6
Цитата Сообщение от Юрий Бадюн Посмотреть сообщение
С блок схемой ещё напряг)))
тебе их 100500 надо сделать?! Блок-схема. произведение ненулевых элементов каждого столбца матрицы В(5,12). Полученные значения вывести, указав номера столбцов
0
Юрий Бадюн
0 / 0 / 0
Регистрация: 11.12.2010
Сообщений: 32
12.12.2010, 20:13  [ТС] #7
Как её ещё можно описать через ввод???

Добавлено через 11 минут
Её можно каким нибудь образом упростить?
0
Grey Warden
7 / 9 / 1
Регистрация: 10.12.2010
Сообщений: 48
Завершенные тесты: 1
12.12.2010, 23:19 #8
В первом цикле, где массив заполняется случайными значениями нужно вместо строки "b[i,j]:=random" поставить read(b[i,j]). Насчет упрощения пока не знаю.
0
12.12.2010, 23:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2010, 23:19

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

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

Найти произведение ненулевых элементов матрицы
№1 Дана целочисленная квадратная матрица размером M на N. Найти произведение...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru