Решить матрицу С=АхВ+2хВ

20.08.2013, 20:55. **Показов** 1367. **Ответов** 2

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

Помогите решить в паскале матрицу С=АхВ+2хВ,

Code
1
2
3
4
где А=(0.49  1.38  10.53  13.43) и В=(26.51)
       0.82  2.93  3.29   41.30       62.38
       0.51  4.87  8.81    6.29        4.67
       0.91  4.56  2.65    5.44       42.36

@Ded_Vasilij · 20.08.2013, 23:00

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
var C : array [1..4] of double;
      A : array [1..4][1..4] of double;
      B  : array[1..4][1..4] of double;
      i,j integer;
begin
    writeln('Введите элементы первой матрицы');
    for i:=1 to 4 do
         for j :=1 to 4 do 
            readln(A[i][j]);
    writeln('Введите элементы второй матрицы');
    for i:=1 to 4 do
         begin
            readln(B[i]);              
        end;
    writeln('Первая матрица');
    for i:=1 to 4 do
    begin
         for j :=1 to 4 do 
            write(A[i][j]);
         writelm;
    end;
    writeln('Вторая матрица');
    for i:=1 to 4 do
         begin
            writeln(B[i]);    
        end;   
    for i:=1 to 4 do
         begin
            C[i]:=0;    
        end;   
    
    for i:=1 to 4 do
         for j :=1 to 4 do 
            C[i]:=(C[i]+A[i][j]*B[i]);
    for i:=1 to 4 do
         begin
            B[i]:=B[i]*2;    
        end;   
   for i:=1 to 4 do
         begin
            C[i]:=C[i]+B[i];    
        end;   
    writeln('A*B+2B = ');
    for i:=1 to 4 do
         begin
            writeln(C[i]);    
        end;   
end.

Не собирал, но должно работать, если будут ошибки - пишите, исправлю.

@Puporev · 21.08.2013, 07:32

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
uses crt;
const n=4;
      a:array[1..n,1..n] of real=((0.49,1.38,10.53,13.43),
                                  (0.82,2.93,3.29,41.30),
                                  (0.51,4.87,8.81,6.29),
                                  (0.91,4.56,2.65,5.44));
      b:array[1..n] of real=(26.51,62.38, 4.67,42.36);
var i,j:byte;
    b1,c:array[1..n] of real;
begin
writeln('Ìàòðèöà À:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(A[i,j]:6:2);
  writeln;
 end;
writeln('Ìàòðèöà B:');
for i:=1 to n do
writeln(b[i]:6:2);
for i:=1 to n do
 begin
  c[i]:=0;
  for j:=1 to n do
  c[i]:=(c[i]+a[i,j]*b[i]);
 end;
for i:=1 to n do
b1[i]:=b[i]*2;
for i:=1 to n do
c[i]:=c[i]+b1[i];
writeln('Ìàòðèöà A*B+2B:');
for i:=1 to n do
writeln(c[i]:7:2);
end.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

Решить матрицу С=АхВ+2хВ

Решение