Program Pembantu *Function*

Program Contoh_fungsi;
uses wincrt;
var
angka, jawaban : integer;

function Kubik(x : integer) : integer;
begin
Kubik:=x*x*x;
end;

begin
writeln(' Masukkan angka '); readln(angka);
jawaban:= Kubik(angka);
writeln('hasil pangkat tiga dari',angka,'adalah',jawaban);
end.

Categories: DDPK