Cho 3 điện trở R1,R2,R3 được đọc từ tệp ''Baitap.INP.'' tính và đưa ra màn hình điện trở mắc song song. Giải hộ mình với viết chương trình Pascal ạ .hứa trả 5 sao
2 câu trả lời
var r1, r2, r3, r: real;
f: text;
Begin
Assign(f, 'baitap.inp'); reset(f);
Read(f, r1, r2, r3);
R:=(r1*r2+r2*r3+r3*r1)/(r1*r2*r3);
Write('R song song = ', r);
Readln
End.
Điện trở tương đương của 3 điện trở R1,R2,R3 trong mạch mắc song song là:
`1/R=1/(R1)+1/(R2)+1/(R3)=(R2.R3+R1.R3+R1.R2)/(R1.R2.R3)`
`=> R=(R1.R2.R3)/(R2.R3+R1.R3+R1.R2)`
`=>` Công thức phép tính trong pascal là (có lấy 2 số sau phần thập phân):
(R1*R2*R3)/(R2*R3+R1*R3+R1*R2):0:2
Chương trình:
program bai_giai;
uses crt;
var f:text;
R1,R2,R3:integer;
begin
clrscr;
Assign(f,'Baitap.INP'); reset(f);
readln(f,R1,R2,R3);
write('R = ',(R1*R2*R3)/(R2*R3+R1*R3+R1*R2):0:2);
readln;
end.
