Tính điện trở tương đương với số điện trở tùy thích
Chia sẻ bởi Lê Trọng Nhân |
Ngày 26/04/2019 |
66
Chia sẻ tài liệu: Tính điện trở tương đương với số điện trở tùy thích thuộc Tin học 11
Nội dung tài liệu:
Var Rtd,tam:real;
n,i:integer;
a:array[1..100] of integer;
begin
write(‘nhap so dien tro: ‘);
readln(n);
for i:=1 to n do
begin
write(‘nhap dien tro thu ‘, i,’ : ‘);readln(a[i]);
end;
tam:=0;
for i:=1 to n do
tam:= tam+1/a[i];
Rtd:=1/tam;
write(‘dien tro tuong duong: ‘,Rtd:4:2,’ om’);
writeln;
readln;
end.
n,i:integer;
a:array[1..100] of integer;
begin
write(‘nhap so dien tro: ‘);
readln(n);
for i:=1 to n do
begin
write(‘nhap dien tro thu ‘, i,’ : ‘);readln(a[i]);
end;
tam:=0;
for i:=1 to n do
tam:= tam+1/a[i];
Rtd:=1/tam;
write(‘dien tro tuong duong: ‘,Rtd:4:2,’ om’);
writeln;
readln;
end.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Lê Trọng Nhân
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)