Вопрос № 147555: Здравствуйте уважаемые эксперты! Прошу оказать помощь в решении задачи- Составить программу вычисления (2А + В)(Е - С(транспонированная)), где матрицы А, В, Е и С размерностью nxn. ...Вопрос № 147557: Здравствуйте уважаемые эксперты! Помогите пожалуйста составить программу, проверяющую, является ли матрица А трехдиагональной размерностью nxn. ...
Вопрос № 147.555
Здравствуйте уважаемые эксперты! Прошу оказать помощь в решении задачи- Составить программу вычисления (2А + В)(Е - С(транспонированная)), где матрицы А, В, Е и С размерностью nxn.
Отвечает: -=Dr. Штопор=-
Здравствуйте, Петров Иван Сергеевич! Программа в приложении, подробно закомментирована. Если найдутся вопросы, обращайтесь. Есть некоторые неточности в формулировке, например, откуда производить ввод, куда выводить, является ли E единичной матрицей (в привычной нотации должна быть таковой). В общем, если что не под Ваши нужды, перепишете - там не сложно, а если сложно, обращайтесь - помогу. Удачи.
Приложение:
--------- Tantum possumus, quantum scimus
Ответ отправил: -=Dr. Штопор=- (статус: Студент)
Ответ отправлен: 17.10.2008, 19:37
Вопрос № 147.557
Здравствуйте уважаемые эксперты! Помогите пожалуйста составить программу, проверяющую, является ли матрица А трехдиагональной размерностью nxn.
Отвечает: Николай // МMM
Здравствуйте, Петров Иван Сергеевич!
Код решения Вашей задачи ниже:
Код:
program zadacha; uses crt;
const max_size = 50;
var N, i, j : integer; matrix : array[1 .. max_size, 1 .. max_size] of integer;
BEGIN clrscr; randomize;
write (' Программа для определения количества диагоналей матрицы. ');
writeln;
write (' Введите значение N (размерность матрицы - N * N): ');
readln (N);
writeln;
for i := 1 to N do
begin for j := 1 to N do
begin
matrix[i,j] := random(10);
write (matrix[i,j]:3);
end;
writeln; end;
writeln;
if N = 3 then
begin
write (' Данна матрица является трехдиагональной! ');
end
else begin
write (' Данна матрица НЕ является трехдиагональной. Она имеет ',((2 * N) - 3),' диагонеали(лей) ');
end;
readkey; END.
Удачи Вам!!!
--------- Не ошибается лишь тот, кто ничего не делает. Не бойтесь ошибаться. Бойтесь повторять ошибки. (Теодор Рузвельт, 1858 - 1919)
Ответ отправил: Николай // МMM (статус: Студент)
Ответ отправлен: 18.10.2008, 11:06
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Петров Иван Сергеевич!
Трёхдиагональная матрица - частный случай симитричной ленточной матрицы с шириной ленты равный 1. В приложении прогамма, которая проверяет соответствует ли введенная матрица нужным условиям, а именно - все элементы не расположенные на диагоналях должны быть равны нулю. Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 22.10.2008, 18:16
