Вычислить матрицу на Tp7 Опции

[warhel]

Есть задача:
вычислить матрицу вида: C=A3+B3
3 - это степень, степень размер матрицы и т.д. естественно вводит пользователь
вообщем нужно решить всё это на турбо паскале..
я ещё не очень хорошо в нём разбираюсь но вот что всё таки сделал сам:
(работает не правельно, выводит вообще числа и не близкие к ответу)

Код

program matrix;
uses crt;
const
max=10;
var
i,j,amax, bmax,n: integer;
a,b: array [1..max,1..max] of integer;
c: array [1..max,1..max] of real;
begin
writeln('vvedite kol-vo strok v matrice: ');
readln(amax);
writeln('vvedite kol-vo stolbcov v matrice: ');
readln(bmax);
write('vvedite stepen: ');
readln(n);
writeln('vvod matrici A');
for i:=1 to amax do
  for j:=1 to bmax do
   begin
    write('vvedite ',i,'-й элемент ',j,'-строки: ');
    readln(a[i,j]);
   end;
{end for}
writeln('vvod matrici B');
for i:=1 to amax do
  for j:=1 to bmax do
   begin
    write('vvedite ',i,'-й элемент ',j,'-строки: ');
    readln(b[i,j]);
   end;
{end for}
for i:=1 to amax do
  for j:=1 to bmax do
   begin
    c[i,j]:=exp(n*(a[i,j])+exp(n*(b[i,j])) );
   end;
{end fir}
for i:=1 to amax do
  for j:=1 to bmax do
   writeln(c[i,j]);
repeat until keypressed;
end.

Помогите пожалуста
спасибо заранее =)

Сообщение отредактировано: warhel - 3.12.2006 22:52