Здравствуйте, гость ( Вход | Регистрация )
| 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:43
Сообщение
#2
|
|
Аспирант ![]() ![]() ![]() Группа: Продвинутые Сообщений: 271 Регистрация: 24.12.2008 Город: Москва |
Спасибо разобрался
|
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 Do i=1,10
s(i)=0
do j=1,10
S(i)=s(i)+A(i,j)*X(j)
e... 30.10.2009, 21:31
Vago
...
enddo
end[color=#FF0000][b]oo
write(*,*)s(i)
... 30.10.2009, 21:42![]() ![]() |
|
Текстовая версия | Сейчас: 19.4.2026, 7:42 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru