Прибавить к k-ой строке матрицы А ее i-ю строку, умноженную на заданное число

@Andrey st · Регистрация: 21.03.2014

Студворк — интернет-сервис помощи студентам

а) Прибавить к k-ой строке матрицы А ее i-ю строку, умноженную на заданное число;
б) сформировать вектор V, элементами которого являются суммы элементов строк полученной матрицы;
в) упорядочить элементы V в порядке убывания.

Есть программа, но где-то ошибка. Сортировка не правильная происходит. На знак минус перед числом не обращает внимания.

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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
program z3;
const
str=4;
stolb=4;
type
matrix=array [1..str,1..stolb] of integer;
vektor=array [1..str] of integer;
var
A:matrix;
V:vektor;
k,l,x,kk,xx,ll:integer;
function input(var matr:matrix; var kk,ll,xx:integer):boolean;
var i,j:integer;
begin
WriteLn('Program kurs.');
WriteLn('Matritsa A:');
Randomize;
for i:=1 to str do
begin
for j:=1 to stolb do
begin
matr[i,j]:=random(100)-50;
write(matr[i,j]:6);
end;
writeln;
end;
Writeln('Vvedite chislo k');
readln(kk);
Writeln('Vvedite chislo l');
readln(ll);
Writeln('Vvedite chislo x');
readln(xx);
if (kk>0) and (kk<str+1) and (ll>0) and (ll<str+1) then input:=true else input:=false;
end;
procedure matr(var matr:matrix; k1,l1,x1:integer);
var i,j:integer;
begin
for i:=1 to stolb do
begin
matr[k1,i]:=x1*matr[l1,i]+matr[k1,i];
end;
Writeln('Preobrazovannaya matritsa A:');
for i:=1 to str do
begin
for j:=1 to stolb do
begin
write(matr[i,j]:6);
end;
writeln;
end;
end;
procedure vect(const matr:matrix;
var V1:vektor);
var i,j:integer;
begin
for i:=1 to str do
begin
V1[i]:=0;
end;
Writeln('Vektor V:');
for i:=1 to str do
begin
for j:=1 to stolb do
begin
V1[i]:=V1[i]+matr[i,j];
end;
Write(V1[i]:6);
end;
Writeln;
end;
procedure sort(var V1:vektor);
var
i,j,max,c,k:integer;
begin
Writeln('Otsortirovannyu vektor V:');
max:=1;
for i:=1 to str do
begin
for j:=i to str do
begin
if abs(V1[j])>=abs(V1[max]) then
begin
max:=j;
end;
end;
c:=V1[i];
V1[i]:=V1[max];
V1[max]:=c;
max:=i+1;
Write(V1[i]:6);
end;
writeln;
end;
begin
if input(A,k,l,x) then
begin
vect(A,V);
Sort(V);
end;
end.

@Puporev · 21.03.2014, 15:59

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
program z3;
uses crt;
const str=4;
      stolb=4;
type
matrix=array [1..str,1..stolb] of integer;
vektor=array [1..str] of integer;
procedure input(var matr:matrix);
var i,j:integer;
begin
WriteLn('Program kurs.');
WriteLn('Matritsa A:');
Randomize;
for i:=1 to str do
 begin
  for j:=1 to stolb do
   begin
    matr[i,j]:=random(100)-50;
    write(matr[i,j]:6);
   end;
  writeln;
 end;
end;
procedure matr(var matr:matrix; k1,l1,x1:integer);
var i,j:integer;
begin
for i:=1 to stolb do
matr[k1,i]:=x1*matr[l1,i]+matr[k1,i];
Writeln('Preobrazovannaya matritsa A:');
for i:=1 to str do
 begin
  for j:=1 to stolb do
  write(matr[i,j]:6);
  writeln;
 end;
end;
procedure vect(matr:matrix;var V1:vektor);
var i,j:integer;
begin
for i:=1 to str do
 begin
  V1[i]:=0;
  for j:=1 to stolb do
  V1[i]:=V1[i]+matr[i,j];
end;
Writeln('Vektor V:');
for i:=1 to str do
Write(V1[i]:6);
Writeln;
end;
procedure sort(var V1:vektor);
var i,j,max,c,k:integer;
begin
Writeln('Otsortirovannyu vektor V:');
for i:=1 to str-1 do
for j:=i+1 to str do
if V1[j]>V1[i] then
 begin
  c:=V1[i];
  V1[i]:=V1[j];
  V1[j]:=c;
 end;
for i:=1 to str do
Write(V1[i]:6);
end;
var A:matrix;
    V:vektor;
    k,l,x:integer;
begin
input(A);
repeat
Write('Vvedite chislo k=');
readln(k);
until k in [1..str];
repeat
Write('Vvedite chislo l=');
readln(l);
until (l in [1..str])and(l<>k);
Write('Vvedite chislo x=');
readln(x);
matr(A,k,l,x);
vect(A,V);
Sort(V);
end.

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .