Курсовые / 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.