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.
Kembali ke Contoh
Program Turbo Pacal
No comments:
Post a Comment