Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 1
Регистрация: 14.12.2015
Сообщений: 32

Найти сумму матриц

01.03.2016, 18:57. Показов 1548. Ответов 9
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны две вещественные квадратные матрицы А и В порядка n. Считая, что 1 ≤ i ≤ n, 1 ≤ j ≤ n, найти

сумму матриц С = А + В, где сij = aij + bij
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.03.2016, 18:57
Ответы с готовыми решениями:

Найти сумму двух матриц
Найти сумму двух матриц размером nm.

Найти сумму диагональных элементов матриц
Найти сумму диагональных элементов матриц A(2x2) Помогите пожалуйста экзамен сейчас pascal

Найти сумму и разность квадратных матриц.
Изображение прикрепленно ниже... Заранее благодарен товарищи

9
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
01.03.2016, 19:59
Создаете матрицы А и В, примеров на форуме море.
Находите матрицу С
Pascal
1
2
3
for i:=1 to n do
foor j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
1
Эксперт С++
1624 / 954 / 782
Регистрация: 06.02.2016
Сообщений: 2,452
Записей в блоге: 31
01.03.2016, 20:05
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
program pr;
var
a,b,c:array [1..100,1..100] of double;
i,j,n:integer;
begin
writeln('Введите порядок матриц');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
a[i,j]:=random(21);
end;
writeln('Матрица А');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=1 to n do
begin
for j:=1 to n do
b[i,j]:=random(21);
end;
writeln;
writeln('Матрица B');
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:3);
writeln;
end;
for i:=1 to n do
begin
for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
writeln;
writeln('Матрица C');
for i:=1 to n do
begin
for j:=1 to n do
write(c[i,j]:3);
writeln;
end;
 
end.
1
0 / 0 / 1
Регистрация: 14.12.2015
Сообщений: 32
01.03.2016, 20:19  [ТС]
a,b,c:array [1..100,1..100] of double; - а типа real можно использовать? будет ли правильно прога работать? И что значит "введите порядок матриц?"
0
Эксперт С++
1624 / 954 / 782
Регистрация: 06.02.2016
Сообщений: 2,452
Записей в блоге: 31
01.03.2016, 20:20
HelenaAntipova, да,можно.
1
01.03.2016, 20:23

Не по теме:

Главное чтобы матрица 100x100, а то меньше 10000 элементов как-то некрасиво...

0
0 / 0 / 1
Регистрация: 14.12.2015
Сообщений: 32
01.03.2016, 20:28  [ТС]
И что значит "введите порядок матриц?"
0
Эксперт С++
1624 / 954 / 782
Регистрация: 06.02.2016
Сообщений: 2,452
Записей в блоге: 31
01.03.2016, 20:34
HelenaAntipova, ну типо размер 3x3 или 4х4 и тд.

Добавлено через 44 секунды
Puporev, образно взял, что бы не грузить динамическими массивами
0
0 / 0 / 1
Регистрация: 14.12.2015
Сообщений: 32
02.03.2016, 16:57  [ТС]
Все понятно) спасибо большое!

Добавлено через 20 часов 18 минут
а не могли бы вставить в программу комментарии? Так было бы более понятно))
0
Эксперт С++
1624 / 954 / 782
Регистрация: 06.02.2016
Сообщений: 2,452
Записей в блоге: 31
02.03.2016, 17:10
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
program pr;
var
a,b,c:array [1..100,1..100] of real; // 3 массива вещественных, не обязательно до 100, какие хочешь, в целом больше 20 редко берут 
i,j,n:integer;
begin
writeln('Введите порядок матриц');    // вводим порядок матрицы,то есть её размер,если вводит 3,то размер матрицы 3х3, если 4,то 4х4 и тд.
readln(n);
for i:=1 to n do
begin                 // 2 цикла для заполнения строк(i) и столбцов(j) матрицы
for j:=1 to n do
a[i,j]:=random(21);   // матрица заполнена случайными числами от 0 до 20 (можно брать такой диапазон какой хочешь, при желании  можно задать матрицу не случ. числами, а в вводом пользователя)
end;
writeln('Матрица А');
for i:=1 to n do
begin                 // с помощью таких же циклов выводим матрицу на экран
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=1 to n do             // так же и со 2 матрицей
begin
for j:=1 to n do
b[i,j]:=random(21);
end;
writeln;
writeln('Матрица B');
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:3);
writeln;
end;                         // теперь создадим 3 матрицу,каждый элемент котjрой равно сумме соответ эл. 2 других матриц( например с[1,1]:=a[1,1]+b[1,1]) и тд до конца цикла,то есть до цикла( цифры порядка матрицs)
for i:=1 to n do           
begin                   
for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
writeln;
writeln('Матрица C');        // выводим 3 матрицу как предыдущие 
for i:=1 to n do
begin
for j:=1 to n do
write(c[i,j]:3);
writeln;
end;
 
end.
Не знаю стало ли понятнее
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.03.2016, 17:10
Помогаю со студенческими работами здесь

Найти сумму и индексы минимальных элементов матриц, расположенных на побочной диагонали
Прошу вас, помогите мне с написанием кода по Паскалю. C++ легче даётся, чем матрицы в Паскале, серьёзно. Пробовал написать код, но...

Найти сумму элементов матриц с использованием процедур
Найти сумму элементов матриц А(10,12), В(5,12), С(5,5) и использованием подпрограмм(желательно Procedure)

В матрице A[MxN] найти сумму крупнейших элементов столбцов матриц
В матрице А найти сумму крупнейших элементов столбцов матриц.

Для каждой из матриц найти сумму элементов, лежащих выше главной диагонали
Даны три квадратные матрицы x, y, z. Для каждой из них найти сумму элементов, лежащих выше главной диагонали, определить максималь- ную...

Найти сумму двух матриц
Найти сумму двух матриц розмер 4х4, и вычислить сумму диагональных элементов полученной матрицы


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .
Команды "Заполнить" и "Очистить" на форме документа
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru