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 :
