Part 5 : Program Soal_UTS_Semester2;

uses wincrt;
Var
Lagi: String;
y, x, x2, x3, x4: Integer;

Begin
Lagi:='y';
While (Lagi='y') Or (Lagi='Y') Do
Begin
Write ('Masukan nilai n?'); Readln (y);
Clrscr;

Writeln ('Tebel perpangkatan nilai x sebagai berikut:');
Writeln ('x':1, 'x^2':6, 'x^3':11, 'x^4':14);
Writeln ('------------------------------------');
Begin
For x:=1 To y Do
Begin
x2:=x*x;
x3:=x*x*x;
x4:=x*x*x*x;
If x=5 Then
Writeln ('Mahasiswa UNISLA Harus bisa, Tapi Inget g pake contoh :-)')
Else
Writeln (x:1, x2:6, x3:11, x4:16);
End;
Writeln ('------------------------------------');
Write ('Coba lagi (Tekan y untuk ulang)'); Readln (Lagi);
Writeln;
End;
End;
End.

Hasil :