Menu

AdS

Friday, April 18, 2014

SQRT


Mencari akar pangkat dua dari suatu bilangan.
Contoh
Uses crt;
Var angkar :real;
Begin
Clrscr;
Write(‘Ketikan angka Integer atau real : ’);readln(angka);
Writeln(‘Akar Pangkat 2 dari :’,angka:0:2,’=’,sqrt(angka):0:2);
Readln;
End.

No comments:

Post a Comment