FUNCTION TANPA PARAMETER
program function_tanpa_parameter;
uses wincrt;
var
a,b:integer;
jum,bagi,kurang,kali:real;
function jumlah:real;
begin
jum:=a+b;
end;
function pembagi:real;
begin
bagi:=a/b;
end;
function pengurang:real;
begin
kurang:=a-b;
end;
function perkalian:real;
begin
kali:=a*b;
end;
begin
write('Masukan Nilai A :
');readln(a);
write('Masukan Nilai B :
');readln(b);
jumlah;
writeln('Jumlah A+B
=',jum:6:2);
pembagi;
writeln('Bagi A/B =',bagi:6:2);
pengurang;
writeln('Kurangi A-B
=',kurang:6:2);
perkalian;
writeln('Kali A*B
=',kali:6:2);
end.
FUNCTION DENGAN PARAMETER
program function_dg_parameter;
uses wincrt;
var
c,d:integer; j:real;
function jumlah(a,b:integer; jum:real):real;
begin
jum:=a+b;
writeln('Jumlah A+B
=',jum:6:2);
end;
function pembagi(a,b:integer; bagi:real):real;
begin
bagi:=a/b;
writeln('Bagi A/B
=',bagi:6:2);
end;
function pengurang(a,b:integer; kurang:real):real;
begin
kurang:=a-b;
writeln('Bagi
A-B =',kurang:6:2);
end;
function perkalian(a,b:integer; kali:real):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.
6 komentar:
yang atas ketutupan fto gag bias di liat kk :D
iya maaf ya :D
maaf kak,
mau minta penjelasannya mengenai sintak di atas boleh gx?
terutama maksud huruf (j)pada
jumlah(c,d,j);
pembagi(c,d,j);
pengurang(c,d,j);
perkalian(c,d,j);
jnya yg d paremeter itu ap yah?? knpa jika di hilangkn jika di compile dia error mhon bantuannya...
j nya yg d var yg memakai parameter knpa klau d hpus dan di program utamanya jnya di hpus di compiled failed
apa itu jnya di parameter???
kalau yang pankat seprti apa ya
Posting Komentar