Beranda > Data Kuliah > Program Menghitung tahanan Total

Program Menghitung tahanan Total

It = E/Rt
VR4 =It * R4
Vab = E – VR4
I1 = Vab/R1
I2 = Vab/R2
I3 = Vab/R3

1. Buatlah algoritma & listing program untuk menghitung harga tahanan total, tegangan dan arus rangkaian di atas.
2. Modifikasi program pada soal -1 agar dapat menampilkan tabel di bawah ini:
========================================
No E It I1 I2 I3 Vab Vr4
——————————————————————–
1 0 … … … … … …
2 2 … … … … … …
3 4 … … … … … …
. (+2)
N 20 … … … … … …
——————————————————————–
(petunjuk : R1=100,R2=200,R3=300,R4=400,E=0s/d20)
3. melengkapi program pada soal -2 sehingga dapat menampilkan keterangan pada rabel tsb, berdasarkan arah total (it):
Bila : it ≤ 0.0025 maka keterangan ’arus lemah’
0.0025 < it ≤ 0.0100 maka keterangan ’arus kecil’
0.0100 20

b. Listing Program
program ujian_mid_semester;
uses wincrt;
var R1,R2,R3,R4,E,No :Integer;
Rt,It,I1,I2,I3,Vab,Vr4,Rab :Real;

begin
clrscr;
E:=0;
No:=1;
writeln(‘program menampilkan tabel’);
R1:=100;
R2:=200;
R3:=300;
R4:=400;
writeln(‘Tabel Tahanan_Tegangan dan Arus’);
writeln(‘========================================’);
writeln(‘ No E It I1 I2 I3 Vab Vr4’);
writeln(‘——————————————————————–‘);
Repeat
Rab:=1/((1/R1)+(1/R2)+(1/R3));
Rt:=Rab+R4;
It:=E/Rt;
Vr4:=It*R4;
Vab:=E-Vr4;
I1:=Vab/R1;
I2:=Vab/R2;
I3:=Vab/R3;
writeln(No:3,’ ‘,E:3,’ ‘,It:9,’ ‘,I1:9,’ ‘,I2:3,’ ‘,I3:3,’ ‘,Vab:3,’ ‘,Vr4:3);
No:= no + 1;
E:= E + 2;
until E>20;
readln;
end.

c. Eksekusi Program

d. Analisa

= 1 / 0,0183
= 54,6 Ω

Rt = Rab + R4
= 54,6 + 400
= 454,6 Ω

a. Untuk E = 0 V

It = E / Rt I1 = Vab / R1
= 0 / 454,6 = 6 / 300
= 0 A = 0,02 A

VR4 = It * R4 I2 = Vab / R2
= 0,06*100 = 6 / 300
= 6 V = 0,02 A

Vab = E – VR4 I3 = Vab / R3
= 12 – 6 = 6 / 300
= 6 V = 0,02 A

3. Listing Program

program ujian_mid_semester;
uses wincrt;
var R1,R2,R3,R4,E,No :Integer;
Rt,It,I1,I2,I3,Vab,Vr4,Rab :Real;
KET:string;
begin
clrscr;
E:=0;
No:=1;
writeln(‘program menampilkan tabel’);
R1:=100;
R2:=200;
R3:=300;
R4:=400;
writeln(‘Tabel Tahanan_Tegangan dan Arus’);
writeln(‘=======================================================================================’);
writeln(‘ No E It I1 I2 I3 Vab Vr4 KET’);
writeln(‘—————————————————————————————‘);
Repeat
Rab:=1/((1/R1)+(1/R2)+(1/R3));
Rt:=Rab+R4;
It:=E/Rt;
Vr4:=It*R4;
Vab:=E-Vr4;
I1:=Vab/R1;
I2:=Vab/R2;
I3:=Vab/R3;
If It<= 0.0025 then KET:= 'Arus Lemah'
else If 0.0025 < It <= 0.0100 then KET:= 'Arus Kecil'
else If 0.0100 < It = 0.0400 then KET:= ‘Arus Besar’

writeln(KET);

writeln(No:3,’ ‘,E:3,’ ‘,It:9,’ ‘,I1:9,’ ‘,I2:3,’ ‘,I3:3,’ ‘,Vab:3,’ ‘,Vr4:3 ‘,KET:3);
No:= no + 1;
E:= E + 2;
until E>20;
readln;
end.

Kategori:Data Kuliah
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: