Soal:
Menghitung hambatan total yang dirangkai secara seri.
Diketahui : R1
= 30 Ω
R2 = 20 Ω
R3 = 10 Ω
R2 = 20 Ω
R3 = 10 Ω
Ditanya : Hambatan total (Rt) ?
Jawab
Rt = R1 + R2 + R3
= 30 Ω + 20 Ω
+ 10 Ω
= 60 Ω
Ø Dalam
bahasa Pascal
Procedure adalah suatu program terpisah dalam blok
sendiri yang berfungsi sebagai subprogram (program bagian). Diawali dengan kata
cadangan “Procedure” didalam deklarasi prosedur.
Bila pengiriman parameter secara acuan, maka
perubahan-perubahan yang terjadi pada nilai parameter formal di procedure akan
mempengaruhi nilai parameter nyata. Parameter-parameter ini disebut dengan
variable parameter serta dideklarasikan di deklarasi prosedur dengan menggunakan
kata cadangan Var.
Listing programnya adalah sebagai berikut:
Procedure hitung ( var A, B, C, D : integer) ;
Begin
D : = A + B + C ;
End ;
Var
R1, R2, R3,
Rt : integer ;
Begin
R1 : =
30 ; R2 : = 20 ; R3 : = 10 ;
Hitung
(R1, R2, R3, Rt) ;
Writeln (‘R1 = ‘,
R1, ‘R2 = ‘, R2, ‘R3 = ‘, R3, ‘Rt = ‘, Rt) ;
End.
Output program :
R1= 30 R2=20 R3=10 Rt= 60
