Program Perpangkatan Pada Pascal

{Program Perpangkatan}

uses crt;

Var

X, x2, x3 : integer;

Seperx : real;

Begin

clrscr;

WriteLn('---------------------------------');

WriteLn(' x x*x x*x*x 1/x');

WriteLn('---------------------------------');

FOR x:= 1 to 10 DO

Begin

X2 := x*x;

X3 := X*X*X;

Seperx := 1/x;

WriteLn(x:3,x2:8,x3:8,seperx:12:3);

End;

WriteLn('---------------------------------');

delay(2000);

End.

berikut ini adalah output programnya :