Курсовые / curstau / SM

Program SM;
uses Crt,GB,ENEX,ALG,SAMP;
var n :integer;
tk :real;
A,B,Ad,Bd:matr;


BEGIN
ClrScr;
GotoXY(10,2);
writeln('„ЁбЄаҐвЁ§ жЁп га ў­Ґ­Ё© б®бв®п­Ёп');
write('n=');readln(n);
write('tk=');readln(tk);
writeln('¬ ваЁж  A');
EN(5,n,n,A);
writeln('¬ ваЁж  B');
EN(6+n,n,1,B);
SMP(tk,n,1,A,B,Ad,Bd);
Writeln;
writeln('„ЁбЄаҐв­ п ¬®¤Ґ«м');
writeln('¬ ваЁж  Ad');
EX(n,n,Ad);
writeln('¬ ваЁж  Bd');
EX(n,1,Bd);
ReadLn;
ReadLn;
end.