Oleh: blogfirman | 26 Desember 2009

Reserved Word (4) 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

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: