Pascal Dengan Program Function

Blok fungsi (function) hampir sama dengan blok prosedur (procedure), hanya fungsi harus dideklarasikan dengan tipenya. Tipe deklarasi ini menunjukan tipe hasil dari fungsi. Blok fungsi juga diawali dengan kata cadangan Begin dan di akhiri dengan kata cadangan End dan titik koma.

            Dalam program ini akan menjelaskan tentang perhitungan Hambatan Total (R_T) yang disusun seri dalam bentuk perhitungan secara matematis, listing program menggunakan function dan bentuk flowchart.

Adapun gambar rangkaiannya adalah sebagai berikut:

 

•  Secara matematis :

R_T = R1 + R2 + R3

            = 10Ω + 20Ω + 30Ω

= 60 Ω

• Listing Program:

Uses crt;

Function besar (R1, R2, R3 : integer) : integer ;

Begin

Besar : = R1 ;

Besar : = R2 ;

Besar : = R3 ;

End;

Var

R1, R2, R3: integer;

Begin

Clrscr;

            Write (’nilai R1 =’); readln (R1);

            Writeln;

Write (‘nilai R2 = ‘); readln (R2);

Writeln;

Write (‘nilai R3 = ‘); readln (R3);

Writeln;

Write (‘RT = ‘, R1 + R2 + R3);

Readln;

     End.

Output program :

Nilai R1 = 10

Nilai R2 = 20

Nilai R3 = 30

RT = 60

• Flowchart

 www.gunadarma.ac.id

 www.studentsite.gunadarma.ac.id