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

Question

Информатика

Доминика

19 апреля, 18:59

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

+2

Ответы (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.