Поделитесь своими знаниями, ответьте на вопрос:
Написать функцию, вычисляющую сопротивление электрической цепи, состоящей из двух сопротивлений. параметрами функции должны быть величины этих сопротивлений и тип соединения (0 – последовательное, 1 – параллельное
Begin
if Ts = 0 then Ro:=R1+R2
else Ro:=(R1*R2)/(R1+R2)
End;
Var
R1,R2:real;
Ts:byte;
Begin
Write('R1 = ');ReadLn(R1);
Write('R2 = ');ReadLn(R2);
Write('Тип соединения: ');ReadLn(Ts);
WriteLn('Ro = ',Ro(R1,R2,Ts));
End.