3мес
Программирование
+4Помогите с блок схемой в фортране
Вычислить полное сопротивление электрической цепи, состоящей из 2х
параллельно включенных резисторов(сопротивлений) R1, R2. Полное сопротивление может быть найдено из формулы 1/R=1/R1+1/R2
Варианты исходных данных
а)R1=10oм, R2=20ом
б)R1=50ом, R2=150ом
Составить блок-схему и написать программу на языке Фортран для решения задачи. Проверить работу программы для двух вариантов исходных данных, приведенных в задании.
По дате
По рейтингу
Так и пиши
123456789
function foo(r1,r2)
real, intent(in) :: r1,r2
x=1./r1+1./r2
foo=1./x
end
print *,foo(10.,50.)
print *,foo(20.,150.)
end 1,4,2,2
Больше по теме