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.

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.

FUNGSI UPCASE

Fungsi Upcase ini digunakan untuk menampilkan huruf besar dari suatu karakter,fungsinya adalah sebagai berikut:

{Nama Program: UPCASE.PAS}
Uses wincrt;
Var Kar:Char;
Begin
ClrScr;
REPEAT
Write('Tekan tombol[a..z, Enter=Keluar]:');
Kar:=ReadKey;
If Kar=Chr(13)Then Exit; {Penekanan Enter}
Writeln;Writeln;
Writeln('Anda telah menekan karakter: ',Kar);
Writeln('Huruf besar(UpCase)',Kar,' adalah ',UpCase(Kar));
Writeln;
UNTIL False
End.