Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
ev1lzhenko11
0 / 0 / 0
Регистрация: 28.04.2012
Сообщений: 37
1

Матрицы. Ввести две матрицы и вычеслить их произведение, использовать procedure

28.04.2012, 19:15. Просмотров 759. Ответов 4
Метки нет (Все метки)

В предпоследней строке ошибка.
как исправить?
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
uses crt;
const n=3;
 
type matrica=array[1..n,1..n] of real;
procedure vvodA;
var
i,j:byte;
A:matrica;
begin
Writeln('Ââåäèòå Г¬Г*òðèöó ГЂ:');
for i:=1 to n do
for j:=1 to n do
Readln(A[i,j]);
for i:=1 to n do
for j:=1 to n do
Write(' ' ,A[i,j]:1:2);
end;
procedure vvodB;
var
i,j:byte;
B:matrica;
begin
Writeln(' Ââåäèòå Г¬Г*òðèöó B:');
for i:=1 to n do
for j:=1 to n do
Readln(B[i,j]);
begin
for i:=1 to n do
for j:=1 to n do
Write(' ' ,B[i,j]:1:2);
end;
end;
Procedure ymnozhenie(A,B:matrica);
var
c:array[1..n,1..n] of real;
i,j:byte;
begin
For i:=1 to n do
for j:=1 to n do
C[i,j]:=A[i,j]*B[i,j];
Writeln(' ГЋГІГўГҐГІ:');
For i:=1 to n do
for j:=1 to n do
Write('  ' ,C[i,j]:1:2);
end;
begin
VvodA;
VvodB;
ymnozhenie;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.04.2012, 19:15
Ответы с готовыми решениями:

Сформировать две матрицы и рассчитать их: сумму; разность; произведение
Сформировать две матрицы и рассчитать их: сумму; разность; произведение ...

Переставить местами две любые строки матрицы; два любых столбца матрицы.
Дан Двумерный массив. Составить программу, которая: а) переставляет две любые...

Рандомно сгенерировать две [3,12]-целочисленные матрицы 7х7 матрицы
Cлучайным образом сгенерировать две -целочисленные матрицы 7х7 матрицы и...

Найти произведение элементов матрицы расположенных на главной диагонали матрицы А
Матрица А (4,4) Помогите пожалуйста!

Ввести три квадратные матрицы произвольной размерности с целочисленными элементами. Определить количество чётных чисел на диагоналях для каждой матрицы и в трёх матрицах.
Ввести три квадратные матрицы произвольной размерности с целочисленными...

4
Puporev
Модератор
55112 / 42355 / 29255
Регистрация: 18.05.2008
Сообщений: 100,082
28.04.2012, 19:32 2
Цитата Сообщение от ev1lzhenko11 Посмотреть сообщение
В предпоследней строке ошибка.
Да не только, условие-то читайте
Цитата Сообщение от ev1lzhenko11 Посмотреть сообщение
Ввести две трехмерные матрицы
0
ev1lzhenko11
0 / 0 / 0
Регистрация: 28.04.2012
Сообщений: 37
28.04.2012, 19:39  [ТС] 3
Ой извинюсь,обычную 3х3.

Добавлено через 3 минуты
В вводе матрицы A B точно всё правильно,а в процедуре Ymnozhenie не уверен,и не уверен правильно ли я её вызываю.
0
Puporev
Модератор
55112 / 42355 / 29255
Регистрация: 18.05.2008
Сообщений: 100,082
28.04.2012, 19:54 4
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
uses crt;
const n=3;
type matrica=array[1..n,1..n] of real;
procedure Vvod(var a:matrica;c:char);
var i,j:byte;
begin
Writeln('Введите ',n*n,' элементов матрицы ',c);
for i:=1 to n do
for j:=1 to n do
Readln(A[i,j]);
clrscr;
end;
procedure Vyvod(a:matrica;c:string);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
  Write(a[i,j]:8:2);
  writeln;
 end;
end;
Procedure ymnozhenie(A,B:matrica;var c:matrica);
var i,j,k:byte;
begin
For k:=1 to n do
for j:=1 to n do
 begin
  c[k,j]:=0;
  for i:=1 to n do
  c[k,j]:=c[k,j]+a[k,i]*b[i,j];
 end;
end;
var a,b,c:matrica;
begin
Vvod(a,'A');
Vvod(b,'B');
Vyvod(a,'A');
Vyvod(b,'b');
ymnozhenie(a,b,c);
Vyvod(c,'C=A*B');
end.
Добавлено через 1 минуту
Умножение матриц
http://ru.wikipedia.org/wiki/%D0%A3%...80%D0%B8%D1%86
1
ev1lzhenko11
0 / 0 / 0
Регистрация: 28.04.2012
Сообщений: 37
28.04.2012, 19:56  [ТС] 5
Спасибо.
0
28.04.2012, 19:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.04.2012, 19:56

В каждой строке заданной матрицы А(n,m) вычеслить сумму, колличество и среднее арифметическое положительных элементове
Помогите пожалуста решить задачу: В каждой строке заданной матрицы А(n,m)...

Ввести квадратные матрицы X1N1×N1 , X2N2×N2 . Обменять главную и побочные диагонали у той матрицы
Ввести квадратные матрицы X1N1×N1 , X2N2×N2 . Обменять главную и побочные...

Нарисовать дом используя procedure Line, procedure Circle, procedure Rectangle
Добрый вечер, нужна ваша помощь, просто на просто не успеваю.. Помогите...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru