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

Найти номер ее столбца с наименьшим произведением элементов и вывести данный номер

10.04.2012, 12:24. Просмотров 1996. Ответов 7
Метки нет (Все метки)

Дана матрица размера M×N. Найти номер ее столбца с наименьшим
произведением элементов и вывести данный номер, а также значение наименьшего
произведения.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.04.2012, 12:24
Ответы с готовыми решениями:

Найти номер столбца матрицы с наименьшим произведением элементов
Дана матрица размера M*N. Найти номер ее столбца с наименьшим произведением...

Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер
Помните написать программу с использование функций или процедур Дана матрица...

Найти столбец матрицы с наименьшим произведением элементов и заменить все элементы столбца произведением
Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти столбец с...

Найти номер столбца массива с наименьшим количеством нечетных элементов и раскрасить этот столбец при выводе любым цветом
Найти номер столбца массива с наименьшим количеством нечетных элементов и...

Определить номер столбца массива с наименьшим количеством отрицательных элементов
Определить номер столбца массива В с наименьшим количеством отрицательных...

7
Xentar
Of Wolf and Man
993 / 188 / 5
Регистрация: 09.07.2008
Сообщений: 1,779
10.04.2012, 12:42 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
31
32
33
34
35
36
37
38
39
40
41
program fignya_voyna;
 
uses crt;
 
const 
n=3;
m=3;
 
var a:array[0..n,0..m] of integer;
M,ii,mmin:integer;
i,j:integer;
 
begin
{создание случайного массива}
randomize;
for i:=0 to n do
for j:=0 to m do a[i,j]:=random(100);
{--------------------------------------}
 
{нахождением минимального произведения чисел столбца и его индекса}
 
{находим значения произведения первого столбца и принимаем его за минимальное}
M:=1; 
for j:=0 to m do M:=M*a[0,j];
Mmin:=M
ii:=0;
 
{ищем произведения по остальным столбцам и сравниваем с принятым за минимальное}
for i:=1 to n do begin
M:=1;
for j:=0 to m do M:=M*a[i,j];
if M<Mmin then begin Mmin:=M; ii:=i; end;
end;
 
{выводим результат}
writeln('минимальное произведения столбца = ',Mmin);
writeln('индекс столбца с минимальным произведением = ',ii);
 
{дожидаемся нажатия клавиши для завершения программы}
readln;
end.
1
Alesia
0 / 0 / 0
Регистрация: 15.03.2012
Сообщений: 70
20.04.2012, 22:59  [ТС] 3
спасибо, конечно..)))_ но нужно чтобы находило произведение всех элементов столбца....
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
21.04.2012, 23:02 4
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
31
32
33
34
35
36
37
uses crt;
const n=5; m=6;
 
var a:array [1..n,1..m] of integer;
    i,j,jmin: byte;
    p,pmin: integer;
 
begin
randomize;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:6);
        end;
    writeln;
    end;
jmin:=1;
writeln('Произведения элементов столбцов');
for j:=1 to m do
    begin
    p:=1;
    for i:=1 to n do
        p:=p*a[i,j];
    if i=1 then pmin:=p else
       if p<pmin then
          begin
          pmin:=p;
          jmin:=j;
          end;
    write(p:6);
    end;
writeln;
writeln('Минимальное произведение ',pmin,' столбца под индексом ',jmin);
readln;
end.
1
Alesia
0 / 0 / 0
Регистрация: 15.03.2012
Сообщений: 70
25.04.2012, 19:12  [ТС] 5
все равно не получается((
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
25.04.2012, 22:34 6
Alesia, что именно не получается? точнее..
Найти номер ее столбца с наименьшим произведением элементов и вывести данный номер
0
Alesia
0 / 0 / 0
Регистрация: 15.03.2012
Сообщений: 70
25.04.2012, 23:00  [ТС] 7
так там какие-то огромные числа получаются,а откуда только...

Добавлено через 2 минуты
нужно же найти один такой слолбец с наименьшем произведением элементов,а также значение наименьшего произведения.
0
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
25.04.2012, 23:03 8
Alesia, а вы возьмите калькулятор, и умножьте (а произведение - это именно умножение)
9 на 1 на 6 на 6 на 7... и получите именно то число, которое стоит под столбцом 2268

сначала под каждым столбцом выводится произведение его элементов (это для контроля, чтобы было видно, что мы нашли именно минимальное), а потом уже сообщение о найденном минимальном...
1
25.04.2012, 23:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2012, 23:03

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

Двумерный массив. Найти номер столбца с наименьшим произведением элементов
Среди столбцов целочисленной матрицы А(n,m) найти номер столбца с наименьшим...

В матрице найти номер столбца с наибольшим по модулю произведением
В данной целочисленной матрице 5*6 найти номер столбца с наибольшим по модулю...


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

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

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