Выполнить операции (здесь A, B, C, D — квадратные матрицы порядка n)

@Galstuk94 · Регистрация: 17.10.2012

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

помогите как это решить??? Название: wqedesgtho.JPG
Просмотров: 92

Размер: 8.3 Кб

@Galstuk94 · 20.12.2012, 18:34 **[ТС]**

что значит A в степени T понятно, что нужно перемножить и сложить матрицы!а вот как?

Добавлено через 6 часов 3 минуты
вот что я смог!но все равно не работает

Pascal

VAR
A,B,C,F,m :array[1..5,1..5] of Real;
i,j,t:integer;
begin
             for i:=1 to 5 do
             for j:=1 to 5 do
             A[i,j]:= random(10);
             Writeln('Матрица А:');
             for i:=1 to 5 do
begin
for j:=1 to 5 do
Write(A[i,j]:4,' ');
Writeln;
end;
            for i:=1 to 5 do
            for j:=1 to 5 do
            B[i,j]:= random(10);
            Writeln('Матрица B:');
            for i:=1 to 5 do
 
begin
for j:=1 to 5 do
Write(B[i,j]:4,' ');
Writeln;
end;
            for i:=1 to 5 do
            for j:=1 to 5 do
            C[i,j]:= random(10);
            Writeln('Матрица C:');
            for i:=1 to 5 do
 
begin
for j:=1 to 5 do
Write(C[i,j]:4,' ');
Writeln;
end;
       begin   {степень и выражение}
writeln('Введите степень');
readln(t);
for i:=1 to 5 do
for j:=1 to 5 do
F[i,j]:=(power(A[i,j],t)); 
Writeln('Новая матрица');
    for i:=1 to 5 do
  begin  
    for j:=1 to 5 do
    m[i,j]:=F[i,j]*B[i,j]+A[i,j]*C[i,j];
    writeln(m);
END;
END;
END.

@nicita13 · 20.12.2012, 19:48

Сообщение от Galstuk94

что значит A в степени T понятно, что нужно перемножить и сложить матрицы!а вот как?

Добавлено через 6 часов 3 минуты
вот что я смог!но все равно не работает

Pascal

VAR
A,B,C,F,m :array[1..5,1..5] of Real;
i,j,t:integer;
begin
             for i:=1 to 5 do
             for j:=1 to 5 do
             A[i,j]:= random(10);
             Writeln('Матрица А:');
             for i:=1 to 5 do
begin
for j:=1 to 5 do
Write(A[i,j]:4,' ');
Writeln;
end;
            for i:=1 to 5 do
            for j:=1 to 5 do
            B[i,j]:= random(10);
            Writeln('Матрица B:');
            for i:=1 to 5 do
 
begin
for j:=1 to 5 do
Write(B[i,j]:4,' ');
Writeln;
end;
            for i:=1 to 5 do
            for j:=1 to 5 do
            C[i,j]:= random(10);
            Writeln('Матрица C:');
            for i:=1 to 5 do
 
begin
for j:=1 to 5 do
Write(C[i,j]:4,' ');
Writeln;
end;
       begin   {степень и выражение}
writeln('Введите степень');
readln(t);
for i:=1 to 5 do
for j:=1 to 5 do
F[i,j]:=(power(A[i,j],t)); 
Writeln('Новая матрица');
    for i:=1 to 5 do
  begin  
    for j:=1 to 5 do
    m[i,j]:=F[i,j]*B[i,j]+A[i,j]*C[i,j];
    writeln(m);
END;
END;
END.

если я не ошибаюсь, то Т это не степень, а транспорирование

Добавлено через 1 минуту
я думаю, что на форуме все это есть. сначала находишь транспортированную матрицу, потом перемножения, а потом сумму. это все есть

@Galstuk94 · 20.12.2012, 20:13 **[ТС]**

пожалуйста программку составте!транспонирование я еще не изучал, а поп программированию идем раньше

@Galstuk94 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 38
		1
	Выполнить операции (здесь A, B, C, D — квадратные матрицы порядка n) 20.12.2012, 07:24. Показов 1379. Ответов 3 Метки нет (Все метки) помогите как это решить??? 0

@Galstuk94 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 38
	20.12.2012, 20:13 [ТС]	4
	пожалуйста программку составте!транспонирование я еще не изучал, а поп программированию идем раньше 0

Опции темы