Меню сайта

Задача №20

Три сопротивления R1, R2 и R3соединены параллельно. Найти сопротивление соединения R0.


Program begin_20-

var r1,r2,r3,r0:real-

begin

writeln(‘введите сопротивление R1’)-

readln(r1)-

writeln(‘введите сопротивление R2’)-

readln(r2)-

writeln(‘введите сопротивление R3’)-

readln(r3)-

r0:=1/(1/r1+1/r2+1/r3)-

writeln(‘общее сопротивление R0’,r0:4:4)-

Readln-

End.

Категория: Линейные программы | Дата: 30.11.12

Меню раздела
Блок