Program Pascal Perpangkatan

Disini saya ingin mejelaskan cara bagaimana membuat program pascal pemangkatan. Langsung saja beginilah perogram yang harus ditulis apabila anda ingin mebuat pangkat 2.

uses
 wincrt;

var
 bilangan: integer;
 hasil: longint;

begin
 clrscr;
 write('Masukkan sebuah bilangan bulat :');
 readln(bilangan);
 hasil:=bilangan * bilangan * bilangan;
 write(bilangan,'^2 =',hasil);
 readln;
end.

Bila program ini dijalan dengan ctrl+F9 lalu tulis angka sesuai kenginan anda dan disini saya menggunakan angka 5 

 

Dan bila anda ingin merubah pangkat 2 denagn keinginan sendiri tinggal dirubah saja angka 2 nya menjadi angka yang anda ingin kan di perogramnya.