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