LA Pascal 8 April 2012 (Membuat Function dan Procedure)

Membuat Function dan Procedure dalam satu program

• Coding

 

• Logika:

uses crt;

var x, y: integer;

Deklarasikan variable  x dan y sebagai integer.

function hitung (var a, b: integer):integer;

        begin

                hitung:= a + b;

        end;

Buat function hitung, dengan tipe data integer dan variable a dan b sebagai integer, begin untuk memulai function, lalu buat rumus, hitung = variable a ditambah variable b. lalu end untuk mengakhiri function.

procedure input;

        begin

                write ('Masukkan x= ');

                readln(x);

                write ('masukkan y= ');

                readln(y);

                writeln;

        end;

Buat procedur input, begin untuk memulai procedure lalu write (‘Masukkan nilai x= ‘) untuk meninput nilai x, lalu readln (x) untuk membaca nilai yang diinput sebagai variable x. write (‘Masukkan nilai y= ‘) untuk meninput nilai x, lalu readln (x) untuk membaca nilai yang diinput sebagai variable y. lalu writeln untuk membuat garis baru

 begin

        clrscr;

        input;

        writeln (x, '+', y, '=', hitung (x, y));

        readln;

end.

Begin untuk memulai coding utama, lalu clrscr untuk membersihkan layar ketika program di running. Ketik input, untuk memasukan procedure input. Lalu writeln (x, ‘+’, y, ‘=’, hitung (x,y), untuk membuat tulisan, variable x + variable y = function hitung yang merubah variable a menjadi variable x, dan variable b menjadi variable y. lalu readln agar dapat membaca hasil dari yang di write, lalu end untuk mengakhiri coding pada program utama.

• Ketika program di running