Turbo Pascal для начинающих




Задача 179


{ Вычисляет сопротивление электрической цепи } function Sopr(rl,r2: real; t: integer): real; ( rl,r2 - величины сопротивлений t - тип соединения:
1 - последовательное;
2 - параллельное.
Если тип соединения указан неверно, то возвращает -1 }
begin
if t=l then Sopr:= rl+r2;
if t=2 then Sopr:= rl*r2/(rl+r2)
else Sopr:=-1; { неверно указан тип соединения} end;









Начало    Назад    Вперед