INC

Untuk menambah angka dengan angka 1.atau angka lainsesuai dengan kenaikan yang diinginkan. Ini sama dengan rumus x:=x+1.

Bentuk umum:

Inc(x) sama dengan x:=x+1;

Inc(x,2); sama dengan x:=x+2;

Inc(x,3); sama dengan x:=x+3;

Dan seterusnya.

Contoh

Uses crt;

Var i:integer;

Begin

Clrscr;

I:=0;

Repeat 

INC(I);

Writeln(i);

Until I=21;

Readln;

End.

Kembali ke Contoh Program Turbo Pacal 

ABS

Untuk mencari absolut (menghilangkan tanda negatif)dari suatu bilangan.

Contoh :

Uses crt;

Var angka:real;

Begin

Clrscr;

Repeat

Writeln(‘ketik 0 untuk selesai’);

Writeln(‘ketik suatu angka: ‘);readln(angka);

If angka=0 then exit;

Writeln;

Writeln(‘Abs dari ‘,angka:0:0,’=’, Abs (angka));

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal 

ARCCOS

Untuk arccossinus, turbo pascal tidak menyediakan perintah khusus tetapi kita juga dapat membuat perintah tersebut dengan rumus sebagai berikut:

Arccos(x)=arctan (sqrt(1-sqer(x))/x).

Kembali ke Contoh Program Turbo Pacal 

ARCSIN

Sama dengan Tan,turbo pascal tidak menyediakan perintah untuk mencari arcsinus dari suatu bilangan.tetapi dengan adanya perintah arctan,sqr dan sqrt maka arcsin dari suatu bilangan dapat kita cari dengan mudah dengan menuliskan rumus sebagai berikut:

Arcsin(x)=arctan(x/sqrt(1-sqer(x)), di mana x adalah bilangan real. Mudah-mudahan anda masih ingat pelajaran matematika.

Kembali ke Contoh Program Turbo Pacal 

ARCTAN

Untuk mencari arctangen dari suatu bilangan.

Contoh:

Uses crt;

Begin

Clrscr;

Writeln(‘ArcTan dari Pi atau ‘,Pi:0:2,’=’,Arctan(pi):0:2);

Readln;

End.

Kembali ke Contoh Program Turbo Pacal 

TAN

Untuk Tangen Turbo Pascal Tidak menyediakan perintahnya tetapi dengan adanya perintaj sinus dan kosinus kita dapat kita dapat mencari hasil tangen dengan mudah dengan rumus sebagai berikut:

Tan=Sin (angka)/Cos(anngka)

Contoh:

Uses crt;

Var angka:real;

Begin

Clrscr;

Repeat

Writeln(‘ketik 0 untuk selesai’);

Writeln(‘ketik suatu angka: ‘);readln(angka);

If angka=0 then exit;

Writeln;

Writeln(‘Tangen dari ‘,angka:0:0,’=’, Sin (angka)/Cos(anngka));

Writeln;

Until false;

End.

Kembali ke Contoh Program Turbo Pacal