program main implicit none real :: r, r1, r2, r3, r4, r5 real :: u, u1, u2, u3, u4, u5, u11, u212315 real :: i, i1, i2, i3, i4, i5, i212, i315 real :: r212, r315, r212315, r11, r21, r31 u=100; r1=1000; r2=2000; r3=800; r4=1500; r5=1700 !Вычислим сопротивления звезды r11 = r1*r4 / (r1+r3+r4) r21 = r1*r3 / (r1+r3+r4) r31 = r3*r4 / (r1+r3+r4) !Вычислим промежуточные значения r212 = r21 + r2 r315 = r31 + r5 r212315 = 1 / (1/r212 + 1/r315) r = r11 + r212315 i = u / r u11 = i * r11 u212315 = u - u11 i212 = u212315 / r212 i315 = u212315 / r315 !Вычислим напряжения, В u2 = i212 * r2 u5 = i315 * r5 u3 = abs(u5 - u2) u1 = u11 + i212 * r21 u4 = u11 + i315 * r31 !Вычислим токи, mA i1 = 1e3 * u1 / r1 i2 = 1e3 * u2 / r2 i3 = 1e3 * u3 / r3 i4 = 1e3 * u4 / r4 i5 = 1e3 * u5 / r5 i = 1e3 * i print*, "Результаты:" print 10, " u1 = ", u1, " В" print 10, " u2 = ", u2, " В" print 10, " u3 = ", u3, " В" print 10, " u4 = ", u4, " В" print 10, " u5 = ", u5, " В" print 10, " u = ", u , " В" print*, print 10, " i1 = ", i1, " mA" print 10, " i2 = ", i2, " mA" print 10, " i3 = ", i3, " mA" print 10, " i4 = ", i4, " mA" print 10, " i5 = ", i5, " mA" print 10, " i = ", i , " mA" 10 format (a, f7.2, a) end program main