Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Ivantor
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 8
1

Нужно построить вектор B по матрице A и упорядочить его по возрастанию числа отрицательных слагаемых в сумме (упоридочение оформить подпрограммой)

25.11.2010, 22:37. Просмотров 599. Ответов 4
Метки нет (Все метки)

Дана матрица А размерности NxN. Построить вектор B, i-ый компонент которого Bi=Σ(от j=1 до N)Aij, затем упорядочить вектор B по возрастанию числа отрицательных слагаемых в сумме. Вывести исходную матрицу и полученный вектор. Упорядочение вектора оформить подпрограммой.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2010, 22:37
Ответы с готовыми решениями:

Определить сколько слагаемых будет в сумме, когда слагаемое в сумме 1+1/2+1/3+1/4+..станет меньше данного числа
2. Определить сколько слагаемых будет в сумме, когда слагаемое в сумме...

Сформировать вектор из максимумов матрицы и упорядочить его по возрастанию
Разработать алгоритм и написать программу на языке C++. Задана матрица...

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

в матрице А(n x m) найти первый столбец, не содержащий отрицательных элементов, и умножить его как вектор на матрицу А
2. в матрице А(n x m) найти первый столбец, не содержащий отрицательных...

Упорядочить 3 числа по убыванию, если среди них нет отрицательных чисел, или по возрастанию - в противном случае
Упорядочить 3 числа по убыванию, если среди них нет отрицательных чисел, или по...

4
Shelovek
65 / 65 / 33
Регистрация: 25.05.2010
Сообщений: 176
25.11.2010, 23:46 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
uses
    crt;
var
   a:array[1..100,1..100]of integer;
   b:array[1..100] of integer;
   i,k,j,n,t:integer;
procedure upor9d;
begin
     for i:= 1 to n do
         begin
         if b[i]<0 then
           begin
           for t:= 1 to n-1 do
               for j:= 1 to t do
           if b[j]>b[j+1] then
              begin
                   k:=b[j];
                   b[j]:=b[j+1];
                   b[j+1]:=k
              end
           end
         end
end;
begin
     writeln('wvedite razmernost matrici');
     readln(n);
     writeln('wvedite matricu razmerom ',n,'x',n);
     for i:= 1 to n do
         for j:=1 to n do
             read(a[i,j]);
     {poetroenie vektora}
     for i:= 1 to n do
         for j:= 1 to n do
             b[i]:=b[i]+a[i,j];
       upor9d;
     clrscr;
     writeln('ishodna9 matrica');
     for i:= 1 to n do
         begin
         for j:= 1 to n do
             write(a[i,j],' ');
             writeln;
         end;
   writeln;
   writeln('vektor');
   for i:= 1 to n do
       write(b[i],' ');
readkey
end.
0
Ivantor
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 8
15.12.2010, 17:55  [ТС] 3
Спасибо большое, но очень нужны некоторые корректировки. Нужно чтобы матрица генерировалась рандомно (задаёшь размерность, вылетает n-ое колличество строк и столбцов (квадратная матрица)), и нужно чтобы вектор сам был кпорядочен по возрастанию (т.е. если он пио идее должен быть -3 -9 0 например, он должен записываться как -9 -3 0).
большое спасибо.
0
Shelovek
65 / 65 / 33
Регистрация: 25.05.2010
Сообщений: 176
16.12.2010, 10:50 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
38
39
40
41
42
43
44
45
46
47
48
49
uses
    crt;
var
   a:array[1..100,1..100]of integer;
   b:array[1..100] of integer;
   i,k,j,n,t:integer;
procedure upor9d;
begin
     for i:= 1 to n do
         begin
         if b[i]<0 then
           begin
           for t:= 1 to n-1 do
               for j:= 1 to t do
           if b[j]>b[j+1] then
              begin
                   k:=b[j];
                   b[j]:=b[j+1];
                   b[j+1]:=k
              end
           end
         end
end;
begin
     writeln('wvedite razmernost matrici');
     readln(n);
     writeln('matrica ',n,'x',n);
     for i:= 1 to n do
         for j:=1 to n do
             a[i,j]:=random(15)-8;
     {poetroenie vektora}
     for i:= 1 to n do
         for j:= 1 to n do
             b[i]:=b[i]+a[i,j];
       upor9d;
     clrscr;
     writeln('ishodna9 matrica');
     for i:= 1 to n do
         begin
         for j:= 1 to n do
             write(a[i,j],' ');
             writeln;
         end;
   writeln;
   writeln('vektor');
   for i:= 1 to n do
       write(b[i],' ');
readkey
end.
0
Ivantor
0 / 0 / 0
Регистрация: 26.10.2010
Сообщений: 8
16.12.2010, 20:04  [ТС] 5
огромное спасибо!!!!
0
16.12.2010, 20:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.12.2010, 20:04

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

Перестановка по возрастанию строк по сумме элементов в матрице
Здравствуйте!.Помогите пожалуйста с задачей. Дана матрица R(K,N) переставить...

В сумме 31+32+33+...+100 нужно вычеркнуть несколько слагаемых так, чтобы получившаяся сумма стала равна 4489.
В сумме 31+32+33+...+100 нужно вычеркнуть несколько слагаемых так, чтобы...


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

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

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