Contoh Program Function Pada Pascal

Listing Program

program fungsi1;

uses crt;

function luas (a,b:integer):integer;

begin

        luas :=a*b;

        end;

var

x,y:integer;

begin

clrscr;

        writeln('Program Menghitung Luas Persegi Panjang');

        writeln;

        write('Masukan Lebar= ');readln(x);

        write('Masukan Panjang= ');readln(y);

        writeln;

        writeln('Luas Persegi Panjang adalah= ',luas(x,y));

        readln;

        end.

Output Program

Logika Program

Pada program function ini, saya mencoba untuk membuat perhitungan luas persegi panjang.program function berada di atas dari program utama. Ketika program di jalankan pengguna akan di suruh untuk memasukan lebar dan panjang dari sebuah benda yang selanjutnya akan di hitung dan di tampilkan ke dalam layar output. Adapun rumus dalam mencari luas dari sebuah persegi panjang adalah Panjang dikali Lebar.

Artikel terkait :