Скачиваний:
127
Добавлен:
08.05.2014
Размер:
1.18 Кб
Скачать
{(c) 2000, M-byte ‹ Ў®а в®а­ п а Ў®в  ь3.}
program laba3;
uses crt;
const n=3;
type matrix=array[1..n,1..n] of real;
var a,b:matrix;
i,j:byte;
f:text;

procedure shave;
var i,j:byte;
begin
writeln(f);
writeln(f);
writeln(f,'‘Ј« ¦Ґ­­ п ¬ ваЁж :');
for i:=1 to n do begin
writeln(f);
for j:=1 to n do begin
if j-1<>0 then b[i,j]:=a[i,j-1];
if j<>n then b[i,j]:=b[i,j]+a[i,j+1];
if i-1<>0 then b[i,j]:=b[i,j]+a[i-1,j];
if i<>n then b[i,j]:=b[i,j]+a[i+1,j];
b[i,j]:=b[i,j]/2;
write(f,b[i,j]:6:2,' ');
end;
end;
end;
function summ:real;
var i,j:byte;
sm:real;
begin
sm:=0;
for i:=1 to n do begin
j:=1;
while j<i do begin
sm:=sm+abs(b[i,j]);
inc(j);
end;
end;
summ:=sm;
end;

begin
clrscr;
assign(f,'results3.txt');
rewrite(f);
writeln(f,'€б室­ п ¬ ваЁж :');
for i:=1 to n do begin
writeln(f);
for j:=1 to n do begin
write('A[',i,',',j,']=');
readln(a[i,j]);
write(f,a[i,j]:7:2);
end;
end;
shave;
writeln(f);
writeln(f);
writeln(f,'‘㬬  н«Ґ¬Ґ­в®ў ­Ё¦Ґ Ј« ў­®© ¤Ё Ј®­ «Ё: ',summ:7:2);
close(f);
end.