Написать функцию, вычисляющую сопротивление электрической цепи, состоящей из двух сопротивлений. Параметрами функции должны быть величины этих сопротивлений и тип соединения (0 – последовательное, 1 – параллельное).
156
ОТВЕТЫ
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.
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.
27
Отв. дан
Варвара
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Владимир
Син легший за батька в 5 разів,а разом вони ...
2018-09-25 00:00:00
Вадим
Расстояние между двумя городами на местности 420км, а на ...
2018-09-25 00:00:00
Morn
В сосуд имеющий форму кубоида с измерениями 12см 8см ...
2018-09-25 00:00:00
Shalmeena
Подскажите как выразить х) 1)y=4-3х
2) у=25+0,5х ...
2018-09-25 00:00:00