Pascalabc составьте программу для вычисления значения силы тока i на участке, состоящем из двух параллельно соединенных сопротивлением r1 и r2, если напряжение на концах этого участка равно u.

232

459

Посмотреть ответы 2

Ответы на вопрос:

AlexaKim04

Информатика

4,7(53 оценок)

//общее сопротивление сети: // 1/r = 1/r1 + 1/r2 // 1/r = (r2+r1)/(r2*r1) // r = r2*r1 / (r2 + r1) //закон ома для участка цепи: // i = u/r var r1,r2,u : integer; r,i : real; begin writeln ('введите значения сопротивления (r1 r2)'); readln (r1,r2); writeln ('укажите напряжение на концах цепи (u)'); readln (u); r : = r2*r1 / (r2 + r1); i : = u/r; //фактически можно не использовать переменную r //а вставить выражение сразу // i : = u/( r2*r1 / (r2 + r1) ); writeln ('сила тока на участке = ',i); end.