помогите пожалуйста решить задачи в PASCAL'e.

[bear12345]

Задача №7 : вычислите сумму всех элементов квадратной матрицы А,лежащих не ниже главной диагонали.

Задача №9 : составьте процедуры перемножения Mult_matr матриц и умножения Mult_matr_vect матрицы А на вектор х(х1,х2,...,хn)(примечание от меня:1,2,n это нижние индексы).Примените их для нахождения А*х,А^2*х,...,А^к*х.(примечание от меня: икс в степень не входит).
Указание.Элементы вектор-произведения у=(у1,у2,...,уn) вычисляются по формуле yi=(сумма от j=1 до n ) аij*xj (примечание от меня : ну не копируется у меня знак суммы из МатТайпа.И еще :i и j это нижние индексы).


задача №10 : в модуль Linear_algebra включите подпрограмму Mult_matr нахождения произведения прямоугольных матриц А и В размера mxn. В головой программе для трех квадратных матриц А,В,С к-ого порядка вычислите D=ABC,где АВС -произведение трех матриц.

Заранее огромное спасибо за помощь!=)

[bear12345]

напишите пожалуйста программу полностью,а то у меня они что-то не идут никак..

[Лунатик222]

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

напишите пожалуйста программу полностью,а то у меня они что-то не идут никак...

а ты выложи тут свой код, пусть даже он неправильный...

[bear12345]

ну вот например задача номер 7(для матрицы пятого порядка).

program lab7;
uses crt;
const n=5;
var x,y:array [1..5,1..5] of integer;
i,j,s:integer;
f1:text;
begin
  clrscr;
 assign(f1,'E:\lpr\init.txt');
 reset(f1);
 for i:=1 to n do
 begin
 for j:=1 to n do
 read(f1,x[i,j]);
 readln(f1);
 end;
 close(f1);
  for i:=1 to n do
 begin
 for j:=1 to n do
 write(x[i,j],'      ');
 writeln
 end;
 s:=0;
 for i:=1 to 5 do
  for j:=i+1 to 5 do
  s:=s+x[i,j];
  writeln(s);
    readln
end.

а в номер 9 и 10 вообще почти ничего не понятно...некоторые фрагменты как сделать представляю,а написать это все "по человечески" не знаю как.в методичке универской есть примеры задач на эту тему,но они совсем не похожи на те.а я инженер-конструктор а не программист... осталось сделать последние две задачи 9 и 10, получаю зачет и гудбай информатика на всю оставшуюся жизнь=)

[alex_fcsm]

program lab7;
uses crt;
const n=5;
var x,y:array [1..5,1..5] of integer;
i,j,s:integer;
f1:text;
begin
clrscr;
assign(f1,'C:\1.txt');
reset(f1);
for i:=1 to n do
 for j:=1 to n do
  read(f1,x[i,j]);
close(f1);
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j],' ');
writeln
end;
s:=0;
for i:=1 to n do
for j:=i to n do
s:=s+x[i,j];
writeln(s);
readln;
end.

[alex_fcsm]

uses crt;
const n=5;
type Tmatr=array[1..n,1..n] of integer;
     TVect=array[1..n] of integer;
     
     
var i,j:integer;
    A,y,t1:TMAtr;
    x:TVEct;

procedure Mult_matr(q,p:Tmatr;var b:TMatr);
var i,j,k,temp:integer;
begin
i:=1;j:=1;
for i:=1 to n do
   for j:=1 to n do
    begin
     b[i,j]:=0;
     for k:=1 to n do
      b[i,j]:=b[i,j]+q[i,k]*p[k,j];
    end;
for i:=1 to n do
 begin
  for j:=1 to n do
   write(b[i,j]:4);
  writeln;
 end;
end;

procedure Mult_matr_vect(q:TMatr;p:TVect;var b:TMatr);
var i,j:integer;
begin
for i:=1 to n do
 for j:=1 to n do
 b[i,j]:=q[i,j]*p[i];
writeln;
 for i:=1 to n do
  begin
  for j:=1 to n do
   write(b[i,j]:4);
   writeln;
  end;
end;
    
    
begin
clrscr;
for i:=1 to n do
 for j:=1 to n do
  begin
  a[i,j]:=j;
  y[i,j]:=1;
  end;
for i:=1 to n do
 x[i]:=i;
Mult_matr(a,y,t1);
Mult_matr_vect(a,x,t1);
readln;
end.

[bear12345]

Спасибо огромное!!=)))) Очень помогли=) Спасибо еще раз)