SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Извините, комментировать код желания нет, ибо создаётся впечатление, что это Вам всё равно не нужно ;-((( Задача стоит в том, чтобы добится, чтобы программа работала и сдать её преподавателю - а что она делает и как - не особо и важно, да?... ;-(((
Код:
program MD_Demo;
{Программа для демонстрации работы с модулем MainDiag}
uses MainDiag;
var
MyMatrix : MatrixType;
var
i, j : integer;
begin
for i:=1 to SizeMatrix do
begin
for j:=1 to SizeMatrix do begin
MyMatrix[i,j] := j/10+i;
Write(MyMatrix[i,j]:7:2);
end;
WriteLn;
end;
WriteLn('Sum of main diag = ', MD_GetSum(MyMatrix):10:2);
WriteLn('Multiple of main diag = ', MD_GetMult(MyMatrix):10:2);
WriteLn('Count of positive in main diag = ', MD_GetCountPositive(MyMatrix):10);
WriteLn('Count of negative in main diag = ', MD_GetCountNegative(MyMatrix):10);
ReadLn;
end.
|
|
