Сформировать вектор из элементов матрицы

@fristicol · Регистрация: 23.03.2010

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

дана матрица В размером М*М. сформировать из неё вектор С, каждый элемент которого равен произведению отрицательных элементов соответствующих столбцов матрицы. сформировать матрицу А, дописав в матрицу В снизу строку, вкачестве котрой взять вектор С. сформировать из матрицы А вектор D,каждый элемент которого равен произведению отрицательных элементов соответствующих столбцов матрицы. Упорядочить три первых элемента векторов С и D в порядке убывания их модуля. найти максимальные элементы матриц А и В из элементов стоящих по периметру

@DeLuxe · 16.07.2010, 07:42

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
uses crt;
const mmax=50;
      x=3;
var a,b:array[1..mmax,1..mmax] of integer;
    c,d:array[1..mmax] of integer;
    m,i,j,p,ix,buf,max:integer;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('M=');
readln(m);
until m<=mmax;
writeln('Матрица B:');
for i:=1 to m do begin
    for j:=1 to m do begin
                     b[i,j]:=random(101)-50;
                     write(b[i,j]:4);
                     end;
                 writeln;
                 end;
for i:=1 to m do begin
    p:=1;
    f:=false;
    for j:=1 to m do if b[i,j]<0 then begin
                                        p:=p*b[i,j];
                                        f:=true;
                                        end;
    if not f then c[i]:=0
    else c[i]:=p;
    end;
writeln('Вектор C:');
for i:=1 to m do write(c[i]:4);
writeln;
a:=b;
for i:=1 to m do a[m+1,i]:=c[i];
writeln('Матрица A:');
for i:=1 to m+1 do begin
    for j:=1 to m do write(a[i,j]:4);
    writeln;
    end;
for i:=1 to m+1 do begin
    p:=1;
    f:=false;
    for j:=1 to m do if a[i,j]<0 then begin
                                        p:=p*a[i,j];
                                        f:=true;
                                        end;
    if not f then c[i]:=0
    else d[i]:=p;
    end;
writeln('Вектор D:');
for i:=1 to m do write(d[i]:4);
writeln;
for i:=1 to x-1 do begin
ix:=i;
for j:=i+1 to x do if abs(c[ix])<abs(c[j]) then ix:=j;
buf:=c[i];
c[i]:=c[ix];
c[ix]:=buf;
end;
writeln('Частично отсортированный вектор C:');
for i:=1 to m do write(c[i]:4);
writeln;
for i:=1 to x-1 do begin
ix:=i;
for j:=i+1 to x do if abs(d[ix])<abs(d[j]) then ix:=j;
buf:=d[i];
d[i]:=d[ix];
d[ix]:=buf;
end;
writeln('Частично отсортированный вектор D:');
for i:=1 to m do write(d[i]:4);
writeln;
max:=a[1,1];
for i:=1 to m+1 do
    for j:=1 to m do if (i=1) or (i=m+1) or (j=1) or (j=m) then if a[i,j]>max then max:=a[i,j];
writeln('Максимальные элементы матрицы А из элементов стоящих по периметру: ',max);
max:=b[1,1];
for i:=1 to m do
    for j:=1 to m do if (i=1) or (i=m) or (j=1) or (j=m) then if b[i,j]>max then max:=b[i,j];
write('Максимальные элементы матрицы В из элементов стоящих по периметру: ',max);
readln
end.

но есть одно но. free pascal дает арифметическое переполнение при заполнении матрицы В, и мне не совсем ясно по какой причине.

@Puporev · 16.07.2010, 08:12

DeLuxe, Возьми для матрицы тип real, иначе здесь

Pascal
1
 p:=p*b[i,j];

при значениях до -50 получаются очень большие числа, или интервал возьми типа random(10)-5;

@DeLuxe · 16.07.2010, 08:43

Сообщение от Puporev

DeLuxe, Возьми для матрицы тип real, иначе здесь

Pascal
1
 p:=p*b[i,j];

при значениях до -50 получаются очень большие числа, или интервал возьми типа random(10)-5;

Попробовал, толку - ноль. Пардон, я писал это не на fp, а на сборке school pak, наиболее стабильно работающей на х64. Возможно дело в системе.

@Puporev · 16.07.2010, 10:56

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

@DeLuxe · 16.07.2010, 11:17

Сообщение от Puporev

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

Ну так проверить возможности не было... нужно чуть побольше границы вывода сделать значит

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@fristicol 6 / 6 / 0 Регистрация: 23.03.2010 Сообщений: 119

	Сформировать вектор из элементов матрицы 15.07.2010, 22:12. Показов 1906. Ответов 5 Метки нет (Все метки) дана матрица В размером М*М. сформировать из неё вектор С, каждый элемент которого равен произведению отрицательных элементов соответствующих столбцов матрицы. сформировать матрицу А, дописав в матрицу В снизу строку, вкачестве котрой взять вектор С. сформировать из матрицы А вектор D,каждый элемент которого равен произведению отрицательных элементов соответствующих столбцов матрицы. Упорядочить три первых элемента векторов С и D в порядке убывания их модуля. найти максимальные элементы матриц А и В из элементов стоящих по периметру 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	16.07.2010, 10:56
	В Турбо Паскале нормально запускается, вывод правда некрасивый, числа большие все сливается. 0

Сформировать вектор из элементов матрицы

Решение