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

Массив: Поменять местами столбец, произведение элементов которого является наименьшим, со столбцом, сумма элементов которого является наибольшей

27.07.2012, 23:58. Показов 1499. Ответов 3
Метки нет (Все метки)

Дана матрица вещественных чисел. Поменять местами столбец, произведение элементов которого является наименьшим, со столбцом, сумма элементов которого является наибольшей. Упорядочить строки матрицы по возрастанию элементов последнего столбца.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.07.2012, 23:58
Ответы с готовыми решениями:

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

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

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

Двумерный массив: поменять местами столбец с минимальной суммой элементов столбца с первым столбцом массива
3. Дан двумерный массив размером n x m. Поменять местами столбец с минимальной суммой элементов...

3
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
28.07.2012, 00:20 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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
uses crt;
const nmax=20;
var a: array [1..nmax,1..nmax] of real;
    i,j,n,m,e,jmax,jmin: byte;
    buf,sum,summax,p,pmin: real;
begin
repeat
write('Количество строк, n (не более ',nmax,')='); readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов, m (не более',nmax,')='); readln(m);
until m in [1..nmax];
writeln('Исходная матрица');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=19*random-9;
        write(a[i,j]:5:1);
        end;
    writeln;
    end;
for j:=1 to m do
    begin
    p:=1;
    sum:=0;
    for i:=1 to n do
        begin
        p:=p*a[i,j];
        sum:=sum+a[i,j];
        end;
    if j=1 then
       begin
       summax:=sum; jmax:=j;
       pmin:=p; jmin:=j;
       end else
           begin
           if sum>summax then
              begin
              summax:=sum; jmax:=j;
              end;
           if p<pmin then
              begin
              pmin:=p; jmin:=j;
              end;
           end;
    end;
writeln('Максимальная сумма ',summax:0:1,' в ',jmax,' столбце');
writeln('Минимальное произведение ',pmin:0:1,' в ',jmin,' столбце');
for i:=1 to n do
    begin
    buf:=a[i,jmax];
    a[i,jmax]:=a[i,jmin];
    a[i,jmin]:=buf;
    end;
writeln('Матрица после обмена столбцов');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:5:1);
    writeln;
    end;
e:=0;
while e<=n do
      begin
      for i:=1 to n-1 do
          if a[i,n]>a[i+1,n] then
             begin
             for j:=1 to m do
                 begin
                 buf:=a[i,j];
                 a[i,j]:=a[i+1,j];
                 a[i+1,j]:=buf;
                 end;
             end;
      inc(e);
      end;
writeln('Матрица после сортировки строк по последнему столбцу');
for i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:5:1);
    writeln;
    end;
readln;
end.
1
0 / 0 / 0
Регистрация: 23.11.2012
Сообщений: 49
03.07.2013, 09:16 3
А можно ли как то эту самую задачу переделать так, чтобы она переставляла строки, а не столбцы?
0
Эксперт 1С
475 / 413 / 92
Регистрация: 26.09.2012
Сообщений: 1,889
03.07.2013, 10:18 4
чего проще меняй i с j местами где нужно и все
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2013, 10:18

Сформировать вектор B, компонентами которого является сумма положительных элементов строк матрицы А
Ребята, помогите пожалуйста, не знаю что сделать дальше. Задание Дана матрица А, размерностью...

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

Если в данном массиве нет отрицательных элементов, то сформировать новый массив: каждый элемент которого является суммой предыдущих элементов.
Если в данном массиве нет отрицательных элементов, то сформировать новый массив: каждый элемент...

Поменять местами столбец матрицы с наибольшей суммой элементов и заданный столбец (результат не выводится)
Задана матрица произвольной размерности. Поменять местами столбец матрицы, имеющий наибольшую сумму...

Задать массив, каждый элемент которого является произведением соответствующих элементов данных рядов
Задание Даны два числовых ряда А и B. Задать массив, каждый элемент которого является...

Сформировать массив, каждый элемент которого является суммой отрицательных элементов строк матрицы
Помогите, пожалуйста, с заданием по с++. Задать значения целочисленным элементам матриц А и В...


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

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

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