Умножение матриц Опции

[Lutik]

Нужно написать программу для проверки: то есть умножить А(i,j) на X(i), чтобы получить вектор B(i).
Подскажите пожалуйста правильно ли я рассуждаю:
нужно написать в Real*4 S(10) (в самом начале)
далее после данной программы ввести S=A(i,j)*X(i), напечатать Write (*,*)S и Еnd

[Vago]

далее после данной программы ввести...

Если на месте красной линии, то Вы в это место при нормальном завершении стандартной п/п никогда не попадёте.

S=A(i,j)*X(i)

Нет. Тут два цикла, один в другом, явно, ручками, прописать надо.

[Lutik]

оки, значит нужно сделать цикл Do i=1,10 и do j=1,10 потом S=A(i,j)*X(i) и печать?

[Vago]

Нет. Во внешнем цикле ( который у Вас по I ) сперва нужно обнулить S(I), а потом, во внутреннем ( по J ), поприбавлять к этому S(I) попарные произведения A(I,J)*X(J).

[Lutik]

Do i=1,10
s(i)=0
do j=1,10
S(i)=s(i)+A(i,j)*X(i)
write(*,*)s(i)

[Vago]

S(i)=s(i)+A(i,j)*X(i)

x(j) . X йот'ое.

Ну и циклы позакрывать нужно...

[Lutik]

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]

...
enddo
endoo
write(*,*)s(i)

...
enddo
write(*,*)s(i)
enddo

Красоты, конечно, никакой, но хотя бы не за циклом печатаем...

[Lutik]

Спасибо разобрался