Помощь - Поиск - Пользователи - Календарь
Полная версия: Pomogute plz
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
Василий69
имеються 3 матрицы в файле, программа берет из файла данные и творит чето с ними обьясните че???7



uses crt;
type
mas=array[1..4,1..4] of integer;
var i,j,k,n,m:integer;
q,d,e,qt,c,a:mas;
t,ot:text;
{описание процедуры mout}
procedure mout(p:mas;m,n:integer;var ot:text);
var
i,j: integer;
begin
for i:=1 to m do
begin
for j:=1 to n do write(ot,p[i,j]:5);
writeln(ot);
end;writeln(ot);
end;
{описание процедуры tr}
procedure tr(p:mas;m,n:integer;var z:mas);
var
i,j: integer;
begin
for i:=1 to m do
for j:=1 to n do z[j,i]:=p[i,j];
end;
{описание процедуры mult}
procedure mult(p,z:mas;m,l,n:integer;var r:mas);
var
i,j,k:integer;
begin
for i:=1 to m do
for j:=1 to n do
begin
r[i,j]:=0;
for k:=1 to l do r[i,j]:=r[i,j]+p[i,k]*z[k,j];
end;
end;
{описание процедуры sl}
procedure summa(p,z:mas;m,n:integer;var x:mas);
var i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do
x[i,j]:=p[i,j]+z[i,j];
end;
begin
clrscr;
assign(t,'matr.txt');
reset(t);
for i:=1 to 3 do
for j:=1 to 4 do
read(t,q[i,j]);
for i:=1 to 3 do
for j:=1 to 4 do
read(t,d[i,j]);
for i:=1 to 4 do
for j:=1 to 4 do
read(t,e[i,j]);
close(t);
{reshenie zadachi}
assign(ot,'otvetipr.txt');
rewrite(ot);
writeln(ot,'Q');
mout(q,3,4,ot);
writeln(ot,'D');
mout(d,3,4,ot);
writeln(ot,'E');
mout(e,4,4,ot);
tr(q,3,4,qt);
writeln(ot,'QT');
mout(qt,4,3,ot);
mult(qt,d,4,3,4,c);
writeln(ot,'QT*D');
mout(c,4,4,ot);
summa(c,e,4,4,a);
writeln(ot,'QT*D+E');
mout(a,4,4,ot);
close(ot);
end.




зарание спс.

особенно интересует оператов mout..
TarasBer
mout - это не оператор, а процедура, описанная в этом же коде, просто её плохо видно из-за того, что надо, блин, теги, блин, использовать, блин.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.