Headlines News :
Home » » Pascal Untuk Resistor Seri Dan Paralel

Pascal Untuk Resistor Seri Dan Paralel

Written By Mangku on Kamis, 17 November 2011 | 19.12

Seri
Paralel
Jika diketahui:
R1 = 100Ω
R2 = 150Ω
R3 = 20Ω
R4 = 200Ω
Maka untuk mendapatkan R total dapat digunakan rumus/cara berikut, baik secara perhitungan manual maupun dengan bantuan program pada pascal:
  • Untuk rangkaian Seri
Dengan menggunakan perhitungan manual:
R total = R1+R2+R3+R4
R total = 100+150+20+200
R total = 470Ω
Dengan menggunakan pascal:
Buat sebuah program seperti berikut:

Kemuadian tekan Alt+F9 ( Compile) untuk memeriksa apakah terjadi eror/ kesalahan pada program, jika tidak ada langsung jalankan program dengan menekan Ctrl+F9 (Run), kemudian masukkan nilai R1,R2,R3,R4.  Untuk melihat hasilnya klik Debug kemudian Output, hasilnya:

(4.7000000000E+02 ) = 470Ω
  • Untuk rangkaian Paralel
Dengan perhitungan manual:
Dengan menggunakan Pascal:
Buat program sebagai berikut:
Kemudian periksa dan jalankan program seperti pada program seri tadi, kemudian masukkan nilai resistor dan lihat hasilnya.
(7.1666666666E-02) = 0.0716Ω
Keterangan program:
program bagi; (merupakan judul dari program yaitu bagi, judul ini bisa diganti-ganti.)
var A,B,C,D,Q:real; (merupakan variabel yang akan digunakan, misalkan R1 di program ini diibaratkan dengan A, dan Q adalah R total/hasil. ‘real’ sendiri merupakan bentuk bilangan yaitu bilangan real(nyata) yang akan digunakan/dihasilkan oleh variabel(A,B,C,D,Q).
writeln (‘Resistor 1′); ( writeln, digunakan untuk menampilkan keterangan pada layar, dan Resistor 1 sebagai keterangan).
read (A); (membaca perintah dari keyboard/ angka yang diketik).
Q:=A+B+C+D; (merupakan perhitungan rumus pada rangaian seri).
Share this article :

0 komentar:

Speak up your mind

Tell us what you're thinking... !

Sponsor

Dragon Nest BarongNET

Followers

Kotak Pesan

Klik Sponsor Donk!!

 
Support : Creating Website | Johny Template | Mas Template
Proudly powered by Blogger
Copyright © 2011. Sekala Niskala™ - All Rights Reserved