Курсовая работа: Turbo Pascal

S:real;

begin

S:=0;

for i:=1 to n do

begin

for j:=1 to n do

S:=S+a[j,i];

z[i]:=S/n;

S:=0;

end;

end;

{***************************************************************************}

end. {*** Конец модуля KursUn ***}

Основная программа.

Program Kursach1;

Uses KursUn , Crt;

Var

a,b,c,u : matrix;

vect : vector;

begin

ClrScr; textcolor(LightCyan);

writeln;

writeln(' ╔═══════════════════════════════════════════════════════════════╗');

writeln(' ║ Этапрограммавычисляетматричноевыражение║');

writeln(' ║ ║');

writeln(' ║ T ║');

writeln(' ║ U=C*( A+2*B ) ║');

writeln(' ║ ║');

writeln(' ╚═══════════════════════════════════════════════════════════════╝');