Viết chương trình: Cho mạch điện gồm 2 điện trở R1, R2 mắc nối tiếp.
Đọc từ tệp “DIENTRO.INP” 2 số nguyên R1 và R2 (Các số ngăn cách nhau bởi dấu cách; R1 < R2). Tính điện trở tương đương của mạch.
Ghi kết quả ra tệp “DIENTRO.OUT”.
Viết chương trình: Cho mạch điện gồm 2 điện trở R1, R2 mắc nối tiếp.
Đọc từ tệp “DIENTRO.INP” 2 số nguyên R1 và R2 (Các số ngăn cách nhau bởi dấu cách; R1 < R2). Tính điện trở tương đương của mạch.
Ghi kết quả ra tệp “DIENTRO.OUT”.
Giải thích: Điện trở tương đương của mạch điện nối tiếp là bằng tổng các điện trở thành phần
`=>` Rtđ=R1 + R2
Chương trình:
program dien_tro;
var f,g:text;
r1,r2:integer;
begin
Assign(f,’DIENTRO.INP’); reset(f);
Assign(g,’DIENTRO.OUT’); rewrite(g);
readln(f,r1,r2);
write(g,’Dien tro tuong duong la: ‘,r1+r2);
close(f); close(g);
end.
var f: text;
r1, r2: real;
Begin
Assign(f1, ‘DIENTRO.INP’); reset(f);
Read(f, r1, r2); close(f);
Assign(f, ‘DIENTRO.OUT’); rewrite(f);
Write(f, r1 + r2); close(f);
End.