Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] След матрицы

Автор: Alex133 20.11.2009, 14:00

заданы три матрицы А (третьего порядка), В (второго порядка), С (третьего порядка). Найти максимальное из трех чисел x, y, z, где x - след матрицы А, y - след матрицы В, z - след матрицы С. Следом матрицы называется сумма элементов в главной диагонали. Вычисление следа матрицы оформить в виде процедуры.

Автор: Rodman 20.11.2009, 15:06

M
Rodman

Модератор: Название темы должно отражать ее суть!

Автор: SoWa 20.11.2009, 18:34

Код


var sumA,sumB,sumC: integer = 0;

procedure returnSled(matrix: String, rank: integer)
begin
if matrix="a" then sumA := aMatrix[1,1]+aMatrix[2,2]+aMatrix[3,3];
if matrix="b" then sumB := bMatrix[1,1]+bMatrix[2,2];
if matrix="c" then sumC := cMatrix[1,1]+cMatrix[2,2]+cMatrix[3,3];
end;

Матрицы сам сможешь завести, а в процедуру передавай, какую матрицу считать.
Найти наибольший из трех- тоже сможешь сам ) Да и неоднократно тут считалось такое smile