1 / 1 / 1
Регистрация: 22.10.2011
Сообщений: 55
1

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

22.10.2011, 20:11. Показов 1368. Ответов 2
Метки нет (Все метки)

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

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

Поменять местами строку с наименьшей суммой элементов и столбец с наибольшей
В заданном целочисленном массиве Ann поменять местами строку с наименьшей суммой элементов и...

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

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

2
314 / 273 / 272
Регистрация: 25.09.2011
Сообщений: 477
22.10.2011, 22:29 2
Лучший ответ Сообщение было отмечено Liya1203 как решение

Решение

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
  const n=5; // установить размер матрицы
  var
    a : array[1..n+2,1..n] of real;
    x : real;
    i,j,minPr,maxSum : Byte;
    b : boolean;
  Begin
    randomize;
    for j:=1 to n do a[n+1,j]:=0; { для выч суммы}
    for j:=1 to n do a[n+2,j]:=1; { для выч произведения}
    writeln('исходная матрица: ');
    for i:=1 to n do begin
      for j:=1 to n do begin
        a[i,j]:=random(20)/7+1;
        a[n+1,j]:=a[n+1,j]+a[i,j];
        a[n+2,j]:=a[n+2,j]*a[i,j];
        write(a[i,j]:6:2);
      end;
      writeln;
    end;
    writeln;
 
    minPr:=1; maxSum:=1;
    for j:=2 to n do begin
      if a[n+2,j]<a[n+2,minpr] then minpr:=j;
      if a[n+1,j]>a[n+1,maxsum] then maxsum:=j;
    end;
 
    writeln('максимальная сумма в  ',maxsum,'  ; минимальное произведение в ',minpr);
    if maxsum=minpr then writeln('замена не требуется !') else begin
      for i:=1 to n do begin
        x:=a[i,maxsum];
        a[i,maxsum]:=a[i,minpr];
        a[i,minpr]:=x;
      end;
      writeln('после замены :');
      for i:=1 to n do begin
        for j:=1 to n do begin
          write(a[i,j]:6:2);
        end;
        writeln;
      end;
      writeln;
    end;
 
    repeat
      b:=true;
      for i:=1 to n-1 do if a[i,n]>a[i+1,n] then begin
        for j:=1 to n do begin
          x:=a[i,j];
          a[i,j]:=a[i+1,j];
          a[i+1,j]:=x;
          b:=false;
        end;
      end;
    until b;
 
    writeln('после сортировки по последнему столбцу :');
    for i:=1 to n do begin
      for j:=1 to n do begin
        write(a[i,j]:6:2);
      end;
      writeln;
    end;
    writeln;
 
    readln;
  End.
2
1 / 1 / 1
Регистрация: 22.10.2011
Сообщений: 55
23.10.2011, 11:23  [ТС] 3
Огромное спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2011, 11:23
Помогаю со студенческими работами здесь

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

Поменять местами столбец с наибольшим значением со столбцом с наименьшим значением
в массиве В(3,3) поменять местами столбец , содержащий наиб. значение со столбцом, содержащим наим....

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

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


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

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

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