 Умножение матриц |
Здравствуйте, гость ( Вход | Регистрация )
| Lutik |
 30.10.2009, 17:12
Сообщение
#1
|
|
Аспирант  Группа: Продвинутые Сообщений: 271 Регистрация: 24.12.2008 Город: Москва  |
Нужно написать программу для проверки: то есть умножить А(i,j) на X(i), чтобы получить вектор B(i). Подскажите пожалуйста правильно ли я рассуждаю: нужно написать в Real*4 S(10) (в самом начале) далее после данной программы ввести S=A(i,j)*X(i), напечатать Write (*,*)S и Еnd |
   |
 
|
  |
Ответов
| Lutik |
30.10.2009, 21:31
Сообщение
#2
|
|
Аспирант Группа: Продвинутые Сообщений: 271 Регистрация: 24.12.2008 Город: Москва |
Do i=1,10
s(i)=0 do j=1,10 S(i)=s(i)+A(i,j)*X(j) enddo endoo write(*,*)s(i) при закрывании цикла не могу быть уверен может быть после Write |
|
|
|
| Vago |
30.10.2009, 21:42
Сообщение
#3
|
|
Школьник Группа: Продвинутые Сообщений: 26 Регистрация: 12.9.2009 Город: dp |
Цитата(Lutik @ 30.10.2009, 23:31)  ... enddo endoo write(*,*)s(i) ... enddo write(*,*)s(i) enddo Красоты, конечно, никакой, но хотя бы не за циклом печатаем... |
|
|
|
Сообщений в этой теме
Lutik Умножение матриц 30.10.2009, 17:12
Vago
далее после данной программы ввести...
Если на м... 30.10.2009, 19:31 Lutik оки, значит нужно сделать цикл Do i=1,10 и do j=1,... 30.10.2009, 20:31 Vago Нет. Во внешнем цикле ( который у Вас по I ) сперв... 30.10.2009, 21:03 Lutik Do i=1,10
s(i)=0
do j=1,10
S(i)=s(i)+A(i,j)*X(i)... 30.10.2009, 21:11
Vago
S(i)=s(i)+A(i,j)*X(i)
x([b][size=4]j) . X йот... 30.10.2009, 21:30 Lutik Спасибо разобрался 30.10.2009, 21:43 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 25.5.2025, 18:53 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2025 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru