Fungsi Numerik Delphi

Contoh program yang menggunakan beberapa fungsi numerik :

program fungsinumerik;

uses
Forms;

{$apptype console}

var a,z:integer;
b,y:real;

begin

a:=-12;
z:=abs(a);
writeln(a,' jika diberi fungsi abs, hasilnya : ',z);
b:=-3.45;
y:=abs(b);
writeln(b:5:2,' jika diberi fungsi abs, hasilnya : ',y:5:2);

a:=9;
b:=cos(a);
writeln(a,' jika diberi fungsi cos, hasilnya : ',b:5:2);
a:=5;
b:=cos(a);
writeln(a,' jika diberi fungsi cos, hasilnya : ',b:5:2);

a:=9;
b:=sin(a);
writeln(a,' jika diberi fungsi sin, hasilnya : ',b:5:2);
a:=5;
b:=sin(a);
writeln(a,' jika diberi fungsi sin, hasilnya : ',b:5:2);

b:=3.12;
y:= frac(b);
writeln(b:5:2,' jika diberi fungsi frac, hasilnya : ',y:5:2);
b:=1.89;
y:= frac(b);
writeln(b:5:2,' jika diberi fungsi frac, hasilnya : ',y:5:2);

b:=3.12;
y:= int(b);
writeln(b:5:2,' jika diberi fungsi int, hasilnya : ',y:5:2);
b:=1.89;
y:= int(b);
writeln(b:5:2,' jika diberi fungsi int, hasilnya : ',y:5:2);

writeln(pi:5:4);

a:=9;
z:=sqr(a);
writeln(a,' jika diberi fungsi sqr, hasilnya : ',z);
a:=16;
z:=sqr(a);
writeln(a,' jika diberi fungsi sqr, hasilnya : ',z);

a:=9;
y:=sqrt(a);
writeln(a,' jika diberi fungsi sqrt, hasilnya : ',y:5:2);
a:=16;
y:=sqrt(a);
writeln(a,' jika diberi fungsi sqrt, hasilnya : ',y:5:2);

b:=3.12;
y:= round(b);
writeln(b:5:2,' jika diberi fungsi round, hasilnya : ',y:5:2);
b:=-1.89;
y:= round(b);
writeln(b:5:2,' jika diberi fungsi round, hasilnya : ',y:5:2);

b:=3.12;
y:= trunc(b);
writeln(b:5:2,' jika diberi fungsi trunc, hasilnya : ',y:5:2);
b:=-1.89;
y:= trunc(b);
writeln(b:5:2,' jika diberi fungsi trunc, hasilnya : ',y:5:2);

readln;
end.

Hasil program di atas :

 

Fungsi-fungsi yang digunakan di atas adalah :

• abs : mengubah nilai negatif menjadi positif, yang positif tetap positif
• cos : menampilkan nilai cosinus dari suatu bilangan
• sin : menmpilkan nilai sinus dari suatu bilangan
• frac : mengabaikan nilai bulat, hanya mengambil nilai desimal dari suatu bilangan
• int : mengabaikan nilai desimal, hanya mengambil nilai bulat dari suatu bilangan
• pi : memberikan nilai 3.1416
• sqr : memberikan nilai kwadrat dari suatu bilangan
• sqrt : memberikan nilai akar dari suatu bilangan
• round : mengabaikan nilai desimal dengan melakukan pembulatan, ke atas atau ke bawah
• trunc : menghil angkan nilai desimal dari suatu bilangan