FUNGSI KUADRAT

Fungsi ini digunakan untuk menampilkan angka kuadrat dari angka yang anda inginkan.. Penulisannya adalah sebagai berikut:

Uses Wincrt;
var Angka:Real;
Begin
ClrScr;
Write('Ketikkan Angka yang anda inginkan!!!!!!');
Readln(Angka);
Write('Pangkat angka tersebut',Angka:0:2,'=',sqr(Angka):0:2);
readln;
End.


sebagai catatan fungsi ini hanya dapat dipakai sekali saja,agar dapat dipakai berulang kali tambahkan repeat dan until false di rumus tersebut. hasilnya akan menjadi seperti ini :

Uses Wincrt;
var Angka:Real;
Begin
ClrScr;
REPEAT
Write('Ketikkan Angka yang anda inginkan!!!!!');
Readln(Angka);
Write('Pangkat angka tersebut',Angka:0:2,'=',sqr(Angka):0:2);
readln;
until False
End.