SQR

Mencari pangkat 2 darisuatu bilangan

Contoh

Uses crt;

Var angkar :real;

Begin

Clrscr;

Write(‘Ketikan angka Integer atau real : ’);readln(angka);

Writeln(‘Pangkat 2 dari :’,angka:0:2,’=’,sqr(angka):0:2);

Readln;

End.

Kembali ke Contoh Program Turbo Pacal