Массивы в Pascal

13.10.2009, 20:07. **Показов** 1077. **Ответов** 6

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

Всем привет.
Помогите чайнику! Пожалуйста!

Нужно перемножить две матрицы. Размерности например 100 на 100 и 100 на 200 ( хотя это не так важно)!

Решите пожалуйста в паскале. И, если можно, наиболее просто и понятно! Заранее спасибо!

@Puporev · 13.10.2009, 20:11

Сообщение от Шахрия

Размерности например 100 на 100 и 100 на 200 ( хотя это не так важно)!

Ну а чего не 1000х1000?

@Давид · 13.10.2009, 20:14

Шахрия,
Вот - у меня была в исходнике программка!Предполагается что матрица размером 20 на 20!!!Вам следует прочитать про умножение матриц...иначе понять будет очень трудно...по какому правилу матрицы умножаются знаете?

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
uses crt;
const nmax=20;
var A,D,U:array[1..nmax,1..nmax]of integer;
    ka,la,kd,ld,i,j,r:integer;
begin
clrscr;
randomize;
writeln('Razmery matricy A:');
repeat
write('Kolichestvo strok ka=');readln(ka);
until (ka>0)and(ka<=nmax);
repeat
write('Kolichestvo stolbcov la=');readln(la);
until (la>0)and(la<=nmax);
writeln('Razmery matricy D:');
repeat
write('Kolichestvo strok kd=');readln(kd);
until (kd>0)and(kd<=nmax);
repeat
write('Kolichestvo stolbcov ld=');readln(ld);
until (ld>0)and(ld<=nmax)and(ld=ka); {количество столбцов второй матрицы должно быть равно количеству строк первой матрицы}
writeln('Matrica A:');
for i:=1 to ka do
   begin
     for j:=1 to la do
       begin
         A[i,j]:=random(9)+1;
         write(A[i,j]:3);
       end;
     writeln;
   end;
readln;
writeln('Matrica D:');
for i:=1 to kd do
   begin
     for j:=1 to ld do
       begin
         D[i,j]:=random(9)+1;
         write(D[i,j]:3);
       end;
     writeln;
   end;
readln;
for r:=1 to ka do
for j:=1 to ld do
   begin
     U[r,j]:=0;
     for i:=1 to la do
       begin
         U[r,j]:=U[r,j]+A[r,i]*D[i,j];
       end;
   end;
writeln('Matrica U=A*D:');
for i:=1 to ka do
    begin
      for j:=1 to ld do
      write(U[i,j]:5);
      writeln;
    end;
readln;
end.

@John_Pa9JIbHuK · 13.10.2009, 20:15

тут умножение деление сложение вычит-ие в одном флаконе

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
program xc;
uses crt;
type
mas1=array [1..3,1..3] of integer;
mas2=array [1..3,1..3] of integer;
mas3=array [1..3,1..3] of integer;
var
i,j:integer;
m1:mas1;
m2:mas2;
m3:mas3;
 
procedure rez(m1:mas1;m2:mas2);
var
i,j,d:integer;
m3:mas3;
begin
writeln('Bbi6epuTe DeucTBue 1)Clog 2)bBI4 3)YMHog');
readln(d);
If d=1 then
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m3[i,j]:=m1[i,j]+m2[i,j];
write(m3[i,j]:3);
end;
writeln;
end;
end;
If d=2 then
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m3[i,j]:=m1[i,j]-m2[i,j];
write(m3[i,j]:3);
end;
writeln;
end;
end;
If d=3 then
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m3[i,j]:=m1[i,j]*m2[i,j];
write(m3[i,j]:3);
end;
writeln;
end;
end;
end;
begin
clrscr;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
m1[i,j]:=random(10);
m2[i,j]:=random(10);
write(m1[i,j]:3);
end;
writeln;
end;
writeln;
writeln;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(m2[i,j]:3);
end;
writeln;
end;
writeln;
writeln;
rez(m1,m2);
readln;
end.

@Puporev · 13.10.2009, 20:16

Только не вздумайте брать размеры матриц больше 20х20, а числа в матрицах больше 10.

13.10.2009, 20:17

Мне просто нужен алгоритм, чтобы я потом могла применить его к этим размерностям. Это просто пример. Можете показать пример с небольшими размерностями?

@Puporev · 13.10.2009, 20:18

Шахрия, А Вам что написали?

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

Шахрия

	Массивы в Pascal 13.10.2009, 20:07. Показов 1077. Ответов 6 Метки нет (Все метки) Всем привет. Помогите чайнику! Пожалуйста! Нужно перемножить две матрицы. Размерности например 100 на 100 и 100 на 200 ( хотя это не так важно)! Решите пожалуйста в паскале. И, если можно, наиболее просто и понятно! Заранее спасибо!

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

Шахрия
	13.10.2009, 20:17
	Мне просто нужен алгоритм, чтобы я потом могла применить его к этим размерностям. Это просто пример. Можете показать пример с небольшими размерностями?

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.10.2009, 20:18
	Шахрия, А Вам что написали? 0