Вопрос № 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
Вы имеете возможность оценить этот выпуск рассылки. Нам очень важно Ваше мнение!
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
