Написать программу в Pascal вычисления сопротивления электрической цепи, состоящей из 2-х параллельно соединенных сопротивлений. (Величина первого сопротивления 15 Ом второго сопротивления 20 Ом)

Question

Информатика

Федя

7 декабря, 07:39

Написать программу в Pascal вычисления сопротивления электрической цепи, состоящей из 2-х параллельно соединенных сопротивлений. (Величина первого сопротивления 15 Ом второго сопротивления 20 Ом)

+1

Ответы (2)

Знаешь ответ?

Артемида · Answer 1

var

R1, R2, R: real;

begin

R1 : = 15; / / readln (R1);

R2 : = 20; / / readln (R2);

R : = 1/R1 + 1/R2;

R : = 1 / R;

writeln ('Общее сопротивление проводников (', R1, ' и ', R2, ' Ом) : ', R:2:6, ' Ом');

end.

Ангелиныч · Answer 2

Var r1, r2, r:real;

begin

write ('Введите значение R1: ');

readln (r1);

write ('Введите значение R2: ');

readln (r2);

r:=r1*r2 / (r1+r2);

writeln ('Общее сопротивление при параллельном включении: ', r)

end.