Kali ini saya akan berbagi sedikit source code tentang program pascal sederhana menjumlahkan dua bilangan menggunakan function.

Program ini sangat simpel hanya seperti kalkulator yang hanya bisa menjumlahkan, apabila kamu ingin membuat program untuk perkalian silahkan modifikasi source code yang akan saya berikan nanti.

Berikut source code nya :

uses crt;
function jumlah(var x,y:integer) : integer;
begin
jumlah:=x+y;
end;
var
bil1,bil2:integer;
begin
clrscr;
write ('Input Bilangan Pertama = ');
readln (Bil1);
write ('Input Bilangan Kedua = ');
readln (bil2);
writeln;
writeln (bil1,' + ',Bil2,' = ',jumlah(bil1,bil2));
readln;
end.

pada code di atas, maka akan menghasilkan output :

Semoga bermanfaat.