Разное - [решено] Помогите с программой для Turbo Pascal (умножение матриц)

Hector · Конфигурация компьютера

в принципе правильно, вот только нет ввода n и вместо оператора read лучше использовать readln imho, неплохо бы было выводить приглашение на ввод данных. размерность матриц лучше задавать через константу

Код:

const
R=500;
var
matrA: array[1..R,1..R] of integer;

ввод матриц я бы организовал процедурой
p. s. используйте тег CODE

dasha131 · Отправлено: **14:02, 01-10-2010** | #3

Код:

program ABC;
var
const
R=500;
matr1,matr2,matr3,matr4: array[1..R,1..R] of real;
i,j,m,n,p,s,g: integer;
S:real;

Begin
   read (g)                     {размерность матрицы gxg}
   for i:=1 to g do
   for j:=1 to g do
        begin
        read(matr1[i,j]);
        end;
   for m:=1 to g do
   for n:=1 to g do 
        begin
        read(matr2[m,n]);
        end;
   for p:=1 to g do
   for s:=1 to g do
        begin
        read(matr3[p,s]);
        end;

D[i,j] := D[i,j] + (A[i,j]*B[j,i])*C[j,i];
Вот формула

Значит матрицы мною заданны, как теперь задать их перемножение?

dasha131 · Отправлено: **18:19, 01-10-2010** | #4

Сами матрицы точно правильно введутся?!

Hector · Конфигурация компьютера

Цитата dasha131:

D[i,j] := D[i,j] + (A[i,j]*B[j,i])*C[j,i];
Вот формула »

судя по формуле это не перемножение матриц, а просто алгоритм вычисления значения элемента матрицы D на основании соответствующих элементов предыдущих 3 матриц, тогда просто это надо выполнить в цикле

dasha131 · Отправлено: **04:57, 02-10-2010** | #6

Это не данная формула)) Значит моя ошибка(
МОжет поможете дальше с программой?

lxa85 · Отправлено: **14:23, 02-10-2010** | #7

Цитата dasha131:

блок const не надо смешивать с блоком var.

Код:

program ABC;
const
R=500;
var
matr1,matr2,matr3,matr4: array[1..R,1..R] of real;
i,j,m,n,p,s,g: integer;
S:real;
Begin
   read (g) {размерность матрицы gxg}
   for i:=1 to g do
   for j:=1 to g do
   begin
     read(matr1[i,j]);
   end;
   for m:=1 to g do
   for n:=1 to g do 
   begin
     read(matr2[m,n]);
   end;
   for p:=1 to g do
   for s:=1 to g do
   begin
     read(matr3[p,s]);
   end;

»

Решение простое, "в лоб" можно конечно улучшить, но работать будет без проблем.

Цитата dasha131:

Может поможете дальше с программой? »

Посмотри здесь
И вид общей формулы тут
Результирующую матрицу получать в 2 этапа. Сначала 1*2, затем получившее*3;
Процедуры и функции проходили? Они бы сейчас очень пригодились.

dasha131 · Отправлено: **15:51, 02-10-2010** | #8

Код:

1.program AB;
2.const NMax = 10;{можно увеличить}
3.type Matrix = array [1..NMax, 1..NMax] of Real;  
 
4.procedure MulMatrix(var a, b, c: Matrix; n: Integer);
5.var  i, j, k: Integer;
6.  s: Real;
7.begin
8.     for i := 1 to n do
9.     for j := 1 to n do
10.     begin
11.         s := 0;
12.          for k := 1 to n do
13.          s := s + a[i, k]*b[k, j];
14.          c[i, j] := s
15.     end
 
16.end;
 
17.var  a, b, c: Matrix;
18.    i, j, n: Integer;
19.begin
20.     WriteLn('Введите порядок матрицы');
21.     Write('n = '); ReadLn(n);
 
22.     WriteLn('Введите первую матрицу');
23.     for i := 1 to n do
24.     for j := 1 to n do
25.     Read(a[i, j]);
 
26.     WriteLn('Введите вторую матрицу');
27.     for i := 1 to n do
28.     for j := 1 to n do
29.     Read(b[i, j]);
 
30.     MulMatrix(a, b, c, n);
 
31.     for i := 1 to n do
32.     begin
33.          for j := 1 to n do
34.          Write(c[i, j]:0:6, ' ');
35.          WriteLn
36.     end;
37.     ReadLn
38.end.

Благодарю за помощь) А можно по подробнее разобрать цикл с 4-15строчки, почему вконце 14 и 15й строчек не ставится ";" ? Почему так записали 31-33ю строчки, почему begin между? И еще непонятно значение строчек 35,37...

Hector · Конфигурация компьютера

Цитата dasha131:

Почему так записали 31-33ю строчки, почему begin между? »

это вывод матрицы, внешний цикл выбирает номер строки, а в его теле внутренний выводит значение элементов, а пустой writeln переводит каретку (чтоб красиво было

)

Цитата dasha131:

И еще непонятно значение строчек 35,37 »

37 строка просто задержка, чтобы программа после выполнения сразу не закрывалась

Цитата dasha131:

почему вконце 14 и 15й строчек не ставится ";" ? »

код тестировали? imho просто ошибка, забыли поставить

Цитата dasha131:

разобрать цикл с 4-15строчки »

это реализация математического метода умножения матриц

dasha131 · Отправлено: **07:30, 04-10-2010** | #10

Цитата Hector:

код тестировали? imho просто ошибка, забыли поставить »

ВОт это то самое и интересное, все тестировалось, и работало прекрасно без ";" ну и как это объяснить?

А чтобы перемножать три матрицы, нужно новый цикл писать "MulMatrix(var c, d, e: Matrix; n: Integer)" ??