Sabtu, 12 Mei 2012

Pascal


Soal:
Menghitung hambatan total yang dirangkai secara seri.
Diketahui :      R1 = 30 Ω
                      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