FUNGSI AKAR KUADRAT

Fungsi ini digunakan bilamana anda ingin mengetahui akar pangkat 2 dari angka yang anda inginkan dengan batas desimal 2 yang berarti akan ada 2 angka di belakang koma.. Fungsinya adalah sebagai berikut :


Uses Wincrt;
var Angka:Real;
Begin
ClrScr;
Write('Ketikken Angka Sing Mbok Pengen!!!!!!');
Readln(Angka);
Write('Akar Pangkate angka iku mang',Angka:0:2,'=',sqrt(Angka):0:2);
readln;
End.


sebagai catatan fungsi ini hanya dapat digunakan 1 kali saja.