Laporan sembilan tentang prosedure

Program Pascal

Coding program :

1.      Procedure Hitung (A, B, C : Byte);

2.      Begin

3.      A := B + C;

4.      Writeln ('Nilai A = ', A);

5.      Writeln ('Nilai B = ', B);

6.      Writeln ('Nilai C = ', C);

7.      End;

8.      Var

9.      A, B, C : Byte;

10.  Begin

11.  A := 8; B:= 9; C:=10;

12.  Hitung (A, B, C);

13.  WriteLn;

14.  WriteLn ('Nilai A = ',A);

15.  WriteLn ('Nilai B = ',B);

16.  WriteLn ('Nilai C = ',C);

17.  Readln;

18.  End.

Logika Program :

·        Pada langkah no.1 function hitung dengan nama variabel byte untuk menyatakan A,B,C sebagai tipe data keluaran.

·        Pada langkah no.2 digunakan begin untuk memulai eksekusi program.

·        Pada langkah no.3 dinyatakan proses program yaitu { A = B + C }

·        Pada langkah no.4-6 dinyatakan variabel keluaran.

·        Pada langkah no.17 digunakan readln sebagai perintah untuk memasukkan data sesuai tipe data yang ada pada program.

·        Pada langkah no.18 digunakan end. untuk mengakhiri program.

·        Procedure dapat dipanggil oleh program utama atau program lainnya tetapi tidak menghasilkan nilai.

·        Pada langkah no.1-7 merupakan program utama

Pada langkah no 8-18 merupakan program kedua atau berikutnya.

Input Program 

 

Output program