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

Все указанные действия реализованы с помощью подпрограмм. Ввод и вывод матриц также реализован в подпрограммах.

Окончательный вариант программы:

Модуль KursUn,содержащий описанные подпрограммы.

UnitKursUn; {*** Начало модуля KursUn ***}

interface {*** Интерфейсная секция ***}

usescrt;

type

matrix= array [1..10,1..10] of real;

vector= array [1..10] of real;

var

i,j,k:integer;

n:word;

procedure outputmat (n:word; a:matrix; m:char);

procedure inputm (n:word; var a:matrix;m:char);

procedure sred_arifm (n:word; a:matrix;var z:vector);

procedure transpm (n:word; a:matrix; var c:matrix);

procedure sum_m (n:word; a,b:matrix; var c:matrix);

procedure multm (n:word; a,b:matrix; var c:matrix);

procedure multconstm (n:word; r:real; a:matrix;var c:matrix);

implementation {*** ИСПОЛНЯЕМАЯЧАСТЬ ***}

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

{*** процедуравводаматриц ***}

procedure inputm;

begin

clrscr;

writeln;

writeln(' Введите матрицу ',m,' размером ',n,'*',n);

for i:=1 to n do

for j:=1 to n do