Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Юрий Бадюн
0 / 0 / 0
Регистрация: 11.12.2010
Сообщений: 32
#1

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

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

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

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

Найти произведение положительных элементов каждого столбца матрицы - Pascal
Как сделать? Найти произведение положительных элементов каждого столбца. Добавлено через 53 минуты Матрица m x n

для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых элементов - Pascal
Для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых элементов. Собственно вот... program TTT; var i, j :...

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

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

Для каждого столбца матрицы найти произведение его элементов - Pascal
Matrix20. Дана матрица размера M *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
12.12.2010, 19:52 #4
для чего?
Юрий Бадюн
0 / 0 / 0
Регистрация: 11.12.2010
Сообщений: 32
12.12.2010, 19:55  [ТС] #5
С блок схемой ещё напряг)))
0
WolfCF
3284 / 1344 / 47
Регистрация: 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
Привет! Вот еще темы с ответами:

Для каждого столбца матрицы найти произведение четных его элементов. - Pascal
Дана матрица размера MxN. Для каждого столбца матрицы найти произведение четных его элементов. p.s Я сделал задачу все правильно, но...

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

Найти произведение ненулевых элементов каждой матрицы. - Pascal
Найти произведение ненулевых элементов каждой матрицы. Результат записать в файл a4?

Вычислить и запомнить в массиве произведение элементов каждого столбца матрицы. - Pascal
Задать квадратную матрицу порядка N. Вычислить и запомнить в массиве произведение элементов каждого столбца матрицы. Добавлено через 1...


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

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

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