Program Pascal Procedure untuk Menghitung Penjumlahan, Pengurangan, Pembagian, dan Perkalian (KALKULATOR)

PROCEDURE TANPA PARAMETER

program procedure_tanpa_parameter;

uses wincrt;

var

   a,b:integer;

   jum,bagi,kurang,kali:real;

procedure jumlah;

begin

    jum:=a+b;

    writeln('Jumlah A+B     =',jum:6:2);

end;

procedure pembagi;

begin

    bagi:=a/b;

    writeln('Bagi A/B     =',bagi:6:2);

end;

procedure pengurang;

begin

    kurang:=a-b;

    writeln('Kurangi A-B     =',kurang:6:2);

end;

procedure perkalian;

begin

    kali:=a*b;

    writeln('Kali A*B     =',kali:6:2);

end;

begin

    write('Masukan Nilai A  : ');readln(a);

    write('Masukan Nilai B  : ');readln(b);

    jumlah;

    pembagi;

    pengurang;

    perkalian;

end.

PROCEDURE DENGAN PARAMETER

program procedure_dg_parameter;

uses wincrt;

var c,d:integer; j:real;

procedure jumlah(a,b:integer; jum:real);

begin

    jum:=a+b;

    writeln('Jumlah A+B     =',jum:6:2);

end;

procedure pembagi(a,b:integer; bagi:real);

begin

    bagi:=a/b;

    writeln('Bagi A/B     =',bagi:6:2);

end;

procedure pengurang(a,b:integer; kurang:real);

begin

    kurang:=a-b;

    writeln('Kurang A-B     =',kurang:6:2);

end;

procedure perkalian(a,b:integer; kali:real);

begin

    kali:=a*b;

    writeln('Kali A*B     =',kali:6:2);

end;

begin

    write('Masukan Nilai A  : ');readln(c);

    write('Masukan Nilai B  : ');readln(d);

    jumlah(c,d,j);

    pembagi(c,d,j);

    pengurang(c,d,j);

    perkalian(c,d,j);

end.