Написать функцию, вычисляющую сопротивление электрической цепи, состоящей из двух...

Question

Написать функцию, вычисляющую сопротивление электрической цепи, состоящей из двух сопротивлений. Параметрами функции должны быть величины этих сопротивлений и тип соединения (0 – последовательное, 1 – параллельное).

Answer 1

Function Ro(R1,R2:real;Ts:byte):real;
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.