Statemen-statemen untuk perhitungan aritmatik.

Statemen-statemen untuk perhitungan aritmatik.
         # Abs [fungsi].
              Memberikan nilai mutlak dari suatu argumen.
              Sintaks:  ABS(x);

         # ArcTan[fungsi].
              Memberikan nilai dari fungsi arctangent dari perhitungan
              goniometri.
              Sintaks:  ArcTan (x);
              dimana x dapat bertipe real atau integer dan akan menghasil-
              kan nilai bertipe real.

           # Cos [fungsi].
              Memberikan nilai dari fungsi Cosinus.
              Sintaks:  Cos (x);
# Exp [fungsi].
              Menghitung  nilai  pangkat dari bilangan e  (bilangan  alam),
              yaitu sebesar x.
              Sintaks:  Exp (x);
              x  dapat  bertipe  real atau integer  dan  akan  menghasilkan
              nilai bertipe real.

# Frac [fungsi].
              Untuk mendapatkan nilai pecahan dari suatu bilangan.
              Sintaks:  Frac (x);
                        Tipe dari x sama seperti yang diatas.

           # Int [fungsi].
              Memberikan nilai integer (bilangan bulat) dari suatu variabel
              dengan membuang bilangan di belakang koma.
              Sintaks:  Int (X);

# Ln [fungsi].
              Digunakan untuk menghitung nilai logaritma alam (natural
              logarithm) dari nilai x.
              Sintaks:  Ln (x);

           # Sin [fungsi].
              Memberikan nilai dari fungsi Sinus.
              Sintaks:  Sin (x);

#  Sqr [fungsi]. 
              Digunakan  untuk menghitung nilai pangkat kuadrat dari  suatu
              bilangan.
              Sintaks:  Sqr (x);
              Tipe dari x bisa berupa real maupun integer. Dan hasilnya  a-
              kan sama dengan tipe dari x.

           # Sqrt (fungsi).
              Digunakan untuk menghitung nilai akar dari suatu bilangan.
              Sintaks:  Sqrt (x);
              Contoh :
               Program Aritmatik;
               Uses Crt;
               Var x : Real;
               Begin
                    Clrscr;
                    Write('Masukkan nilai dari X = ');
                    Readln (x);
                    If x <0 Then x:=Abs (x);
                    Writeln('Nilai X = ',x:5:2);
                    Writeln ('Nilai eksponentialnya = ',EXP(x):9:3);
        Writeln ('Nilai logaritma alamnya = ',LN(x):9:3);
Writeln ('Nilai integernya = ',INT(x):5:2);
                    Writeln ('Nilai fraksionalnya = ',FRAC(x):5:2);
                    Writeln ('Nilai X dipangkatkan = ',SQRT(x):9:3);
                    Writeln ('Nilai X diakarkan = ',SQRT(x):9:3);
                    Write('Nilai X jika dimasukkan dalam ');
                    Writeln('fungsi Sin,Cos,Tangen: ');
                    Writeln('- Sinus = ',Sin(x):9:3);
                    Writeln('- Cosinus = ',Cos(x):9:3);
                    Writeln('- Tangen = ',ArcTan(x):9:3);
               End.

              Hasilnya :
                  masukkan nilai dari X = -2.5
                  Nilai X = 2.50
                  Nilai eksponensialnya = 12,182
                  Nilai logarima alamnya =  0,196
                  Nilai integernya = 2.00
                  Nilai fraksionalnya = 0.50
                  Nilai X dipangkatkan = 6.250
                  Nilai X diakarkan =  1.581
                  Nilai X jika dimasukkan dalam fungsi Sin,Cos,Tangen:
                  - Sinus = 0.598
                  - Cosinus =  -0.801
                  - Tangen = 1.190