квадратная матрца

@DERVISH · Регистрация: 20.06.2011

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

дана квадратная матрица порядка n*n.Получить матрицу (А+А(в степени Т)/2.

@Puporev · 23.06.2011, 09:36

Pascal

uses crt;
const nmax=10;
var a,at:array[1..nmax,1..nmax] of real;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
writeln('Матрица At:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    at[i,j]:=a[j,i];
    write(at[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
writeln('Матрица (A+At)/2:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=(a[j,i]+at[i,j])/2;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
readln
end.

@DERVISH 0 / 0 / 0 Регистрация: 20.06.2011 Сообщений: 25
		1
	квадратная матрца 23.06.2011, 08:31. Показов 1028. Ответов 1 Метки нет (Все метки) дана квадратная матрица порядка n*n.Получить матрицу (А+А(в степени Т)/2. 0

	23.06.2011, 09:36

квадратная матрца

Решение