scharhan
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
unit manama;
interface
uses crt;
type mptr = ^matrix;
matrix=object
a:array[1..3,1..3]of real;
constructor init;
procedure printf;
end;
implementation
constructor matrix.init;
var i,j:integer;
begin
clrscr;
writeln(' Matrica na matricu ');
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(' ВВЕДИТЕ a[',i,',',j,'] =');
readln(a[i,j]);
end;
end;
end;
procedure matrix.printf;
var i,j:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a[i,j]:3:3,' ');
end;
writeln;
end;
end;
procedure summ(e,f:matrix;t:mptr);
var i,j,k:integer;
s:real;
begin
For i:= 1 to 3 do
begin
For j:= 1 to 3 do
begin
s:=0;
for k:= 1 to 3 do
begin
s:=s+e.a[i,k]*f.a[k,j];
end;
t^.a[i,j]:=s;
end;
end;
end;
var a,b,c:matrix;
begin
a.init;
b.init;
summ(a,b,@c);
c.printf;
readkey;
end.
|
Всего записей: 27 | Зарегистр. 26-04-2007 | Отправлено: 21:19 04-05-2008 | Исправлено: scharhan, 08:25 05-05-2008 |
|
